Aquí tienes un ejemplo:
Código:
procedure TfrConClientes.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if DmVil.CliBaja.Value = True then
begin
DBGrid1.Canvas.Brush.Color :=clInfobk;
Dbgrid1.Canvas.Font.Style:=[fsBold];
DBGrid1.Canvas.Font.Color:=ClBlack;
DBGrid1.DefaultDrawColumnCell(Rect,Datacol,Column,State);
end;
end;
Un Saludo.