diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-07-05 13:01:46 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-07-05 13:01:46 +0200 |
| commit | 5be161bc0b198bc127c6470f67368f1f759052fb (patch) | |
| tree | 101b58c88aa418c05001ca01537dc3fa6b668090 /src | |
| parent | 9e2c3a23b3cb347f4f46383d080926706e5f3abb (diff) | |
| download | fpGUI-5be161bc0b198bc127c6470f67368f1f759052fb.tar.xz | |
TfpgImageBase now remembers the co-ordinates used for the mask.
This is handy when you want to do later image manipulation, and
working on a cloned image.
Diffstat (limited to 'src')
| -rw-r--r-- | src/corelib/fpg_base.pas | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas index 3bd9bfbd..15edc88a 100644 --- a/src/corelib/fpg_base.pas +++ b/src/corelib/fpg_base.pas @@ -189,6 +189,7 @@ type FImageDataSize: integer; FMaskData: pointer; FMaskDataSize: integer; + FMaskPoint: TPoint; procedure DoFreeImage; virtual; abstract; procedure DoInitImage(acolordepth, awidth, aheight: integer; aimgdata: Pointer); virtual; abstract; procedure DoInitImageMask(awidth, aheight: integer; aimgdata: Pointer); virtual; abstract; @@ -210,6 +211,7 @@ type property Height: integer read FHeight; property ColorDepth: integer read FColorDepth; property Masked: boolean read FMasked; + property MaskPoint: TPoint read FMaskPoint; property Colors[x, y: TfpgCoord]: TfpgColor read GetColor write SetColor; end; @@ -1942,6 +1944,7 @@ begin FMaskData := nil; FMaskDataSize := 0; FMasked := False; + FMaskPoint := Point(0, 0); end; destructor TfpgImageBase.Destroy; @@ -2050,6 +2053,7 @@ begin Exit; //==> AllocateMask; + FMaskPoint := Point(x, y); p := FImageData; if x < 0 then |