Comment mettre certaines lignes en couleur dans un memo
Résolu
marin1617
Messages postés
42
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 42 Date d'inscription samedi 3 août 2013 Statut Membre Dernière intervention 17 décembre 2019 - 19 sept. 2013 à 14:48
marin1617 Messages postés 42 Date d'inscription samedi 3 août 2013 Statut Membre Dernière intervention 17 décembre 2019 - 19 sept. 2013 à 14:48
A voir également:
- Inverser couleur en ligne
- Chronomètre en ligne - Forum Java
- Couleur hexadecimal - Forum C# / .NET
- Dérivée en ligne - Forum Delphi / Pascal
- Schema electrique en ligne - Forum VB.NET
- Créer un qcm en ligne - Forum PHP
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
18 sept. 2013 à 20:59
Bonsoir,
Il faut utiliser un TRichEdit et la propriété SelAttributes.Color
Jderf
Il faut utiliser un TRichEdit et la propriété SelAttributes.Color
Jderf
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
19 sept. 2013 à 13:56
Bonjour,
jderf à raison, exemple:
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
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
marin1617
Messages postés
42
Date d'inscription
samedi 3 août 2013
Statut
Membre
Dernière intervention
17 décembre 2019
19 sept. 2013 à 14:48
19 sept. 2013 à 14:48
Bonjour et un grand merci à Jderf et solilog.
Voici mon code
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;
