Как извлечь и отобразить иконки из ImageList в ListView с помощью OwnerDraw в Delphi

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

Как извлечь и отобразить иконки из ImageList в ListView с помощью OwnerDraw в Delphi

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

Описание проблемы

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

Пример кода, вызывающего проблему

procedure TForm2.ListView1DrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
var
  x, y, i, w, h: integer;
begin
  // Код для рисования текста элементов, но без рисования иконок
end;

Подтвержденный ответ

Для решения проблемы необходимо добавить в процедуру ListView1DrawItem код для рисования иконок из ImageList. Вот пример такой процедуры:

procedure DrawListViewItem(ListView: TListView; Item: TListItem; Rect: TRect;
  State: TOwnerDrawState; SelectedBrushColor, SelectedFontColor, BrushColor, FontColor: TColor);
var
  x, y, i, w, h, iw, ih: integer;
begin
  with ListView do
  begin
    // Код для рисования фона элемента
    if Assigned(SmallImages) then
    begin
      iw := SmallImages.Width;
      ih := SmallImages.Height;
      x := Rect.Left + 1;
      if Item.ImageIndex > 0 then
        SmallImages.Draw(Canvas, Rect.Left + x, Rect.Top + (h - ih) div 2, Item.ImageIndex);
      x := x + iw + 2;
    end
    else
    begin
      iw := 0;
      ih := 0;
      x := Rect.Left + 1;
    end;
    // Код для рисования текста элемента
  end;
end;

procedure TForm1.ListView1DrawItem(Sender: TCustomListView; Item: TListItem; Rect: TRect; State: TOwnerDrawState);
begin
  DrawListViewItem(ListView1, Item, Rect, State, clRed, clWhite, ListView1.Color, ListView1.Font.Color);
end;

В данном примере добавлена логика для рисования иконок, причем код для этого действия вынесен в отдельную функцию DrawListViewItem, что делает его более переиспользуемым и упрощает поддержку. Также в примере исправлена ошибка с использованием свойства Pen.Color, которое не имеет влияния на отображение элемента, и предполагается, что разработчик хотел изменить цвет текста, поэтому используется Font.Color.

Альтернативный ответ и комментарии

В контексте заданного вопроса присутствуют некоторые неоднозначности, например, указание на Delphi-7 и одновременно упоминание FireMonkey, что может вызвать путаницу. Однако предоставленный код является чистым VCL кодом, который должен работать в Delphi 7.

Заключение

Для отображения иконок из ImageList в ListView с использованием OwnerDraw в Delphi, необходимо модифицировать процедуру ListView1DrawItem, добавив в нее логику для рисования иконок. Приведенный выше пример демонстрирует, как это можно сделать, и является подтвержденным решением описанной проблемы.

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

Вопрос связан с программированием в Delphi, где необходимо настроить отображение иконок из `ImageList` в элементах `ListView` с использованием режима `OwnerDraw`.

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

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

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