Am 15.06.2011 um 17:03 schrieb Michael Diehr:
> Thank you -- does the new API allow alpha channels to work?
> See <feedback://showreport?report_id=6278>
> That would be a nice feature, if so.
It does work. Like in this example:
// save an icon as a PNG file with mask
dim f1 as folderItem
dim f2 as folderitem
dim p as picture
dim i as picture
dim m as picture
dim qe as QTGraphicsExporterMBS
dim tNum as Integer
f1=SpecialFolder.Desktop
if f1<>Nil then
if TargetCocoa then
i=f1.IconMBS(512)
elseif TargetCarbon then
i = f1.IconImageMBS(512)
m = f1.IconMaskMBS(512)
i.EmbeddedMaskMBS(true)=m
else
break // not supported
end if
f2 = SpecialFolder.Desktop.Child("test.png")
qe=new QTGraphicsExporterMBS
qe.OpenExporter "PNGf"
qe.InputPicture=i
qe.OutputFile = f2
tNum=qe.Export
end if
Greetings
Christian
--
Read our blog about news on our plugins:
http://www.mbsplugins.de/
_______________________________________________
Mbsplugins_monkeybreadsoftware.info mailing list
[email protected]
https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
