Discussion :

[patrice@]

Bonjour à tous,
Ma question est dans le titre : comment faire pour avoir le n° de la 1ere ligne affichée dans un mémo (sachant que pour scroller un mémo on n'a pas besoin de cliquer dedans, un coup de molette en se positionnant dessus fait aussi défiler le contenu...)

Dans mon programme, je peux changer dynamiquement la taille de caractère du RichEdit

Code :

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

     RichEdit2.Font.Size:= RichEdit5.Font.Size+1;

Mais l'affichage pert le formatage du texte (couleur, style), je dois alors recharger le composant de son texte (clear puis add) et l'affichage redébute à la 1ere ligne (normal)
J'aimerai repositionner le texte à la ligne où il était avant le changement de taille.

J'ai trouvé ce code qui permet de connaitre la position de la scrollbar

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm3.FormCreate(Sender: TObject);
begin
  RichEdit2.WindowProc := Memo2ScrollCatcher;
end;
 
procedure TForm3.Memo2ScrollCatcher(var message: TMessage);
begin
     TMyControl(RichEdit2).WndProc(message);
     if ((message.Msg = WM_VSCROLL) or (message.Msg = WM_MOUSEWHEEL))
     then begin
         RE2LineIndex := GetScrollPos(RichEdit2.Handle, SB_VERT); // RE2LineIndex = integer contient la position de la scrollBar verticale
     end;
end;

Mais après le changement de taille de texte, la valeur de RE2LineIndex ne correspond plus


J'ai beau chercher, je ne trouve rien.
Si quelqu'un à une solution ou peut me renvoyer sur un post ...
Merci d'avance

[patrice@]

Bon, j'ai trouvé, je me réponds à moi même ça peut servir à d'autres :
il suffit d'utiliser EM_GETFIRSTVISIBLELINE
Le code renvoie un integer = 1ere ligne affichée

Code :

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

1
2
3
4
5
6
 
Var
LineIndex:Integer;
begin
LineIndex:=RichEdit2.perform(EM_GETFIRSTVISIBLELINE,0,0);;
end;

Maintenant, il faut faire l'inverse, c'est à dire positionner la ligne comme 1ere ligne affichée dans le memo.
j'ai essayé ceci

Code :

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

     SendMessage(RichEdit2.Handle,WM_VScroll,LineIndex,0);

Et béh ça ne fonctionne pas ...

[Andnotor]

EM_LINESCROLL

[patrice@]

Merci Andnotor,
J'ai donc essayé :

Code :

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

 RichEdit2.Perform(EM_LINESCROLL,LineIndex,0);

puis

Code :

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

SendMessage(LineIndex.Handle,EM_LINESCROLL,LineIndex,0);

il a fallu que je mette un RichEdit2.SetFocus avant, sinon, rien ne se passait.
Et là, curieux, le texte devrait bien se déplacer de LineIndex lignes, mais non, le comportement est bizarre, il positionne le texte dernière ligne affichée = dernière ligne du texte

J'ai donc résolu par ce code

Code :

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

1
2
3
4
5
6
 
     RichEdit2.SetFocus;
     //RichEdit2.Perform(EM_LINESCROLL,LineIndex,0);
     //SendMessage(RichEdit2.Handle,EM_LINESCROLL,LineIndex,0);
     RichEdit2.SelStart := RichEdit2.Perform(EM_LINEINDEX, LineIndex, 0);
     RichEdit2.Perform(EM_SCROLLCARET, 0, 0); // cette ligne n'est pas indispensable à priori, je n'ai pas vu de différence de comportement avec/sans

Pour moi c'est résolu, mais quand même ... le comportement avec EM_LINESCROLL me laisse perplexe...

[Papy214]

Pourquoi ne pas utiliser les composants Synedit ?

Code :

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

SynEdit1.PixelsToRowColumn(3, 3)).Row

donne par exemple 6 si la sixième ligne est affichée en première position "visible".

[Andnotor]

J'ai donc essayé :

Code :

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

 RichEdit2.Perform(EM_LINESCROLL,LineIndex,0);

Regarde une nouvelle fois l'aide sur EM_LINESCROLL, le défilement vertical correspond à LPARAM, pas WPARAM.