diff options
Diffstat (limited to 'extras/tiopf/gui/tiMediators.pas')
-rw-r--r-- | extras/tiopf/gui/tiMediators.pas | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/extras/tiopf/gui/tiMediators.pas b/extras/tiopf/gui/tiMediators.pas index 736d782d..c0b127b4 100644 --- a/extras/tiopf/gui/tiMediators.pas +++ b/extras/tiopf/gui/tiMediators.pas @@ -585,8 +585,12 @@ begin end; procedure TtiMemoMediatorView.SetupGUIandObject; +var + Mi, Ma: integer; begin inherited SetupGUIandObject; + if Subject.GetFieldBounds(FieldName,Mi,Ma) and (Ma>0) then + View.MaxLength := Ma; View.Lines.Text := ''; end; |