Discussion :

[engrobel]

Bonjour à tous,

J'aimerais savoir faire défiler (scroller) du texte dans un composant TRichEdit par programme, notamment atteindre raidement le début et la fin du texte. J'ai essayé la méthode ScrollBy mais je ne comprend pas bien son fonctionnement.

[pottiez]

Salut,
le fonctionnement de ScrollBy est le suivant :

tu as deux paramètre DeltaX et DeltaY, qui permette de faire défiler les scroll des deux axes, DeltaX pour la droite ou la gauche et DeltaY pour le haut ou le bas.
Ensuite en fonction de la valeur que tu met à ces paramètre, la scroll va aller plus ou moins vite par exemple si tu met 1 à DeltaX cela défilera moins vite que si tu lui met 5.
Dernier point si tu met un valeur négative tu va à gauche pour DeltaX et en haut pour DeltaY, si tu met une valeur positive c'est l'inverse, et si tu met 0 ca ne bouge pas sur cet axe.

J'espère avoir éclairé ta lanterne

[sat83]

Utilise plutôt un TSrollBox (onglet Supplément) plus facile a gérer (ce n'est que mon avis) en utilisant les propriétés :

Code :

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

1
2
ScrollBox1->VertScrollBar->Position
ScrollBox1->HorzScrollBar->Position

[engrobel]

TRichEdit a déjà ses scrollbars. Ce sont celles-ci que je cherche à déplacer par programme. La methode Scrollby me semble dédiée à cet effet, mais je cherche les valeurs à mettre dans les paramètres.
Par exemple, RichEdit1->ScrollBy(0, -100); ne déplace qu'une partie du texte dans le contrôle et ne bouge pas l'ascenseur!!

[Sunchaser]

Bonsoir,

De mémoire (et sans pouvoir approfondir): il faudrait peut etre regarder vers "PostMessage()" ou "SendMessage()" et "WM_SCROLL" (voir autour de cela car il y a des paramètres et cie qui permettent de travailler la dessus)

Bon courage,
@+

[sat83]

Effectivement il faut regarder du coté de SendMessage :

Code :

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

1
2
3
4
5
6
 
//pour scroller en haut
SendMessage(RichEdit1->Handle, WM_VSCROLL, SB_TOP, 0);
 
//pour scroller en bas
SendMessage(RichEdit1->Handle, WM_VSCROLL, SB_BOTTOM, 0);

[henderson]

Salut !

On peut utiliser le message suivant :

EM_LINESCROLL
wParam = (WPARAM) cxScroll; // characters to scroll horizontally
lParam = (LPARAM) cyScroll; // lines to scroll vertically

On peut donc utiliser :

BOOL PostMessage(

HWND hWnd, // handle of destination window
UINT Msg, // message to post
WPARAM wParam, // first message parameter
LPARAM lParam // second message parameter
);

A l'usage :

Code :

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

1
2
3
4
5
 
PostMessage(RichEdit1->Handle,
            EM_LINESCROLL,
            0, // nombre de caractères
            2 // nombre de lignes ... +/-);

A tester. Chez moi le scroll horizontal n'a pas d'effet (WordWrap sur false)

A plus !

[engrobel]

Merci à vous tous!
J'ai désormais 2 solutions viables. Pour être complet, j'ajoute une troisième (moins bonne) que j'avais imaginé entre temps :

Code :

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

1
2
3
4
5
 
  RichEdit1->SetFocus();
  PostMessage(RichEdit1->Handle, WM_KEYDOWN,VK_NEXT,0);
  Sleep(100);
  PostMessage(RichEdit1->Handle, WM_KEYUP,VK_NEXT, 0);

Code :

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

1
2
3
4
5
 
  RichEdit1->SetFocus();
  PostMessage(RichEdit1->Handle, WM_KEYDOWN,VK_PRIOR, 0);
  Sleep(100);
  PostMessage(RichEdit1->Handle, WM_KEYUP,VK_PRIOR, 0);