DBGrid с цветными ячейками 3

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

C цветом ячейки DBGrid не так все просто, ведь в Delphi 1.0 разукрасить ячейку можно в обработчике события OnDrawDataCell, тогда как в Delphi 2.0 вам придется прибегнуть к событию OnDrawColumnCell. Для того чтобы создать код, который бы работал в ОБОИХ версих Delphi, вам необходимо прибегнуть к механизму условной компиляции, с помощью которого вы можете СКРЫТЬ обработчик OnDrawColumnCell в Delphi 1.0 и ВКЛЮЧИТЬ его в Delphi 2.0. Вот пример, в котором все ячейки строки рисуются красным, если колонка 'Preferred' содержит 'True':

...
private
{ Private declarations }
{$IFDEF Win32}

procedure DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
{$ENDIF}
  procedure DrawField(const Value: string; const Rect: TRect;
    vCanvas: TCanvas; vFont: TFont; vAlignment: TAlignment);
    ...
      procedure TForm1.DrawField(const Value: string; const Rect: TRect;
      vCanvas: TCanvas; vFont: TFont; vAlignment: TAlignment);
    var
      X: Integer;
    begin
      vCanvas.Font := vFont;
      vCanvas.Font.Color := clRed;
      vCanvas.Font.Style := vCanvas.Font.Style + [fsUnderline];
      case vAlignment of
        taRightJustify:
          begin
            SetTextAlign(vCanvas.Handle, TA_RIGHT);
            X := Rect.Right - 2;
          end;
        taLeftJustify:
          begin
            SetTextAlign(vCanvas.Handle, TA_LEFT);
            X := Rect.Left + 2;
          end;
        taCenter:
          begin
            SetTextAlign(vCanvas.Handle, TA_CENTER);
            X := (Rect.Right + Rect.Left) div 2;
          end;
      end;
      vCanvas.TextRect(Rect, X, Rect.Top + 2, Value);
      SetTextAlign(vCanvas.Handle, TA_LEFT);
    end;

    procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect:
      TRect; Field: TField; State: TGridDrawState);
    begin
      with Sender as TDBGrid, DataSource.DataSet do
      begin
        if FieldByName('Preferred').AsString <> 'True' then
          Exit;
        DrawField(Field.DisplayText, Rect, Canvas, Canvas.Font,
          Field.Alignment);
      end;
    end;

  {$IFDEF Win32}
    procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TColumn;
      State: TGridDrawState);
    begin
      with Sender as TDBGrid, DataSource.DataSet do
      begin
        if FieldByName('Preferred').AsString <> 'True' then
          Exit;
        DrawField(Column.Field.DisplayText, Rect, Canvas,
          Column.Font, Column.Alignment);
      end;
    end;
  {$ENDIF}

    procedure TForm1.FormCreate(Sender: TObject);
    begin
  {$IFDEF Win32}
      DBGrid1.OnDrawDataCell := nil;
      DBGrid1.OnDrawColumnCell := DBGrid1DrawColumnCell;
  {$ENDIF}
    end;

Статья обсуждает, как окрашивать ячейки в DBGrid в Delphi, используя события OnDrawDataCell и OnDrawColumnCell.

Приведенный код - пример создания процедуры рисования для ячеек в DBGrid. Цель - сделать все ячейки в конкретной колонке красными, если значение в этой ячейке равно 'True' для поля 'Preferred'.

Разбивка кода:

1. Класс TForm1 имеет две процедуры: DrawField и DBGrid1DrawDataCell. DrawField - вспомогательная функция для рисования текста на канвасе с настройками (шрифт, цвет, выравнивание). DBGrid1DrawDataCell - фактическая процедура рисования ячеек в DBGrid.
2. В DBGrid1DrawDataCell проверяется, если значение поля 'Preferred' не равно 'True', и если так, то процедура бездействует.
3. Если значение равно 'True', вызывается DrawField с текстом отображения ячейки, прямоугольником ячейки, канвасом DBGrid, шрифтом колонки и выравниванием колонки.

4. Статья также предоставляет пример использования условной компиляции для обеспечения работы кода в обеих версиях Delphi 1.0 и Delphi 2.0. В Delphi 1.0 событие OnDrawColumnCell не доступно, поэтому используется дummies-процедура для этой версии. Преимущества этого подхода:

5. Кастомное рисование позволяет иметь больше контроля над отображением ячеек в DBGrid.

6. Условная компиляция обеспечивает работу кода в обеих старых и новых версиях Delphi.
7. Функция DrawField может быть переиспользована в других частях приложения, если необходимо.

Однако стоит отметить, что этот подход может не подходить для всех ситуаций. Например, если вам нужно рисовать сложные формы или изображения в ячейках, может потребоваться болееadvanced подход. Кроме того, использование условной компиляции может сделать код труднее для поддержки и чтения.

В современных версиях Delphi (XE2 и позднее) можно использовать событие OnDrawColumnCell напрямую без необходимости использования условной компиляции.

В статье рассматривается вопрос о том, как создать в Delphi 3 DBGrid с цветными ячейками, и предлагается пример кода для реализации этой задачи.

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

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

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