no comments

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;