Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Scrolling up/down in a treeview
Message
From
09/07/2003 23:24:27
Gavin Reid
L & M Marketing Pty Ltd
Frenchs Forest, Australia
 
 
To
08/07/2003 02:06:02
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00807832
Message ID:
00808730
Views:
17
Hi Cetin,

Thanks.

Regards,
Gavin.

>>Hi All,
>>
>> I have an application (VFP6.0 SP5) that uses a treeview and I want to select a node and drag it to another node that is off the screen. E.g I have to scroll up or down to reach the target node. The problem is that when I select the node to be moved and try to scroll up or down the treeview does not scroll. Does anyone have a solution for this?
>>
>>Thanks,
>>Gavin.
>
>Gavin,
>Read and download code from UT magazine first issue (I think it was June 2001).
>
>*....
>  Procedure oletreeview.OLEDragOver
>  *** ActiveX Control Event ***
>  Lparameters data, effect, button, shift, x, y, state
>  oHitTest = THIS.HitTest( x * THISFORM.nxtwips, Y * THISFORM.nytwips )
>  If type("oHitTest")= "O"
>    This.DropHighlight = oHitTest
>    if !isnull(oHittest)
>      	if y <= this.top + 150 	and ;
>             type('oHitTest.Previous')='O' ;
>             and !isnull(oHitTest.Previous)
>    		oHitTest.Previous.EnsureVisible
>    	endif	
>    	if y >= this.top + this.height - 150 and ;
>            type('oHitTest.Next')='O' and !isnull(oHitTest.Next)
>  	   oHittest.Next.EnsureVisible
>    	endif	
>    endif
>  Endif
>Endproc
>*....
>
>Cetin
Previous
Reply
Map
View

Click here to load this message in the networking platform