"Resource not found!" error

[Lennox Jacob <lenpartico@yahoo.com>]

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>