Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
TreeView nodes...?
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Divers
Thread ID:
00182449
Message ID:
00182557
Vues:
14
Hi Scott,

There is no way to modify the "ToolTipText" for TreeView Nodes. However, you can simulate it in the following manner.

I usually load a value that I can display as my tooltiptext in the node's tag property.

Create 2 properties in your form called:
XTwips
YTwips

Create a method in your form called PixelToTwips and include the following form:

THISFORM.PixelToTwips
======================
LOCAL liHWnd, liHDC, liPixelsPerInchX, liPixelsPerInchY
* Define some constants.

#DEFINE cnLOG_PIXELS_X 88
#DEFINE cnLOG_PIXELS_Y 90
#DEFINE cnTWIPS_PER_INCH 1440
* 1440 twips per inch

* Declare some Windows API functions.
DECLARE integer GetActiveWindow in WIN32API
DECLARE integer GetDC in WIN32API integer iHDC
DECLARE integer GetDeviceCaps in WIN32API integer iHDC, integer iIndex

* Get a device context for VFP.
liHWnd = GetActiveWindow()
liHDC = GetDC(liHWnd)

* Get the pixels per inch.
liPixelsPerInchX = GetDeviceCaps(liHDC, cnLOG_PIXELS_X)
liPixelsPerInchY = GetDeviceCaps(liHDC, cnLOG_PIXELS_Y)

* Get the twips per pixel.
THISFORM.XTwips = ( cnTWIPS_PER_INCH / liPixelsPerInchX )
THISFORM.YTwips = ( cnTWIPS_PER_INCH / liPixelsPerInchY )

In your Form Method
===============
THISFORM.PixelsToTwips

TreeView.MouseMove Event
=========================
*** ActiveX Control Event ***
LPARAMETERS button, shift, x, y

LOCAL oHitTest

oHitTest = THIS.HitTest( x * THISFORM.XTwips, y * THISFORM.YTwips )

IF VARTYPE( oHitTest ) == "O" .AND. !ISNULL( oHitTest ) )
*-- Display the treenode tag text in the status bar
WAIT WINDOW oHitTest.Tag
ENDIF
Juan L. Romero
gcandela@javanet.com
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform