From 17d24654c1381d0bbb0b27dab11def8c73e47c48 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 11 Mar 2010 10:08:12 +0200 Subject: 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. --- src/corelib/fpg_main.pas | 4 ++-- 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 } -- cgit v1.2.3-70-g09d2