summaryrefslogtreecommitdiff
path: root/src/corelib
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-06-12 14:40:49 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-06-12 14:40:49 +0000
commitaf854e41c0f98acec4be31efe1d6690cefa60554 (patch)
tree4f62cc6702eabc20c0cb9a3f1f582fc7068511a1 /src/corelib
parent6b227a12b5233ec4bac8f74e8cce64e49b5858ff (diff)
downloadfpGUI-af854e41c0f98acec4be31efe1d6690cefa60554.tar.xz
* Minor fixes to csUpdating ComponentState in Grids.
* fpgApplication now closes all forms created via fpgApplication.CreateForm() before the main form when the application terminates. * Minor documentation update for fpgfx.pas unit.
Diffstat (limited to 'src/corelib')
-rw-r--r--src/corelib/gfxbase.pas6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas
index 03aae37d..6e419d72 100644
--- a/src/corelib/gfxbase.pas
+++ b/src/corelib/gfxbase.pas
@@ -1938,7 +1938,13 @@ begin
end;
procedure TfpgApplicationBase.Terminate;
+var
+ i: integer;
begin
+ // make sure all forms are closed before main form
+ for i := FormCount - 1 downto 0 do
+ if Forms[i] <> MainForm then
+ fpgSendMessage(Self, Forms[i], FPGM_CLOSE); // SendMessage waits for it to complete. Post doesn't.
Terminated := True;
end;