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

lcl: forms: rename OffsetHintRect parameter NewPos->AOffset to make it clearer

Browse Source 
git-svn-id: trunk@55166 -
This commit is contained in:
ondrej 2017-06-02 20:08:33 +00:00
parent 844bef4565
commit de2663825e
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -912,7 +912,7 @@ type
AData: pointer); virtual;
function CalcHintRect(MaxWidth: Integer; const AHint: String;
AData: pointer): TRect; virtual;
function OffsetHintRect(NewPos: TPoint; dy: Integer = 15;
function OffsetHintRect(AOffset: TPoint; dy: Integer = 15;
KeepWidth: Boolean = True; KeepHeight: Boolean = True): Boolean;
procedure InitializeWnd; override;
function IsHintMsg(Msg: TMsg): Boolean; virtual;

4
lcl/include/hintwindow.inc
View File

@ -348,10 +348,10 @@ begin
end;
end;
function THintWindow.OffsetHintRect(NewPos: TPoint; dy: Integer;
function THintWindow.OffsetHintRect(AOffset: TPoint; dy: Integer;
KeepWidth: Boolean; KeepHeight: Boolean): Boolean;
begin
Result:=OffsetRect(FHintRect, NewPos.X, NewPos.Y + dy);
Result:=OffsetRect(FHintRect, AOffset.X, AOffset.Y + dy);
AdjustBoundsForMonitor(KeepWidth, KeepHeight);
end;