Centrar texto en una fila de un DBGRID

[ecfisa]

Empezado por Neftali

Creo que eso es orientación vertical, no centrado vertical (que es lo que pide mcsebas).

De todas formas es interesante el código.
Guardado.

Sabes que creo que tenes razón...

mcsebas, la función Api DrawText hace muy simple centrar texto de forma vertical u horizontal.

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, HBRUSH(Grid.Color));
  DrawText(Grid.Canvas.Handle, PChar(Column.Field.AsString),-1, R, DT_SINGLELINE or
           DT_VCENTER or  // Centrado vertical
           DT_CENTER);    // Centrado horizontal
end;

Y tampoco es complicado usando los métodos de TCanvas:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Grd: TDBGrid;
  Str: string;
begin
  Grd:= TDBGrid(Sender);
  Str:= Column.Field.AsString;
  Grd.Canvas.FillRect(Rect);
  Grd.Canvas.TextRect(Rect,
    (Rect.Right + Rect.Left-Grd.Canvas.TextWidth(Str)) shr 1, // Centrado horizontal
    (Rect.Top + Rect.Bottom-Grd.Canvas.TextHeight(Str))shr 1, // Centrado vertical
    Str);
end;

Cualquiera de los dos hace bién la taréa, elegí el de tu gusto. Evité el uso de with para que el código resulte mas claro.

Saludos

[mcsebas]

Se pasaron son unos genios !!!
Graciaaaaaaaaaaaas!!!

[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