DelphiのTreeViewでの+ボタンの出し方
WindowsXP、Delphi2009で開発しています。
TTreeViewのAdvancedCustomDrawItemで下記の様に動的にノードの描画を行っていますが、ノードを展開・折りたたみする際に使う+ボタンが表示できなくて困っています。
+ボタンを表示させる方法が分かる方、ご教示願います。
------------------------------------------------------------
procedure TForm3.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean);
var
Rect :TRect;
begin
defaultdraw := false;
Rect := Node.DisplayRect(True);
if Node.Selected = true then
begin
Sender.Canvas.Font.Color := clWhite;
end
else
begin
if Copy(Node.Text,pos('\',Node.Text) + 1, length(Node.Text)) = 'False' then
begin
Sender.Canvas.Font.Color := clWindowText;
end
else
begin
Sender.Canvas.Font.Color := clRed;
end;
end;
Sender.Canvas.TextOut(Rect.Left,Rect.Top,Copy(Node.Text,1,pos(',',Node.Text) - 1));
end;
------------------------------------------------------------
お礼
ご回答ありがとうございます。 ツリーの色替で対応させていただきました。 ありがとうございました。