Discussion :

[kptnn]

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

[Jipété]

Bonsoir

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 :

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

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

[FOCUS77]

Bonjour à tous,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[mm_71]

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.

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

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

[anapurna]

Salut

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

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