paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 05:00:47 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: do not restore hints which are not visible by lcl.

Browse Source 
git-svn-id: trunk@51114 -
This commit is contained in:
zeljko 2016-01-02 10:36:34 +00:00
parent 89d6b735e2
commit b538c367a2
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt/qtobject.inc
View File

@ -1425,7 +1425,8 @@ begin
if IsValidHintHandle(TObject(SavedHintHandlesList.Items[i])) then if IsValidHintHandle(TObject(SavedHintHandlesList.Items[i])) then
begin begin
AWidget := TQtHintWindow(SavedHintHandlesList.Items[i]); AWidget := TQtHintWindow(SavedHintHandlesList.Items[i]);
AWidget.NeedRestoreVisible := AWidget.getVisible; AWidget.NeedRestoreVisible := AWidget.getVisible and
Assigned(AWidget.LCLObject) and AWidget.LCLObject.Visible;
AWidget.Hide; AWidget.Hide;
end; end;
end; end;
@ -1448,7 +1449,8 @@ begin
if IsValidHintHandle(TObject(SavedHintHandlesList.Items[i])) then if IsValidHintHandle(TObject(SavedHintHandlesList.Items[i])) then
begin begin
AWidget := TQtHintWindow(SavedHintHandlesList.Items[i]); AWidget := TQtHintWindow(SavedHintHandlesList.Items[i]);
if AWidget.NeedRestoreVisible then if AWidget.NeedRestoreVisible and Assigned(AWidget.LCLObject) and
AWIdget.LCLObject.Visible then
begin begin
AWidget.NeedRestoreVisible := False; AWidget.NeedRestoreVisible := False;
AWidget.Show; AWidget.Show;