diff options
| -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 } |