Discussion :

[Delphi-ne]

Je voudrais pouvoir intervenir sur la présentation des labels du TreeView.
Je passe pas la méthode CustomDrawItem avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
with tv_Arbre.Canvas do begin
       NodeRect.Left := NodeRect.Left + (Node.Level * tv_Arbre.Indent);
        NodeRect.Left := NodeRect.Left + tv_Arbre.Indent; // + FButtonSize;
        NodeRect.Left := NodeRect.Left + ImageList.Width;
        Font.Style := [fsBold];
        TextOut(NodeRect.Left, NodeRect.Top, '*'+l_Code+'*');
        Font.Style := [];
        TextOut(NodeRect.Left + 150, NodeRect.Top, l_Libelle);
 end;

Le code est ignoré, tous les lables se ressemblent. Si je commentarise la ligne

Code :

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

        Font.Style := [];

toutes les lignes sont en gras.
Ce que je voudrais savoir c'est s'il y a une impossibilité à gérer une mise en forme des labels ou si c'est ma gestion du Canvas qui est mauvaise.

[Pedro]

Salut
Essaie de changer la valeur du paramètre variable DefaultDraw de l'évènement OnCustomDrawItem

[Delphi-ne]

Le résultat est le même.
J'arrive bien à gérer des alignements de texte en jouant avec des MoveTo et des TextOut mais les Font restent identiques sur toute la ligne.

En plus l'arbre est assez long et j'ai remarqué qu'en le faisant défiler très vite on obtient une déformation de l'image.

Je vais peut-être laisser à l'état standard pour le moment et m'occuper de parties plus vitales de l'application
Mais je suis preneur si quelqu'un a des idées ou un morceau de code