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

Qt: optimized tooltip position calculation.

Browse Source 
git-svn-id: trunk@24032 -
This commit is contained in:
zeljko 2010-03-16 12:17:14 +00:00
parent 9444dd3460
commit 6e8c411156
1 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10027,11 +10027,15 @@ var
D: TRect;
R: TRect;
P: TPoint;
Pt: TQtPoint;
ScreenNumber: integer;
W,H: integer;
begin
if AVisible then
begin
R := getGeometry;
W := R.Right - R.Left;
H := R.Bottom - R.Top;
LCLIntf.GetCursorPos(P);
{we must make proper positioning of our hint if
@ -10050,25 +10054,30 @@ begin
{$ENDIF}
if (P.X + getWidth > D.Right - D.Left) then
P.X := P.X - (ToolTipOffset + getWidth);
if (P.X + W > D.Right - D.Left) then
P.X := P.X - ((ToolTipOffset) + W);
if (P.Y + getHeight > D.Bottom - D.Top) then
P.Y := P.Y - ((ToolTipOffset * 6) + getHeight);
if (P.Y + H > D.Bottom - D.Top) then
P.Y := P.Y - ((ToolTipOffset * 6) + H);
if P.Y < D.Top then
P.Y := D.Top;
if (P.X + getWidth > D.Right - D.Left) then
P.X := D.Right - D.Left - getWidth;
if (P.X + W > D.Right - D.Left) then
P.X := D.Right - D.Left - W;
if P.X < D.Left then
P.X := D.Left;
if P.Y + getHeight > D.Bottom - D.Top then
P.Y := D.Bottom - D.Top - getHeight;
if P.Y + H > D.Bottom - D.Top then
P.Y := D.Bottom - D.Top - H;
move(P.X, P.Y);
Pt := getPos;
if (P.X >= Pt.X) and (P.X <= Pt.X + W) then
move(P.X + ToolTipOffset, P.Y)
else
move(P.X , P.Y);
end;
end;
inherited setVisible(AVisible);