Discussion :

[Coussati]

salut

je voulais écrire des lignes de différente couleur dans un Tmemo

je ne trouvais pas de solution, donc j'ai pensé à changer la couleur à chaque fois que je veux utiliser une différente ex :

memo1.Font.Color := clred;

mais le prob c'est que toutes les lignes prennent la couleur sélectionné

je fais une sorte de tchat et donc je voulais permetre au tchateur, de choisir sa couleur

[aityahia]

vous ne pouvez pas définir la couleur d'un fragment de texte sur un TMemo
essai plutôt avec TRichEdit c'est fait pour ça.

[Coussati]

c'est sur que c pas possible avec le memo ? c que celui là que jutilise

je ne connais meme pas lautre

[Jipété]

c'est sur que c pas possible avec le memo ? c que celui là que jutilise

Nan !

je ne connais meme pas lautre

Excellente occasion de se mettre à apprendre autre chose,
Mes 2 cts,
--
jp

[ero-sennin]

Salut,

Oui, c'est sur! Il te faut utiliser le RichEdit qui lui permet de faire ce que tu demandes. Le RichEdit n'est qu'un simple Memo avec des fonctionnalités en plus pour le formatage de données.

Il suffit juste de remplacer tes Memo classiques par des RichEdit. Ensuite, il faut coder la partie pour le formatage des données donc tout ce qui est couleur, alignement etc etc.

A+

[Gilbert Geyer]

Salut,

Pour te faire la main, tu peux récupérer ici : http://www.developpez.net/forums/sho...=358129&page=3
le fichier PiloterRichEdit.zip qui te fournit une unité de pilotage du formattage (Police, Taille, Style, Couleur, Indice, Exposant) de tout ou partie d'une ligne d'un RichEdit.

A+

[Coussati]

merci à vous

[sjrd]

Résolu ? (bouton en bas de cette page)

[Coussati]

j'ai une autre question, pareil pour la listbox, c'est possible d'écre des items de couleurs différentes ? ou aussi un autre compo ?

[Lung]

j'ai une autre question, pareil pour la listbox, c'est possible d'écre des items de couleurs différentes ?

Oui, c'est possible.
Mais c'est à toi de le faire dans l'évènement OnDrawItem.

[newbie57]

Salut Coussati,

Je ne sais pas si tu as TMS (c'est payant je sais )?

Moi j'avais aussi ce problème de mis en forme de certaines données et pour y remedier, j'ai utilisé certains composants de TMS (TMS HTML) et grâce à ca, j'ai pu mettre des couleurs etc.. plus facilement.

Peut-être que ça peut te donner une piste.

Bien à toi

[Coussati]

bin je ne veux pas de compo payant et au ire j'aimerais bien gardé la listbox

mais Lung tu es sur qu'il faut passer par un évènement ?

parce que bon, imagine que j'ai 10 items à add, je veux 5 rouges et 5 verts

[sjrd]

mais Lung tu es sur qu'il faut passer par un évènement ?

Oui, absolument. Consulte l'aide en ligne sur cet événement. Tu y trouveras plus d'informations.

[Gilbert Geyer]

Salut,

Tiens, voici un exemple de code qui met les items d'une ListBox en couleurs d'arrière-plan alternées Bleu/Blanc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin     ListBox1.Style:=(lbOwnerDrawFixed);
          with ListBox1.Canvas do
          begin Font.Color:=clBlack; // Couleur de fonte
                if Odd(Index) then Brush.Color:=clAqua   // Couleur d'arrière plan
                              else Brush.Color:=clWhite; // alternée bleu/blanc
                FillRect(Rect); // Remplit le rectangle de l'Index sur canvas avec Brush.color
                TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]); // Texte de l'Item
          end;
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
var       i:integer;
begin     for i:=0 to ListBox1.Items.Count-1
          do ListBox1DrawItem(ListBox1,i,ListBox1.ItemRect(i),[odDefault]);
end;

... on peut transformer ce code pour faire idem pour la couleur de fonte, ou lorsque Items[Index] contient un mot ou un caractère donné, etc : à toi de l'adapter à ton besoin.

A+