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

IDEIntf: THintWindowManager.ShowHint limit size to active form, from Russell

Browse Source 
git-svn-id: trunk@55095 -
This commit is contained in:
mattias 2017-05-26 09:59:16 +00:00
parent 72e6211499
commit 9b548421fa
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/ideintf/idehelpintf.pas
View File

@ -1,4 +1,3 @@
{ $Id: helpintf.pas 9271 2006-05-13 12:00:43Z mattias $ }
{
*****************************************************************************
See the file COPYING.modifiedLGPL.txt, included in this distribution,
@ -383,6 +382,9 @@ var
end;
procedure DoHtml;
var
ActFrm: TForm;
MaxWidth, MaxHeight: Integer;
begin
if HintFont<>nil then
HintRenderWindow.Font := HintFont;
@ -397,10 +399,17 @@ var
ms.Free;
end;
HtmlHelpProvider.ControlIntf.GetPreferredControlSize(NewWidth,NewHeight);
ActFrm:=Screen.ActiveForm;
MaxWidth := ActFrm.Left + ActFrm.Width - ScreenPos.x;
MaxHeight := ActFrm.Top + ActFrm.Height - ScreenPos.y;
if NewWidth <= 0 then
NewWidth := 500;
NewWidth := 500
else if NewWidth > MaxWidth then
NewWidth := MaxWidth;
if NewHeight <= 0 then
NewHeight := 200;
NewHeight := 200
else if NewHeight > MaxHeight then
NewHeight := MaxHeight;
HintRenderWindow.HintRectAdjust := Rect(0, 0, NewWidth, NewHeight);
if MouseOffset then
HintRenderWindow.OffsetHintRect(ScreenPos)