"Использование иконок в ListView с vsReport: решение ошибки 'List index out of bounds (2)' в Delphi"

Delphi , Графика и Игры , Компоненты и Графика

Для начала, давайте разберемся с поставленной задачей. Нам необходимо написать статью на русском языке о том, как расширить код для отображения иконок в элементах списка ListView в режиме vsReport в Delphi, а также решить проблему ошибки 'List index out of bounds (2)', которая возникает при наличии трех колонок. В контексте уже содержится решение проблемы, которое мы должны описать.

Название статьи:

Использование иконок в ListView с vsReport: решение ошибки 'List index out of bounds (2)' в Delphi

Введение

В данной статье мы рассмотрим, как можно улучшить визуальное представление элементов списка в режиме vsReport для компонента TListView в среде разработки Delphi. Мы научимся рисовать маленькие иконки внутри элементов списка и решим проблему с ошибкой 'List index out of bounds (2)', которая может возникать при неправильном обращении к подэлементам.

Шаг 1: Подготовка

Для начала работы нам понадобится создать новый битмап, который будет использоваться в качестве шаблона для иконок. Пример создания битмапа:

type
  TForm1 = class(TForm)
    ...
  private
    bm: TBitmap;
    ...
  end;

...

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  bm := TBitmap.Create;
  bm.LoadFromFile('C:\path\to\your\icon.bmp');
end;

Шаг 2: Обработка события DrawItem

Далее, нам необходимо обработать событие DrawItem для компонента ListView. Это позволит нам переопределить способ отображения элементов списка.

procedure TForm1.ListView1DrawItem(Sender: TCustomListView; Item: TListItem;
  Rect: TRect; State: TOwnerDrawState);
var
  i, x1, x2: Integer;
  r: TRect;
begin
  // Здесь код для рисования элементов списка с иконками
end;

Шаг 3: Исправление ошибки 'List index out of bounds (2)'

В контексте уже упоминается, что если у вас три элемента, первый хранится в Caption, а остальные два — в SubItems[0] и SubItems[1]. Важно учитывать это при работе с подэлементами.

Шаг 4: Рисование иконок

Используем созданный битмап для рисования иконок внутри элементов списка. Пример кода:

procedure TForm1.ListView1DrawItem(Sender: TCustomListView; Item: TListItem;
  Rect: TRect; State: TOwnerDrawState);
var
  i, x1, x2: Integer;
begin
  Sender.Canvas.Brush.Style := bsClear;
  Sender.Canvas.Draw(3, r.Top + (r.Bottom - r.Top - bm.Height) div 2, bm);
  // Остальной код...
end;

Шаг 5: Цветовая индикация состояния элемента

Для изменения цвета строки в зависимости от текста подэлемента, можно использовать следующий код:

if Item.SubItems[2]='Done' then
begin
  Sender.Canvas.Brush.Color := clGreen;
end
else
begin
  Sender.Canvas.Brush.Color := clRed;
end;

// Перерисовка фона всего ряда
Sender.Canvas.FillRect(Rect);

Заключение

В данной статье мы рассмотрели, как добавить иконки в элементы списка ListView с режимом vsReport, а также исправили ошибку 'List index out of bounds (2)', связанную с неправильным доступом к подэлементам. Используя примеры кода на Object Pascal, мы продемонстрировали практический подход к решению поставленных задач.

При написании статьи были использованы материалы из контекста, где уже было представлено рабочее решение проблемы с рисованием иконок в ListView. Ошибка 'List index out of bounds (2)' была объяснена и исправлена через понимание структуры хранения данных элементов списка.

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

Объяснение заполнения шаблона изображений для отображения иконок в TListView с vsReport Delphi при решении ошибки доступа к несуществующим подэлементам.

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

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

:: Главная :: Компоненты и Графика ::