Discussion :

[kroma23]

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

[ouiouioui]

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

[Charly910]

Bonjour,

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

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
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