5,930
社区成员
发帖
与我相关
我的任务
分享TTreeView 控件新bug，有誰遇到過？？不妨進來看看，說不定你忽略了呢!!!
本人通過TTreeView的OnCustomDrawItem事件改變每一個Node的Font的Color,代碼如下
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
case StrToInt(Node.Text) of
1:Sender.Canvas.Font.Color := clRed;
11:Sender.Canvas.Font.Color := clBlue;
12:Sender.Canvas.Font.Color := clBlue;
2:Sender.Canvas.Font.Color := clRed;
21:Sender.Canvas.Font.Color := clBlue;
22:Sender.Canvas.Font.Color := clBlue;
end;
end;
編譯運行后，表面看上一切安好，Node上Font的Color已變，
如果你不停的在不同的Node上點來點去，我發現我的系統資源急劇下降，
最后系統崩潰，由80%->78->。。。->少于5%->崩潰,你遇到過嗎？？？我被這個Bug害死了!!
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
case StrToInt(Node.Text) of
1:Sender.Canvas.Font.Color := clRed;
11:Sender.Canvas.Font.Color := clBlue;
12:Sender.Canvas.Font.Color := clBlue;
2:Sender.Canvas.Font.Color := clRed;
21:Sender.Canvas.Font.Color := clBlue;
22:Sender.Canvas.Font.Color := clBlue;
end;
end;
編譯運行后，表面看上一切安好，Node上Font的Color已變，
如果你不停的在不同的Node上點來點去，我發現我的系統資源急劇下降，
最后系統崩潰，由80%->78->。。。->少于5%->崩潰,你遇到過嗎？？？我被這個Bug害死了!!
...全文
请发表友善的回复…
发表回复
linghuchonglzq2000 2003-02-27
- 打赏
- 举报
呵呵
largewang 2003-01-14
- 打赏
- 举报
我试过了，没问题呀。（我用的是D7）
Hqing 2003-01-14
- 打赏
- 举报
Delphi 5 有問題
