Allows directly setting the core fpcanvas properties in subclasses

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16303 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files 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;