Clipboard conversion

[ldarrambide]

Macro Macro29

Code:

Copy      Help

#compile "__Gdip"
GdipBitmap t_im t_out

GDIP.EncoderParameters p
p.Count=1
memcpy &p.Parameter[0].Guid GDIP.EncoderQuality sizeof(GUID)
p.Parameter[0].Type=GDIP.EncoderParameterValueTypeLong
p.Parameter[0].NumberOfValues=1
int quality=100
p.Parameter[0].Value=&quality

OpenClipboard(0)
t_im.FromHBITMAP(GetClipboardData(CF_BITMAP))
CloseClipboard
if(!t_im) out "failed to get bitmap from clipboard"

__MemBmp mb.Create(300 300)

t_im.DrawResize(mb.dc 0 0 300 300 0)
OpenClipboard(0)
t_out.FromHBITMAP(mb.bm)
_i=t_out.GetHBITMAP
SetClipboardData(CF_BITMAP _i)
CloseClipboard

sorry for being so stupid, but still copies the big original image, not the resized (300x300) one....