realbasic-nug
[Top] [All Lists]

Help please: canvas backdrop

To: realbasic-nug@lists.realsoftware.com
Subject: Help please: canvas backdrop
From: Lennox Jacob <lenpartico@yahoo.com>
Date: Tue, 30 Dec 2008 05:57:01 -0800 (PST)
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; domainkeys=hardfail (test mode) header.From=lenpartico@yahoo.com
Delivered-to: listarchive@realsoftware.com
Domainkey-signature: a=rsa-sha1; q=dns; c=nofws; s=s1024; d=yahoo.com; h=X-YMail-OSG:Received:X-Mailer:Date:From:Reply-To:Subject:To:MIME-Version:Content-Type:Message-ID; b=bx8pCyUrZX3j5eMznh1UhrXnzrV5T42wlEyxHYVNkJZqO+k21prUND7GGsjSfLDdQoR0qJggcMqs6HmtlMwhwrCCgmxLwUE9c2Pkiy+V7yzZx1gGPZMBrMpngpyf/ikeqoh1OCYmfghN0CLs6cbOyJBTwWvoAWDxfv80u4bscu4=;
Domainkey-status: bad (test mode)
Reply-to: REALbasic NUG <realbasic-nug@lists.realsoftware.com>
Sender: realbasic-nug-bounces@lists.realsoftware.com
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?

Thanks.

Lennox.


      

_______________________________________________
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>