summaryrefslogtreecommitdiff
path: root/examples/apps
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2010-04-07 12:36:55 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2010-04-07 12:36:55 +0200
commit42326029cbdcb072265beb9905e3549b7b872977 (patch)
tree7b961099bdc0462687b8dd1c1ead0875a2e6251d /examples/apps
parent2b0bb6d1167e479404bd5d616f4d6155b1a92255 (diff)
downloadfpGUI-42326029cbdcb072265beb9905e3549b7b872977.tar.xz
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.
Diffstat (limited to 'examples/apps')
-rw-r--r--examples/apps/docedit/frm_main.pas1
-rw-r--r--examples/apps/docedit/frm_options.pas6
2 files changed, 2 insertions, 5 deletions
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 @@ begin
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 @@ begin
Text := '...';
FontDesc := '#Label1';
ImageName := '';
- ModalResult := 0;
end;
edtFPDoc := TfpgEdit.Create(self);
@@ -175,7 +174,6 @@ begin
Text := '...';
FontDesc := '#Label1';
ImageName := '';
- ModalResult := 0;
end;
cbShowHints := TfpgCheckBox.Create(self);
@@ -204,7 +202,7 @@ begin
Text := 'OK';
FontDesc := '#Label1';
ImageName := 'stdimg.ok';
- ModalResult := 1;
+ ModalResult := mrOK;
end;
btnCancel := TfpgButton.Create(self);
@@ -215,7 +213,7 @@ begin
Text := 'Cancel';
FontDesc := '#Label1';
ImageName := 'stdimg.cancel';
- ModalResult := 2;
+ ModalResult := mrCancel;
end;
lblName5 := TfpgLabel.Create(self);