anchor.diff:   Self.Change();
   end;
   
  +procedure TBlkVyhybka.MenuAdminPolPlusCLick(SenderPnl:TIdContext; SenderOR:TObject);
  +begin
  + try
  +   RCSi.SetInput(Self.VyhSettings.RCSAddrs[0], 1);
  +   RCSi.SetInput(Self.VyhSettings.RCSAddrs[1], 0);
  + except
  +   ORTCPServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TOR(SenderOR).ShortName, 'SIMULACE');
  + end;
  +end;
  +
  +procedure TBlkVyhybka.MenuAdminPolMinusCLick(SenderPnl:TIdContext; SenderOR:TObject);
  +begin
  + try
  +   RCSi.SetInput(Self.VyhSettings.RCSAddrs[0], 0);
  +   RCSi.SetInput(Self.VyhSettings.RCSAddrs[1], 1);
  + except
  +   ORTCPServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TOR(SenderOR).ShortName, 'SIMULACE');
  + end;
  +end;
  +
  +procedure TBlkVyhybka.MenuAdminNepolCLick(SenderPnl:TIdContext; SenderOR:TObject);
  +begin
  + try
  +   RCSi.SetInput(Self.VyhSettings.RCSAddrs[0], 0);
  +   RCSi.SetInput(Self.VyhSettings.RCSAddrs[1], 0);
  + except
  +   ORTCPServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TOR(SenderOR).ShortName, 'SIMULACE');
  + end;
  +end;
  +
   ////////////////////////////////////////////////////////////////////////////////
   
   //vytvoreni menu pro potreby konkretniho bloku:
  
positive.code:  else if (item = 'VYL')  then Self.MenuVylClick(SenderPnl, SenderOR)
   else if (item = 'ZAV>') then Self.MenuZAVEnableClick(SenderPnl, SenderOR)
   else if (item = 'ZAV<') then Self.MenuZAVDisableClick(SenderPnl, SenderOR)
   else if (item = 'ZRUŠ REDUKCI') then Self.MenuAdminREDUKClick(SenderPnl, SenderOR);
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
negative.code:    Result := Result + '-,';
     if (Self.intentionalLocked) then Result := Result + '*ZRUŠ REDUKCI,';
    end;
  
   if (RCSi.simulation) then
    begin
     Result := Result + '-,';
     if (Self.Poloha <> TVyhPoloha.plus) then
       Result := Result + '*POL+,';
     if (Self.Poloha <> TVyhPoloha.minus) then
       Result := Result + '*POL-,';
     if (Self.Poloha <> TVyhPoloha.none) then
       Result := Result + '*NEPOL,';
    end;
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  