Discussion :

[Romanops]

Bonjour,

Est-ce que quelqu'un sait comment bouger les ascenseurs d'un champ image (Ascenseur et zoom automatique coché dans l'onglet détail du champ) par programmation ?

Merci d'avance.

Edit :
Au cas où je réinvente la roue et que quelqu'un connait un exemple ou un superchamp windev : je cherche à faire la même chose que ce que fait photoshop lorsqu'on zoom sur une image, il y a une miniature qui affiche un cadre rouge et on peut déplacer ce cadre et cela déplace l'image. Si on déplace l'image, ça déplace le cadre rouge dans la miniature... Vous trouverez une image explicite (j'espère) en pièce jointe de ce message.

[Romanops]

Bonjour à tous.

J'ai trouvé plusieurs morceaux de codes sur le net après une journée de recherche et de tests. Mais aucun ne fonctionne, aurais-je oublié quelque chose ?

Code windev :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
v_Pointeur sont des entiers
v_PosX, v_PosY sont des entiers
 
 
//On récupère le pointeur du champ image
v_Pointeur = Handle(img_Entiere)
 
//On définit la barre de défilement horizontale
v_PosX = (vgp_CadrePositionX1*vgp_RatioCadre*asc_Zoom) * 65536 + 4
SendMessage(v_Pointeur,277,v_PosX,0)
//API("USER32","SetScrollPos",v_Pointeur,sbHorz,v_PosX,Faux)
 
//On définit la barre de défilement verticale
v_PosY = (vgp_CadrePositionY1*vgp_RatioCadre*asc_Zoom) * 65536 + 4
SendMessage(v_Pointeur,276,v_PosY,0)
//API("USER32","SetScrollPos",v_Pointeur,sbVert,v_PosY,Faux)

Avez vous une idée de ce qui cloche ?

PS: j'ai mis en commentaire les appels de la fonction API mais c'était mon test précédent, qui peut éventuellement donner d'autres informations.

[Ry_Yo]

Bonjour,

je vois 2 soucis dans votre code :
- vous récupérer le handle du champ image et pas de la scrollbar
- êtes vous sûr de la valeur de la constante sb_horz ?

C'est pour cela que le code ne fonctionne pas.

Je vais voir si je peux répondre à ces 2 questions....

[tatayo]

Bonjour,
Je vois un début de solution:
les propriétés xImage et yImage permettent de modifier les coordonnées à partir desquelles l'image est affichée.
Donc il "suffit" de ne plus afficher les ascenseurs dans le champ image, d'en ajouter deux et de programmer le défilement de l'image.
Reste plus à trouver comment "paramétrer" les deux ascenseurs en fonction du niveau de zoom.

Tatayo.

[Romanops]

Bonjour à tous les deux, et merci pour vos réponses.

- vous récupérer le handle du champ image et pas de la scrollbar

La barre de défilement que je veux déplacer est celle se trouvant intégrée au champ image, comment récupérer son pointeur d'après vous ?

- êtes vous sûr de la valeur de la constante sb_horz ?

Oui, j'ai vérifié les paramètres demandés par l'api windows, et en vérifiant la valeur des contantes demandés via plusieurs recherches sur google : windev contient bien les bonnes.


D'autre part, j'utilise la fonction GetScrollPos avec les mêmes attributs et elle fonctionne à merveille... (AppelDLL32("USER32","GetScrollPos",Handle(img_Entiere),sbHorz))

Je vois un début de solution:
les propriétés xImage et yImage permettent de modifier les coordonnées à partir desquelles l'image est affichée.
Donc il "suffit" de ne plus afficher les ascenseurs dans le champ image, d'en ajouter deux et de programmer le défilement de l'image.
Reste plus à trouver comment "paramétrer" les deux ascenseurs en fonction du niveau de zoom.

Merci pour cette idée, je vais la garder en réserve si je n'arrive pas à procéder ainsi car il me faudra alors réinventer le défilement du champ image qui est déjà intégré dans Windev... Ça serait dommage
Sinon, d'après votre idée, j'ai une petite question : lorsqu'on clique sur l'image pour la faire défiler quand elle est en mode Ascenseurs et zoom automatiques, comment récupérer l’événement de la fin du déplacement ?

[Romanops]

J'ai réussi, et ça fonctionne super !

Voici mon code si quelqu'un cherche à faire ça un jour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
v_Pointeur est un entier
v_PosX, v_PosY sont des entiers
v_Command est un entier
 
 
//On récupère le pointeur du champ image
v_Pointeur = Handle(img_Entiere)
 
//On définit la barre de défilement horizontale
v_PosX = (vgp_CadrePositionX1*vgp_RatioCadre*asc_Zoom)
v_Command = ConstruitEntier(v_PosX,4)
SendMessage(v_Pointeur,WM_HSCROLL,v_Command,0)
 
//On définit la barre de défilement verticale
v_PosY = (vgp_CadrePositionY1*vgp_RatioCadre*asc_Zoom)
v_Command = ConstruitEntier(v_PosY,4)
SendMessage(v_Pointeur,WM_VSCROLL,v_Command,0)