Текущий архив: 2002.10.21;
Скачать: 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 вся ветка
Текущий архив: 2002.10.21;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.019 c
