paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 18:58:04 +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;
begin
with v1, Result do
with v1 do
begin
Left := x;
Top := y;
BottomRight := TopLeft;
Result.Left := x;
Result.Top := y;
Result.BottomRight := Result.TopLeft;
end;
with v2, Result do
with v2 do
begin
if x < Left then
Left := x;
if x > Right then
Right := x;
if y < Top then
Top := y;
if y > Bottom then
Bottom := y;
if x < Result.Left then
Result.Left := x;
if x > Result.Right then
Result.Right := x;
if y < Result.Top then
Result.Top := y;
if y > Result.Bottom then
Result.Bottom := y;
end;
with v3, Result do
with v3 do
begin
if x < Left then
Left := x;
if x > Right then
Right := x;
if y < Top then
Top := y;
if y > Bottom then
Bottom := y;
if x < Result.Left then
Result.Left := x;
if x > Result.Right then
Result.Right := x;
if y < Result.Top then
Result.Top := y;
if y > Result.Bottom then
Result.Bottom := y;
end;
end;