5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Sorder 2005-02-04
- 打赏
- 举报
var
p:trect;
begin
if cdsselected in state then
begin
with TreeView1 do
begin
Canvas.Font.Color:=clgreen;
Canvas.brush.Color:=$00A7A7A7;//clred;
p:=node.displayrect(true);
p.Left :=p.Left+2;
Canvas.FillRect(p);
Canvas.Textout(p.Left,p.Top,Node.Text);
Canvas.brush.Color:=clblue;
Canvas.FrameRect(p);//Node.displayrect(true));
end;
defaultdraw:=false;
end;
p:trect;
begin
if cdsselected in state then
begin
with TreeView1 do
begin
Canvas.Font.Color:=clgreen;
Canvas.brush.Color:=$00A7A7A7;//clred;
p:=node.displayrect(true);
p.Left :=p.Left+2;
Canvas.FillRect(p);
Canvas.Textout(p.Left,p.Top,Node.Text);
Canvas.brush.Color:=clblue;
Canvas.FrameRect(p);//Node.displayrect(true));
end;
defaultdraw:=false;
end;
