Discussion :

[andreditdd]

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é

[petitcoucou31]

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.

[andreditdd]

Merci pour ta réponse petitcoucou31,
je viens d'installer SynEdit, il me reste à comprendre comment je dois faire.

André

[andreditdd]

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é

[Aka Guymelef]

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.

[andreditdd]

Merci,
effectivement je suis revenu au RichEdit et ça fonctionne avec le code suivant:

Code :

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

RichEdit1.SelAttributes.Color:= clRed;

Encore merci pour votre aide,

André

[Pascal Jankowski]

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;

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;

Tu sélectionnes une partie du texte puis en cliquant sur le button la couleur du texte sélectionné passe en rouge.

[petitcoucou31]

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;

[andreditdd]

Encore merci à vous tous
Résolu.

André