anchor.diff:    Clear;
     AStream.Read(FWidth,1);
     AStream.Read(FHeight,1);
  +
  +  AStream.Read(FMask1,6);
  +  AStream.Read(FMask2,6);
  +
   end;
   
   { TObjSubTypes }
  
positive.code:   TMaskResource = class (TBaseResource, IResource)
    private
      FHeight: Byte;
      FWidth: Byte;
      procedure Clear;
      procedure SetHeight(AValue: Byte);
  
negative.code: 
      property Width: Byte read FWidth write SetWidth;
      property Height: Byte read FHeight write SetHeight;
  
      property Mask1:TDefBitmask read FMask1;//todo: rename and use
      property Mask2:TDefBitmask read FMask2;
    end;
  
    TLegacyObjConfigList = specialize TFPGObjectList<TJSONObject>;
  