VCL.TDBGrid - CustomDraw für selectierte Row?

[Delphi.Narium]

Geht sowas?

Delphi-Quellcode:

procedure TForm1.GridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
          sFieldname : String;
begin
  sFieldname := AnsiLowerCase(Column.Field.FieldName);
  if sFieldname = 'id' then begin
    if (Grid.DataSource.DataSet.FieldByName('id').AsInteger = Column.Field.AsInteger) then begin
      Grid.Canvas.Brush.Color := clFuchsia;
    end;
  end;
  // Det muss, sonst wird nix bunt.
  Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;