Discussion :

[didi59650]

appramment en faisant dans richedit

Code :

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

1
2
3
 
SelStart := Perform(EM_LINEINDEX, 3, 0);
    Perform(EM_SCROLLCARET, 0, 0);

je selectionne laa ligne 3 mais comment la mettre en rouge?
[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir.]

[denokan]

Code :

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

  RichEdit1.SelAttributes.Color := clRed;

[didi59650]

oui mais sa ne marche pas quand je tape juste avant Richedit1.SelAttributes.Color := clRed;

[denokan]

Code :

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

1
2
3
4
5
6
 
  with RichEdit1 do begin
    SelStart := Length(Lines[0]) + 2 + Length(Lines[1]) + 2;
    SelLength := Length(Lines[2]) + 2;
    SelAttributes.Color := clRed;
  end;

+2 à cause des caractères de fin de ligne (CR LF ou #10#13)

[didi59650]

sa a l'aire de marcher.
Que dois-je remplacer si je veux colorier la ligne X?

[LadyWasky]

J'avais poster une solution ici il y a quelque temps (suis le lien)
http://www.developpez.net/forums/vie...ight=trichedit

(regardes dans mes deux posts)

Bon dev

[didi59650]

un appareil envoie 10 mesures au PC qui les ecrit dans richedit.En fait en appuyant sur UN bouton mon programme lie les valeurs de lappareil puis les ecrit dans richedit pui je voudrait qu'il en mette une en rouge (en sachant qu'audepart la valeur est

[LadyWasky]

Avec le lien que je t'ai donné tu n'as pas trouvé ton bonheur : : :
tu n'as pas du tout lire alors...

Sinon, la valeur au départ est quoi ???

Bon, alors dans ton unité tu places ça quelque part :

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
procedure Surligne(const RE: TRichEdit; const Color: TColor);
var
  Format : CHARFORMAT2;
begin
  FillChar(Format, SizeOf(CHARFORMAT2), 0);
  Format.cbSize := SizeOf(CHARFORMAT2);
 
  SendMessage(RE.Handle, EM_GETCHARFORMAT, WPARAM(True), LPARAM(@Format));
 
  Format.dwMask := CFM_BACKCOLOR;
  Format.crBackColor := ColorToRGB(Color);
  Format.dwEffects := 0; // CFE_AUTOBACKCOLOR
 
  SendMessage(RE.Handle, EM_SETCHARFORMAT, SCF_SELECTION, LPARAM(@Format))
end;
 
 
procedure SurligneUneLigne(const RE: TRichEdit; const Color: TColor;NumeroDeLigne:integer);
begin
  RE.SelStart:=RE.Perform(EM_LINEINDEX, NumeroDeLigne, 0);
  RE.SelLength:=RE.Perform(EM_LINELENGTH, RE.SelStart, 0);
  Surligne(RE,Color);
end;

Et ça, c'est le code de ton bouton

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
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
     i:integer;
begin
  //on efface le richedit
  richedit1.clear;
 
  for i:=0 to 9 do //10 mesures
  begin
     //lecture des mesures
     s:=liremesure(i);  //<--là c'est toi qui sait faire
 
     //écrire dans le richedit 
    richedit1.lines.add(s);
  end;
 
  //surligne
  SurligneUneLigne(RichEdit1, clMoneyGreen,2);
end;