On 26 Feb 2006, at 13:51, Paul Young wrote:
Try this:
In a new project, drag into Window1 a Canvas and a Rectangle. Make
them the same size and put the Canvas in front of the Rectangle.
So Canvas has Control Order 1 and Rectangle has Control Order 0.
Add one Window1 property:
X1 as Integer
In Canvas1/MouseDown, put:
X1 = X
Return True
In Canvas1/MouseUp, put:
If X < X1 then
Canvas1.Width = Canvas1.Width - 10
Rectangle1.Width = Rectangle.Width - 10
ElseIf X < X1 then
Canvas1.Width = Canvas1.Width + 10
Rectangle1.Width = Rectangle1.Width + 10
End if
Thanks a lot :),
at least I was on the right track (one I got my brain in gear :)).
Mark
_______________________________________________
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>
