Many applications are going away from any kinds of resources
You might need to use a different mechanism to get the icon
MacOSLib has this implemented in its MacIcon classes which can grab
the icon for a given folderItem
On 31-Dec-08, at 7:58 AM, Lennox Jacob wrote:
Hello,
I got this example from the LR but when I run it I am getting this
message - "Resource not found!".
'This example gets the desktop application icon for Photoshop® and
displays it in a Canvas control.
#if TargetMacOS then
Dim rf as ResourceFork
Dim f as FolderItem
Dim p as Picture
'f= GetFolderItem("Photoshop") I don't have Photoshop, but I have
Safari
f= GetFolderItem("Safari")
If f <> Nil then
rf=f.OpenResourceFork
If rf <> Nil then
p=rf.Geticl(128)
Canvas1.backdrop=p
Else
MsgBox "Resource not found!"
End if
Else
MsgBox "File not found!"
End if
#Else
msgbox "Sorry, but access to the resourcefork is supported only
on Macintosh"
#endif
How can I fix that?
Thanks.
Lennox
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
Norman Palardy
Great White Software http://www.great-white-software.com/
My Blog http://blog.great-white-software.com/
Association of REALbasic Professionals http://www.arbp.org
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
|