Discussion :

[XeGregory]

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 :

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
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.

[Andnotor]

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

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

[XeGregory]

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.

[XeGregory]

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 :

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

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

J'arrive pas à retombé sur mes pattes

[Invité]

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 :

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

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;

[XeGregory]

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 :

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
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;