Bonjour, j'ai utiliser la méthode suivant afin de mettre des images dans une combobox :
Un TimageList contenant les images à placer dans la combobox.
Une combobox de style : csOwnerDrawFixed
Marge est un integer.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 procedure TFmain.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin marge := (Rect.Bottom - Rect.Top - imageList1.Height); imagelist1.Draw(ComboBox1.canvas, Rect.Left, Rect.Top + marge, Index); end;
Le tout fonctionne trés bien, mais lorsque que je passe la souris sur un élément, l'éspece de cadre pointilliste de séléction (celui lorsque l'on survolle un élément à cliquer) reste afficher en permanance ! Je ne comprends pas comment corriger ceci, car sa supprime vraiment tout le coté ésthétique ...
Une astuce ? merci d'avance!
Partager