diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-03-11 10:08:12 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-03-11 10:14:19 +0200 |
| commit | 17d24654c1381d0bbb0b27dab11def8c73e47c48 (patch) | |
| tree | 29b232153c69632792fa1146c68fe9d1d8dae6a9 /src | |
| parent | 562f3f13c6afd54dc53a098deb73d09d31ed393c (diff) | |
| download | fpGUI-17d24654c1381d0bbb0b27dab11def8c73e47c48.tar.xz | |
use a more accurate message name for asking to be freed.
The TfpgBaseForm needs to ask fpgApplication to free it, so we now use
a new, and more appropriately named, message constant.
Diffstat (limited to 'src')
| -rw-r--r-- | src/corelib/fpg_main.pas | 4 | ||||
| -rw-r--r-- | src/gui/fpg_form.pas | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas index cfe4fcf0..44860ea1 100644 --- a/src/corelib/fpg_main.pas +++ b/src/corelib/fpg_main.pas @@ -223,7 +223,7 @@ type FHintPos: TPoint; procedure SetHintPause(const AValue: Integer); procedure SetupLocalizationStrings; - procedure InternalMsgClose(var msg: TfpgMessageRec); message FPGM_CLOSE; + procedure InternalMsgFreeMe(var msg: TfpgMessageRec); message FPGM_FREEME; procedure InternalMsgHintTimer(var msg: TfpgMessageRec); message FPGM_HINTTIMER; procedure CreateHintWindow; procedure HintTimerFired(Sender: TObject); @@ -1144,7 +1144,7 @@ begin FHintTimer.Interval := FHintPause; end; -procedure TfpgApplication.InternalMsgClose(var msg: TfpgMessageRec); +procedure TfpgApplication.InternalMsgFreeMe(var msg: TfpgMessageRec); begin if Assigned(msg.Sender) then begin diff --git a/src/gui/fpg_form.pas b/src/gui/fpg_form.pas index 308cd6b5..0361d3fc 100644 --- a/src/gui/fpg_form.pas +++ b/src/gui/fpg_form.pas @@ -452,7 +452,7 @@ begin fpgApplication.Terminate else // We can't free ourselves, somebody else needs to do it - fpgPostMessage(Self, fpgApplication, FPGM_CLOSE); + fpgPostMessage(Self, fpgApplication, FPGM_FREEME); end; end; { case CloseAction } end; { if CloseQuery } |