Discussion :

[peter27x]

bonjour,

j'ai consulté les sujets antérieurs traitant de ma question, mais ils ne font que faire ce que je fais déjà, sauf que chez moi ça ne marche pas...

Je veux écrire une ligne particulière en rouge dans un richEdit, j'utilise donc ce code qui semble être le bon d'après l'aide de Delphi ainsi que ce que j'ai lu ici bas:

Code :

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

1
2
3
 
    RichEditHisto.SelAttributes.Color := clRed;
    RichEditHisto.Lines.Add('test');

Mais y'a rien à faire, test s'écrit en noir...

Qui saurait pourquoi svp ?

Merci.

[ShaiLeTroll]

Normal puisque SelAttributes concerne du texte sélectionné et non les insertions, ...

Code :

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

1
2
3
4
5
6
7
8
9
10
      with RichEdit do
      begin
        iCaret := Length(Lines.Text);
        Lines.Add('test');
        SelStart := iCaret;
        SelLength := Length(Lines.Text) - iCaret;
        SelAttributes.Color := IfThen(IsError, clRed, clGreen); 
        Perform(EM_LINESCROLL, 0, Lines.Count);
        SelLength := 0;
      end;

[peter27x]

Normal puisque SelAttributes concerne du texte sélectionné et non les insertions, ...

Code :

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

1
2
3
4
5
6
7
8
9
10
      with RichEdit do
      begin
        iCaret := Length(Lines.Text);
        Lines.Add('test');
        SelStart := iCaret;
        SelLength := Length(Lines.Text) - iCaret;
        SelAttributes.Color := IfThen(IsError, clRed, clGreen); 
        Perform(EM_LINESCROLL, 0, Lines.Count);
        SelLength := 0;
      end;

Merci, bizzarement les exemples de l'aide delphi traite le sujet comme dans mon exemple... ! grrr !

Sinon je vais essayer, mais sachant que moi en fait à terme c'est un insert que je vais faire et non un add, enfin je verrai bien.

[ShaiLeTroll]

N'as tu pas confondu avec DefAttributes ?

[peter27x]

N'as tu pas confondu avec DefAttributes ?

bah je sais plus... ce que je sais c'est que ce point est réglé et que je sais manipuler les richEdit dans Delphi maintenant, alors encore merci !