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;
------------------------------------------------------------
お礼
バージョン等未記入の件、申し訳ありませんでした。 前回つい書かずに質問したら、すぐに回答が帰ってきたので、 書かなくてもいいか…と、甘えてしまいました。 よくないですよね。 ちなみに6のダウンロード(フリー)版です。 そうです、それです。 どうもありがとうございます。 まだ構文に慣れてなくて、何をどう見ていいんだかつかめずにいます。 今作業しているものが完成したら、何となくdelphiでいけそうだ、と自信もついて、 購入に踏み切れるのですが……。 ありがとうございました。