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;
------------------------------------------------------------

回答No.1

nag0720

LineToメソッドなどでCanvasに直接描くか、Bitmapを貼り付けてください。
ボタンだけでなく、関係を示す線も描く必要もあります。