Tracer une ligne dans ComboBox par OnDrawItem

Question

Salut à Tous, Je cherche un moyen de créer un pseudo combobox à multicolonnes en dessinnant une ligne virtuelle de séparation entre éléments composant mes items de combobox.

Voici ce je teste déjà pour voir si je peux créer une ligne :

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  ItemString: string;
  X,Y : Integer;
begin
  X :=20; y :=TComboBox(Control).ItemHeight - 2;
  TComboBox(Control).Canvas.FillRect(Rect);
  TComboBox(Control).Canvas.Pen.Style := psSolid;
  TComboBox(Control).Canvas.Rectangle(20,Y,22,Y + 2);

  ItemString := TComboBox(Control).Items.Strings[Index];

  TComboBox(Control).Canvas.TextOut(Rect.Left,Rect.Top,itemstring);
end;

Avec ce code, j'ai juste un petit point qui apparait à mon point 20 gauche.
Si je lui enlève Y + 2 et le remplace par Rect.Bottom, j'ai deux points en haut et en bas aux points 20.
Comment faire pour avoir une veritable ligne de la hauteur de mon item ?
Merci de vos lumières.

Bacterius · Answer

Pense à définir une couleur pour Pen et Brush ?

Cordialement, Bacterius !

chental · Answer

Merci du commentaire et je viens de compléter le code avec un certain résultat à 50 %.
En effet, cette fois-ci j'ai bien la ligne qui est dessinée mais seulement à partir de l'item n°2.
Il me manque donc la ligne pour le premier item.

chental · Answer

Salut, c'est bon je viens de comprendre. voici le code qui marche parfaitement :

X :=20; y :=TComboBox(Control).ItemHeight - 2;
  TComboBox(Control).Canvas.FillRect(Rect);
  TComboBox(Control).Canvas.Pen.Style := psSolid;
  TComboBox(Control).Canvas.Pen.Color := clBlue;
  TComboBox(Control).Canvas.Brush.Style := bsSolid;
  TComboBox(Control).Canvas.Brush.Color := clWhite;
  TComboBox(Control).Canvas.Rectangle(200,0,201,Rect.Bottom);

avec ce code, la ligne est bien déssinée sur toute la hauteur du combobox et fait bien mon virtuel combobox à multicolonnes.

Merci encore de votre aide.

cs_cantador · Answer

bonjour,
heu, j'ai rien compris...
ta valeur x := 20 elle sert où ?

cantador

Bacterius · Answer

Probablement le début de la ligne de séparation, plutôt que de tracer la ligne directement au début (c'est pas beau je trouve lol).

Cordialement, Bacterius !

cs_cantador · Answer

@Bacterius:
as tu testé le code ?
les vois-tu les lignes ?

cantador

Bacterius · Answer

Non je ne les vois pas, il manque un gros bout de code à mon avis ...

Cordialement, Bacterius !

cs_cantador · Answer

ça me rassure, car moi aussi je ne vois rien !

cantador

Caribensila · Answer

C'est p'têt une ligne virtuelle...

Bacterius · Answer

Oui c'est une ligne virtuelle il l'a dit :p

Cordialement, Bacterius !

cs_cantador · Answer

Il n'y a donc rien à voir...

cantador

Caribensila · Answer

C'est ça.





- Allez ! Circulez !

Tracer une ligne dans ComboBox par OnDrawItem

12 réponses

Votre réponse

Discussions similaires