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

LCL: Add a wrapper for Types.OffsetRect() into LCLProc.

Browse Source
This commit is contained in:
Juha 2023-06-06 22:31:46 +03:00
parent 0c96c0e3a5
commit cee2ee4060
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/lclproc.pas
View File

@ -113,6 +113,7 @@ procedure OwnerFormDesignerModified(AComponent: TComponent);
// Deprecated in version 2.3, 2023-06.
procedure FreeThenNil(var obj); deprecated 'Use LazUtilities.FreeThenNil instead';
function OffsetRect(var Rect: TRect; DX, DY: Integer): Boolean; deprecated 'Use Types.OffsetRect instead';
procedure MoveRect(var ARect: TRect; x, y: Integer); deprecated 'Use GraphMath.MoveRect instead';
procedure MoveRectToFit(var ARect: TRect; const MaxRect: TRect); deprecated 'Use GraphMath.MoveRectToFit instead';
procedure MakeMinMax(var i1, i2: integer); deprecated 'Use GraphMath.MakeMinMax instead';
@ -842,6 +843,11 @@ begin
LazUtilities.FreeThenNil(obj);
end;
function OffsetRect(var Rect: TRect; DX, DY: Integer): Boolean;
begin
Result := Types.OffsetRect(Rect, DX, DY);
end;
procedure MoveRect(var ARect: TRect; x, y: Integer);
begin
GraphMath.MoveRect(ARect, x, y);