Обработка события OnCustomDrawItem в ListView

Delphi , Компоненты и Классы , TListView

В статье рассмотрим вопрос реализации виртуального ImageList для TListView на примере Object Pascal (Delphi). Опишем, как динамически загружать изображения в ListView без существенного потребления памяти.

Введение

TListView — это удобный компонент для отображения списков данных в Delphi. Однако при работе с большим количеством изображений может возникнуть проблема с быстродействием и высоким потреблением памяти. В таких случаях может помочь виртуальный ImageList, который позволяет загружать изображения по требованию.

Решение с помощью CustomDrawItem

Одним из решений данной проблемы является использование события OnCustomDrawItem. Это событие вызывается, когда ListView готовится нарисовать элемент списка. В обработчике этого события можно загружать изображения динамически, не храня их в ImageList.

Рассмотрим пример кода, который демонстрирует реализацию виртуального ImageList с помощью CustomDrawItem:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  IconRect: TRect;
  Picture: TPicture;
begin
  if State = [] then Exit;
  case ListView1.ViewStyle of
    vsIcon, vsSmallIcon, vsReport:
      begin
        IconRect := Item.DisplayRect(drIcon);
        Picture := TPicture.Create;
        try
          Picture.LoadFromFile('D:\' + Item.Caption + '.jpg'); // Загружаем изображение из файла
          ListView1.Canvas.Draw(IconRect.Left, IconRect.Top, FilterPicture(Picture, Item.Selected, ListView1.Focused).Graphic);
        finally
          Picture.Free;
        end;
      end;
  end;
end;

function FilterPicture(Picture: TPicture; Selected, Focused: boolean): TPicture;
var
  PixelColor: TColor;
  X, Y: Integer;
begin
  Result := Picture;
  if not Selected then Exit;
  for X := 0 to Picture.Width - 1 do
  begin
    for Y := 0 to Picture.Height - 1 do
    begin
      PixelColor := Picture.Bitmap.Canvas.Pixels[X, Y];
      Picture.Bitmap.Canvas.Pixels[X, Y] :=
        specialize IfThen<TColor>(Focused, DecColor(PixelColor, $30), IncColor(PixelColor, $30));
    end;
  end;
end;

end.

В данном примере в обработчике события OnCustomDrawItem загружается изображение из файла по имени элемента списка (Item.Caption) и отображается в ListView. Также реализована функция FilterPicture, которая добавляет эффект выделения для выбранных элементов списка.

Альтернативное решение с использованием TImageList

Если все же необходимо использовать TImageList, но при этом минимизировать потребление памяти, можно воспользоваться следующим подходом:

1. Создайте TImageList с минимально возможным размером.
2. При загрузке изображения в ImageList, удаляйте предыдущее изображение, чтобы освободить память.
3. Используйте TImageList для отображения изображений в ListView.

Пример кода:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    ImageList1: TImageList;
    procedure ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ImageList1.HandleType := imHandle;
  ImageList1.PictureMode := pmBitmap;
  ImageList1.Transparent := True;
  ImageList1.ReadOnly := False;
  ImageList1.Images.LoadFromFile('D:\large.jpg'); // Загружаем изображение в ImageList
end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if State = [] then Exit;
  case ListView1.ViewStyle of
    vsIcon, vsSmallIcon, vsReport:
      begin
        Item.ImageIndex := 0; // Устанавливаем индекс изображения для текущего элемента списка
      end;
  end;
end;

end.

В данном примере при создании формы загружается изображение в ImageList, а в обработчике события OnCustomDrawItem устанавливается индекс изображения для текущего элемента списка. Таким образом, ListView будет использовать изображения из ImageList для отображения элементов списка.

Заключение

В данной статье были рассмотрены два подхода к реализации виртуального ImageList для TListView в Object Pascal (Delphi). Первый подход основан на использовании события OnCustomDrawItem и позволяет динамически загружать изображения без существенного потребления памяти. Второй подход использует TImageList и минимизирует потребление памяти путем удаления предыдущих изображений перед загрузкой новых.

Выбор подхода зависит от конкретных требований к приложению и может быть основан на таких факторах, как быстродействие, потребление памяти, простота реализации и т.д.

Создано по материалам из источника по ссылке.

Статья описывает реализацию виртуального ImageList для TListView на примере Object Pascal (Delphi), где рассматриваются методы динамической загрузки изображений в ListView без существенного потребления памяти.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TListView ::