diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-06-12 14:40:49 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-06-12 14:40:49 +0000 |
commit | af854e41c0f98acec4be31efe1d6690cefa60554 (patch) | |
tree | 4f62cc6702eabc20c0cb9a3f1f582fc7068511a1 /src/corelib | |
parent | 6b227a12b5233ec4bac8f74e8cce64e49b5858ff (diff) | |
download | fpGUI-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.pas | 6 |
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; |