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

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

Browse Source 
git-svn-id: trunk@54079 -
This commit is contained in:
zeljko 2017-02-03 16:29:44 +00:00
parent 883293a51a
commit 64119b2b0f
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/qt/qtwidgets.pas
View File

@ -18094,6 +18094,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/qt/qtwsforms.pp
View File

@ -1044,12 +1044,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;