Как реализовать TListView с двумя чекбоксами для каждой строки в Delphi 2010

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

Вопрос, который стоит перед разработчиками, использующими компонент TListView в Delphi 2010, заключается в необходимости отображения чекбоксов в определённых столбцах. Стандартные настройки компонента позволяют включить чекбокс для всей строки, но если требуется, чтобы в каждой строке были чекбоксы в разных столбцах, например, в первом и втором, это не реализуется напрямую.

Для решения этой задачи можно использовать события OnCustomDrawItem и OnCustomDrawSubItem компонента TListView. Эти события позволяют нарисовать чекбокс в определённых подэлементах списка. Ниже приведён пример кода на Object Pascal, который демонстрирует, как это можно сделать.

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Item.Index = 0 then // Проверяем, что это первый столбец
  begin
    if ListView1.SubItems.Count >= 2 then // Убеждаемся, что есть второй подэлемент для чекбокса
    begin
      if ListView1.OwnerDraw = True then // Убедитесь, что включен режим owner draw
      begin
        with ListView1.Canvas do
        begin
          // Рисуем чекбокс для первого столбца
          Brush.Color := clHighlight;
          FillRect(ListView1.ItemRect(Item.Index, 0));
          if ListView1.SubItems[0].DataType = dtBoolean then
          begin
            if ListView1.SubItems[0].DataSetAsBoolean then
              DrawFocusRect(ListView1.ItemRect(Item.Index, 0));
          end;
        end;
      end;
      DefaultDraw := False; // Отменяем стандартное рисование
    end;
  end;
end;

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; SubItem: TListSubItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if SubItem.Index = 1 then // Проверяем, что это второй столбец
  begin
    if ListView1.OwnerDraw = True then // Убедитесь, что включен режим owner draw
    begin
      with ListView1.Canvas do
      begin
        // Рисуем чекбокс для второго столбца
        Brush.Color := clHighlight;
        FillRect(ListView1.SubItemRect(SubItem.Item.Index, SubItem.Index));
        if SubItem.DataType = dtBoolean then
        begin
          if SubItem.DataSetAsBoolean then
            DrawFocusRect(ListView1.SubItemRect(SubItem.Item.Index, SubItem.Index));
        end;
      end;
    end;
    DefaultDraw := False; // Отменяем стандартное рисование
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with ListView1 do
  begin
    OwnerDraw := True; // Включаем режим owner draw
    Style := vsReport; // Устанавливаем стиль отчёта
    ColumnClick := ListView1Click; // Привязываем обработчик событий кликов по столбцам
    // Настройка столбцов
    Columns.Clear;
    Columns.Add Caption:='Column 1'; Width:=100;
    Columns.Add Caption:='Column 2'; Width:=100;
  end;
end;

Перед использованием этих процедур, убедитесь, что у вас включен режим owner draw для TListView и что вы установили стиль отчёта (vsReport). Также, вы можете настроить внешний вид чекбоксов, изменяя цвета кистей и другие параметры рисования.

Дополнительное решение проблемы может быть реализовано через использование модифицированной версии компонента ExGridView, созданной Романом Мochаловым. Полные источники этой модификации, а также демонстрационный проект доступны для скачивания.

Напоминаем, что для корректной работы чекбоксов, данные в подэлементах списка должны быть типа dtBoolean. Это позволит корректно отображать состояние чекбокса (выделено или нет).

Этот метод позволяет достичь желаемого результата, аналогичного стандартному диалогу настроек безопасности файлов в Windows.

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

Задача по созданию TListView с двумя чекбоксами для каждой строки в Delphi 2010 требует использования событий `OnCustomDrawItem` и `OnCustomDrawSubItem` для рисования чекбоксов в определённых столбцах, что не предусмотрено стандартным функционалом компон

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

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

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