anchor.diff:      property fullState: TBlkDiscState read m_state;
       property state: TBlkDiscBasicState read m_state.state write SetState;
       property note: string read m_state.note write SetNote;
  +    property active: Boolean read IsActive;
   
       procedure GetPtData(json: TJsonObject; includeState: Boolean); override;
       procedure GetPtState(json: TJsonObject); override;
  
positive.code:       json['state'] := 'mounting';
      TBlkDiscBasicState.active:
        json['state'] := 'active';
    end;
  end;
  
  
negative.code:             Self.Mount();
            TBlkDiscBasicState.mounting:
              Self.Activate();
            TBlkDiscBasicState.active, TBlkDiscBasicState.shortTimeRemaining:
              Self.Prolong();
          end;
        end;
  