Re: Help please: canvas backdrop

[Thierry NAUZE <tehenne@orange.fr>]

Le 30 déc. 08 à 17:57, Lennox Jacob a écrit :

> Hello,
>
> I have a Canvas, named Canvas1, and I have this code in its  
> DropObject event
>  Dim f as FolderItem
>  f = Obj. FolderItem
>
>  if f <> Nil then
>
>   //  Me.Backdrop = A picture of the dropped item's icon
>    Dim myPic as Picture
>    myPic = ...??
>    Me.Backdrop = myPic
>
>  else
>    //user cancelled
>  end if
>
> I would like a picture of the dropped object's icon to be displayed  
> in Canvas1 --> myPic = ...??
> How do I do that?
In the event Open :

  me.AcceptPictureDrop
  me.AcceptFileDrop("JPEG")


In the event DropObject

  if obj.FolderItemAvailable then
    dim imaz as picture
    imaz=obj.FolderItem.openAsPicture
    me.backdrop=imaz
  end


--
Tehenne
Saint-Denis de la Réunion







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

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