Hi,
I am using this from the Drag Example
But the code I got when you drag a static text from the listbox
filled with control types
when you drop it in the window it just moves the first one to where
ever you dropped it
I want to be able to have more than one static text (dropping)
AcceptMacDataDrop "RBRC"
Dim clone As RectControl
select case obj.MacData("RBRC")
case "Static Text"
clone = new StaticTextTemplate
else
// ignore
end Select
clone.left = obj.DropLeft
clone.top = obj.DropTop
clone.Visible = True
clone.Enabled = true
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
