From f6796707ef4c81444c8671386df2fac132be44e2 Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Sun, 9 Aug 2020 04:04:21 +0000
Subject: [PATCH] cocoa: re-applying current pen and brush, after clearing
 clipping. bug #37520

git-svn-id: trunk@63702 -
---
 lcl/interfaces/cocoa/cocoagdiobjects.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/interfaces/cocoa/cocoagdiobjects.pas b/lcl/interfaces/cocoa/cocoagdiobjects.pas
index 1c705939f2..e9e5d14013 100644
--- a/lcl/interfaces/cocoa/cocoagdiobjects.pas
+++ b/lcl/interfaces/cocoa/cocoagdiobjects.pas
@@ -2298,6 +2298,8 @@ begin
     Trans := CGContextGetCTM(cgc);
     CGContextRestoreGState(cgc);
     ApplyTransform(Trans);
+    if Assigned(FPen) then FPen.Apply(Self);
+    if Assigned(FBrush) then FBrush.Apply(Self);
   end;
 end;