Скачать: CL | DM;

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]

>ultrasuper_asd ©

А в коде nikolab6 они (ресурсы) разве где-то занимаются??

---

← →
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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c