Bonsoir,
je désire savoir si il est possible de modifier la couleur de certaines lignes dans un Memo.
Exemple: Memo1.Lines.Add('Ok'); => en noir
Memo1.Lines.Add('Pas Ok'); => en Rouge
D'avance merci,
André
Bonsoir,
je désire savoir si il est possible de modifier la couleur de certaines lignes dans un Memo.
Exemple: Memo1.Lines.Add('Ok'); => en noir
Memo1.Lines.Add('Pas Ok'); => en Rouge
D'avance merci,
André
salut,
Pour un Tmemo j'en doute forcement du moins facilement !
Pourquoi ne pas utiliser un TRichedit si tu parle de la couleur de la police.
Sinon tu as aussi un très bon éditeur qui permet une tonne de choses et qui se substitue très facilement à un Tmemo, c'est le composant SynEdit chez "Sourceforge".
Avec ce composant tu peux définir autant de couleur de police de ligne et de fond de ligne que tu veux.
Merci pour ta réponse petitcoucou31,
je viens d'installer SynEdit, il me reste à comprendre comment je dois faire.
André
Ben j'suis peut-etre naze mais je ne m'en sort pas avec synEdit.
Je souhaite que quand dans mon texte il y a "ceci doit etre en rouge", cette phrase soit en rouge le reste étant en noir.
André
Bonjour,
je ne pense pas que le SynEdit soit adapté à ce que tu veux faire. Comme son nom l'indique (SYNtaxe EDITor) c'est surtout un composant pour fournir un affichage colorisé d'un texte. Typiquement une coloration syntaxique d'un code source ou d'une requête SQL.
Cependant si ton but n'est que d'afficher certaines parties en rouge de temps à autre alors clairement il vaut mieux t'orienter vers le TRichEdit et comprendre son fonctionnement.
Merci,
effectivement je suis revenu au RichEdit et ça fonctionne avec le code suivant:
Encore merci pour votre aide,
Code : Sélectionner tout - Visualiser dans une fenêtre à part RichEdit1.SelAttributes.Color:= clRed;
André
Pourquoi aller chercher midi à quatorze heures. Un simple TRichEdit suffit pour répondre à ton problème.
Un TRichEdit et un TButton sur une fiche.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 type TForm1 = class(TForm) RichEdit1: TRichEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Déclarations privées } function CurrText: TTextAttributes; public { Déclarations publiques } end;Tu sélectionnes une partie du texte puis en cliquant sur le button la couleur du texte sélectionné passe en rouge.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin CurrText.Color := clRed; end; function TForm1.CurrText: TTextAttributes; begin Result := RichEdit1.SelAttributes; end;
salut
En effet pour la couleur de la police un trichedit suffit. mais peut on simplement changer la couleur de fond de la ligne ( surlignage ) ?
Juste a titre d'info pour surligner une ligne avec SynEdit, dans l'événement SpecialLineColor
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 procedure TForm1.SyntaxEditSpecialLineColors(Sender: TObject; Line: Integer; var Special: Boolean; var FG, BG: TColor); var i: integer ; begin if condition= ... then begin special:=true; FG:=clwhite; // color de la police BG:=clred; // color de fond de ligne end; end; end;
Encore merci à vous tous
Résolu.
André
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager