Combobox avec couleur...

Question

Bonjour,

J'aimerais mettre de la couleur dans un combobox, et afficher un carré de couleur différent sur chaque ligne avec à côté le texte.

Merci
Orélien.

slachz · Answer

comme la colorbox ?
sinon je vois juste comme possibilité la création d'un nouveau composant..

cs_orelien · Answer

J'aimerais en fait garder le même aspect d'un combobox classque avec comme différence un carré de couleur en face de chaque ligne de texte.

Orélien.

slachz · Answer

bon je dois ptetre pas te comprendre mais ça c'est un colorbox ! 
(meme aspect a la seule difference qu'il ne sert que pour la couleur)

sinon je crois bien que je suis déjà tomber sur un composant de ce genre mais alors je l'ai plus  :sad) 

t'as recherché dans les composants de delphifr ?

cs_Kenavo · Answer

Salut, 

Il faut utiliser l'évènement OnDrawItem du TCombobox :

Const
  TabColor : array [0..17] of TColor = (clBlack, clMaroon, clGreen, clOlive,
                                clNavy, clPurple, clTeal, clGray,
                                clSilver, clRed, clLime, clYellow,
                                clBlue, clFuchsia, clAqua, clLtGray,
                                clDkGray, clWhite);

procedure TForm1.FormCreate(Sender: TObject);
begin
  Combobox1.Style := csOwnerDrawFixed;
  Combobox1.ItemIndex := 0;
  Combobox1.ItemHeight := 16;
end;

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  With Combobox1.Canvas do
    begin
      // Couleur de fond
      if (odSelected in State) then
        Brush.Color := clHighlight
      else
        Brush.Color := Combobox1.Color;
      Pen.Color :=  Brush.Color;
       // Fond
      Rectangle(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom);
       // Texte
      TextOut(Rect.Left+18,Rect.top+2,Combobox1.Items[Index]);
      // Choix du pavé de couleur en fonction de l'index
      Brush.Color := TabColor[Index];
      Pen.Color :=  Brush.Color;
      // Dessin du pavé
      Rectangle Rect.Left+2,Rect.Top+2,Rect.Left+14,Rect.Top+14); 
    end;
end;

Kénavo

Code, Code, Codec !

slachz · Answer

aa cool !
bravo Kénavo !

juste la dernière ligne c'est :
Rectangle(Rect.Left+2,Rect.Top+2,Rect.Left+14,Rect.Top+14);

(oue ta juste oublié une parenthése mais je l'avais po vu lol)

et sinon le prob c'est que le combobox est entierement selectionner (je sais pas si je me fait comprendre) ce qui fait qu'on voit pas trop la couleur ..

en tout cas chapeau  :big)  lol

cs_Kenavo · Answer

Salut shachz,
Tout sélectionné, tu veux dire toute la ligne (y compris le pavé) ou toutes les lignes ?
1 - Si c'est toute la ligne, tu peux dessiner un rectangle blanc un peu plus grand sous le pavé :

Brush.Color := Combobox1.Color;
Pen.Color := Brush.Color;
Rectangle(Rect.Left,Rect.Top,Rect.Left+16,Rect.Top+16);

2 - Si c'est l'ensemble des lignes, if y a un problème de paramètre  (odSelected in State) toujours vrai, à vérifier !

Kénavo

Code, Code, Codec !

slachz · Answer

oui c'est la première solution !
le code est bon , malheureusement la forme blanche cache la couleur. 
m'enfin le premier code suffit largement , et puis la selection s'en va quand on change le focus alors on va pas jouer les difficiles  :big)  lol..

cs_Kenavo · Answer

Eh oh!

Le pavé blanc, il faut le dessiner avant le pavé coloré ! Avant le texte par exemple.

Kévavo

Code, Code, Codec !

slachz · Answer

a vi
noob un jour noob....
pov slachz lol.

Combobox avec couleur...

9 réponses

Votre réponse

Discussions similaires