Clipboard conversion

[Gintaras]

Macro Macro2185

Code:

Copy      Help

#compile "__Gdip"
GdipImage g
;...

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=0
p.Parameter[0].Value=&quality


g.Save2("file" &p)

Let Save2 is a copy of Save, with added parameter GDIP.EncoderParameters*p, and let it pass p to GdipSaveImageToFile.