Delphi / C ++ Builder-在TDBGrid中设置活动/选定的行颜色

Question

我想在TDBGrid控件中设置活动/选定行的背景色。

使用OnDrawColumnCell事件：

1）如果DBGrid具有dgMultiSelect选项，则以下代码将起作用，如果没有，则什么也不会发生：

if ( grid->SelectedRows->CurrentRowSelected ) {
    grid->Canvas->Brush->Color = clBlue;
} 

2）如果DBGrid具有dgRowSelect选项，则下面的代码将起作用，否则，将仅对选定的CELL而不是整个行进行着色：

if ( State.Contains(gdSelected) ) {
    grid->Canvas->Brush->Color = clBlue;
} 

如何在不使用dgRowSelect或dgMultiSelect的情况下为整个活动/选定的行着色？

Answer 1

从OnDrawColumnCell ：

OnDrawColumnCell事件处理程序可以调用DefaultDrawColumnCell方法，以指示数据感知网格将数据值写入单元格中。

像这样使用DefaultDrawColumnCell 。 这是Delphi代码，但您可以轻松地将其转换。

procedure TForm1.DBGridDrawColumnCell(Sender: TObject;const Rect: TRect; 
DataCol: Integer; Column: TColumnEh;State: TGridDrawState);
begin
.....    
  DBGrid.Canvas.Brush.Color := clBlue;
  DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);
....

更新资料

如何在不设置dgRowSelect或dgMultiSelect的情况下绘制DBGrid活动行。

1. 我们需要获得当前行的最高位置。

定义一个继承TDBGrid的类以使CellRect，Col和Row公开：

type
  TMyDBGrid = class(TDBGrid)
  public
    function CellRect(ACol, ARow: Longint): TRect;
    property Col;
    property Row;
  end;

function TMyDBGrid.CellRect(ACol, ARow: Longint): TRect;
begin
  Result := inherited CellRect(ACol, ARow);
end;

现在我们可以检查OnDrawColumnCell事件中当前单元格的顶部：

procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

var Col,Row : Integer;
begin
  col := TMyDbGrid(DBGrid1).Col;
  row := TMyDbGrid(DBGrid1).Row;
  if (Rect.Top = TMyDBGrid(DBGrid1).CellRect(Col,Row).Top) and
                   (not (gdFocused in State) or not Focused) then
    DBGrid1.Canvas.Brush.Color := clBlue;

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