Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.032 c
6-68891
BAHO
2002-08-16 03:27
2002.10.21
Прокси клиент/сервер


3-68666
dias
2002-09-30 18:48
2002.10.21
Проблема с доступом к БД Paradox в сети


14-68987
Beglec
2002-09-28 21:54
2002.10.21
Где можно СКАЧАТЬ Delphi 7.0


3-68623
sasha123
2002-09-27 08:44
2002.10.21
Подскажите метод преобразования CSV файла в DBF.


3-68633
User0
2002-09-27 17:39
2002.10.21
Обновление данных у всех клиентов невозможно ???





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский