Comment mettre certaines lignes en couleur dans un memo

Résolu
marin1617
Messages postés
43
Date d'inscription
samedi 3 août 2013
Statut
Membre
Dernière intervention
17 décembre 2019
- 18 sept. 2013 à 17:07
marin1617
Messages postés
43
Date d'inscription
samedi 3 août 2013
Statut
Membre
Dernière intervention
17 décembre 2019
- 19 sept. 2013 à 14:48
Bonjour, comment puis-je mettre certaines lignes en couleur dans un memo.

3 réponses

jderf
Messages postés
189
Date d'inscription
mercredi 29 décembre 2004
Statut
Membre
Dernière intervention
2 octobre 2014
1
18 sept. 2013 à 20:59
Bonsoir,

Il faut utiliser un TRichEdit et la propriété SelAttributes.Color

Jderf
0
solilog
Messages postés
273
Date d'inscription
samedi 13 juin 2009
Statut
Membre
Dernière intervention
18 avril 2015
10
19 sept. 2013 à 13:56
Bonjour,
jderf à raison, exemple:
     RichEdit1.SelAttributes.Color := clRed;
     RichEdit1.Lines.add('ligne rouge');
     RichEdit1.SelAttributes.Color := clBlue;
     RichEdit1.Lines.add('ligne bleue');

L'idéal c'est de changer la Font (nom, taille, gras, ital, color, ...) avant d'ajouter la ligne. Pour modifier les attributs d'une ligne existante c'est un peu plus difficile mais cherche le help de tRichEdit.

solilog
0
marin1617
Messages postés
43
Date d'inscription
samedi 3 août 2013
Statut
Membre
Dernière intervention
17 décembre 2019

19 sept. 2013 à 14:48
Bonjour et un grand merci à Jderf et solilog.
Voici mon code

if (Pos(' ALM ', TrameCp)) <> 0 then
                begin
                  RichEditLog.SelAttributes.Color := clred ;
                  richEditLog.Lines.Add(TrameCp);
                  Cpt_ALM := Cpt_ALM + 1;
                  memoLog.Lines.Add(TrameCp);
                end;
0