ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Remplacer la barre de titre par un container et permettre le déplacement du form   


L'auteur

eto_dermezel
France France
Membre Simple
# 0000000003
enregistré le 12/10/2004

http://etodermezel.no-ip.com/
52 ans

de la société YNEDY COMMUNICATION
Fiche personnelle

Note des membres
pas de note

Contributions > 20 - Trucs et Astuces

Remplacer la barre de titre par un container et permettre le déplacement du form
# 0000000264
ajouté le 08/12/2005 11:03:03 et modifié le 08/12/2005
consulté 8437 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
Description

Pour une appli, j'avais besoin de remplacer la barre de titre d'un form par un container contenant mes propres options.

Ayant buté sur le fait d'offrir à l'utilisateur de déplacer le form via cette barre de tittre 'maison', voici ce que j'ai trouvé :

Code source :
créer Un objet de type container dont on glissera une occurrence sur le form concerné
Une propriété : MoveForm
Une propriété : mTop
Une propriété : mLeft

Une méthode : Get_Mouse_TL()
LPARAMETERS _t,_l

DECLARE INTEGER GetCursorPos IN user32.dll AS WinAPI_GetCursorPos STRING @
lcPOINT = REPLICATE(CHR(0), 8)
lnReturn = WinAPI_GetCursorPos(@lcPOINT)
_t= _StringToInteger(SUBSTR(m.lcPOINT, 5))
_l= _StringToInteger(LEFT(m.lcPOINT,4))

Sur le mousedown du container :
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.MoveForm = .T.

LOCAL _t,_l
_t=0
_l=0
this.Getmouse_tl(@_t,@_l)

this.mLeft = _l - thisform.left
this.mTop = _t - thisform.top

Sur le MouseUp du container :
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.MoveForm = .F.


Sur le MouseMove du container :
LPARAMETERS nButton, nShift, nXCoord, nYCoord

IF this.MoveForm=.T.
 LOCAL _t,_l
 _t=0
 _l=0
 this.Getmouse_tl(@_t,@_l)

 thisform.move(_l - this.mLeft, _t - this.mTop)
ENDIF
Commentaires
le 19/06/2006, Ludo186 a écrit :
Salut eto_dermezel

C'est bien pratique mais ou est la fonction _StringToInteger ?

Ludo186
Publicité

Les pubs en cours :
www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3