paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 11:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: remove unlogical side-effect from THintWindow.CalcHintRect.

Browse Source 
git-svn-id: trunk@45939 -
This commit is contained in:
juha 2014-07-20 18:27:48 +00:00
parent ba96b04000
commit 2e25d04b3c
3 changed files with 5 additions and 2 deletions
components/ideintf
idehelpintf.pas
ide
idehelpmanager.pas
lcl/include
hintwindow.inc

5
components/ideintf/idehelpintf.pas
View File

@ -328,8 +328,11 @@ var
NewWidth, NewHeight: integer;
procedure DoText;
var
HintWinRect: TRect;
begin
HintTextWindow.CalcHintRect(Screen.Width, TheHint);
HintWinRect := HintTextWindow.CalcHintRect(Screen.Width, TheHint);
HintTextWindow.HintRectAdjust := HintWinRect; // Adds borders.
HintTextWindow.OffsetHintRect(ScreenPos);
HintTextWindow.ActivateText(TheHint);
end;

1
ide/idehelpmanager.pas
View File

@ -1716,6 +1716,7 @@ begin
TheHint:='';
end else begin
HintWinRect := aHintWindow.CalcHintRect(Screen.Width, TheHint);
aHintWindow.HintRectAdjust := HintWinRect; // Adds borders.
end;
OffsetRect(HintWinRect, ScreenPos.X, ScreenPos.Y+30);

1
lcl/include/hintwindow.inc
View File

@ -257,7 +257,6 @@ begin
ThemeServices.GetElementDetails(tttStandardNormal), AHint, Flags, @Result)
else
DrawText(uh, PChar(AHint), Length(AHint), Result, Flags);
HintRectAdjust := Result; // Adds borders.
//debugln('THintWindow.CalcHintRect Result=',dbgs(Result));
end;