How can I change brush color in DBGrid?

[Milsa]

This is my code from Delphi in DBGridDrawColumnCell (it works):

Code: Pascal  [Select][+][-]

1. (Sender as TDBGrid).Canvas.Brush.Color := clGray;

But in Lazarus doesn't works.

[wp]

The event for changing canvas properties in descendants of TCustomGrid is OnPrepareCanvas:

Code: Pascal  [Select][+][-]

1. procedure TForm1.DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
2.   Column: TColumn; AState: TGridDrawState);
3. begin
4.   if odd(TDBGrid(Sender).DataSource.Dataset.RecNo) then    // NOTE: RecNo is not available for all dataset types!
5.     TDBGrid(Sender).Canvas.Brush.Color := clSilver;
6.   if DataCol = 0 then   // or: if Column.Index = 0 then
7.     TDBGrid(Sender).Canvas.Font.Style := [fsBold];
8. end;