Treeview et CustomDrawItem: probleme d'affichage avec la scrollbar horizontale

Version imprimable

2 pièce(s) jointe(s)

bonjour,

J'ai cherché partout sur internet et je ne trouve pas ma réponse.

Le problème est très simple.
J'utilise l'évènement OnCustomDrawItem pour dessiner le texte dans la treeview.
Lorsque je diminue la largeur de la fenêtre une scroll bar horizontale apparait en bas.

Le problème est que lorsque je clique sur la scroll bar l'affichage est completement illisible, la Treeview n'est que partiellement redessinée.

Avant le scroll:
Pièce jointe 187946

Apres le scroll:
Pièce jointe 187945
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 procedure TForm1.TVCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); var NodeRect: TRect; begin with TV.Canvas do begin DefaultDraw := False; NodeRect := Node.DisplayRect(False); Brush.Style := bsSolid; Brush.Color := clmoneygreen; FillRect(NodeRect); TextOut(NodeRect.Left+TV.indent, NodeRect.Top, Node.Text); end; end;
Merci pour votre aide.
Franck

15/09/2015, 13h36
ShaiLeTroll

Je viens de vérifier, c'est le comportement standard du TTreeView
C'est un peu comme si l'on plaçait le TTreeView dans une TScrollBox, cela déplace l'ensemble de l'objet, ce n'est pas le texte qui défile mais tout le contrôle

