anchor.diff:  
   ////////////////////////////////////////////////////////////////////////////////
   
  +procedure TBlkIR.GetPtData(json:TJsonObject; includeState:boolean);
  +begin
  + // TODO: MTB
  + if (includeState) then
  +   Self.GetPtState(json['blokStav']);
  +end;
  +
  +procedure TBlkIR.GetPtState(json:TJsonObject);
  +begin
  + case (Self.Stav) of
  +  TIRStav.disabled : json['stav'] := 'vypnuto';
  +  TIRStav.none     : json['stav'] := 'zadny';
  +  TIRStav.uvolneno : json['stav'] := 'uvolneno';
  +  TIRStav.obsazeno : json['stav'] := 'obsazeno';
  + end;
  +end;
  +
  +////////////////////////////////////////////////////////////////////////////////
  +
   end.//unit
  
positive.code: 
      function GetSettings():TBlkIRSettings;
      procedure SetSettings(data:TBlkIRSettings);
  
      property Stav:TIRStav read IRStav.Stav;
   end;//class TBlkIR
  
negative.code: 
  interface
  
  uses IniFiles, TBlok, JsonDataObjects;
  
  type
   TIRStav = (disabled = -5, none = -1, uvolneno = 0, obsazeno = 1);
  