Le 18 juin 2012 à 23:18 Soir, Christian Schmitz a écrit:
> Can you make a sample project to show problem?
Well, this method does:
dim f As FolderItem
dim p As Picture
f=GetSaveFolderItem("Any","Test.pictClipping")
if f=nil then Return True
p=new Picture(100,100,32) 'Make a sample picture
p.Graphics.ForeColor=RGB(0,255,255)
p.Graphics.FillOval 0,0,99,99
p.Graphics.ForeColor=RGB(255,0,0)
p.Graphics.DrawOval 0,0,99,99
dim r As ResourceFork 'ResourceFork is needed for a clip file
r=f.CreateResourceFork("Any")
r.AddResource(PicturetoBinaryStringMBS(p),"PICT",256,"Picture")
r.AddResource(DecodeBase64("AAAAAKIAvQA="),"RECT",256,"") 'Values taken from a
sample file and irrelevant to the problem
r.AddResource(DecodeBase64("AQAAAAAAAAAAAAAAAAACAFRDRVIAAAABAAAAAAAAAABUQ0lQAAAAAQAAAAAAAAAA"),"drag",128,"")
'ditto
r.Close
You should see a clip file with a default icon and the Finder doesn't show the
picture once you open the file.
_______________________________________________
Mbsplugins_monkeybreadsoftware.info mailing list
[email protected]
https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
