diff options
Diffstat (limited to 'extras/tiopf')
| -rw-r--r-- | extras/tiopf/demos/Common/Model.pas | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/extras/tiopf/demos/Common/Model.pas b/extras/tiopf/demos/Common/Model.pas index 3f2c048c..57be1783 100644 --- a/extras/tiopf/demos/Common/Model.pas +++ b/extras/tiopf/demos/Common/Model.pas @@ -44,6 +44,7 @@ type procedure SetMemento(const AValue: TPersonMemento); protected function GetCaption: string; override; + procedure DoGetFieldBounds(const AFieldName: String; var MinValue, MaxValue: Integer; var HasBounds: Boolean); overload; public constructor Create; override; function IsValid(const pErrors: TtiObjectErrors): Boolean; override; @@ -164,6 +165,16 @@ begin Result := Result + ' (deleted)'; end; +procedure TPerson.DoGetFieldBounds(const AFieldName: String; var MinValue, + MaxValue: Integer; var HasBounds: Boolean); +begin + inherited; // until I can figure this out +{ + HasBounds := True; +} + // How do I check or set the Name property to max 25 character? +end; + constructor TPerson.Create; begin inherited Create; |