anchor.diff:      procedure UPOZNOTClick(Sender:TObject);
   
       // DEBUG volby:
  -    procedure MenuAdminZAVRENOStartClick(SenderPnl:TIdContext; SenderOR:TObject);
  -    procedure MenuAdminZAVRENOStopClick(SenderPnl:TIdContext; SenderOR:TObject);
  +    procedure MenuAdminZavreno(SenderPnl:TIdContext; SenderOR:TObject);
  +    procedure MenuAdminOtevreno(SenderPnl:TIdContext; SenderOR:TObject);
  +    procedure MenuAdminVystraha(SenderPnl:TIdContext; SenderOR:TObject);
  +    procedure MenuAdminAnulaceStart(SenderPnl:TIdContext; SenderOR:TObject);
  +    procedure MenuAdminAnulaceStop(SenderPnl:TIdContext; SenderOR:TObject);
       procedure MenuAdminNUZClick(SenderPnl:TIdContext; SenderOR:TObject);
  +    procedure SetSimInputs(uzavreno, vystraha, otevreno: Boolean; SenderPnl:TIdContext; SenderOR:TObject);
   
       procedure StitUPO(SenderPnl:TIdContext; SenderOR:TObject;
           UPO_OKCallback: TNotifyEvent; UPO_EscCallback:TNotifyEvent);
  
positive.code:  else if (item = 'NOT<')     then Self.MenuZNOTClick(SenderPnl, SenderOR)
   else if (item = 'STIT')     then Self.MenuSTITClick (SenderPnl, SenderOR)
   else if (item = 'NUZ>')     then Self.MenuAdminNUZClick(SenderPnl, SenderOR)
   else if (item = 'ZAVRENO>') then Self.MenuAdminZAVRENOStartClick(SenderPnl, SenderOR)
   else if (item = 'ZAVRENO<') then Self.MenuAdminZAVRENOStopClick(SenderPnl, SenderOR);
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
negative.code:  ORTCPServer.Stitek(SenderPnl, Self, Self.Stav.Stit);
  end;
  
  procedure TBlkPrejezd.MenuAdminZavreno(SenderPnl:TIdContext; SenderOR:TObject);
  begin
   Self.SetSimInputs(true, false, false, SenderPnl, SenderOR);
  end;
  
  procedure TBlkPrejezd.MenuAdminOtevreno(SenderPnl:TIdContext; SenderOR:TObject);
  begin
   Self.SetSimInputs(false, false, true, SenderPnl, SenderOR);
  end;
  
  procedure TBlkPrejezd.MenuAdminVystraha(SenderPnl:TIdContext; SenderOR:TObject);
  begin
   Self.SetSimInputs(false, true, false, SenderPnl, SenderOR);
  end;
  
  procedure TBlkPrejezd.MenuAdminAnulaceStart(SenderPnl:TIdContext; SenderOR:TObject);
  begin
   try
     RCSi.SetInput(Self.PrjSettings.RCSInputs.Anulace, 1);
   except
     ORTCPServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TOR(SenderOR).ShortName, 'SIMULACE');
   end;
  end;
  
  procedure TBlkPrejezd.MenuAdminAnulaceStop(SenderPnl:TIdContext; SenderOR:TObject);
  begin
   try
     RCSi.SetInput(Self.PrjSettings.RCSInputs.Anulace, 0);
   except
     ORTCPServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TOR(SenderOR).ShortName, 'SIMULACE');
   end;
  