Re: Drag Handles?

[Paul Young]

John,

Yep, that was a typo.  The line should have been:

        ElseIf X > X1 then

Thanks.  Fortunately, Mark got the idea.

Paul

On Feb 26, 2006, at 9:21 AM, John D. Herron wrote:

Paul, sorry for butting in.
This is about your code snippet for Mark:

In Canvas1/MouseUp, put:
    If /*X < X1*/ then
        Canvas1.Width = Canvas1.Width - 10
        Rectangle1.Width = Rectangle.Width - 10
    ElseIf /*X < X1*/ then          'same choice as above...
        Canvas1.Width = Canvas1.Width + 10
        Rectangle1.Width = Rectangle1.Width + 10
End if

Notice that the two choices are identical?
jdh

Paul Young wrote:

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

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