Advances TFPImageCanvas.FImage and TFPMemoryImage.FData to protected to allow more useful descendents to be created, see bug #20341

git-svn-id: trunk@19673 -

packages/fcl-image/src/fpimage.pp

@@ -165,11 +165,11 @@ type
 
   TFPMemoryImage = class (TFPCustomImage)
     private
-      FData : PFPIntegerArray;
       function GetInternalColor(x,y:integer):TFPColor;override;
       procedure SetInternalColor (x,y:integer; const Value:TFPColor);override;
       procedure SetUsePalette (Value:boolean);override;
     protected
+      FData : PFPIntegerArray;
       procedure SetInternalPixel (x,y:integer; Value:integer); override;
       function GetInternalPixel (x,y:integer) : integer; override;
     public

packages/fcl-image/src/fpimgcanv.pp

@@ -21,9 +21,8 @@ uses FPPixlCanv, FPImage, classes;
 
 type
   TFPImageCanvas = class (TFPPixelCanvas)
-  private
-    FImage : TFPCustomImage;
   protected
+    FImage : TFPCustomImage;
     procedure SetColor (x,y:integer; const AValue:TFPColor); override;
     function  GetColor (x,y:integer) : TFPColor; override;
     procedure SetHeight (AValue : integer); override;