Centrar texto en una fila de un DBGRID

[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?
Ahora usando el otro método perfecto ahora habrá una forma de que NO sea centrado horizontalmente.

Gracias

[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

[mcsebas]

Me olvide decirte que utilizo Delphi XE5 pero haciendo bien el testeo me da un error de access violation en el metodo DRAWTEXT.
Ahora si que no se como solucionarlo

[mcsebas]

Sabes que lo pude solucionar como no me voy a dar cuenta de que me faltaba llenar todas las columnas del DBGRID .... suele pasar que algunas veces uno se olvida ciertas cosas que son tan insignificantes pero que te joden el proyecto en fin.

Gracias