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

Qt5: do not set modality, but use active modal window as parent of TQtHintWindow. part of issue #30235

Browse Source 
git-svn-id: trunk@54080 -
This commit is contained in:
zeljko 2017-02-03 16:29:58 +00:00
parent 64119b2b0f
commit 25b81795dc
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -18147,6 +18147,9 @@ begin
FNeedRestoreVisible := False;
if AParams.WndParent <> 0 then
Parent := TQtWidget(AParams.WndParent).GetContainerWidget
else
if QApplication_activeModalWidget <> nil then
Parent := QApplication_activeModalWidget
else
Parent := nil;
Result := QWidget_create(Parent, QtToolTip);

6
lcl/interfaces/qt5/qtwsforms.pp
View File

@ -1029,12 +1029,6 @@ begin
AWidget := TQtHintWindow(AWinControl.Handle);
AWidget.BeginUpdate;
if AWinControl.HandleObjectShouldBeVisible then
begin
if QApplication_activeModalWidget <> nil then
QWidget_setWindowModality(AWidget.Widget, QtWindowModal);
end;
AWidget.setVisible(AWinControl.HandleObjectShouldBeVisible);
AWidget.EndUpdate;
end;