All sample projects updated so all of them can compile correctly.

* Replaced ModalResult magic numbers with enum values.
* Updated project unit output directories.
* Updated tiOPF examples with latest unit names.
* Updated outdated projects still references old fpGUI unit names.

2 files changed, 2 insertions, 4 deletions

diff --git a/extras/tiopf/demos/Common/Model_View.pas b/extras/tiopf/demos/Common/Model_View.pas
index ad027534..ceac389f 100644
--- a/extras/tiopf/demos/Common/Model_View.pas
+++ b/extras/tiopf/demos/Common/Model_View.pas
@@ -13,7 +13,7 @@ uses
 
 type
   { TMemo - Name }
-  TPerson_Name_Memo_Mediator = class(TMediatorMemoView)
+  TPerson_Name_Memo_Mediator = class(TtiMemoMediatorView)
   protected
     procedure SetupGUIandObject; override;
   end;
@@ -40,7 +40,7 @@ end;
 procedure TPerson_Name_Memo_Mediator.SetupGUIandObject;
 begin
   inherited SetupGUIandObject;
-  EditControl.Enabled := False; // fpGUI doesn't have a ReadOnly property yet
+  View.Enabled := False; // fpGUI doesn't have a ReadOnly property yet
 end;
 
 
diff --git a/extras/tiopf/demos/Common/frm_pickdatabase.pas b/extras/tiopf/demos/Common/frm_pickdatabase.pas
index de215829..7dcee309 100644
--- a/extras/tiopf/demos/Common/frm_pickdatabase.pas
+++ b/extras/tiopf/demos/Common/frm_pickdatabase.pas
@@ -226,7 +226,6 @@ begin
     ImageMargin := 3;
     ImageName := '';
     ImageSpacing := -1;
-    ModalResult := 0;
     ParentShowHint := True;
     ShowImage := True;
     TabOrder := 0;
@@ -349,7 +348,6 @@ begin
     ImageMargin := 3;
     ImageName := '';
     ImageSpacing := -1;
-    ModalResult := 0;
     ParentShowHint := True;
     ShowImage := True;
     TabOrder := 11;