Освобождение памяти. И перерисовка Tcolumn.

[Володимир Антонашко]

Здраствуйте.

В программе я заполняю Tgrid изображениями из Imagelist по имени фото который есть в ячейке . Код :

  if column.index = 8 then    //Загрузка картинок.
    if not value.IsEmpty then
      begin
        column.BeginUpdate;
        i:=StrToInt(maingr.Cells[column.Index,row]);
        imageindex:=main_form.ImageList1.Source.IndexOf(IntToStr(i));
        column.Canvas.Clear(RowColor.Color);
        main_form.ImageList1.draw(column.Canvas,bounds,imageindex,100);
        column.EndUpdate;
      end;

Если я уберу очистку канвы то изображения накладуються. А так как есть следующий раз при вызове DrawColumnCell изображение остается только в последней записи.

Но такой код в  процедуре SelectCell нормально отображает изображение. На каждый вызов. Даже если изображение в ячейке нету.

if acol = 8 then
  begin
          i:=maingr.Cells[Acol,Arow];
          imageindex:=main_form.ImageList1.Source.IndexOf(i);
          imageviewer1.Bitmap.Clear(TAlphaColors.Null);
          imageviewer1.Bitmap:=main_form.ImageList1.Bitmap(size,imageindex);
	end;

И по поводу памяти. Как я понял, после того как я присвою изображение ячейке, оно загружается в память. Также когда отображается в ImageViewer.

Но после удаления строки с изображениям, память остается занята для уже использованных изображений.  То есть при повторном показе память больше не занимается и используется изображение которое было ранее загружено. Думаю это нормальное поведение. Так увеличивается скорость работы программы. Но я собираюсь показывать до 50 фотографий одновременно (средний размер 1мб) из 5-10 тисяч. И мне нужно чтоб после использования изображений память очищалась, иначе программа будет кушать под 10гб оперативной памяти.

[Володимир Антонашко]

Я тут подумал.. Что может я выбрал неправильный путь. Может лучше вообще не загружать все через imagelist? Может в drawcolumncell прописать загрузку напрямую из файла. Но тут проблема что интернете нету толком инструкций как пойти напрямую. Может у кого-то завалялся подходящий кусок кода?

[krapotkin]

вы представляете что будет если на каждую отрисовку ячейки лазить в файл?

[Володимир Антонашко]

Представляю.. Я вчера попробовал. Клиенту нужен в таком случае ssd и мощное железо. Да.. Вариант плохой. Есть идеи как организовать по другому.

[krapotkin]

у вас есть колонки типа TGlyphColumn и свойство Image у грида

если просто писать в Cell[x,y] номерок, то картинки из ImageList выводятся сами, ничего больше делать не надо

[Володимир Антонашко]

У меня на версии berlin так работать не хочет. А точнее изображение  выводиться. Но только с индексом 0.

Изменено 21 апреля, 2017 пользователем Володимир Антонашко

[Володимир Антонашко]

Может дело в том что я колонке glyphcolumn пробую присвоить string?

[krapotkin]

замечательно работает. я специально проверил. присваивается стринг

скриншот ImageList приведите 

[Володимир Антонашко]

Извиняюсь. Действительно все правильно работает. У меня ошибка была в другом месте. Но проблема с памятью осталась. Использование всего трех фотографий по 1мб заняли аж 10мб ОЗУ. Мне нужно найти способ освобождать память после удаление фотографий из  stringgrid.

[krapotkin]

а как на мобиле! в гриде! оказались такие фотомонстры?

[RoschinSpb]

При первой загрузке фотографии уменьшайте её до адекватных размеров допустим 64x64. Полученную миниатюру добавляйте в ImageList. Для сокращения использования памяти присвойте свойству Dormant значение True. Увеличте значение CacheSize, так, чтобы оно было немного больше количества одновременно видимых картинок.