realbasic-nug
[Top] [All Lists]

Re: Help please: canvas backdrop

To: REALbasic NUG <realbasic-nug@lists.realsoftware.com>
Subject: Re: Help please: canvas backdrop
From: Thierry NAUZE <tehenne@orange.fr>
Date: Wed, 31 Dec 2008 07:10:19 +0400
Authentication-results: mx.google.com; spf=neutral (google.com: 74.124.194.228 is neither permitted nor denied by best guess record for domain of realbasic-nug-bounces@lists.realsoftware.com) smtp.mail=realbasic-nug-bounces@lists.realsoftware.com
Delivered-to: listarchive@realsoftware.com
In-reply-to: <51717.38456.qm@web65607.mail.ac4.yahoo.com>
References: <51717.38456.qm@web65607.mail.ac4.yahoo.com>
Reply-to: REALbasic NUG <realbasic-nug@lists.realsoftware.com>
Sender: realbasic-nug-bounces@lists.realsoftware.com

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>


<Prev in Thread] Current Thread [Next in Thread>