Clipboard conversion

[ldarrambide]

Macro Macro29

Code:

Copy      Help

OpenClipboard(_hwndqm)
t_im.FromHBITMAP(GetClipboardData(CF_BITMAP))
CloseClipboard
EmptyClipboard
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)

EmptyClipboard

OpenClipboard(_hwndqm)
t_out.FromHBITMAP(mb.bm)
_i=t_out.GetHBITMAP
SetClipboardData(CF_BITMAP _i)
CloseClipboard

same thing, no change

but

Macro Macro29

Code:

Copy      Help

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(_hwndqm)
t_im.FromHBITMAP(GetClipboardData(CF_BITMAP))
CloseClipboard
EmptyClipboard
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)

EmptyClipboard

OpenClipboard(_hwndqm)
t_out.FromHBITMAP(mb.bm)
EmptyClipboard; SetClipboardData(CF_BITMAP mb.Detach); CloseClipboard
t_out.Save2("q:\g.jpg" &p)

is a success, i can't see why.......I was supposed to paste t_out not mb..