anchor.diff:      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
   
  
positive.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  end.//unit
  
  
negative.code: interface
  
  uses IniFiles, TBlok, Menus, TOblsRizeni, SysUtils, Classes, IdContext,
       Generics.Collections, TOblRizeni, JsonDataObjects;
  
  type
  
  