colorer les lignes d'une combobox ligne par ligne

Version imprimable

06/08/2011, 13h28
kroma23

colorer les lignes d'une combobox ligne par ligne

Salut
est il possible de colorer les ligne d'une combobox ligne par ligne
les lignes qui porte un indice paire avec la couleur rouge
les lignes qui porte un indice impaire avec la couleur verre
Merci pour votre aide
06/08/2011, 17h54
ouiouioui

Oui, utilise l'évènement : StdCtrls.TComboBox.OnDrawItem
Il faut mettre style à csOwnerDrawFixed ou à csOwnerDrawVariable aussi

Bonjour,

comme te l'indique ouiouioui, tu peux faire cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
   With Control As TCombobox Do
      With Canvas Do
         Begin
           { sélection de la couleur de fond }
           If (Odd(Index)) Then
              Brush.Color := cllime
           Else
              Brush.Color := clSkyBlue ;
           { Dessin du fond }
           FillRect(Rect);
           { Sélection de la couleur d'écriture }
           Font.Color:=clRed;
           { Dessin du texte }
           TextOut(Rect.Left,Rect.Top,Items[Index]);
         End;
end;

avec des couleurs un peu plus soft !!

@+
Charly