怎么将一个treeview中满足条件的结点的字体变成另外的颜色 ( 积分: 100 )

H

huangliang2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-08

• #1

怎么将一个treeview中满足条件的结点的字体变成另外的颜色

 

H

huangliang2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-08

• #2

怎么将一个treeview中满足条件的结点的字体变成另外的颜色

 

H

helloqiner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-08

• #3

使用标准的treeview恐怕无法达到你的要求。
可以考虑满足条件的结节换成其它图标，或文字用括号括起来。
不行的话只能换控件了。Virtual TreeView肯定可以实现

 

H

huangliang2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-08

• #4

一个系统已经成形,根本不能换控件

 

凝

凝铁衣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-08

• #5

可以写TreeView的OnCustomDrawItem事件
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if 条件满足 then
TreeView1.Canvas.Font.Color := clRed;
end;

 

H

huangliang2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-08

• #6

这样会把所有的字都改变颜色

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-08

• #7

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Node.Index mod 2 = 0 then begin
//DefaultDraw := False;
TreeView1.Canvas.Font.Color := clRed;
end
else
DefaultDraw := True;
end;
可以看到效果，只有奇数行的是变色的

 

J

jerrie_1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-08

• #8

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if node.Selected then
treeview1.Canvas.Font.Color :=clblue;
end;

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-08

• #9

uses
CommCtrl;

procedure SetNodeBoldState(Node: TTreeNode; Value: Boolean);
var
TVItem: TTVItem;
begin
if not Assigned(Node) then Exit;
with TVItem do
begin
mask := TVIF_STATE or TVIF_HANDLE;
hItem := Node.ItemId;
stateMask := TVIS_BOLD;
if Value then state := TVIS_BOLD
else
state := 0;
TreeView_SetItem(Node.Handle, TVItem);
end;
end;

// Example: Make the first node bold.
// Beispiel: Erster Eintrag fett machen.

procedure TForm1.Button1Click(Sender: TObject);
begin
SetNodeBoldState(TreeView1.Items[0], True);
end;

 

H

hxb---

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-08

• #10

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if 满足条件 then
TreeView1.Canvas.Font.Color := clRed
else TreeView1.Canvas.Font.Color := clWindowText;
end;
这样应该可以，给分吧

 

G

gaaa1113

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-08

• #11

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if 条件满足 then
TreeView1.Canvas.Font.Color := clRed;
end;

 

H

huangliang2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-08

• #12

接受答案了.