5,388
社区成员
发帖
与我相关
我的任务
分享
1 procedure cxDBTreeList1GetNodeImageIndex(Sender:TcxCustomTreeList; ANode: TcxTreeListNode; AIndexType:
2
3 TcxTreeListImageIndexType; var AIndex: TImageIndex);
4 var
5 i :Integer;
6 begin
7 //给树结点加上图标
8 for i := 0 to ANode.ValueCount do
9 begin
10 if ANode.Level = 0 then
11 begin
12 ANode.ImageIndex := 0;
13 end
14 else
15 if ANode.Level = 1 then
16 begin
17 ANode.ImageIndex := 2;
18 end
19 else
20 if ANode.Level = 2 then
21 begin
22 ANode.ImageIndex := 1;
23 end;
24 end;
25 end;
GetNodeImageIndex(Sender: TObject;ANode: TcxTreeListNode; AIndexType: TcxTreeListImageIndexType;var AIndex: TImageIndex);
//anode为当前节点
//AIndexType为图表类型
//ImageIndex为图标索引
begin
if AIndexType=tlitImageIndex then
begin
AIndex :=0;
end
else if AIndexType=tlitSelectedIndex then
begin
AIndex :=1;
end;
end;