paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: bugfix for #14544 (Closing source editor tab with Ctrl-F4 sigsevs)

Browse Source 
git-svn-id: trunk@21635 -
This commit is contained in:
zeljko 2009-09-09 18:12:05 +00:00
parent f0f61ca003
commit 61fe12c996
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1857,6 +1857,20 @@ begin
end
else
QEvent_ignore(Event);
{$IF DEFINED(USE_QT_44) or DEFINED(USE_QT_45)}
{fixes #14544 and others when we loose our LCLObject
after delivering message to LCL.}
if (LCLObject = nil) and
((QEvent_type(Event) = QEventMouseButtonPress) or
(QEvent_type(Event) = QEventMouseButtonRelease) or
(QEvent_type(Event) = QEventMouseButtonDblClick) or
(QEvent_type(Event) = QEventMouseMove) or
(QEvent_type(Event) = QEventKeyPress) or
(QEvent_type(Event) = QEventKeyRelease)) then
BeginEventProcessing;
{$ENDIF}
EndEventProcessing;
end;