請教各位高手,如何讓TreeView.Item 反白,謝謝.

FYI, create a CustomDrawItem for the treeview.

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
    if Node.Level>0 then with Sender.Canvas do begin
        Brush.Color := clYellow;
        FillRect(Node.DisplayRect(True));
    end;
end;

謝謝,如果要讓它 UnEnabled 如何設定. 

引言: FYI, create a CustomDrawItem for the treeview.

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
    if Node.Level>0 then with Sender.Canvas do begin
        Brush.Color := clYellow;
        FillRect(Node.DisplayRect(True));
    end;
end;

引言:謝謝,如果要讓它 UnEnabled 如何設定.

What do you mean by UnEnabled?

例如我加入十個 Item ,其中我要讓3 4 7 Item 反白Item像失效一樣,包括圖示.

引言:

引言:謝謝,如果要讓它 UnEnabled 如何設定.

What do you mean by UnEnabled?

發表人 - p786939 於 2002/11/19 12:39:32

引言:例如我加入十個 Item ,其中我要讓3 4 7 Item 反白Item像失效一樣,包括圖示.

Then you need to draw the item yourself as if it is 'disabled' and remember to set DefaultDraw to false for those items.

是否可以寫個範例示範一下,謝謝指教.

引言:

引言:例如我加入十個 Item ,其中我要讓3 4 7 Item 反白Item像失效一樣,包括圖示.

Then you need to draw the item yourself as if it is 'disabled' and remember to set DefaultDraw to false for those items.

To draw text in disabled color:

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
    ARect: TRect;
begin
    if Node.Level>0 then with Sender.Canvas do begin
        ARect := Node.DisplayRect(True);
        Font.Color := clGrayText;
        TextRect(ARect,ARect.Left 1,ARect.Top 1,Node.Text);
    end;
end;    procedure TForm1.TreeView1Editing(Sender: TObject; Node: TTreeNode;
  var AllowEdit: Boolean);
begin
    AllowEdit := (Node.Level=0);
end;

You may need to create a 'disabled' image on the fly for drawing and it is not a trivial task. You may also want to handle the OnExpanding and OnCollapsing events to make the nodes look like really disabled.

謝謝,我的Item 如何指定'disabled' image ,請指教.

引言: To draw text in disabled color:

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
    ARect: TRect;
begin
    if Node.Level>0 then with Sender.Canvas do begin
        ARect := Node.DisplayRect(True);
        Font.Color := clGrayText;
        TextRect(ARect,ARect.Left 1,ARect.Top 1,Node.Text);
    end;
end;    procedure TForm1.TreeView1Editing(Sender: TObject; Node: TTreeNode;
  var AllowEdit: Boolean);
begin
    AllowEdit := (Node.Level=0);
end;

You may need to create a 'disabled' image on the fly for drawing and it is not a trivial task. You may also want to handle the OnExpanding and OnCollapsing events to make the nodes look like really disabled.

引言:謝謝,我的Item 如何指定'disabled' image ,請指教.

If you're using TImageList, try this: ImageList1.Draw(Canvas,X,Y,Index,False);

謝謝,我不了解其中的用法,是否可以寫個範例示範一下,請指教.

引言:

引言:謝謝,我的Item 如何指定'disabled' image ,請指教.

If you're using TImageList, try this: ImageList1.Draw(Canvas,X,Y,Index,False);