diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-11-12 16:58:17 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-11-12 16:58:17 +0200 |
| commit | 84ef253cba5c75b0e2186a6bee9d01f52385290e (patch) | |
| tree | 05f195cb479668a8d1588e8bf3a7667196778542 /extras | |
| parent | dd64b15727ea9632419ddfc025d97a2f2ef7f119 (diff) | |
| download | fpGUI-84ef253cba5c75b0e2186a6bee9d01f52385290e.tar.xz | |
Implemented GetFieldBounds support for the Memo mediator.
Diffstat (limited to 'extras')
| -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; |