Discussion :

[oneDev]

Bonjour,

J'utilise un Treeview avec le composant Virtual-TreeView dans Delphi 11.1 en VCL.
Je charge des données et je souhaiterai ensuite afficher en couleurs les lignes selon une condition.

Il y a une seule colonne pour laquelle le fond s'affiche correctement.
Quand je sélectionne la ligne toute les colonnes sont correctes.



Voici le code correspondant :

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
16
17
18
procedure TForm1.Tree1DrawText(Sender: TBaseVirtualTree; TargetCanvas: TCanvas;
    Node: PVirtualNode; Column: TColumnIndex; const Text: string; const
    CellRect: TRect; var DefaultDraw: Boolean);
var
  mdata: PMyData;
begin
  mdata := Node.GetData;
  if Assigned(mdata) then
  begin
    if (mdata.Level = 2) then
      TargetCanvas.Font.Style := TargetCanvas.Font.Style + [fsBold]
    else if (mdata.Level > 2) and (mdata.Stock = 0) then
    begin
      TargetCanvas.Brush.Color := clYellow;
      TargetCanvas.Font.Color := clRed;
    end;
  end;
end;

Je n'ai pas trouvé ce qui ne convenait pas dans ce code.

Avez-vous une idée ?

[ShaiLeTroll]

La couleur de sélection bleue c'est géré par le composant, je ne connais pas le Virtual TreeView mais le dessin d'un noeud est en plusieurs étapes
D'ailleurs, la case à cocher ne gère pas la transparence, ce n'est pas terrible, avec un DrawElement du Style, ça se fait très bien.

La c'est OnDrawText, forcément cela change que le fond et la couleur d'un texte et non celui des cellules, il n'existe pas un OnDrawCell ou un OnCustomDraw avec un Stade PrePaint ?

Le jaune est sur du texte et le blanc sur des nombres (ou monétaire), ne connaissant pas le Virtual TreeView, tout est du texte ou est-ce qu'il y a un typage de colonne et éventuellement des différences de support des méthodes de dessin ?
Pour le level est sur PMyData ? Level n'est pas une valeur du TTreeNode PVirtualNode ?


Surtout que tout cela est très facile avec un simple TTreeView, genre en D7, que cela soit la couleur que le mode colonne on peut le dessiner avec un TTreeView, pourquoi utiliser un Virtual TreeView externe ?



Lit le sujet Treeview et CustomDrawItem: probleme d'affichage avec la scrollbar horizontale
Encore une fois, un TTreeView de base :

[oneDev]

Effectivement, cela se gère dans le OnBeforeCellPaint.
Merci pour le lien, je vais lire ça.