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

lcl: less with-blocks for FPC 3.1.1

Browse Source 
git-svn-id: trunk@50288 -
This commit is contained in:
mattias 2015-11-11 13:10:09 +00:00
parent 3a58e4f5d4
commit 7be4e242c7
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
lcl/include/intfbasewinapi.inc
View File

@ -1284,33 +1284,33 @@ function TWidgetSet.GradientFill(DC: HDC; Vertices: PTriVertex; NumVertices: Lon
function GetTriangleBounds(const v1, v2, v3: TTriVertex): TRect; function GetTriangleBounds(const v1, v2, v3: TTriVertex): TRect;
begin begin
with v1, Result do with v1 do
begin begin
Left := x; Result.Left := x;
Top := y; Result.Top := y;
BottomRight := TopLeft; Result.BottomRight := Result.TopLeft;
end; end;
with v2, Result do with v2 do
begin begin
if x < Left then if x < Result.Left then
Left := x; Result.Left := x;
if x > Right then if x > Result.Right then
Right := x; Result.Right := x;
if y < Top then if y < Result.Top then
Top := y; Result.Top := y;
if y > Bottom then if y > Result.Bottom then
Bottom := y; Result.Bottom := y;
end; end;
with v3, Result do with v3 do
begin begin
if x < Left then if x < Result.Left then
Left := x; Result.Left := x;
if x > Right then if x > Result.Right then
Right := x; Result.Right := x;
if y < Top then if y < Result.Top then
Top := y; Result.Top := y;
if y > Bottom then if y > Result.Bottom then
Bottom := y; Result.Bottom := y;
end; end;
end; end;