[ecfisa]

Hola mcsebas.

Sabes que probe en Lazarus el ejemplo en donde el metodo FillRect usa el HBRUSH pero en Delphi me causa problemas. ¿Que podrá ser?

No se el problema ni la versión de Delphi que usas, pero podrías probar con:

Código Delphi [-]
 FillRect(Grid.Canvas.Handle, R,  0);

o también con:

Código Delphi [-]
Grid.Canvas.FillRect(Rect);

...habrá una forma de que NO sea centrado horizontalmente.

Sólamente quitá la constante de formato de centrado que no desees:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  R: TRect;
  Grid: TDBGrid;
begin
  R:= Rect;
  Grid:= TDBGrid(Sender);
  FillRect(Grid.Canvas.Handle, R,  0); // o Grid.Canvas.FillRect(Rect);
  DrawText(Grid.Canvas.Handle, PChar(Column.Field.AsString),-1, R, DT_SINGLELINE or
           DT_VCENTER ); // Centrado vertical
end;

Saludos