From efba36c81b3ee3a2918c79597d60de961d9c4838 Mon Sep 17 00:00:00 2001 From: sekelsenmat Date: Wed, 23 Nov 2011 21:14:06 +0000 Subject: [PATCH] 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 | 2 +- packages/fcl-image/src/fpimgcanv.pp | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/packages/fcl-image/src/fpimage.pp b/packages/fcl-image/src/fpimage.pp index f3f6c1c2d5..e98ebd7c19 100644 --- a/packages/fcl-image/src/fpimage.pp +++ b/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 diff --git a/packages/fcl-image/src/fpimgcanv.pp b/packages/fcl-image/src/fpimgcanv.pp index 0bf6185f34..ded77a6308 100644 --- a/packages/fcl-image/src/fpimgcanv.pp +++ b/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;