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