summaryrefslogtreecommitdiff
path: root/examples/apps/docedit
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-09-13 10:45:08 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-09-13 10:45:08 +0000
commit60515a6cef02edd0ccab823569f10238c26f10c7 (patch)
tree7d913e6ed3f587509dcaa2cd81a88fb63982d125 /examples/apps/docedit
parent97c0f8c9a629842f647e19dc792c055895763f98 (diff)
downloadfpGUI-60515a6cef02edd0ccab823569f10238c26f10c7.tar.xz
* CoreLib: fpgApplication now has a Terminated property which terminates the
main event loop and application. Halt was just to harsh and objects never got freed. * GUI: Added a new INI Utils unit which introduces ReadOnly ini support and can also save a form's state and position. You access the ini file via the gINI singleton function. fpGUI Designer uses this. * All example project now free there main forms correctly. * Many bug fixes in GUI Designer. GUI Designer now also remembers the size and location of most forms. * Many of the GUI Designer forms are now maintained by the GUI Designer itself. * GUI Designer: Started implementing a Recent Files feature so it is quicker to open frequently used files.
Diffstat (limited to 'examples/apps/docedit')
-rw-r--r--examples/apps/docedit/docedit.lpi6
-rw-r--r--examples/apps/docedit/docedit.lpr10
-rw-r--r--examples/apps/docedit/frm_options.pas2
3 files changed, 11 insertions, 7 deletions
diff --git a/examples/apps/docedit/docedit.lpi b/examples/apps/docedit/docedit.lpi
index 7d1ca058..06e2c8b3 100644
--- a/examples/apps/docedit/docedit.lpi
+++ b/examples/apps/docedit/docedit.lpi
@@ -28,11 +28,11 @@
</RunParams>
<RequiredPackages Count="2">
<Item1>
- <PackageName Value="fpgui_package"/>
- <MinVersion Minor="5" Valid="True"/>
+ <PackageName Value="FCL"/>
</Item1>
<Item2>
- <PackageName Value="FCL"/>
+ <PackageName Value="fpgui_package"/>
+ <MinVersion Minor="5" Valid="True"/>
</Item2>
</RequiredPackages>
<Units Count="3">
diff --git a/examples/apps/docedit/docedit.lpr b/examples/apps/docedit/docedit.lpr
index 4eeff873..6cc96293 100644
--- a/examples/apps/docedit/docedit.lpr
+++ b/examples/apps/docedit/docedit.lpr
@@ -16,9 +16,13 @@ var
frm: TMainForm;
begin
fpgApplication.Initialize;
- frm := TMainForm.Create(nil);
- frm.Show;
- fpgApplication.Run;
+ try
+ frm := TMainForm.Create(nil);
+ frm.Show;
+ fpgApplication.Run;
+ finally
+ frm.Free;
+ end;
end;
begin
diff --git a/examples/apps/docedit/frm_options.pas b/examples/apps/docedit/frm_options.pas
index ea955271..0b552317 100644
--- a/examples/apps/docedit/frm_options.pas
+++ b/examples/apps/docedit/frm_options.pas
@@ -52,7 +52,7 @@ implementation
procedure TfrmOptions.AfterCreate;
begin
{@VFD_BODY_BEGIN: frmOptions}
- SetPosition(428, 237, 397, 357);
+ SetPosition(394, 264, 397, 357);
WindowTitle := 'Options';
WindowPosition := wpScreenCenter;