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

Click here to load this message in the networking platform