paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 18:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Hint (Html/TurboPowerIPro), add space for horizontal scrollbar if needed. Issue #40565

Browse Source 
(cherry picked from commit 79a8665989)
This commit is contained in:
Martin 2023-10-18 16:13:26 +02:00
parent f8071bb47d
commit a6ee92da7b
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/ideintf/idehelpintf.pas
View File

@ -384,6 +384,7 @@ function THintWindowManager.ShowHint(ScreenPos: TPoint; TheHint: string;
ms: TMemoryStream;
NewWidth, NewHeight: integer;
R1, R2: TRect;
ReducedHeight, ReducedWidth: Boolean;
begin
if HintFont<>nil then
HintRenderWindow.Font := HintFont;
@ -412,9 +413,13 @@ function THintWindowManager.ShowHint(ScreenPos: TPoint; TheHint: string;
R1 := HintRenderWindow.HintRect;
HintRenderWindow.OffsetHintRect(ScreenPos, 0, True, False); // shrink height only for fixed (no MouseOffset) hints
R2 := HintRenderWindow.HintRect;
if R1.Bottom-R1.Top>R2.Bottom-R2.Top then // the height was decreased -> scrollbar will be shown, increase width
begin
Inc(R2.Right, GetSystemMetrics(SM_CXVSCROLL));
ReducedWidth := R1.Right-R1.Left>R2.Right-R2.Left;
ReducedHeight := R1.Bottom-R1.Top>R2.Bottom-R2.Top;
if ReducedHeight <> ReducedWidth then begin // if both were reduced, they can't be increased
if ReducedWidth then // the width was decreased -> scrollbar will be shown, increase width
Inc(R2.Bottom, GetSystemMetrics(SM_CYHSCROLL));
if ReducedHeight then // the height was decreased -> scrollbar will be shown, increase width
Inc(R2.Right, GetSystemMetrics(SM_CXVSCROLL));
HintRenderWindow.HintRect := R2;
HintRenderWindow.OffsetHintRect(Point(0, 0), 0);
end;