
Need assistance with doing something [semi-LONG]
Hi.
Again I need help. I'm trying to make an app that makes startup
screens. Here is my code (the picture is in picturewindow.backdrop):
Dim file As FolderItem
Dim rf as ResourceFork
chasingarrows1.visible=true
statusbar.text="Creating File..."
file=getsavefolderitem("resedit/startupscreen","StartupScreen")
if file<>nil then
statusbar.text="Writing Picture Data..."
rf=file.CreateResourceFork("resedit/startupscreen")
rf=file.OpenResourceFork
rf.addpicture(picturewindow.backdrop,0,"StartupScreen")
statusbar.text="Done. Idle."
chasingarrows1.visible=false
end if
When I run it and open it in ResEdit (to check for the PICT that is the
picture and has ID 0) it's empty!
Any help would be appreciated.
BTW, this is why I asked for the CreateRescourceFork syntax.
--
--
Prog III