From 538f5a9232c6d44cd9f0d8d0067963f7f82ed3db Mon Sep 17 00:00:00 2001
From: marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Wed, 29 Apr 2009 09:06:29 +0000
Subject:  * canvas clipping getters and setters virtual, as per mantis 13607

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13057 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fcl-image/src/fpcanvas.inc | 10 ++++++++++
 packages/fcl-image/src/fpcanvas.pp  |  4 +++-
 2 files changed, 13 insertions(+), 1 deletion(-)

(limited to 'packages/fcl-image')

diff --git a/packages/fcl-image/src/fpcanvas.inc b/packages/fcl-image/src/fpcanvas.inc
index daa03a5d4c..bfe5cf93d8 100644
--- a/packages/fcl-image/src/fpcanvas.inc
+++ b/packages/fcl-image/src/fpcanvas.inc
@@ -120,6 +120,11 @@ begin
     end;
 end;
 
+function TFPCustomCanvas.GetClipping: boolean;
+begin
+  Result:=FClipping;
+end;
+
 function TFPCustomCanvas.GetClipRect: TRect;
 begin
   Result:=FClipRect;
@@ -243,6 +248,11 @@ begin
     result := FDefaultPen;
 end;
 
+procedure TFPCustomCanvas.SetClipping(const AValue: boolean);
+begin
+  FClipping:=AValue;
+end;
+
 procedure TFPCustomCanvas.SetClipRect(const AValue: TRect);
 begin
   FClipRect:=AValue;
diff --git a/packages/fcl-image/src/fpcanvas.pp b/packages/fcl-image/src/fpcanvas.pp
index 99ceb1fe2f..eb10fdeea0 100644
--- a/packages/fcl-image/src/fpcanvas.pp
+++ b/packages/fcl-image/src/fpcanvas.pp
@@ -233,6 +233,8 @@ type
     function  GetWidth : integer; virtual; abstract;
     function  GetClipRect: TRect; virtual;
     procedure SetClipRect(const AValue: TRect); virtual;
+    function  GetClipping: boolean; virtual;
+    procedure SetClipping(const AValue: boolean); virtual;
     procedure SetPenPos(const AValue: TPoint); virtual;
     procedure DoLockCanvas; virtual;
     procedure DoUnlockCanvas; virtual;
@@ -304,7 +306,7 @@ type
     property Interpolation : TFPCustomInterpolation read FInterpolation write FInterpolation;
     property Colors [x,y:integer] : TFPColor read GetColor write SetColor;
     property ClipRect : TRect read GetClipRect write SetClipRect;
-    property Clipping : boolean read FClipping write FClipping;
+    property Clipping : boolean read GetClipping write SetClipping;
     property PenPos : TPoint read FPenPos write SetPenPos;
     property Height : integer read GetHeight write SetHeight;
     property Width : integer read GetWidth write SetWidth;
-- 
cgit v1.2.1