Don0Choa
Messages postés104Date d'inscriptiondimanche 29 octobre 2000StatutMembreDernière intervention12 décembre 2005
-
3 nov. 2002 à 10:57
Don0Choa
Messages postés104Date d'inscriptiondimanche 29 octobre 2000StatutMembreDernière intervention12 décembre 2005
-
4 nov. 2002 à 17:05
Bonjour,
vouala j'ai ma list box avec des informations recuent par le serveur.Les informations sont classé par 5 catégories.
Dans la list box jaimerais pourvoir les differencier par des couleurs en fonctionde c catégories.
Donc quand un élément s'ajoute il doit automatiquement se coloré.
Comment faire poru colorer une list box?(ca fait beaucoup de colorer je sais :D
cs_Nono40
Messages postés962Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention12 septembre 20062 4 nov. 2002 à 15:31
Si la méthode de Bestiol fonctionne, mais il faut mettre ListBox1.Style à lbOwnerDrawFixed pour que les évènement OnDrawItem soient utilisés.
Pour répondre à ta question précédente, voici un exemple qui permet d'écrire en rouge les éléments de quatre caractères :
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with ListBox1.Canvas do
begin
FillRect(Rect);
if odSelected In State
Then Font.Color := clWhite
Else If Length(ListBox1.Items[Index])=4
Then Font.Color := clRed
Else Font.Color := clGreen;
TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
end;
end;
--- :sleepy) Nono du Moulin :sleepy) ---
Vous n’avez pas trouvé la réponse que vous recherchez ?