anchor.diff:  interface
   
   uses IniFiles, TBlok, TechnologieJC, SysUtils, TBlokUsek, Menus, TOblsRizeni,
  -     Classes, RPConst, IdContext, Generics.Collections;
  +     Classes, RPConst, IdContext, Generics.Collections, JsonDataObjects;
   
   type
    TBlkVyhSettings = record
  
positive.code: end;//procedure
  
  ////////////////////////////////////////////////////////////////////////////////
  
  end.//unit
  
  
negative.code:     procedure PanelMenuClick(SenderPnl:TIdContext; SenderOR:TObject; item:string); override;
      function ShowPanelMenu(SenderPnl:TIdContext; SenderOR:TObject; rights:TORCOntrolRights):string; override;
      procedure PanelClick(SenderPnl:TIdContext; SenderOR:TObject ;Button:TPanelButton; rights:TORCOntrolRights); override;
  
      //PT:
  
      procedure GetPtData(var json:TJsonObject; includeState:boolean); override;
      procedure GetPtState(var json:TJsonObject); override;
  
      class function PolohaToStr(poloha:TVyhPoloha):string;
  
   end;
  
  