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)





;**************************************

;**************************************
t_out.FromHBITMAP(mb.bm)
_i=t_out.GetHBITMAP
EmptyClipboard
SetClipboardData(CF_BITMAP _i)


t_out.Save2("q:\g.jpg" &p)

i'm struggling with that for a moment now, but this code pastes original image to clipboard (t_im),
not the resized one (t_out).

Grrrr.....