Hello
You need to override TCustomGridEh.DrawEmptyAreaCell method
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MemTableDataEh, Db, DBGridEhGrouping, ADODB, GridsEh, DBGridEh,
MemTableEh, ToolCtrlsEh, DBGridEhToolCtrls, StdCtrls, Mask, DBCtrlsEh,
ObjectInspectorEh, SqlTimSt,
DBLookupEh, DynVarsEh, DBAxisGridsEh, EhLibVCL, Vcl.Grids, Vcl.DBGrids;
type
TDBGridEh = class(DBGridEh.TDBGridEh)
protected
procedure DrawEmptyAreaCell(ACol, ARow: Integer; ARect: TRect); override;
end;
TForm1 = class(TForm)
MemTableEh1: TMemTableEh;
DBGridEh1: TDBGridEh;
DataSource1: TDataSource;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TDBGridEh.DrawEmptyAreaCell(ACol, ARow: Integer; ARect: TRect);
var
AFillRect: TRect;
begin
AFillRect := ARect;
Canvas.Brush.Color := clRed;
Canvas.FillRect(AFillRect);
end;
....