Pomogite! TreeView/Draw. Pochemu procedura teriaet resource?

← →
nikolab6 (2002-10-11 00:06) [0]

Pochemu takaiua prostaia procedura teriaet resource? Kogda vikliuchaiu etu proceduru - vse normalno. Kogda ono rabotaet - resouce ochen bistro teriautsa.

{}procedure ...TreeView1CustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
NodeRect : tRect;
begin
with TreeView1.Canvas do begin
NodeRect := Node.DisplayRect(True);
case Node.Level of
0: Font.Color:=clMaroon;
1: Font.Color:=clNavy;
2: Font.Color:=clGreen;
else Font.Color:=clBlack;
end;
TextOut(NodeRect.Left, NodeRect.Top, Node.Text);
end;
end;{}

← →
¤NoNaMe¤ © (2002-10-11 00:35) [1]

Че-то я не понял, что теряется??

← →
ultrasuper_asd © (2002-10-11 00:38) [2]

если я правильно понял цель, то проще написать что-то вроде вот этого... и ресурсы останутся свободными...

procedure TForm1.tvCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Node.Level = 0
then tv.Canvas.Font.Color := clRed;
end;

← →
¤NoNaMe¤ © (2002-10-11 01:16) [3]

← →
nikolab6 (2002-10-11 02:21) [4]

Esli DefaultDraw:=true - kogda u tree 150-200 uzlov pri peredvijenie vverh/vniz Resource meter udet k nulu(0) GDI&System. S MemCheck proverial - net problemov s memory.
Ia konechno toje ne znaiu kuda devaiutsa resources.

Pomogite! TreeView/Draw. Pochemu procedura teriaet resource? Найти похожие ветки