Discussion :

[fveto]

Bonjour à tous,

Dans mon appli. Delphi Seattle, j'utilise dblookupcombobox !!!

Est-il possible de changer la couleur des lignes de la liste dblookupcombobox en fonction du produit (interdit, avec risque ...) ?

Ou éventuellement m'indiquer un composant équivalent ?

Merci à tous.

[SergioMaster]

Bonjour,

avec DBLookupCombobox pas de OnDrawItem du moins de base (il est peut-être possible de surclasser le truc, ce sera une de mes options)

donc, première possibilité en utilisant un Combobox, il y a l'évènement onDrawItem
ne pas oublier de mettre le style à csOwnerDrawFixed (je n'ai pas testé csOwnerdrawVariable)

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
 
// Test alternance noir/rouge
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  inherited;
  with combobox1 do
   begin
    if Odd(Index) then Canvas.Font.Color:=clRed   
                  else Canvas.Font.Color:=clBlack;
    Canvas.Brush.Color := clWhite ;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left, Rect.Top,Items[Index]);
   end;
end;

Reste à le remplir, ce combobox, cela peut se faire "à la main" dans une boucle ou avec un peu de Livebindings

J'avoue ne pas savoir utiliser l'évènement onfilledlistItem (dans le cas de la VCL, mais aussi FMX pour un combobox )

Reste la dernière option, le surclassement c'est plus que ce je peux sortir pour l'instant mais demain matin, les idées claires qui sait

[SergioMaster]

Bonjour,

des premiers résultats en utilisant quelques astuces

si pour l'instant je galère avec le ProtypeBindSource qui me fourni pourtant un super jeu d'essai (combobox du haut)
la méthode "manuelle" de remplissage à partir d'un FDMemTable
porte ses fruits au prix d'une petite astuce

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 // remplissage
 ComboBox2.Items.Clear;
  Index:=0;
  while not FDMemTable1.Eof do
    begin
      ComboBox2.Items.AddPair(FDMemTable1.FieldByName('NomCouleur').asString,
                               FDMemTable1.FieldByName('Color').asString);
     FDMemTable1.Next;
    end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm109.ComboBox2DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 inherited;
   with TComboBox(Control) do
   begin
    Canvas.Font.Color:=StrToInt(Items.ValueFromIndex[Index]);
    Canvas.Brush.Color := clWhite;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left, Rect.Top,Items.Names[Index]);
   end;
end;

ma "galère" avec le protypebindsource étant dans le moyen d'accéder au second champ (la couleur sensu stricto)

Maintenant que la piste utilisation de ondrawitem et d'une paire pour accéder facilement à la couleur est posée, je vais pouvoir voir ce qu'il en est d'un DBLookupCombobox

[SergioMaster]

Avant d'aller plus avant, voir aussi le composant de TMS ADVDBLookupCombobox

[fveto]

Bonjour Sergio,

Merci pour vos réponses bien détaillées, je pense plutôt m'orienter vers la solution TMS ADVDBLookupCombobox !!!

[SergioMaster]

J'avoue l'avoir essayé mais j'ai eu beaucoup de mal à obtenir quelque chose !
Après beaucoup d'essais (je n'avais pas défini de colonnes) j'ai enfin eu un truc mais, s'il y a un évènement pour changer l'affichage (onDrawDrop) et, entre autre la couleur, je n'ai pas trouvé comment procéder pour obtenir le même résultat qu'avec ma "bidouille".
J'ai eu beau cherché, je n'ai pas trouvé dans les manuels (mais il y en a beaucoup)

[Edit]
j'en suis à ceci qui fonctionne mais que je trouve un peu

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm109.AdvDBLookupComboBox2DrawProp(Sender: TObject; RowIndex,
  ColIndex: Integer; DBField: TField; Value: string; AFont: TFont;
  var AColor: TColor);
begin
 FDMemTable1.Locate('nomcouleur',value);
 Afont.Color:=FDMemTable1.FieldByname('Color').AsInteger;
end;