paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-02 09:43:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* QEventClose bugfix from Den.

Browse Source 
git-svn-id: trunk@11509 -
This commit is contained in:
zeljko 2007-07-14 16:34:18 +00:00
parent bb25ce3e56
commit 3cee9c6d5f
1 changed files with 21 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lcl/interfaces/qt/qtwidgets.pas
View File

@ -722,10 +722,16 @@ type
procedure SignalCurrentPageChanged(p1, p2: Integer); cdecl;
end;
implementation
uses
LCLMessageGlue,
qtCaret;
const
AlignmentMap: array[TAlignment] of QtAlignment =
(
@ -996,7 +1002,12 @@ begin
case QEvent_type(Event) of
QEventShow: SlotShow(True);
QEventHide: SlotShow(False);
QEventClose: SlotClose;
QEventClose:
begin
Result:=True;
QEvent_ignore(Event);
SlotClose;
end;
QEventDestroy: SlotDestroy;
QEventFocusIn: SlotFocus(True);
QEventFocusOut: SlotFocus(False);
@ -1055,8 +1066,8 @@ end;
Params: None
Returns: Nothing
Note: LCL uses LM_CLOSEQUERY to set the form visibility and if we don´t send this
message, you won´t be able to show a form twice.
Note: LCL uses LM_CLOSEQUERY to set the form visibility and if we don<EFBFBD>t send this
message, you won<EFBFBD>t be able to show a form twice.
------------------------------------------------------------------------------}
procedure TQtWidget.SlotClose; cdecl;
var
@ -1066,11 +1077,7 @@ begin
WriteLn('TQtWidget.SlotClose');
{$endif}
FillChar(Msg, SizeOf(Msg), #0);
Msg.Msg := LM_CLOSEQUERY;
DeliverMessage(Msg);
LCLSendCloseQueryMsg(LCLObject);
end;
{------------------------------------------------------------------------------
@ -2370,6 +2377,12 @@ begin
case QEvent_type(Event) of
QEventWindowStateChange: SlotWindowStateChange;
QEventClose :
begin
Result:=True;
QEvent_ignore(Event);
SlotClose;
end;
else
// Inherited Callbacks
inherited EventFilter(Sender, Event);