Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Scrolling up/down in a treeview
Message
From
08/07/2003 02:06:02
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
To
08/07/2003 01:17:50
Gavin Reid
L & M Marketing Pty Ltd
Frenchs Forest, Australia
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00807832
Message ID:
00807845
Views:
15
This message has been marked as a message which has helped to the initial question of the thread.
>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
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform