RichEdit défilement Scrollbar

Bonjour a tous,

Je chercher a faire défilé la ScrollBar verticale de mon RichEdit, visa une boucle While ... Do.
Pour cela je récupère les informations de la ScrollBar du RichEdit visa le TScrollInfo.

Mon souci réside dans le fait que ma boucle While ... Do ne se termine jamais car la valeur (ScrollInfo.nPos) n'a pas atteint la valeur (ScrollInfo.nMax).
Il y a un moment où la barre de défilement verticale atteint sa position maximale (Ont n'est bien arrivé en bas du RichEdit), L'application est bloquée, car la valeur (ScrollInfo.nPos) n'a pas atteint la valeur (ScrollInfo.nMax).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

{ ScrollAutoClick } procedure TFReading.ScrollAutoClick(Sender: TObject); var ScrollInfo: TScrollInfo; begin with ScrollInfo do begin cbSize := SizeOf(Self); fMask := SIF_POS or SIF_RANGE; end;   GetScrollInfo(DocReading.Handle, SB_VERT, ScrollInfo);   while ScrollInfo.nPos < ScrollInfo.nMax do begin SendMessage(RichEdit.Handle, WM_VSCROLL, SB_LINEDOWN, 0); DocReading.Update; Sleep(500); Application.ProcessMessages;   with ScrollInfo do begin cbSize := SizeOf(Self); fMask := SIF_POS or SIF_RANGE; end;   GetScrollInfo(RichEdit.Handle, SB_VERT, ScrollInfo); end; end;

---

Avez-vous une petite idée de d'où peut venir le problème ?
Merci beaucoup.

Déjà fixer correctement cbSize : cbSize := SizeOf(TScrollInfo).

Sinon la position max est le défilement maximum moins une page.

Citation:

---

Envoyé par Andnotor

Déjà fixer correctement cbSize : cbSize := SizeOf(TScrollInfo).

Sinon la position max est le défilement maximum moins une page.

---

Merci Andnotor

J'ai regardé les différences entre les valeurs (ScrollInfo.nPos) - (ScrollInfo.nMax)
Quoi que je charge comme texte dans le RichEdit j'ai toujours une différence de 750 entre la valeur de ScrollInfo.nPos & ScrollInfo.nMax.

Donc je comprend mieux quoi je ne sort pas de ma boucle.

J'ai peu être une piste, mes j'ai encore un décalage entre la valeur de [ScrollInfo.nPos + RichEdit.Height) - ScrollInfo.cbSize] & [ScrollInfo.nMax] de -2, je suis encore bloqué dans ma boucle.

Code:

---

while (ScrollInfo.nPos + RichEdit.Height) - ScrollInfo.cbSize < ScrollInfo.nMax do

---

J'arrive pas à retombé sur mes pattes

Il faut tester la valeur renvoyée par SendMessage comme indiqué dans le lien une valeur nulle veut dire que le message n'a pas été traitée
https://learn.microsoft.com/en-us/wi...ols/wm-vscroll

WM_VSCROLL effectue le défilement par pixel pour le richedit il y autres messages qui le font par ligne

Code:

---

1 2 3 4 5 6 7 8 9 10

var TopLine: integer; begin RichEdit1.Perform( EM_SCROLL , SB_TOP, 0); // retourne au début while ( RichEdit1.Perform( EM_SCROLL , SB_LINEDOWN, 0)and $FFFF ) <> 0 do begin TopLine := RichEdit1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0); Caption := TopLine.ToString; Application.ProcessMessages end;

---

Je suis pas convaincu d'avoir trouvé, ceci dit ma valeur (ScrollInfo.nPos + ScrollInfo.nPage) et bien = ou > que la valeur (ScrollInfo.nMax) quand la barre de défilement verticale atteint sa position maximale, donc je sort bien de ma boucle.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

{ ScrollAutoClick } procedure TFReading.ScrollAutoClick(Sender: TObject); var ScrollInfo: TScrollInfo; begin with ScrollInfo do begin cbSize := SizeOf(ScrollInfo); fMask := SIF_ALL; end;   RichEdit.Perform(EM_SCROLL , SB_TOP, 0); GetScrollInfo(RichEdit.Handle, SB_VERT, ScrollInfo);     while (ScrollInfo.nPos + ScrollInfo.nPage) < ScrollInfo.nMax do begin RichEdit.Perform(WM_VSCROLL, SB_LINEDOWN, 0); RichEdit.Update; //Sleep(1); Application.ProcessMessages;   with ScrollInfo do begin cbSize := SizeOf(ScrollInfo); fMask := SIF_ALL; end;   GetScrollInfo(RichEdit.Handle, SB_VERT, ScrollInfo); end; end;

---

La position correspond au Top de la zone visible. C'est donc bien la hauteur totale moins celle d'une page.

Merci Andnotor