Changer la couleur de sélection et du déroulant d'une ComboBox

Version imprimable

11/12/2017, 16h06
kptnn

Changer la couleur de sélection et du déroulant d'une ComboBox

Bonjour,

J'aimerais savoir s'il est possible de changer:
-La couleur de sélection souris d'un texte dans Lazarus qui est bleue, ou si la couleur est imposée par windows
-La couleur du déroulant, qui est blanche par défaut

Toute idée est la bienvenue,
Merci
11/12/2017, 18h46
Jipété

1 pièce(s) jointe(s)

Bonsoir

Citation:

Envoyé par kptnn

J'aimerais savoir s'il est possible de changer:
-La couleur de sélection souris d'un texte dans Lazarus qui est bleue, ou si la couleur est imposée par windows
-La couleur du déroulant, qui est blanche par défaut

1^re question : c'est du Windows, oui, mais ça n'est pas imposé, exemple avec XP :
Pièce jointe 334236
(clic droit / Proprités sur le Bureau, puis Affichage / Apparence / Avancés).

2^de question : pas la moindre idée, faut chercher au même endroit que pour l'autre question, ou fouiller dans les thèmes.
11/12/2017, 20h34
kptnn

merci pour ton intervention rapide, le truc gênant c'est que je fais une application pour un client qui veut contrôler un automate par réseau, c'est mes débuts sur ce log et en Pascal et que le bleu ne colle pas du tout avec ce qui est attendu.
Je me suis mal exprimé, je voulais dire que Windows impose peut-être sa couleur à Lazarus ce qui ne m'arrange pas ^^.
J'ai parcouru les options générales et le menu du ComboBox ainsi que pleins de sujets mais j'ai rien trouvé :cry:

Bonjour à tous,

Citation:

Envoyé par kptnn

J'aimerais savoir s'il est possible de changer:
-La couleur de sélection souris d'un texte dans Lazarus qui est bleue

Si cette sélection est dans un DBGrid la réponse est oui.
Code:

1 2 3 4 5 6 procedure TForm1.DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer; Column: TColumn; AState: TGridDrawState); begin if (gdfocused in Astate) then dbgrid1.Canvas.Brush.Color:=tacouleur end;

12/12/2017, 01h01
mm_71

Citation:

J'ai parcouru les options générales et le menu du ComboBox ainsi que pleins de sujets mais j'ai rien trouvé

Pour une combo ou d'autres composants il y-a une option color dans l'éditeur de propriétés. Il y-a aussi possibilité de changer la couleur de la fenêtre toujours par l'option color et d'activer la propriété parentcolor de la combo ( Ou autre composant ) qui prendra alors la couleur de la fenêtre.
Mais quoi qu'on fasse le déroulant sera toujours noir sur blanc et la couleur de la sélection en surbrillance ne semble pas non plus pouvoir être changée.
12/12/2017, 08h38
tintinux

Bonjour

Il est toujours possible d'écrire soi-même un composant, qui fasse ce qu'on veut.

Mais comme ce n'est pas évident de faire des bons composants quand on débute, et si la chose ne doit pas être réutilisée souvent, on peut commencer par faire une interface formée de composants existants, et leur associer les événements qui vont bien. Une ComboBox, ce n'est jamais qu'un TEdit, un TBitBtn et une TListView en dessous... Avec cette dernière, on peut afficher les couleurs qu'on veut (comme indiqué pour la DbGrid par Focus77)

J'ai fait quelque chose d'assez proche, en Delphi, il y a longtemps.
12/12/2017, 09h41
kptnn

Ok, je vais tenter comme tu m'as dit avec un edit, un bouton et une liste voir ce que ça donne.
Merci a tous pour votre aide.

Salut

Il faut changer le style, le placer sur ownerDraw...
Et dans la méthode DrawItem tu écris :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
   with Control as  TComboBox do
   begin
      if odSelected in State then
      begin
        Canvas.Brush.Color:= clRed;//clsSkyBlue; // par exemple
        Canvas.Font.Color:= clwhite;
      end
      else
      begin
        Canvas.Brush.Color:= Color;
        Canvas.Font.Color:= Font.Color;
      end;
      Canvas.FillRect(Rect);
      Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]);
   end;