Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ListView, прорисовка по OnCustomDraw, Ошибка Out of system resources 
:(
    Опции темы
Lexicss
Дата 7.10.2010, 23:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 16.8.2006
Где: Беларусь, Минск

Репутация: нет
Всего: 1



Имеется динамический ListView. Item-ов много, под 2000. 
Однако проблема возникла когда включил прорисовку строчек цветом:
Код

procedure TCustomerTableForm.lwTableCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
         DefaultDraw := True;
         if (Sender as TListView).Color <> clYellow
         then begin
           inc(ij);  //для отладки
           Caption := IntToStr(ij); //для отладки
           (Sender as TListView).Canvas.Brush.Color := clYellow;
           (Sender as TListView).Canvas.FillRect(Item.DisplayRect(drBounds));
         end;
end;


Событие и соответсвенно сам код выше выполнется по любому движению при ListView. Всё окрашивается, однако со временем приложение начинает вести себя неадекватно и 
выдаёт исключение Out of system resources.
при отладке обратил внимание что такое происходит когда переменная ij достигает ij= 9881..9882.

Где здесь утечка памяти? Как этого избежать при окраске?


--------------------
Бери от жизни всё.
PM MAIL WWW ICQ Skype   Вверх
Snowy
Дата 8.10.2010, 12:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



Проверил на Delphi7.
Никаких утечек памяти, юзер и GDI объекты тоже в норме.
Когда ij достигла 50000, стало скучно, вырубил.
PM MAIL   Вверх
Lexicss
Дата 8.10.2010, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 16.8.2006
Где: Беларусь, Минск

Репутация: нет
Всего: 1



У меня Delphi5,
У Listview 
ViewStyle = vsReport
OwnerData = True

Форма(Form2) содержащая ListView не главная. Неадекватность проявляется тем что Счётчик ij = 9881 и прекращает наращиваться, шрифт текста в листвью вдруг становится жирным(но не всегда так). Однако свиду всё работает, двигаешь листвью, всё окрашивается. Но ВСЕ формы(и все другие формы из других  запущенных приложений прекращают перерисовываться). Закрываю форму Form2(caFree). Приложение своё не закрываю. При повторном запуске(создании) формы Form2  выскакиевает исключение OutOfSystemResources. И форма уже не появляется и при последующих попытках тоже, пока не перезапустишь само приложение.

Это сообщение отредактировал(а) Lexicss - 8.10.2010, 14:09
--------------------
Бери от жизни всё.
PM MAIL WWW ICQ Skype   Вверх
Snowy
Дата 8.10.2010, 16:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



Значит где-то создаются GDI объекты, но не освобождаются.
Но в этом коде проблем не вижу - тут всё чисто.
PM MAIL   Вверх
Lexicss
Дата 8.10.2010, 16:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 16.8.2006
Где: Беларусь, Минск

Репутация: нет
Всего: 1



Snowy,  Чтож всё же спасибо за мнение. Мож и вправду это глюк Delphi 5?
Притом слежу за оперативкой во время упорной прокрутки Listview. Особо не растёт. чутка подымается по 1-2 Мб в минуту.


--------------------
Бери от жизни всё.
PM MAIL WWW ICQ Skype   Вверх
RomanEEP
Дата 11.10.2010, 11:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 424
Регистрация: 18.5.2006
Где: Коломна

Репутация: 5
Всего: 8



можно использовать resource profiler, например встроенный в AQTime
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0882 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.