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:   Result := Result + '!RNZ,';
  
   if (rights >= TORControlRights.superuser) then
     if (Self.SComStav.redukce_menu > 0) then
       Result := Result + '-,*ZRU REDUKCI,';
  
   // DEBUG: jednoduche nastaveni IR pri simulator.dll
   if (MTB.lib = 2) then
    begin
     if (Self.SComSettings.events[0].zastaveni.signal = TBlkSComSignal.ir) then
      begin
       Blky.GetBlkByID(Self.SComSettings.events[0].zastaveni.irid, Blk);
       if ((Blk <> nil) and (Blk.GetGlobalSettings().typ = _BLK_IR)) then
        begin
         case (TBlkIR(Blk).Stav) of
           TIRStav.uvolneno : Result := Result + '-,*IR>,';
           TIRStav.obsazeno : Result := Result + '-,*IR<,';
         end;//case
        end;
      end;
    end;
  end;//procedure
  
  