Faudrait sinon retirer avec ShowScrollBar la barre de défilement horizontal
(Faudra peut-être lutter avec un TTimer pour la cacher en boucle, avec le TDBGrid, c'était pénible, ça revenait toujours)

Puis ajoute une TScrollBar
tu gères cette TScrollBar pour décaler ton dessin SANS décaler le TreeView lui même
15/09/2015, 13h57
foetus

C'est bizarre: pourquoi le déplacement vertical fonctionne sans problème mais pas le déplacement horizontal? :koi: :koi:

Regarde dans les options [il y a 3 ensembles] pour vérifier qu'il n'y en a pas au moins 1 que tu as loupé.

Sinon, essaie de surcharger l'événement OnScroll [ou un autre à voire]: peut-être en y mettant un Refresh et voir si le DrawItem est appelé avec un rectangle qui ne commence pas à zéro pour la propriété Left (<- prépare toi à faire des clippings :mrgreen:)
15/09/2015, 13h58
franckcl

N'y aurait-il pas un moyen de capturer les évenements de la scroll bar ?
Auquel cas je ferais un invalidate à chaque evenement.

Il y aurait la solution de créer une classe dérivée de TTreeView mais je voudrais conserver la possibilité de modifier les propriétés dans l'IDE donc je rejete cette option.

Il a peut être une solution en détournant la fonction WindowProc de Ttreeview mais je ne sais pas comment faire, à chaque fois je me retrouve avec des erreurs stack overflow.
15/09/2015, 14h08
ShaiLeTroll

J'ai testé ton code
Je n'avais pas compris que même avant le scroll tu perdais toute l'arborescence

Pour le scroll, on ne voit plus le petit nœud, c'est le comportement par défaut, je suis en train de traduire un code C++ Builder : Treeview avec des colonnes
Je vais comparer mon code et le lien

Je vais aussi inclure une TScrollBar pour gérer le défilement du texte sans défiler les nœuds

J'ai utilisé OnAdvancedCustomDrawItem, sur le Stage cdPostPaint, cela permet d'écraser le dessin d'origine par le tient

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
 
unit ZooThomVCL_ControlExperiment;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.StdCtrls,
  System.Generics.Collections;
 
type
  TZooThomVCLControlExperimentForm = class(TForm)
    pgcControls: TPageControl;
    tsTreeView: TTabSheet;
    pgcTreeView: TPageControl;
    tsTreeViewTextScrolling: TTabSheet;
    pnlNormalScrollingTreeView: TPanel;
    tvNormalScrolling: TTreeView;
    pnlTextScrollingTreeView: TPanel;
    tvTextScrolling: TTreeView;
    ScrollBarTextScrollingTreeView: TScrollBar;
    chkCustomDrawTextScrollingTreeView: TCheckBox;
    pnlColumnTreeView: TPanel;
    tvColumn: TTreeView;
    chkCustomDrawColumnTreeView: TCheckBox;
    pnlColumnTreeViewButtons: TPanel;
    btnBtnTreeViewColumnAdd: TButton;
    btnBtnTreeViewColumnDelete: TButton;
    btnBtnTreeViewColumnNodeAdd: TButton;
    chkCustomDrawTextScrollingTreeViewSpecial: TCheckBox;
    procedure tvNormalScrollingDblClick(Sender: TObject);
    procedure tvTextScrollingDblClick(Sender: TObject);
    procedure tvTextScrollingChange(Sender: TObject; Node: TTreeNode);
    procedure tvTextScrollingCollapsed(Sender: TObject; Node: TTreeNode);
    procedure tvTextScrollingExpanded(Sender: TObject; Node: TTreeNode);
    procedure pnlTextScrollingTreeViewResize(Sender: TObject);
    procedure chkCustomDrawTextScrollingTreeViewClick(Sender: TObject);
    procedure ScrollBarTextScrollingTreeViewChange(Sender: TObject);
    procedure chkCustomDrawColumnTreeViewClick(Sender: TObject);
    procedure btnBtnTreeViewColumnAddClick(Sender: TObject);
    procedure btnBtnTreeViewColumnDeleteClick(Sender: TObject);
    procedure btnBtnTreeViewColumnNodeAddClick(Sender: TObject);
    procedure tvColumnDblClick(Sender: TObject);
  private
    { Déclarations privées }
    FTreeViewColWidths: System.Generics.Collections.TList<Integer>;
    procedure ShowTreeControls(AControl: TWinControl; Node: TTreeNode);
    procedure tvTextScrollingAdvancedCustomDrawItemEventHandler(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
    procedure tvColumnAdvancedCustomDrawItemEventHandler(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
  public
    { Déclarations publiques }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy(); override;
  end;
 
implementation
 
{$R *.dfm}
 
constructor TZooThomVCLControlExperimentForm.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
 
  FTreeViewColWidths := System.Generics.Collections.TList<Integer>.Create();
end;
 
destructor TZooThomVCLControlExperimentForm.Destroy();
begin
  FreeAndNil(FTreeViewColWidths);
 
  inherited Destroy();
end;
 
procedure TZooThomVCLControlExperimentForm.tvColumnAdvancedCustomDrawItemEventHandler(
  Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
  Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
var
  Tree: TTreeView;
  NodeRect: TRect;
  ColIndex: Integer;
begin
  if (Stage = cdPostPaint) and (Sender is TTreeView) then
  begin
    Tree := TTreeView(Sender);
    NodeRect := Node.DisplayRect(True);
    if NodeRect.Left > 0 then
    begin
      Tree.Canvas.TextOut(NodeRect.Left + 2, NodeRect.Top + 2, Node.Text);
 
      for ColIndex := 0 to FTreeViewColWidths.Count - 1 do
        Tree.Canvas.TextOut(NodeRect.Left + FTreeViewColWidths[ColIndex] + 2, NodeRect.Top + 2, Format('Col N°%d - %d [%s]', [ColIndex, FTreeViewColWidths[ColIndex], Node.Text]));
    end;
  end;
end;
 
procedure TZooThomVCLControlExperimentForm.tvColumnDblClick(Sender: TObject);
begin
  ShowTreeControls(Self, tvColumn.Items.Add(nil, Self.ClassName));
 
  // Change le Panel pour pouvoir jouer sur le redimensionnement de TTreeView
  SetWindowLong(pnlColumnTreeView.Handle, GWL_STYLE,
    GetWindowLong(pnlColumnTreeView.Handle, GWL_STYLE) or WS_SIZEBOX);
 
  pnlColumnTreeView.Width := pnlColumnTreeView.Width - 1; // C'est le seul truc efficace pour que WS_SIZEBOX soit pris en compte, Invalidate, SetWindowPos, rien ne passe à part cette bidouille
end;
 
procedure TZooThomVCLControlExperimentForm.tvNormalScrollingDblClick(Sender: TObject);
begin
  ShowTreeControls(Self, tvNormalScrolling.Items.Add(nil, Self.ClassName));
 
  // Change le Panel pour pouvoir jouer sur le redimensionnement de TTreeView
  SetWindowLong(pnlNormalScrollingTreeView.Handle, GWL_STYLE,
    GetWindowLong(pnlNormalScrollingTreeView.Handle, GWL_STYLE) or WS_SIZEBOX);
 
  pnlNormalScrollingTreeView.Width := pnlNormalScrollingTreeView.Width - 1; // C'est le seul truc efficace pour que WS_SIZEBOX soit pris en compte, Invalidate, SetWindowPos, rien ne passe à part cette bidouille
end;
 
procedure TZooThomVCLControlExperimentForm.btnBtnTreeViewColumnAddClick(Sender: TObject);
var
  Value: string;
  ColWidth: Integer;
begin
  if InputQuery('Ajout d''une Colonne', 'Largeur ?', Value) then
  begin
    if TryStrToInt(Value, ColWidth) and (ColWidth > 0) then
    begin
      FTreeViewColWidths.Add(ColWidth);
      tvColumn.Invalidate();
    end;
  end;
end;
 
procedure TZooThomVCLControlExperimentForm.btnBtnTreeViewColumnDeleteClick(Sender: TObject);
var
  Value: string;
  ColIndex: Integer;
begin
  if InputQuery('Suppression d''une Colonne', 'Numéro (indice en base 0)', Value) then
  begin
    if TryStrToInt(Value, ColIndex) and ((0 <= ColIndex) and (ColIndex < FTreeViewColWidths.Count )) then
    begin
      FTreeViewColWidths.Delete(ColIndex);
      tvColumn.Invalidate();
    end;
  end;
end;
 
procedure TZooThomVCLControlExperimentForm.btnBtnTreeViewColumnNodeAddClick(Sender: TObject);
begin
  tvColumn.Items.AddChild(tvColumn.Selected, 'Node N°' + IntToStr(tvColumn.Items.Count)).MakeVisible();
end;
 
procedure TZooThomVCLControlExperimentForm.chkCustomDrawColumnTreeViewClick(Sender: TObject);
begin
  if chkCustomDrawColumnTreeView.Checked then
    tvColumn.OnAdvancedCustomDrawItem := tvColumnAdvancedCustomDrawItemEventHandler
  else
    tvColumn.OnAdvancedCustomDrawItem := nil;
 
  tvColumn.Invalidate();
end;
 
procedure TZooThomVCLControlExperimentForm.chkCustomDrawTextScrollingTreeViewClick(Sender: TObject);
begin
  if chkCustomDrawTextScrollingTreeView.Checked then
    tvTextScrolling.OnAdvancedCustomDrawItem := tvTextScrollingAdvancedCustomDrawItemEventHandler
  else
    tvTextScrolling.OnAdvancedCustomDrawItem := nil;
 
  tvTextScrolling.Invalidate();
end;
 
procedure TZooThomVCLControlExperimentForm.pnlTextScrollingTreeViewResize(Sender: TObject);
begin
  // Pas de OnResize dans le TTreeView, j'utilise celui du panel
  // Cela revient sans cesse !
  if chkCustomDrawTextScrollingTreeViewSpecial.Checked then
    ShowScrollBar(tvTextScrolling.Handle, SB_HORZ, False);
end;
 
procedure TZooThomVCLControlExperimentForm.ScrollBarTextScrollingTreeViewChange(Sender: TObject);
begin
  if Assigned(tvTextScrolling.OnAdvancedCustomDrawItem) then
    tvTextScrolling.Invalidate();
end;
 
procedure TZooThomVCLControlExperimentForm.ShowTreeControls(AControl: TWinControl; Node: TTreeNode);
var
   I: Integer;
   ChildNode: TTreeNode;
begin
  For I := 0 to AControl.ControlCount - 1 do
  begin
    ChildNode := TTreeView(Node.TreeView).Items.AddChild(Node, Format('%s - Parent Node %d', [AControl.Controls[I].ClassName, Node.AbsoluteIndex]));
    if AControl.Controls[I] is TWinControl then
      ShowTreeControls(AControl.Controls[I] as TWinControl, ChildNode);
  end;
end;
 
procedure TZooThomVCLControlExperimentForm.tvTextScrollingChange(Sender: TObject; Node: TTreeNode);
begin
  // Cela revient sans cesse !
  if chkCustomDrawTextScrollingTreeViewSpecial.Checked then
    ShowScrollBar(tvTextScrolling.Handle, SB_HORZ, False);
end;
 
procedure TZooThomVCLControlExperimentForm.tvTextScrollingCollapsed(Sender: TObject; Node: TTreeNode);
begin
  // Cela revient sans cesse !
  if chkCustomDrawTextScrollingTreeViewSpecial.Checked then
    ShowScrollBar(tvTextScrolling.Handle, SB_HORZ, False);
end;
 
procedure TZooThomVCLControlExperimentForm.tvTextScrollingAdvancedCustomDrawItemEventHandler(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
var
  NodeRect: TRect;
begin
  if (Stage = cdPostPaint) and (Sender is TTreeView) then
  begin
    with TTreeView(Sender), Canvas do
    begin
      NodeRect := Node.DisplayRect(True); // True !!!
 
      Brush.Style := bsSolid;
      Brush.Color := clmoneygreen;
      FillRect(NodeRect);
 
      if chkCustomDrawTextScrollingTreeViewSpecial.Checked then
        TextOut(NodeRect.Left, NodeRect.Top, Copy(Node.Text, ScrollBarTextScrollingTreeView.Position))
      else
        TextOut(NodeRect.Left, NodeRect.Top, Node.Text);
    end;
  end;
end;
 
procedure TZooThomVCLControlExperimentForm.tvTextScrollingDblClick(Sender: TObject);
begin
  ShowTreeControls(Self, tvTextScrolling.Items.Add(nil, Self.ClassName));
  if chkCustomDrawTextScrollingTreeViewSpecial.Checked then
    ShowScrollBar(tvTextScrolling.Handle, SB_HORZ, False);
 
  // Change le Panel pour pouvoir jouer sur le redimensionnement de TTreeView
  SetWindowLong(pnlTextScrollingTreeView.Handle, GWL_STYLE,
    GetWindowLong(pnlTextScrollingTreeView.Handle, GWL_STYLE) or WS_SIZEBOX);
 
  pnlTextScrollingTreeView.Width := pnlTextScrollingTreeView.Width - 1; // C'est le seul truc efficace pour que WS_SIZEBOX soit pris en compte, Invalidate, SetWindowPos, rien ne passe à part cette bidouille
end;
 
procedure TZooThomVCLControlExperimentForm.tvTextScrollingExpanded(Sender: TObject; Node: TTreeNode);
begin
  // Cela revient sans cesse !
  if chkCustomDrawTextScrollingTreeViewSpecial.Checked then
    ShowScrollBar(tvTextScrolling.Handle, SB_HORZ, False);
end;
 
end.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
 
object ZooThomVCLControlExperimentForm: TZooThomVCLControlExperimentForm
  Left = 396
  Top = 246
  Caption = 'Exp'#233'rimentations diverses sur les controles VCL'
  ClientHeight = 596
  ClientWidth = 1219
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object pgcControls: TPageControl
    Left = 0
    Top = 0
    Width = 1219
    Height = 596
    ActivePage = tsTreeView
    Align = alClient
    TabOrder = 0
    ExplicitLeft = 129
    ExplicitTop = 136
    ExplicitWidth = 289
    ExplicitHeight = 193
    object tsTreeView: TTabSheet
      Caption = 'tsTreeView'
      ExplicitLeft = 0
      ExplicitTop = 0
      ExplicitWidth = 281
      ExplicitHeight = 165
      object pgcTreeView: TPageControl
        Left = 0
        Top = 0
        Width = 1211
        Height = 568
        ActivePage = tsTreeViewTextScrolling
        Align = alClient
        TabOrder = 0
        ExplicitHeight = 477
        object tsTreeViewTextScrolling: TTabSheet
          Caption = 'tsTreeViewTextScrolling'
          ExplicitLeft = 0
          ExplicitTop = 0
          ExplicitWidth = 281
          ExplicitHeight = 165
          object pnlNormalScrollingTreeView: TPanel
            Left = 3
            Top = 3
            Width = 255
            Height = 296
            ShowCaption = False
            TabOrder = 0
            object tvNormalScrolling: TTreeView
              AlignWithMargins = True
              Left = 4
              Top = 4
              Width = 247
              Height = 288
              Align = alClient
              Indent = 19
              TabOrder = 0
              OnDblClick = tvNormalScrollingDblClick
              ExplicitLeft = 3
              ExplicitTop = 3
              ExplicitWidth = 170
              ExplicitHeight = 238
            end
          end
          object pnlTextScrollingTreeView: TPanel
            Left = 264
            Top = 3
            Width = 255
            Height = 296
            ShowCaption = False
            TabOrder = 1
            OnResize = pnlTextScrollingTreeViewResize
            object tvTextScrolling: TTreeView
              AlignWithMargins = True
              Left = 4
              Top = 27
              Width = 247
              Height = 248
              Margins.Bottom = 0
              Align = alClient
              Indent = 19
              TabOrder = 0
              OnChange = tvTextScrollingChange
              OnCollapsed = tvTextScrollingCollapsed
              OnDblClick = tvTextScrollingDblClick
              OnExpanded = tvTextScrollingExpanded
              ExplicitLeft = 8
            end
            object ScrollBarTextScrollingTreeView: TScrollBar
              AlignWithMargins = True
              Left = 5
              Top = 275
              Width = 246
              Height = 17
              Margins.Left = 4
              Margins.Top = 0
              Align = alBottom
              PageSize = 0
              TabOrder = 1
              OnChange = ScrollBarTextScrollingTreeViewChange
            end
            object chkCustomDrawTextScrollingTreeView: TCheckBox
              AlignWithMargins = True
              Left = 4
              Top = 4
              Width = 247
              Height = 17
              Align = alTop
              Caption = 'Dessin Manuel'
              TabOrder = 2
              OnClick = chkCustomDrawTextScrollingTreeViewClick
            end
            object chkCustomDrawTextScrollingTreeViewSpecial: TCheckBox
              Left = 106
              Top = 4
              Width = 97
              Height = 17
              Caption = 'Scrolling Text'
              TabOrder = 3
            end
          end
          object pnlColumnTreeView: TPanel
            Left = 525
            Top = 3
            Width = 255
            Height = 296
            ShowCaption = False
            TabOrder = 2
            object tvColumn: TTreeView
              AlignWithMargins = True
              Left = 4
              Top = 27
              Width = 247
              Height = 241
              Margins.Bottom = 0
              Align = alClient
              Indent = 19
              TabOrder = 0
              OnDblClick = tvColumnDblClick
              ExplicitLeft = 85
              ExplicitTop = 58
              ExplicitWidth = 170
              ExplicitHeight = 238
            end
            object chkCustomDrawColumnTreeView: TCheckBox
              AlignWithMargins = True
              Left = 4
              Top = 4
              Width = 247
              Height = 17
              Align = alTop
              Caption = 'Dessin Manuel'
              TabOrder = 1
              OnClick = chkCustomDrawColumnTreeViewClick
            end
            object pnlColumnTreeViewButtons: TPanel
              Left = 1
              Top = 268
              Width = 253
              Height = 27
              Align = alBottom
              BevelOuter = bvLowered
              ShowCaption = False
              TabOrder = 2
              DesignSize = (
                253
                27)
              object btnBtnTreeViewColumnAdd: TButton
                Left = 4
                Top = 1
                Width = 75
                Height = 25
                Anchors = [akLeft, akBottom]
                Caption = 'Add Column'
                TabOrder = 0
                OnClick = btnBtnTreeViewColumnAddClick
              end
              object btnBtnTreeViewColumnDelete: TButton
                Left = 80
                Top = 1
                Width = 89
                Height = 25
                Anchors = [akLeft, akBottom]
                Caption = 'Delete Column'
                TabOrder = 1
                OnClick = btnBtnTreeViewColumnDeleteClick
              end
              object btnBtnTreeViewColumnNodeAdd: TButton
                Left = 170
                Top = 1
                Width = 75
                Height = 25
                Anchors = [akLeft, akBottom]
                Caption = 'Add Node'
                TabOrder = 2
                OnClick = btnBtnTreeViewColumnNodeAddClick
              end
            end
          end
        end
      end
    end
  end
end

OnCustomDrawItem et DefaultDraw à False, tu perds le dessin des noeuds

Tu avais mis False à TextOnly de DisplayRect, cela complique le calcul de position

Citation:

Si le paramètre TextOnly a la valeur true, le rectangle de délimitation inclut seulement le texte du noeud. Sinon, il inclut toute la ligne occupée par le noeud dans le contrôle vue arborescente.

En utilisant DisplayRect(True), plus besoin de Ident

1 pièce(s) jointe(s)

Merci infiniment pour le temps que tu m'as consacré.

J'ai donc repris mon exemple , j'ai modifié les propriétés comme tu m'as dit et effectivement le constat est que cela fonctionne, donc bravo !
Sauf que je n'ai pas tout dit et que j'ai besoin de redessiner la totalité de chaque item (y compris l'icone) pour obtenir une couleur de fond unique sur toute la largeur de la treeview comme ceci:

Pièce jointe 187997

voici donc le code complet:

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
procedure TRecipeEditorForm.TVCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;var DefaultDraw: Boolean);
var
  NodeRect  : TRect;
  LayerNode : TTreeNode;
  ImageId   : integer;
begin
  DefaultDraw := false;
  with TV.Canvas do
  begin
 
    NodeRect := Node.DisplayRect(false); // textonly=false because we want the full rectangle
 
    Font.Color:=clblack;
    // -----------------
    // BackGround color
    // -----------------
    LayerNode := Node;
    while (LayerNode.Parent<>nil) and ((TObject(LayerNode.Data) is TEquipLayer) or (TObject(LayerNode.Data) is TEventLayer))  do LayerNode:=LayerNode.Parent; // All sub item of a layer are the same color, so search if there is a parent of type Tlayer
    if TObject(LayerNode.Data) is TRecipeItem then
    With TRecipeItem(LayerNode.Data) do
    if IsColor then
    Begin
      Brush.Color := Color; // BBGGRR
      Brush.Style := bssolid;
      FillRect(NodeRect);
      font.color := GetTextColorBW(color);
    End;
 
    Brush.Style := bsClear;
    // -----------------
    // Draw the selection rect.
    // -----------------
    if Node=Sender.Selected then
    Begin
      Pen.Color:=clblack;
      Rectangle(NodeRect);
    End;
 
    NodeRect.Left := NodeRect.Left + (Node.Level * TV.Indent); // NodeRect.Left now represents the left-most portion of the expand button
    TV_DrawButton(TTreeView(Sender),NodeRect, Node); // Draw the [+] [-] and the three
 
    NodeRect.Left := NodeRect.Left + TV.Indent ;
 
    ImageId := Node.ImageIndex;
 
    // EntryPoint
    if (assigned(EntryPoint)) then
    begin
      if (node.AbsoluteIndex < EntryPoint.AbsoluteIndex) then // if it is before the entry point then write in Italic
      Begin
        font.Style := font.Style + [fsItalic];
      End else
      if (node.AbsoluteIndex = EntryPoint.AbsoluteIndex) then // if it is the entry point then write in Bold
      Begin
        ImageId := byte(RCimgStart);
        font.Style := font.Style + [fsBold];
      End;
    end;
 
    ImageTreeView.Draw(Sender.Canvas, NodeRect.Left, NodeRect.Top + (NodeRect.Bottom - NodeRect.Top) div 2 - TV.Images.Height div 2, ImageId, True);
 
    SetBkMode(Canvas.Handle, Ord(TRANSPARENT));
    NodeRect.Left := NodeRect.Left + ImageTreeView.Width+5;
 
    TextOut(NodeRect.Left, NodeRect.Top+1, Node.Text);
 
   // -----------------
   if  Sender.Dragging and (Sender.DropTarget=Node) then
   Begin
     pen.mode:=pmXor;
     moveto(NodeRect.Left,NodeRect.Bottom-4);    LineTo(NodeRect.Left+50,NodeRect.Bottom-4);
     pen.mode:=pmCopy;
   End;
  end;
End;

merci

16/09/2015, 09h02
ShaiLeTroll

Excellent, tu refais tout le dessin au complet, effectivement bien plus ambitieux !
Je vais reprendre ton code sans la partie donnée, je ferais une couleur par niveaux :mouarf:

Avec un code réel plus complet que je n'ai plus (j'ai changé plusieurs de fois de société depuis, j'ai refait la même chose en C++ pour l'entrainement)
j'avais obtenu ce résultat, j'ai retrouvé l'image sur le forum dans un vieux sujet de 2008: Optimisation TreeView avec XML

http://www.developpez.net/forums/att...necouleur.jpg/
16/09/2015, 10h01
franckcl

1 pièce(s) jointe(s)

Bonjour,

Mon problème n'est donc toujours pas résolu.
Pièce jointe 188026

N'y a-t-il pas une solution pour capturer les évènements de la scrollbar ? auquel cas je ferai un "invalidate" à chaque fois.
Ou alors une autre solution ?

Pas facile à résoudre ce problème mais très ennuyeux car l'affichage est illisible dès lors qu'on utilise la scroll bar.

Merci

Est-ce cette version de TV_DrawButton ou celle de embarcadero.newsgroups que tu utilises ?

Ah la nouvelle image est plus clair, c'est l'élément en cours qui de décale par rapport au reste

J'ai testé en chopant WM_HSCROLL dans la WndProc du TTreeView et ajouter un Invalidate, c'est juste le délire complet !
DoubleBuffered ne change rien

Pour les autres membres du forum, voici un code épuré
Faut créer un TImageList avec 10 images (j'ai pris au pif dans glyFX)

On arrive à avoir le même problème où le dessin est très géré lorsque l'on défile, comme si cela n'effaçait pas au fur et à mesure

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
procedure TZooThomVCLControlExperimentForm.tvColorCustomDrawItemEventHandler(
  Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
  var DefaultDraw: Boolean);
 
   procedure TV_DrawButton(TV:TTreeView;ARect: TRect; Node: TTreeNode);
   var
     cx, cy: Integer;
   const
     FButtonSize = 4;
   begin
     cx := ARect.Left + TV.Indent div 2 - 1;
     cy := ARect.Top + (ARect.Bottom - ARect.Top) div 2;
     with TV.Canvas do
     begin
       pen.Color:=clgray;
       if Node.HasChildren then
       begin
         PenPos := Point(cx+FButtonSize, cy);
         LineTo(ARect.Left + TV.Indent + FButtonSize, cy);
       end else
       begin
         PenPos := Point(cx, cy);
         LineTo(ARect.Left + TV.Indent + FButtonSize, cy);
       end;
 
      //draw half vertical line, top portion.
       if Node.AbsoluteIndex>0 then
       begin
         if Node.HasChildren then PenPos := Point(cx, cy-4) else PenPos := Point(cx, cy);
         LineTo(cx, ARect.Top-1);
       end;
 
      if ((Node.GetNextVisible <> nil) and (Node.GetNextVisible.Level = Node.Level)) or (Node.GetNextSibling <> nil) then
       //draw bottom portion of half vertical line.
       begin
         if Node.HasChildren then PenPos := Point(cx, cy+4) else PenPos := Point(cx, cy);
         LineTo(cx, ARect.Bottom+1);
       end;
 
      if Node.HasChildren then
       begin
         Rectangle(cx-FButtonSize, cy-FButtonSize, cx+FButtonSize+1, cy+FButtonSize+1);
 
        //draw the horizontal indicator.
         pen.color:=clBlack;
         PenPos := Point(cx-FButtonSize+2, cy);
         LineTo(cx+FButtonSize-1, cy);
         //draw the vertical indicator if the node is collapsed
         if not Node.Expanded then
         begin
           PenPos := Point(cx, cy-FButtonSize+2);
           LineTo(cx, cy+FButtonSize-1);
         end;
         pen.color:=clgray;
       end;
           //now connect vertical lines of higher level nodes.
       Node := Node.Parent;
       while Node <> nil do
       begin
         cx := cx - TV.Indent;
         if Node.GetNextSibling <> nil then
         begin
           PenPos := Point(cx, ARect.Top);
           LineTo(cx, ARect.Bottom);
         end;
         Node := Node.Parent;
       end;
     end;
   end;
 
 
const
  cPresetLast = 9;
  cPresetColors: array[0..cPresetLast] of TColor = ($00FFEAFF, $00F4F4F4, $00EAEBFF,
    $00FFEAFF, $00FFEAEA, $00EAFFFF, $00FFFFEA, $00EAEBFF, $00EBFFEA, $00FFEAEA);
var
  NodeRect  : TRect;
begin
  DefaultDraw := false;
  with TTreeView(Sender) do
  begin
    NodeRect := Node.DisplayRect(False); // Paramètre TextOnly à False car cela inclut toute la ligne occupée par le noeud dans le contrôle vue arborescente
    // Gestion de la barre de défilement horizontale
    NodeRect.Left := NodeRect.Left - GetScrollPos(Handle, SB_HORZ);
 
 
    // Couleur BackGround et Fonte
    Canvas.Brush.Color := cPresetColors[Min(Node.Level, cPresetLast)];
    Canvas.Brush.Style := bsSolid;
    Canvas.FillRect(NodeRect);
 
    // Rectangle de sélection
    if Node.Selected then
    begin
      Canvas.Pen.Color := TCanvasSLTAssistant.GetConstratedColor(cPresetColors[Min(Node.Level, cPresetLast)]);
      Canvas.Brush.Style := bsClear;
      NodeRectText := Node.DisplayRect(True);
      NodeRectSelection := NodeRect;
      NodeRectSelection.Width := NodeRectText.Width + (Node.Level * Indent);
      Canvas.Rectangle(NodeRectSelection);
    end;
 
    NodeRect.Left := NodeRect.Left + (Node.Level * Indent); // NodeRect.Left now represents the left-most portion of the expand button
    TV_DrawButton(TTreeView(Sender),NodeRect, Node); // Draw the [+] [-] and the three
 
    NodeRect.Left := NodeRect.Left + Indent ;
 
    Images.Draw(Canvas, NodeRect.Left, NodeRect.Top + (NodeRect.Bottom - NodeRect.Top) div 2 - Images.Height div 2, Node.ImageIndex, True);
 
    SetBkMode(Canvas.Handle, Ord(TRANSPARENT));
    NodeRect.Left := NodeRect.Left + Images.Width + 5;
 
    Canvas.Font.Color := TCanvasSLTAssistant.GetConstratedColor(cPresetColors[Min(Node.Level, cPresetLast)]);
    Canvas.TextOut(NodeRect.Left, NodeRect.Top + 1, Node.Text);
  end;
end;

16/09/2015, 12h08
franckcl

J'utilise effectivement cette version de TV_Drawbutton
Oui moi aussi j'avais testé WndProc et invalidate mais ça tourne en boucle et on arrive sur un overflow de la stack, peut être qu'il faut faire un repaint ou refresh plutot qu'un invalidate et donc il faudrait forcé le redessin sans passer par les messages windows.

J'ai essayé Repaint sur un WM_HSCROLL, cela semble inhiber le scrolling totalement,
tu as un léger sautillement de gauche à droite

En fait c'est très simple, j'ai édité mon code au dessus voici la correction
Code:

1 2 // Gestion de la barre de défilement horizontale NodeRect.Left := NodeRect.Left - GetScrollPos(Handle, SB_HORZ);
Il reste encore une correction à faire sur la ligne sélectionnée car le bord droite du rectangle fait des patés, en le faisant moins grand, plus de soucis
Code:

1 2 3 4 5 6 7 8 9 10 // Rectangle de sélection if Node.Selected then begin Canvas.Pen.Color := TCanvasSLTAssistant.GetConstratedColor(cPresetColors[Min(Node.Level, cPresetLast)]); Canvas.Brush.Style := bsClear; NodeRectText := Node.DisplayRect(True); NodeRectSelection := NodeRect; NodeRectSelection.Width := NodeRectText.Width + (Node.Level * Indent); Canvas.Rectangle(NodeRectSelection); end;
Il reste encore un problème c'est sur le redimensionnement, cela ne dessine plus correctement le fond blanc
J'ai tenté de modifier cela via OnCustomDraw mais cela efface trop
Faudrait voir si l'on peut avoir via ClipRect la zone à effacer

16/09/2015, 14h08
Paul TOTH

Pour ce genre de choses j'utilise généralement TListBox en VirtualOwnerDraw, j'ai une liste d'objets non VCL dont chaque élément sait à quel profondeur de l'arbre il se trouve, et sur OnDrawItem je demande à l'objet de se dessiner dans un Canvas et un Rect passés en paramètre.

par contre je n'ai jamais implémenté le défilement horizontal...ça doit être faisable.

Paul, j'avance !

J'ai réussi à trouver l'astuce permettant de connaitre la position de la scrollbar et du coup, il suffit d'ajouter la position à NodeRect mais ce n'est pas parfait.

il faut déclarer une variable SCROLLINFO:TSCROLLINFO; puis ajouter ceci:
Code:

1 2 3 4 5 NodeRect := Node.DisplayRect(false); // textonly=false because we want the full rectangle ScrollInfo.cbSize := sizeof(SCROLLINFO); ScrollInfo.fMask := SIF_TRACKPOS; if GetScrollInfo(TV.Handle, SB_HORZ, ScrollInfo) then offsetrect(NodeRect,-ScrollInfo.nTrackPos,0);
donc ça marche lorsqu'on déplace la scrollbar en déplacant le curseur mais pas lorsqu'on clique sur les fleches gauche et droite... je continue à chercher.
Franck

16/09/2015, 14h23
franckcl

Je n'avais pas vu ta réponse précédente.
En fait elle rejoint la miene mais la tienne fonctionne mieux et c'est plus simple en utilisant GetScrollPos.
Donc pour moi ça fonctionne parfaitement !

Je marque donc ce post comme résolu

merci de ton aide
Franck