Re: "Resource not found!" error

[Norman Palardy <npalardy@great-white-software.com>]

On 31-Dec-08, at 10:08 AM, Lennox Jacob wrote:

> I tried this:
>
>  #if TargetMacOS then
>    Dim f as FolderItem
>    Dim p as Picture
>    f=  
> SpecialFolder 
> .Applications 
> .child 
> ("Safari 
> .app").child("Contents").child("Resources").Child("compass.icns")
>    If f <> Nil then
>      'f.launch  'This launches Preview and displays the compass as a  
> picture
>      p=f.OpenAsPicture
>      Canvas1.backdrop=p
>    End if
>
>  #endif
>
> but the compass was not displayed in Canvas1, nothing happened.

Exactly as I would expect
An ICNS file is many pictures of varying sizes all crammed into one file
This is why you need to follow the remainder of my advice and grab  
MacOSLib and have a look at how it's examples for Icon Services grabs  
an icon from an application

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>