anchor.diff:  
       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>;
  
positive.code:   TMaskResource = class (TBaseResource, IResource)
    private
      FHeight: Byte;
      FWidth: Byte;
      procedure Clear;
      procedure SetHeight(AValue: Byte);
  
negative.code:   Clear;
    AStream.Read(FWidth,1);
    AStream.Read(FHeight,1);
  
    AStream.Read(FMask1,6);
    AStream.Read(FMask2,6);
  
  end;
  
  { TObjSubTypes }
  