Comment mettre des lignes de couleur dans une TCheckListBox ?

**Isa31** · 31/03/2005, 07h41

Bonjour à tous,

Je voulais savoir comment on fait pour mettre des couleurs de texte différentes dans une TCheckListBox?

Cela est-il possible?

Merci d'avance?

**Pascal Jankowski** · 31/03/2005, 07h45

Regarde du côté de l'événement OnDrawItem qui te permettra de redessiner chaque item.

Cordialement

**Isa31** · 31/03/2005, 07h52

C'est ce que j'avais trouvé mais je ne vois pas trop comment le faire, je veux pouvoir choisir les lignes qui auront une couleur différente.

**Pascal Jankowski** · 31/03/2005, 08h04

Place la valeur lbOwnerDrawFixed dans la propriété Style de TCheckListBox

Puis place le code suivant dans l'événement OnDrawItem :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TCheckListBox).Canvas do  { dessine sur le canevas du contrôle, non sur la fiche }
  begin
    FillRect(Rect);       { efface le rectangle }
    if Index mod 2 = 0
      then font.Color := clBlue
      else font.Color := clRed;
    TextOut(Rect.Left + 2, Rect.Top, (Control as TCheckListBox).Items[Index])  { affiche le texte }
  end;
end;

Cordialement