Ajustar texto en campo TDBGridEh

[ecfisa]

Hola wilcg.

La respuesta de Caminante es la misma que te hubiera dado para un TDBGrid y en teoría tendría que funcionar. Tal vez el evento OnDrawDataCell no sea el adecuado para ese componente, podrías probar en evento OnDrawColumnCell(si lo tiene) con mínimos cambios:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  R: TRect;
begin
  with TDBGridEh(Sender) do
  begin
    R := Rect;
    Canvas.FillRect(R);
    DrawText(Canvas.Handle, @Column.Field.AsString[1], -1, R, DT_SINGLELINE + DT_END_ELLIPSIS);
  end;
end;

Sucede que no conozco el componente ni sus eventos habría que probar...

Saludos

[wilcg]

Bueno agradecer por sus aportes el código va quedando así:

Código Delphi [-]
procedure TFrCarpClientes.GridClientesDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
var
  R: TRect;
begin
  with TDBGridEh(Sender) do
  begin
    R := Rect;
    Canvas.FillRect(R);
    DrawText(Canvas.Handle, @Column.Field.AsString[1], -1, R, DT_SINGLELINE + DT_VCENTER + DT_END_ELLIPSIS);
  end;
end;

Y está funcionando bien, en principio el texto verticalmente quedaba aliniado en la parte superior del campo. he agregado DT_VCENTER y el texto ya está queda centrado. Ahora un detalle más ahora todos los campos Horizontalmente están aliniados a la izquierda del campo. como hago para dejarlo por defecto como estaba?.

[ecfisa]

Hola wilcg.

En el evento OnDrawColumnCell estas tomando el control de la salida del texto y por ese motivo ya no dispones de las alineaciones por defecto de las columnas.

Pero podes evaluar la alineación de la columna y actuar en consecuencia vg.:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  R      : TRect;
  uFormat: LongWord;
begin
  uFormat := DT_SINGLELINE or DT_VCENTER or DT_END_ELLIPSIS;

  case Column.Alignment of
    taLeftJustify : uFormat := uFormat or DT_LEFT;
    taRightJustify: uFormat := uFormat or DT_RIGHT;
    taCenter      : uFormat := uFormat or DT_CENTER;
  end;

  with TDBGridEh(Sender) do
  begin
    R := Rect;
    Canvas.FillRect(R);
    DrawText(Canvas.Handle, @Column.Field.AsString[1], -1, R, uFormat);
  end;
end;

Saludos

[wilcg]

ecfisa este código quedo justo y completo como quería, creo yo que tienes una bola de cristal que te da todas las repuestas jeje... Gracias Maestro.