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

Qt: fixed crash when QTSCROLLABLEFORMS are enabled and reparenting form with mouse (eg undock).part of issue #24715

Browse Source 
git-svn-id: trunk@43234 -
This commit is contained in:
zeljko 2013-10-13 09:42:52 +00:00
parent bd6d94b06a
commit 87d90e960c
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6025,9 +6025,9 @@ begin
Result := False;
if (LCLObject = nil) then
exit;
if (QEvent_Type(Event) in [QEventMouseButtonPress, QEventMouseButtonRelease, QEventMouseButtonDblClick,
QEventMouseMove, QEventWheel, QEventPaint, QEventHoverEnter, QEventHoverMove,
QEventHoverLeave, QEventResize]) then
if (QEvent_Type(Event) in [QEventMouseButtonPress, QEventMouseButtonRelease,
QEventMouseButtonDblClick, QEventMouseMove, QEventWheel, QEventPaint,
QEventHoverEnter, QEventHoverMove, QEventHoverLeave, QEventResize]) then
exit;
Result := inherited EventFilter(Sender, Event);
end;
@ -6042,9 +6042,8 @@ begin
if LCLObject = nil then
exit;
BeginEventProcessing;
if (QEvent_Type(Event) in [QEventMouseButtonPress, QEventMouseButtonRelease, QEventMouseButtonDblClick,
QEventMouseMove, QEventWheel, QEventPaint, QEventHoverEnter, QEventHoverMove,
QEventHoverLeave]) then
if (QEvent_Type(Event) in [QEventContextMenu, QEventPaint, QEventHoverEnter,
QEventHoverMove, QEventHoverLeave]) then
begin
Result := inherited EventFilter(Sender, Event);
end else
@ -6531,8 +6530,7 @@ begin
{$IFDEF QTSCROLLABLEFORMS}
if Assigned(ScrollArea) and not IsMDIChild then
begin
if QEvent_type(Event) in [QEventMouseButtonPress, QEventMouseButtonRelease,
QEventMouseButtonDblClick, QEventPaint,
if QEvent_type(Event) in [QEventPaint,
QEventContextMenu] then
exit;
end;