summaryrefslogtreecommitdiff
path: root/extras/tiopf/demos/Common/Model_View.pas
diff options
context:
space:
mode:
Diffstat (limited to 'extras/tiopf/demos/Common/Model_View.pas')
-rw-r--r--extras/tiopf/demos/Common/Model_View.pas52
1 files changed, 0 insertions, 52 deletions
diff --git a/extras/tiopf/demos/Common/Model_View.pas b/extras/tiopf/demos/Common/Model_View.pas
deleted file mode 100644
index ceac389f..00000000
--- a/extras/tiopf/demos/Common/Model_View.pas
+++ /dev/null
@@ -1,52 +0,0 @@
-unit Model_View;
-
-{$IFDEF FPC}
- {$mode objfpc}{$H+}
-{$ENDIF}
-
-interface
-
-uses
- Classes
- ,tiMediators
- ;
-
-type
- { TMemo - Name }
- TPerson_Name_Memo_Mediator = class(TtiMemoMediatorView)
- protected
- procedure SetupGUIandObject; override;
- end;
-
-
-implementation
-
-uses
- Model, tiBaseMediator;
-
-
-procedure RegisterMediators;
-begin
- // Fallbacks (generic)
- RegisterFallBackMediators;
-
- // Specific
- gMediatorManager.RegisterMediator(TPerson_Name_Memo_Mediator, TPerson, 'Name');
-end;
-
-
-{ TPerson_Name_Memo_Mediator }
-
-procedure TPerson_Name_Memo_Mediator.SetupGUIandObject;
-begin
- inherited SetupGUIandObject;
- View.Enabled := False; // fpGUI doesn't have a ReadOnly property yet
-end;
-
-
-initialization
- { Register all your Mediator Views here }
- RegisterMediators;
-
-end.
-