Código Delphi [-] Procedure DBGridMostrarDatosDrawColumnCell(Sender: TObject; /... if length(Column.Field.AsString) > Column.Field.Tag then begin Column.Field.Tag:= length(Column.Field.AsString); Column.Field.DisplayWidth:=Column.Field.Tag+2; end;
Procedure DBGridMostrarDatosDrawColumnCell(Sender: TObject; /... if length(Column.Field.AsString) > Column.Field.Tag then begin Column.Field.Tag:= length(Column.Field.AsString); Column.Field.DisplayWidth:=Column.Field.Tag+2; end;