Использование чекбоксов вместо подписей в DBGrid в Delphi 10.1

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

В данной статье мы рассмотрим вопрос добавления чекбоксов в первой колонке компонента DBGrid в приложениях, разработанных с использованием Delphi 10.1. При этом основное внимание будет уделено решению проблемы отображения подписей "True" или "False" вместо чекбоксов.

Проблема

Пользователь столкнулся с проблемой, когда при добавлении чекбокса в первую колонку компонента DBGrid в Delphi 10.1, вместо ожидаемого отображения чекбокса, в колонке отображается текст "True" или "False". Это происходит из-за того, что по умолчанию DBGrid использует свойство DefaultDrawing для отображения значений полей.

Решение

Для решения проблемы необходимо отключить стандартное отображение значений полей в DBGrid, установив свойство DefaultDrawing в значение False. Это позволит отобразить только чекбоксы без дополнительных подписей. Пример кода для обработчика события OnDrawColumnCell выглядит следующим образом:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
    DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Column.Field.DataType = ftBoolean then begin
    dbGrid1.Canvas.FillRect(Rect);
    if VarIsNull(Column.Field.Value) then
      DrawFrameControl(dbGrid1.Canvas.Handle, Rect, DFC_BUTTON,
        DFCS_BUTTONCHECK or DFCS_INACTIVE) // серый чекбокс
    else
      DrawFrameControl(dbGrid1.Canvas.Handle, Rect, DFC_BUTTON,
        CtrlState[Column.Field.AsBoolean]); // чекбокс отмечен или нет
  end
  else begin
    DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);
  end;
end;

Также в обработчике создания формы необходимо установить свойство DefaultDrawing в False:

procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.Options := DBGrid1.Options + [dgEditing];
  DBGrid1.DefaultDrawing := False;
  // Инициализация данных для DBGrid
end;

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

Существует альтернативный способ решения проблемы - установка свойства DisplayValues поля в пустую строку. Это позволит отобразить чекбокс без дополнительного текста. Пример кода для поля типа TField:

TField.DisplayValues := '';

Или, если необходимо, можно изменить отображаемый текст, например, на "Да" и "Нет":

TField.DisplayValues := 'Да;Нет';

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

Установка свойства DefaultDrawing компонента DBGrid в значение False позволяет отобразить чекбоксы без текста "True" или "False". Это подтверждается примером кода, приведенным выше.

Альтернативный ответ в действии

Если вы не хотите редактировать чекбоксы напрямую через DBGrid, можно использовать указанные выше подходы. Однако, если требуется полная поддержка чекбоксов с возможностью редактирования, рекомендуется обратиться к специализированным решениям, например, к сторонним компонентам для DBGrid, поддерживающим чекбоксы и редактирование.

Заключение

В данной статье были рассмотрены два метода добавления чекбоксов в колонки DBGrid в Delphi 10.1: изменение свойства DefaultDrawing и установка свойства DisplayValues поля в пустую строку. Эти методы позволяют избавиться от нежелательных подписей "True" или "False" и отобразить только чекбоксы.

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

В статье обсуждается проблема отображения чекбоксов вместо текста 'True' или 'False' в первой колонке компонента DBGrid в Delphi 10.1 и предлагаются способы её решения.

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

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

:: Главная :: TDBGrid ::