Mira este ejemplo que no tengo tiempo para más, a ver si te sirve:
Código:
procedure TfrFactAlbaranes.RejaDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If Column.FieldName='Marcado' then
Begin
Reja.Canvas.Brush.Color :=ClAqua;
Reja.Canvas.Font.Color:=ClRed;
Reja.Canvas.Font.Style:=([fsBold]);
Reja.DefaultDrawColumnCell(Rect,Datacol,Column,State);
end;
Un Saludo.