Centrar texto en una fila de un DBGRID

[ecfisa]

Hola mcsebas.

Centrar texto vertical es posible, pero de acuerdo a la longitud que tenga el campo que se visualiza en la celda puede ser inviable.
No hay un modo de ajustar el tamaño del font para "encajar" textos de longitudes variables en determinado tamaño y que quede presentable. Lo mas simple es fijar el alto a la máxima longitud que puede alcanzar. Esto se complica así, por que el texto se debe mostrar en sentido vertical y las celdas tendrían que ser excesivamente altas.

Con un campo corto y de longitud fija no existiría problema...(Si tu gusto no es muy exigente ). Como primera medida hay que extender el alto de las filas del TDBGrid para que el texto quepa en su nueva orientación. Podes aprovechar la estructura LOGFONT para rotar el texto y usar el evento OnDrawColumnCell para "dibujar" el texto vertical.

Te pongo un código de ejemplo que usa un TDBGrid asociado a la tabla orders de dbdemos.mdb que viene con Delphi para que puedas reproducirlo. La columna que se presenta con centrado vertical es la correspondiente al campo OrderNo:

Código Delphi [-]
...
implementation

const
  COLHEIGHT = 70;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TStringGrid(DBGrid1).DefaultRowHeight:= COLHEIGHT; 
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  LF: LOGFONT;
begin
  if Column.FieldName = 'OrderNo' then
    with Sender as TDBGrid do
    begin
      ZeroMemory(@LF, SizeOf(LF));
      lf.lfHeight:= Canvas.Font.Height ;
      lf.lfWidth:= Canvas.Font.Size;
      LF.lfEscapement:= 10 * 90;
      LF.lfCharSet:= DEFAULT_CHARSET;
      LF.lfFaceName:= 'Arial';
      Canvas.FillRect(Rect);
      Canvas.Font.Handle:= CreateFontIndirect(LF);
      Canvas.TextOut(Rect.Left+(Rect.Right-Rect.Left) shr 1 - LF.lfWidth,
        Rect.Bottom+LF.lfHeight,Column.Field.AsString);
    end;
end;
end.

La presentación es esta:


Saludos