Mark,
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
Paul
On Feb 26, 2006, at 8:15 AM, Mark Cooke wrote:
On 26 Feb 2006, at 13:07, Paul Young wrote:
In a new project, drag into Window1 a listbox and a pushbutton.
In PushButton1/Action put:
ListBox1.Width = ListBox1.Width + 20
Each time you press the button, the listbox will widen by 20 pixels.
Doh!, sorry it's Sunday (brains day off), I'm doing that in my
Preference window, with a PagePanel and
Toolbaritems, I just didn't think properly.
So I suppose if I want to reproduce the layout I mentioned, I would
need to simply, add a new control object, say a canvas, with a dot
image in the center, then do the resizing in the MouseDrag Event,
so if it's to the left, then minimise, and if the mouse is moving
to the right, then increase the size.
Thanks
Mark
Paul Young
[EMAIL PROTECTED]
_______________________________________________
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>
