Probleme image dans combobox.

Version imprimable

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
Code:

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;
Marge est un integer.

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 :) !

05/07/2007, 22h23
Clorish

Je pense que ca viens du parametre State :

Citation:

Envoyé par Aide Delphi

odSelected L'élément est sélectionné.
odGrayed L'élément doit apparaître grisé.
odDisabled L'élément est désactivé.
odChecked L'élément doit apparaître coché. (Ceci ne s'applique pas à tous les objets)
odFocused La saisie clavier est dirigée sur l'élément.
odDefault L'élément est celui par défaut (ceci ne s'applique pas à tous les objets)
odHotLight L'élément est en surbrillance car il est sous la souris (seulement si le système d'exploitation supporte la surbrillance)

odInactive L'élément et son menu associé sont inactifs (seulement sous Windows 98 ou version supérieure)
odNoAccel Tout soulignement d'un caractère raccourci doit être évité lors du dessin du contrôle (seulement sous Windows 2000 ou version supérieure)
odNoFocusRect N'affiche pas d'indicateur visuel montrant la focalisation (seulement sous Windows 2000 ou version supérieure)
odReserved1 Pas utilisée actuellement.
odReserved2 Pas utilisée actuellement.
odComboBoxEdit Le dessin prend place dans la boîte de saisie d'un contrôle boîte à options.
06/07/2007, 01h40
devoluti0n

Me voilà un peu perdu, parlez vous de "State: TOwnerDrawState" ?

Sinon pouriez vous m'expliquer comment utiliser les paramettres que vous m'avez soumis s'il vous plaît ?
06/07/2007, 09h55
Clorish

j'ai peur d'avoir parlé trop vite.
Je viens de retourner voir sur l'aide et visiblement la property state n'est pas transmise par adresse (ie var) donc ne peux remonter des informations.

En regle general, les evenements transmettent des variable de ce type par adresse pour que suite a l'execution du code utilisateur, le composant finisse le traitement en tenant compte de ce qui a deja ete fait.

Je pensais que faire remonter dans la variable state une valeur ne differente de "selecionné" resoudrais le probleme.

Il semblerais que cela ne soit pas aussi evident :(
06/07/2007, 17h15
devoluti0n

:? , ce n'est pas grave, merci quand meme.
Ceci dit, peut être connaissez vous un composant ou une autre métode de mettre des images dans une combobox.
Je serai preneur :mouarf: .

Si cela peut te dépanner dans mon cas d'une ListBox multicolore j'ai pu éliminer le pointillé de la façon suivante en envoyant le Focus ballader ailleurs :
Code:

1 2 3 4 5 6 7 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); Button1.SetFocus; end;
... et rien n'empêche d'utiliser un TButton rendu invisible ou d'envoyer le focus sur n'importe quel objet présent qui peut le recevoir.
... y'a pas de raison pour que cela ne marche pas chez toi.

Il faut juste effacer le contenu du rectangle avant de tracer sinon le rectangle de sélection reste visible.

Code:

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  marge: Integer;
begin
  marge := (Rect.Bottom - Rect.Top - imageList1.Height);
  ComboBox1.Canvas.FillRect(Rect);
  imagelist1.Draw(ComboBox1.canvas, Rect.Left, Rect.Top + marge, Index);
end;

07/07/2007, 20h13
devoluti0n

J'ai retenu la réponse de Pierre Castelain, mais qui cette fois fait place à un autre bug:
Si j'ouvre ma combobox et que rapidement je survolle un élément, l'élément va apparaitre dans la case des éléments séléctionnés mais sans être cepandant listé comme un élément cliqué indéxé ...
Mais pour quelqu'un de normal sa e devrai pas poser de problemes, merci beaucoup !

Essayes la parade que j'avais signalée pour renvoyer le Focus ailleurs après avoir récupéré la valeur de l'index sélectionné comme suit, mais en l'adaptant au cas du ComboBox, car ici j'utilise cette parade dans le cas de la variante suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
//Variante pour passer en couleur l'Item d'un ListBox sélectionné :
var       iSelection : integer;
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin     ListBox1.Style:=(lbOwnerDrawFixed);
          with ListBox1.Canvas do
          begin Font.Color:=clBlack; // Couleur de fonte
                if Index=iSelection
                then Brush.Color:=clAqua   // Couleur d'arrière plan
                else Brush.Color:=clWhite; // alternée bleu/blanc
                FillRect(Rect);  // Remplit Rect(Index) du canvas avec Brush.color
                TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]); // Texte de l'Item
          end;
          Button1.SetFocus; //pour éliminer le pointillé
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var       i:integer;
begin     ListBox1.MultiSelect:=false;
          iSelection:=ListBox1.ItemIndex; //: sauve la valeur de l'Index sélectionné          
          for i:=0 to ListBox1.Items.Count-1
          do ListBox1DrawItem(ListBox1,i,ListBox1.ItemRect(i),[odChecked]);
          ListBox1.reFresh;
end;

... ça pourra peut-être te dépanner.:D

09/07/2007, 15h25
devoluti0n

Aprés éssai (et remplacement des listbox par combobox :P) je remarque que les couleurs que tu affectes aux canvas surpassent mes images et donc j'ai des boites blanches maintenant :s.

De plus, le code ne fonctionne visiblement pas du tout pour une Combobox :s.
Mais merci quand meme (j'ai peut être fait une fausse manipulation).

Bonjour

Citation:

Aprés éssai (et remplacement des listbox par combobox ) je remarque que les couleurs que tu affectes aux canvas surpassent mes images et donc j'ai des boites blanches maintenant :s.

... mais rien ne t'oblige à utiliser les lignes de la partie suivante de mon code :
Code:

1 2 3 4 5 6 7 8 9 with ListBox1.Canvas do begin Font.Color:=clBlack; // Couleur de fonte if Index=iSelection then Brush.Color:=clAqua // Couleur d'arrière plan else Brush.Color:=clWhite; // alternée bleu/blanc FillRect(Rect); // Remplit Rect(Index) du canvas avec Brush.color TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]); // Texte de l'Item end;
... celles-ci répondaient à mon besoin où je voulais du bleu et du blanc régénéré à chaque appel de la routine.
... l'essentiel à récupérer dans mon code c'est le Button1.SetFocus; destiné à éliminer le pointillé qui te posait un problème. L'exemple de ma listBox était donné juste pour montrer l'emplacement du Button1.SetFocus et la façon de récupérer le iSelection:=ListBox1.ItemIndex qui mémorise la valeur de l'Index sélectionné, mais tout le reste ne concerne que ma ListBox où je voulais moi-aussi éliminer les pointillés et ça marche.:D

10/07/2007, 09h53
devoluti0n

Ok...
J'ai parfois des éxcés de stupidité, la plupart des gens font comme si ....

Merci :D !