Создание и управление чекбоксами в TListView с OwnerData=True в Delphi 10.3.3

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

Вопрос пользователя заключается в том, что при попытке отобразить чекбоксы в компоненте TListView с OwnerData=True в Delphi 10.3.3, чекбоксы не отображаются. Пользователь предоставил минимальный пример кода, который он использовал, и просит предложить рекомендуемый подход или обходной путь для эффективного решения проблемы.

Проблема

Внутренняя реализация чекбоксов в компоненте TListView использует список изображений состояний, который не поддерживается в виртуальном режиме (OwnerData=True) компонента. Это означает, что для отображения чекбоксов необходимо использовать альтернативный подход.

Решение

Для решения этой проблемы можно использовать один из двух подходов:

1. Владец-рисование элементов списка (OwnerDraw), при котором чекбоксы рисуются вручную на элементах списка.
2. Использование TImageList, в который добавляются изображения чекбоксов, и назначение этого списка изображений свойству SmallImages компонента TListView. Затем, в обработчике события OnData, для каждого элемента списка устанавливается свойство ImageIndex.

Пример кода

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView1.ViewStyle := vsReport;
  ListView1.OwnerData := True;
  ListView1.StateImages := VirtualImageList1; // Укажите свой VirtualImageList для чекбоксов
  // Инициализация данных и списка изображений
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  Item.Caption := 'Item ' + IntToStr(Item.Index + 1);
  Item.ImageIndex := MyData[Item.Index].FChecked ? 1 : 0; // Установка индекса изображения для чекбокса
  Item.Checked := MyData[Item.Index].FChecked; // Это свойство не будет отображаться, но сохраняет состояние
end;

// Обработка нажатий на чекбоксы можно реализовать в обработчике события TListViewMouseDown

Альтернативное решение

Пользователь Xel Naga предложил следующий вариант решения, который включает в себя как изменение свойств TListView, так и обработку событий для изменения состояния чекбокса:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView1.ViewStyle := vsReport;
  ListView1.OwnerData := True;
  ListView1.OwnerDraw := False;
  ListView1.CheckBoxes := False;
  ListView1.StateImages := VirtualImageList1; // Необходимо инициализировать VirtualImageList1 заранее
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  Item.Caption := MyData[Item.Index].FColumn1;
  Item.SubItems.Add(MyData[Item.Index].FColumn2);
  if MyData[Item.Index].FChecked then
  begin
    Item.Checked := True;
    Item.StateIndex := 1; // Индекс изображения для чекнутого чекбокса
  end
  else
  begin
    Item.Checked := False;
    Item.StateIndex := 0; // Индекс изображения для нечекнуто чекбокса
  end;
end;

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  HitTestInfo: THitTests;
  Item: TListItem;
begin
  HitTestInfo := ListView1.GetHitTestInfoAt(X, Y);
  if (htOnStateIcon in HitTestInfo) then
  begin
    Item := ListView1.GetItemAt(X, Y);
    if Assigned(Item) then
    begin
      MyData[Item.Index].FChecked := not MyData[Item.Index].FChecked;
      ListView1.Items[Item.Index].Update;
    end;
  end;
end;

procedure TForm1.ListView1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = 32 then // нажата клавиша пробел
  begin
    if ListView1.ItemIndex > -1 then
    begin
      MyData[ListView1.ItemIndex].FChecked := not MyData[ListView1.ItemIndex].FChecked;
      ListView1.Items[ListView1.ItemIndex].Update;
    end;
  end;
end;

В этом примере кода необходимо убедиться, что VirtualImageList1 инициализирован и содержит изображения для чекбоксов. При изменении состояния чекбокса (через клик мыши или нажатие клавиши пробел), данные обновляются, и элемент списка перерисовывается.

Заключение

Используя один из предложенных подходов, можно успешно создать и управлять чекбоксами в компоненте TListView с OwnerData=True в Delphi 10.3.3. Важно правильно настроить список изображений и обработать события для корректного отображения и изменения состояния чекбоксов.

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

Пользователь столкнулся с проблемой отсутствия отображения чекбоксов в компоненте `TListView` с `OwnerData=True` в Delphi 10.3.3 и ищет рекомендации по решению этой проблемы.

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

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

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