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

HintWindow: fixed width calculated to negative value, if hint coordinates are completely outside the monitor, part of issue #0017906

Browse Source 
git-svn-id: trunk@28348 -
This commit is contained in:
martin 2010-11-19 17:27:03 +00:00
parent c89970ffba
commit 0be96fe127
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/include/hintwindow.inc
View File

@ -164,25 +164,30 @@ begin
Caption := AHint;
AMonitor := Screen.MonitorFromPoint(ARect.TopLeft);
ABounds := AMonitor.BoundsRect;
// limit width, height by monitor
if (ARect.Right - ARect.Left) > (ABounds.Right - ABounds.Left) then
ARect.Right := ARect.Left + (ABounds.Right - ABounds.Left);
if (ARect.Bottom - ARect.Top) > (ABounds.Bottom - ABounds.Top) then
ARect.Bottom := ARect.Top + (ABounds.Bottom - ABounds.Top);
// offset hint to fit into monitor
if ARect.Bottom > ABounds.Bottom then
begin
ARect.Top := ABounds.Bottom - (ARect.Bottom - ARect.Top);
ARect.Bottom := ABounds.Bottom;
end;
if ARect.Top < ABounds.Top then
begin
ARect.Bottom := Min(ABounds.Top + (ARect.Bottom - ARect.Top), ABounds.Bottom);
ARect.Top := ABounds.Top;
end;
if ARect.Right > ABounds.Right then
begin
ARect.Left := ABounds.Right - (ARect.Right - ARect.Left);
ARect.Right := ABounds.Right;
end;
if ARect.Left < ABounds.Left then ARect.Left := ABounds.Left;
if ARect.Top < ABounds.Top then ARect.Top := ABounds.Top;
if ARect.Left < ABounds.Left then
begin
ARect.Right:= Min(ABounds.Left + (ARect.Right - ARect.Left), ABounds.Right);
ARect.Left := ABounds.Left;
end;
SetBounds(ARect.Left, ARect.Top,
ARect.Right - ARect.Left, ARect.Bottom - ARect.Top);
Visible := True;