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

Qt,Qt5: fixed crash with THintWindow. issue #36773

Browse Source 
git-svn-id: trunk@62717 -
This commit is contained in:
zeljko 2020-03-08 16:07:30 +00:00
parent 2b84e231a5
commit bb08087468
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -18360,9 +18360,10 @@ begin
if AParams.WndParent <> 0 then if AParams.WndParent <> 0 then
Parent := TQtWidget(AParams.WndParent).GetContainerWidget Parent := TQtWidget(AParams.WndParent).GetContainerWidget
else else
{issue #36773
if QApplication_activeModalWidget <> nil then if QApplication_activeModalWidget <> nil then
Parent := QApplication_activeModalWidget Parent := QApplication_activeModalWidget
else else}
Parent := nil; Parent := nil;
Result := QWidget_create(Parent, QtToolTip); Result := QWidget_create(Parent, QtToolTip);
FDeleteLater := True; FDeleteLater := True;

3
lcl/interfaces/qt5/qtwidgets.pas
View File

@ -18312,9 +18312,10 @@ begin
if AParams.WndParent <> 0 then if AParams.WndParent <> 0 then
Parent := TQtWidget(AParams.WndParent).GetContainerWidget Parent := TQtWidget(AParams.WndParent).GetContainerWidget
else else
{issue #36773
if QApplication_activeModalWidget <> nil then if QApplication_activeModalWidget <> nil then
Parent := QApplication_activeModalWidget Parent := QApplication_activeModalWidget
else else}
Parent := nil; Parent := nil;
Result := QWidget_create(Parent, QtToolTip); Result := QWidget_create(Parent, QtToolTip);
FDeleteLater := True; FDeleteLater := True;