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