anchor.diff:      Exit; //==>
   
     AllocateMask;
  +  FMaskPoint := Point(x, y);
   
     p := FImageData;
     if x < 0 then
  
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:   FMaskData      := nil;
    FMaskDataSize  := 0;
    FMasked        := False;
    FMaskPoint     := Point(0, 0);
  end;
  
  destructor TfpgImageBase.Destroy;
  