Как изменить цвет выделенной строки в tDBGrid в Delphi при dgRowSelect = false

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

Проблема

Многие разработчики сталкиваются с необходимостью изменить цвет выделенной строки в компоненте TDBGrid, когда свойство dgRowSelect установлено в false. По умолчанию TDBGrid не предоставляет простого способа для этого, так как стандартное поведение компонента не поддерживает выделение всей строки при dgRowSelect = false.

Решение

Существует несколько способов решить эту задачу. Рассмотрим наиболее эффективные из них.

Способ 1: Использование события OnDrawColumnCell

Самый простой способ - использовать событие OnDrawColumnCell для ручного рисования ячеек:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Grid: TDBGrid;
begin
  Grid := Sender as TDBGrid;

  if gdSelected in State then
  begin
    Grid.Canvas.Brush.Color := clHighlight;
    Grid.Canvas.Font.Color := clHighlightText;
  end
  else
  begin
    Grid.Canvas.Brush.Color := clWindow;
    Grid.Canvas.Font.Color := clWindowText;
  end;

  Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Способ 2: Создание кастомного компонента

Для более гибкого управления можно создать собственный класс, унаследованный от TDBGrid:

type
  TMyDBGrid = class(TDBGrid)
  protected
    procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;
  end;

procedure TMyDBGrid.DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);
var
  OldActive: Integer;
begin
  if (DataLink.Active) and (ARow >= 1) then
  begin
    OldActive := DataLink.ActiveRecord;
    try
      DataLink.ActiveRecord := ARow - 1;
      if DataLink.ActiveRecord = OldActive then
      begin
        Canvas.Brush.Color := clHighlight;
        Canvas.Font.Color := clHighlightText;
      end
      else
      begin
        Canvas.Brush.Color := clWindow;
        Canvas.Font.Color := clWindowText;
      end;
    finally
      DataLink.ActiveRecord := OldActive;
    end;
  end;
  inherited DrawCell(ACol, ARow, ARect, AState);
end;

Способ 3: Использование свойства SelectedRows

Альтернативный вариант - проверка текущей строки в коллекции SelectedRows:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Grid: TDBGrid;
begin
  Grid := Sender as TDBGrid;

  if Grid.SelectedRows.CurrentRowSelected then
  begin
    Grid.Canvas.Brush.Color := clHighlight;
    Grid.Canvas.Font.Color := clHighlightText;
  end
  else
  begin
    Grid.Canvas.Brush.Color := clWindow;
    Grid.Canvas.Font.Color := clWindowText;
  end;

  Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Заключение

Хотя стандартный TDBGrid не предоставляет встроенной поддержки для изменения цвета выделенной строки при dgRowSelect = false, существует несколько рабочих способов реализовать эту функциональность. Выбор конкретного метода зависит от требований вашего приложения и предпочтений разработчика.

Для простых случаев достаточно обработчика OnDrawColumnCell, в то время как для более сложных сценариев может потребоваться создание кастомного компонента. Все представленные решения работают в современных версиях Delphi и поддерживают стили VCL.

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

Статья описывает методы изменения цвета выделенной строки в компоненте TDBGrid в Delphi при отключенном свойстве dgRowSelect.

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

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

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