PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV 2024 → [WD10] Déplacement d'un champ à la
[WD10] Déplacement d'un champ à la
Started by jacques.trepp-nospam, Apr., 26 2006 5:06 PM - No answer
#1
Posted on April, 26 2006 - 5:06 PM
Bonjour,
je dis WD10, mais c'était pareil en 7.5.
j'ai créé une fenètre qui ma permet de "construire" un imprimé de
facture. j'indique la police, le style, la couleur des différents blocs
de mon imprimé (en-tete, corps de facture, pied de facture, logos, etc.)
Dans un visualisateur, je peux déplacer mes différents blocs, qui sont
en fait des champs texte ou champs image, sur une page virtuelle, de
manière à matérialiser mon imprimé de facture.
Tout fonctionne, sauf si j'indique dans un champ texte que le texte est
centré. Dans ce seul cas, rien ne se passe.
Voici le code d'un champ texte :
// Bouton gauche enfoncé (WM_LBUTTONDOWN) de MonChampTexte
nPos = CurseurPos(cpEcran)
// Position horizontale du curseur
nPosX = PoidsFaible(nPos)
// Position verticale du curseur
nPosY = PoidsFort(nPos)
DecalX = nPosX - {MoiMême..Nom}..X
DecalY = nPosY - {MoiMême..Nom}..Y
ideve = Evénement("survol",MoiMême..Nom, WM_MOUSEMOVE) //
Déplacement de la souris

// Bouton gauche relâché (WM_LBUTTONUP) de MonChampTexte
FinEvénement(ideve)

// Survol souris (WM_MOUSEMOVE) de MonChampTexte
MoiMême..CurseurSouris = curTaille

Si le champ texte n'est pas centré, le curseur change de forme lors du
survol, et je peux déplacer ce champ en maintenant le clic gauche enfoncé.
Si le champ est centré, aucune réaction, ni en survol, ni en cliquant.

bizarre, vous avez dit bizarre ?

--
Jacques Trepp
Albygest - 81160 - St Juery
jacques-pas de spam.trepp@free.fr
(enlever '-pas de spam' pour me joindre)
http://www.albygest.com
→ Go back to WINDEV 2024