anchor.diff:  interface
   
   uses IniFiles, TBlok, Menus, TOblsRizeni, SysUtils, Classes, IdContext,
  -     Generics.Collections, TOblRizeni;
  +     Generics.Collections, TOblRizeni, JsonDataObjects;
   
   type
   
  
positive.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  end.//unit
  
  
negative.code:     function ShowPanelMenu(SenderPnl:TIdContext; SenderOR:TObject; rights:TORCOntrolRights):string; override;
      procedure PanelClick(SenderPnl:TIdContext; SenderOR:TObject ;Button:TPanelButton; rights:TORCOntrolRights; params:string = ''); override;
      function PanelStateString():string; override;
  
      procedure GetPtData(json: TJsonObject; includeState: boolean); override;
      procedure GetPtState(json: TJsonObject); override;
  
   end;//class TBlkUsek
  
  