anchor.diff:   else if (item = 'PN>')  then Self.MenuPNStartClick(SenderPnl, SenderOR)
    else if (item = 'PN<')  then Self.MenuPNStopClick (SenderPnl, SenderOR)
    else if (item = 'PPN')  then Self.MenuPPNClick    (SenderPnl, SenderOR)
  - else if (item = 'RNZ')  then Self.MenuRNZClick    (SenderPnl, SenderOR);
  + else if (item = 'RNZ')  then Self.MenuRNZClick    (SenderPnl, SenderOR)
  + else if (item = 'IR>')  then Self.MenuAdminStopIR (SenderPnl, SenderOR, true)
  + else if (item = 'IR<')  then Self.MenuAdminStopIR (SenderPnl, SenderOR, false);
   
    if (item = 'ZRU REDUKCI') then Self.MenuAdminREDUKClick(SenderPnl, SenderOR);
   end;//procedure
  
positive.code:     procedure MenuPPNClick(SenderPnl:TIdContext; SenderOR:TObject);
      procedure MenuRNZClick(SenderPnl:TIdContext; SenderOR:TObject);
  
      procedure MenuAdminREDUKClick(SenderPnl:TIdContext; SenderOR:TObject);
  
      procedure UpdatePadani();
  
negative.code:  Self.Change();
  end;//procedure
  
  procedure TBlkSCom.MenuAdminStopIR(SenderPnl:TIdContext; SenderOR:TObject; enabled:boolean);
  var Blk:TBlk;
  begin
   if (Self.SComSettings.events[0].zastaveni.signal = TBlkSComSignal.ir) then
    begin
     Blky.GetBlkByID(Self.SComSettings.events[0].zastaveni.irid, Blk);
     if ((Blk = nil) or (Blk.GetGlobalSettings().typ <> _BLK_IR)) then Exit();
     if (enabled) then
       MTB.SetInput(TBlkIR(Blk).GetSettings().MTBAddrs.data[0].board, TBlkIR(Blk).GetSettings().MTBAddrs.data[0].port, 1)
     else
       MTB.SetInput(TBlkIR(Blk).GetSettings().MTBAddrs.data[0].board, TBlkIR(Blk).GetSettings().MTBAddrs.data[0].port, 0);
    end;
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  procedure TBlkSCom.PanelClick(SenderPnl:TIdCOntext; SenderOR:TObject; Button:TPanelButton; rights:TORCOntrolRights);
  