paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 21:10:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@19673 -
This commit is contained in:
sekelsenmat 2011-11-23 21:14:06 +00:00
parent fffa4a35a0
commit efba36c81b
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-image/src/fpimage.pp
View File

@ -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

3
packages/fcl-image/src/fpimgcanv.pp
View File

@ -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;