>> Neat trick, but isn't IconMBS Mac only? I specifically asked for windows.
>
> IconMBS class, but not IconMBS function on folderitem class.
Aah, I see. Now I got it to work, but only on Mac OS. I forgot that for some
reason folder items created via GetTemporaryFolderItem can't be renamed (at
least not by simply assigning to the name-property).
So this works on Mac OS:
dim f as
FolderItem=specialfolder.Temporary.Child("test."+Self.TextField1.text) //(I
entered "pdf" or "doc" into Self.TextField1)
Self.mIcon =new Picture(32,32,16)//Self.mIcon is a picture property of the
window
f.DrawWideIconMBS(Self.mIcon.Graphics,0,0,32,0)
Self.Canvas1.Invalidate
and in Canvas1 Paint event :
if Self.mIcon isa pictURE then
g.DrawPicture(Self.mIcon,0,0,32,32)
end if
but it would only draw a blank picture on windows...
Maximilian Tyrtania
http://www.contactking.de
_______________________________________________
Mbsplugins_monkeybreadsoftware.info mailing list
[email protected]
https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
