diff options
Diffstat (limited to 'extras/tiopf/demos/Common/Model_View.pas')
-rw-r--r-- | extras/tiopf/demos/Common/Model_View.pas | 52 |
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. - |