TTreeView 控件新bug，有誰遇到過？？不妨進來看看，說不定你忽略了呢!!!

Question

本人通過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害死了!!

Answer 1

我试过了，没问题呀。（我用的是D7）