anchor.diff:  
   interface
   
  -uses IniFiles, TBlok, StrUtils, Classes, TOblsRizeni, SysUtils,
  +uses IniFiles, TBlok, StrUtils, Classes, TOblsRizeni, SysUtils, JsonDataObjects,
         IdContext, TOblRizeni;
   
   type
  
positive.code:    procedure SetStatus(status:TRozpStatus);
     procedure UpdateOutput();
  
    public
      constructor Create(index:Integer);
      destructor Destroy(); override;
  
negative.code:     property stav:TBlkRozpStav read RozpStav;
      property status:TRozpStatus read RozpStav.status write SetStatus;
  
      //PT:
  
      procedure GetPtData(json:TJsonObject; includeState:boolean); override;
      procedure GetPtState(json:TJsonObject); override;
      procedure PostPtState(reqJson:TJsonObject; respJson:TJsonObject); override;
  
   end;//class TBlkRozp
  
  ////////////////////////////////////////////////////////////////////////////////
  
  implementation
  
  uses TechnologieRCS, TCPServerOR, Prevody, Graphics, PTUtils;
  
  constructor TBlkRozp.Create(index:Integer);
  begin
  