From 584fa63ea4c756bbc514b52cc9a6cb2175e06a3d Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@idefix.freepascal.org>
Date: Thu, 4 Nov 2010 16:18:51 +0000
Subject: [PATCH] Allows directly setting the core fpcanvas properties in
 subclasses

git-svn-id: trunk@16303 -
---
 packages/fcl-image/src/fpcanvas.pp | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/packages/fcl-image/src/fpcanvas.pp b/packages/fcl-image/src/fpcanvas.pp
index eb10fdeea0..6c82cae7f7 100644
--- a/packages/fcl-image/src/fpcanvas.pp
+++ b/packages/fcl-image/src/fpcanvas.pp
@@ -194,14 +194,6 @@ type
     FClipping,
     FManageResources: boolean;
     FRemovingHelpers : boolean;
-    FDefaultFont,
-    FFont : TFPCustomFont;
-    FDefaultBrush,
-    FBrush : TFPCustomBrush;
-    FDefaultPen,
-    FPen : TFPCustomPen;
-    FPenPos : TPoint;
-    FClipRect : TRect;
     FHelpers : TList;
     FLocks : integer;
     FInterpolation : TFPCustomInterpolation;
@@ -216,6 +208,11 @@ type
     function GetBrush : TFPCustomBrush;
     function GetPen : TFPCustomPen;
   protected
+    FDefaultFont, FFont : TFPCustomFont;
+    FDefaultBrush, FBrush : TFPCustomBrush;
+    FDefaultPen, FPen : TFPCustomPen;
+    FPenPos : TPoint;
+    FClipRect : TRect;
     function DoCreateDefaultFont : TFPCustomFont; virtual; abstract;
     function DoCreateDefaultPen : TFPCustomPen; virtual; abstract;
     function DoCreateDefaultBrush : TFPCustomBrush; virtual; abstract;