Contributions > 05 - API et appels systèmes

# 0000000337
ajouté le 24/06/2006 13:09:14 et modifié le 30/06/2006
consulté 7986 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
VFP 5.0
VFP 3.0

Quelques fonctions qui utilisent le api de windows pour obtenir des MultiLineTooltip

A faire au debut de l'appli : =MultiLineToolTip_Once()

Chaque objet qui veut les utiiser, a mettre dans le init() de l'objet: (facilement a mettre dans la classe)

=MultiLineToolTip_init(m.this, msg, Balloon) ou =MultiLineToolTip_init(m.this)

msg: si pas vide, mettra le tooltip dans les attributs de l'objet

Balloon: TRUE ou FALSE.  Remarque, je ne sais pas comment obtenir le Balloon, cad, le balloon ne marche pas

pour changer le texte MultiLineToolTip_set(m.this, msg, Balloon) .  Remarque, si le texte ne change jamais, autant le mettre dans le MultiLineToolTip_init()

Dans de le Destroy(): MultiLineToolTip_Kill(m.this)

MouseEnter() MultiLineToolTip_Enable(m.this, TRUE)

MouseLeave(): MultiLineToolTip_Enable(m.this, FALSE)

les versions n'ayant pas le MouseEnter/MouseLeave peuvent utilser dans le MouseMove() :MultiLineToolTip_Enable(m.this, TRUE)

UiEnable: MultiLineToolTip_Enable(m.this, FALSE) si lEnable == FALSE

Visible_Assign:  MultiLineToolTip_Enable(m.this, FALSE) si l'objet devient invisible

 Remarque:  Le form contenant l'objet doit avoir une propriete hwnd

Je ne sais pas si j'ai mis toutes les declarations necessaires dans le zip.  S'il y a quelque chose qui manque, je l'entendrai bien, je suppose