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

Qt: fixed bug where classes inherited from THintWindow can flick, and never reach visible state.

Browse Source 
git-svn-id: trunk@33043 -
This commit is contained in:
zeljko 2011-10-23 09:53:41 +00:00
parent c494088e5e
commit e767e18cee
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -13272,13 +13272,14 @@ var
W,H: integer; W,H: integer;
begin begin
// must use ClassType comparision here since qt is buggy about hints.#16551 // must use ClassType comparision here since qt is buggy about hints.#16551
if AVisible and (LCLObject.ClassType = THintWindow) then if AVisible and
((LCLObject.ClassType = THintWindow) or
(LCLObject.InheritsFrom(THintWindow))) then
begin begin
R := getGeometry; R := getGeometry;
W := R.Right - R.Left; W := R.Right - R.Left;
H := R.Bottom - R.Top; H := R.Bottom - R.Top;
LCLIntf.GetCursorPos(P); LCLIntf.GetCursorPos(P);
{we must make proper positioning of our hint if {we must make proper positioning of our hint if
hint geometry intersects current cursor pos - issue #15882} hint geometry intersects current cursor pos - issue #15882}
if PtInRect(R, P) then if PtInRect(R, P) then
@ -13314,7 +13315,6 @@ begin
P.Y := D.Bottom - D.Top - H; P.Y := D.Bottom - D.Top - H;
Pt := getPos; Pt := getPos;
if (P.X >= Pt.X) and (P.X <= Pt.X + W) then if (P.X >= Pt.X) and (P.X <= Pt.X + W) then
move(P.X + ToolTipOffset, P.Y) move(P.X + ToolTipOffset, P.Y)
else else