Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Scrolling up/down in a treeview
Message
De
08/07/2003 02:06:02
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
 
 
À
08/07/2003 01:17:50
Gavin Reid
L & M Marketing Pty Ltd
Frenchs Forest, Australie
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Divers
Thread ID:
00807832
Message ID:
00807845
Vues:
16
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform