From bf9a07ac72ff3e22c3280d04663ea756bb7c86da Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Sun, 3 Feb 2013 08:36:40 +0000
Subject: [PATCH] TAChart: Make clipping work across transparency changes in
 TCanvasDrawer

git-svn-id: trunk@40141 -
---
 components/tachart/tadrawercanvas.pas | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/components/tachart/tadrawercanvas.pas b/components/tachart/tadrawercanvas.pas
index 91aad81197..f693d49ea7 100644
--- a/components/tachart/tadrawercanvas.pas
+++ b/components/tachart/tadrawercanvas.pas
@@ -109,18 +109,21 @@ end;
 
 procedure TCanvasDrawer.ClippingStart(const AClipRect: TRect);
 begin
-  GetCanvas.ClipRect := AClipRect;
-  GetCanvas.Clipping := true;
+  FCanvas.ClipRect := AClipRect;
+  FBuffer.Canvas.ClipRect := AClipRect;
+  ClippingStart;
 end;
 
 procedure TCanvasDrawer.ClippingStart;
 begin
-  GetCanvas.Clipping := true;
+  FCanvas.Clipping := true;
+  FBuffer.Canvas.Clipping := true;
 end;
 
 procedure TCanvasDrawer.ClippingStop;
 begin
-  GetCanvas.Clipping := false;
+  FCanvas.Clipping := false;
+  FBuffer.Canvas.Clipping := false;
 end;
 
 constructor TCanvasDrawer.Create(ACanvas: TCanvas);