anchor.diff:    FMaskData      := nil;
     FMaskDataSize  := 0;
     FMasked        := False;
  +  FMaskPoint     := Point(0, 0);
   end;
   
   destructor TfpgImageBase.Destroy;
  
positive.code:     property    Height: integer read FHeight;
      property    ColorDepth: integer read FColorDepth;
      property    Masked: boolean read FMasked;
      property    Colors[x, y: TfpgCoord]: TfpgColor read GetColor write SetColor;
    end;
  
  
negative.code:     Exit; //==>
  
    AllocateMask;
    FMaskPoint := Point(x, y);
  
    p := FImageData;
    if x < 0 then
  