From 42326029cbdcb072265beb9905e3549b7b872977 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Wed, 7 Apr 2010 12:36:55 +0200
Subject: 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.
---
 examples/apps/docedit/frm_main.pas    | 1 -
 examples/apps/docedit/frm_options.pas | 6 ++----
 2 files changed, 2 insertions(+), 5 deletions(-)

(limited to 'examples/apps')

diff --git a/examples/apps/docedit/frm_main.pas b/examples/apps/docedit/frm_main.pas
index 8f3b7369..f6404b79 100644
--- a/examples/apps/docedit/frm_main.pas
+++ b/examples/apps/docedit/frm_main.pas
@@ -275,7 +275,6 @@ procedure TMainForm.AfterCreate;
     Text := 'Quit';
     FontDesc := '#Label1';
     ImageName := 'stdimg.Quit';
-    ModalResult := 0;
     ShowImage := True;
     OnClick   := @btnQuitClicked;
   end;
diff --git a/examples/apps/docedit/frm_options.pas b/examples/apps/docedit/frm_options.pas
index 95538577..d34ef758 100644
--- a/examples/apps/docedit/frm_options.pas
+++ b/examples/apps/docedit/frm_options.pas
@@ -155,7 +155,6 @@ procedure TfrmOptions.AfterCreate;
     Text := '...';
     FontDesc := '#Label1';
     ImageName := '';
-    ModalResult := 0;
   end;
 
   edtFPDoc := TfpgEdit.Create(self);
@@ -175,7 +174,6 @@ procedure TfrmOptions.AfterCreate;
     Text := '...';
     FontDesc := '#Label1';
     ImageName := '';
-    ModalResult := 0;
   end;
 
   cbShowHints := TfpgCheckBox.Create(self);
@@ -204,7 +202,7 @@ procedure TfrmOptions.AfterCreate;
     Text := 'OK';
     FontDesc := '#Label1';
     ImageName := 'stdimg.ok';
-    ModalResult := 1;
+    ModalResult := mrOK;
   end;
 
   btnCancel := TfpgButton.Create(self);
@@ -215,7 +213,7 @@ procedure TfrmOptions.AfterCreate;
     Text := 'Cancel';
     FontDesc := '#Label1';
     ImageName := 'stdimg.cancel';
-    ModalResult := 2;
+    ModalResult := mrCancel;
   end;
 
   lblName5 := TfpgLabel.Create(self);
-- 
cgit v1.2.3-54-g00ecf