hey,
i have use this code in TsDBCTRLGRID with PaintPanel event but color dont work , but same code with normal TDBCTRLGRID it's work parfect .
// CREP = TsDBCTRLGRID ; number of the row = 4 and col = 4
procedure Trepartiteur.CREPPaintPanel(DBCtrlGrid: TsDBCtrlGrid;
Index: Integer);
var
r: TRect;
begin
r := Rect(0,0,CREP.PanelWidth-4,CREP.PanelHeight-4);
// color panel
if CREP.DataSource.DataSet.FieldByName('Is_free').AsBoolean then
CREP.Canvas.Brush.Color := $0088FF88
else
CREP.Canvas.Brush.Color := clBtnFace;
// paint panel
CREP.Canvas.FillRect(r);
//
if CREP.PanelIndex = Index then
CREP.Canvas.DrawFocusRect(r);
end;