paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 19:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: less with-blocks for FPC 3.1.1

Browse Source 
git-svn-id: trunk@50287 -
This commit is contained in:
mattias 2015-11-11 13:05:03 +00:00
parent c9ed89c672
commit 3a58e4f5d4
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/winapi.inc
View File

@ -1583,15 +1583,13 @@ end;
Params:
Returns:
------------------------------------------------------------------------------}
function SetRect(var ARect : TRect; xLeft,yTop,xRight,yBottom : Integer) : Boolean;
function SetRect(var ARect : TRect; aLeft,aTop,aRight,aBottom : Integer) : Boolean;
begin
Result := True;
with ARect do begin
Left := xLeft;
Top := yTop;
Right := xRight;
Bottom := yBottom;
end;
ARect.Left := aLeft;
ARect.Top := aTop;
ARect.Right := aRight;
ARect.Bottom := aBottom;
End;
{------------------------------------------------------------------------------

2
lcl/include/winapih.inc
View File

@ -341,7 +341,7 @@ function PointToSmallPoint(const P : TPoint) : TSmallPoint; inline;
function RGB(R, G, B : Byte) : TColorRef; inline;
function ScrollWindow(hWnd: HWND; XAmount, YAmount: Integer; Rect, ClipRect: PRect): Boolean; inline;
function SetRect(var ARect : TRect; xLeft,yTop,xRight,yBottom : Integer) : Boolean;
function SetRect(var ARect : TRect; aLeft,aTop,aRight,aBottom : Integer) : Boolean;
function SetRectEmpty(var ARect: TRect): Boolean;
function SetScrollPos(Handle: HWND; nBar, nPos: Integer; bRedraw: Boolean): Integer;
function SetScrollRange(Handle: HWND; nBar, nMinPos, nMaxPos: Integer; bRedraw: Boolean): Boolean;