From 71b53aa5aea516dab526f10a1b91f566de5405f0 Mon Sep 17 00:00:00 2001 From: mattias Date: Wed, 11 Nov 2015 13:39:42 +0000 Subject: [PATCH] lcl: less with-blocks for FPC 3.1.1 git-svn-id: trunk@50296 - --- lcl/interfaces/customdrawn/cocoautils.pas | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/lcl/interfaces/customdrawn/cocoautils.pas b/lcl/interfaces/customdrawn/cocoautils.pas index dffa5bbf47..bd1bcd0373 100644 --- a/lcl/interfaces/customdrawn/cocoautils.pas +++ b/lcl/interfaces/customdrawn/cocoautils.pas @@ -133,12 +133,10 @@ end; function CGRectToRect(const c:CGRect):TRect; begin - with Result do begin - Left:=round(c.origin.x); - Top:=round(c.origin.y); - Right:=round(c.origin.x+c.size.width); - Bottom:=round(c.origin.y+c.size.height); - end; + Result.Left:=round(c.origin.x); + Result.Top:=round(c.origin.y); + Result.Right:=round(c.origin.x+c.size.width); + Result.Bottom:=round(c.origin.y+c.size.height); end; function RectToNSRect(const r: TRect): NSRect;