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

IDE: html hint: increase width in order not to show vertical scrollbar

Browse Source 
git-svn-id: trunk@55165 -
This commit is contained in:
ondrej 2017-06-02 20:04:21 +00:00
parent 8ebd490576
commit 844bef4565
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/ideintf/idehelpintf.pas
View File

@ -18,7 +18,7 @@ interface
uses
Classes, SysUtils, types, LCLProc, Forms, Controls, HelpIntfs, LazHelpIntf,
LMessages, LCLType, TextTools, Graphics;
LMessages, LCLType, TextTools, Graphics, LCLIntf;
type
{ THelpDBIRegExprMessage
@ -383,6 +383,7 @@ function THintWindowManager.ShowHint(ScreenPos: TPoint; TheHint: string;
var
ms: TMemoryStream;
NewWidth, NewHeight: integer;
R1, R2: TRect;
begin
if HintFont<>nil then
HintRenderWindow.Font := HintFont;
@ -407,7 +408,17 @@ function THintWindowManager.ShowHint(ScreenPos: TPoint; TheHint: string;
if MouseOffset then
HintRenderWindow.OffsetHintRect(ScreenPos)
else
begin
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));
HintRenderWindow.HintRect := R2;
HintRenderWindow.OffsetHintRect(Point(0, 0), 0);
end;
end;
HintRenderWindow.ActivateRendered;
end;