Discussion :

[Griswold]

Bonjour à tous,

Mon but est d'arriver à insérer des rangées dans un TValueListEditor, mais avec les couleurs de mon choix. Par exemple, je fais un InsertRow pour la première rangée avec une couleur de mon choix, puis même chose pour les autres rangées mais avec des couleurs différentes (toujours de mon choix).

Je sais que ça se fait avec un TListBox, mais présentement avec un TValueListEditor je ne trouves pas.

Merci d'avance...

[cpdump]

Probablement en utilisant l'évévenement OnDrawCall. Il y a un exemple dans l'aide mais sur ma version l'aide est buggé

[Griswold]

Il fallait effectivement utiliser l'événement onDrawCell, comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.vlDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if ARow = 2 then
    vl.Canvas.Font.Color := clRed
  else
    vl.Canvas.Font.Color := clBlack;
 
  if ACol = 0 then
    vl.Canvas.TextOut( Rect.Left, Rect.Top, vl.Keys[ARow] )
  else
    vl.Canvas.TextOut( Rect.Left, Rect.Top, vl.Values[vl.Keys[ARow]] );
 
end;

SAUF QUE : TRÈS IMPORTANT!!!

Mettre la propriété Default Drawing du TValueListEditor à false, sinon les couleurs par défaut sont tout de même affichées.

Aussi, ceci ne change que la couleur du texte dans les cellules, vous aurez peut-être quelques modifications à apporter dans le code d'affichage tout dépendant des résultats que vous voulez obtenir.