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