Discussion :

[Speed41]

Bonjour,

Je voudrais "marquer" certaines lignes dans un TRichEdit sans rien ajouter au texte et sans toucher au format du texte (il doit rester in changer) sauf si on peux surligner...

Chaque ligne n'a pas obligatoirement la même hauteur (taille de police possible différente)

L'idée si je met un autre objet à côté (gente Memo, listbox ...) qui marque les lignes (un peu comme dans delphi avec les points d'arrêts ... cette petite bande grise à gauche). Le problème est de connaître la hauteur des lignes et de savoir qu'elle ligne est la première visible

Ou si vous avez une autre solution

Merci

[ShaiLeTroll]

Pour surligner, tu vas devoir modifier les attributs tout de même avec SelStart, SelLength et SelAttributes !
Peux-être gérer un système pour savoir ce que tu as surligné, si tu dois par la suite enregistrer le RichEdit en retirant les éléments de Marquage

Pour savoir la hauteur des lignes, les API du RichEdit doivent permettre cela tel que les fonctions GetCaretPos et les messages EM_GETFIRSTVISIBLELINE, EM_LINEFROMCHAR, EM_LINEINDEX, EM_POSFROMCHAR...

[Speed41]

J'ai utilisé getcaretpos

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
var y, n0, n1 : integer;
    PosCur : tpoint;
begin
  liste.RowCount:=RichEdit1.Lines.count;
  RichEdit1.SelStart:=0;
  RichEdit1.SelLength:=5;
  n1:=0;
  for y:=0 to RichEdit1.Lines.Count-1 do
      begin
        n0:=n1;
        getcaretpos(PosCur);
        n1:=poscur.Y;
        if n1-n0-1<0 then
           liste.RowHeights[y-1]:=-1
                     else
           if n0<0 then
              liste.RowHeights[y-1]:=0
                   else
              liste.RowHeights[y-1]:=n1-n0-1;
 
        liste.Cells[0,y]:=RichEdit1.Lines[y];
        RichEdit1.SelStart:=RichEdit1.SelStart+length(RichEdit1.Lines[y])+2;
        RichEdit1.SelLength:=5;
      end;
end;

Le résultat me convient, je règle la hauteur dans un TStingGrid (c'est plus simple), j'ai copié la ligne qui lui est attribuée uniquement pour le tester

A poffiner

Merci ShaiLeTroll

[Caribensila]

Bonjour,

Je voudrais "marquer" certaines lignes dans un TRichEdit sans rien ajouter au texte et sans toucher au format du texte (il doit rester in changer) sauf si on peux surligner...

Plus simple qu'un autre objet à côté, et si le surlignement ne te dérange pas, tu peux faire ainsi :

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
uses RichEdit;
 
procedure Highlight(RichEdit: TRichEdit; Color: TColor);
var
  Format: CHARFORMAT2;//Contient les informations de formatage d'un RichEdit.
begin
  FillChar(Format, SizeOf(Format), 0);
  Format.cbSize      := SizeOf(Format);
  Format.dwMask      := CFM_BACKCOLOR;
  Format.crBackColor := Color;
  RichEdit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
  RichEdit.SelStart  := RichEdit.SelStart;//Pour éviter l'effet troublant de la sélection en négatif.
end;
 
 
//Exemple d'utilisation :
procedure TForm1.RichEdit1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Highlight(RichEdit1, clYellow);//Surligne définitivement les sélections en jaune.
end;

NB : Le surlignement sera sauvegardé avec le texte. Mais si cela n'est pas le comportement souhaité, il faudra faire ce que suggère ShaiLeTroll.