anchor.diff:  
    TBlkPrjStav = record
     basicStav: TBlkPrjBasicStav;
  +  anulaceOld: Boolean;
     stit,vyl:string;
     PC_NOT, PC_UZ: boolean;                           // uzavreni prejezdu z pocitace (tj z technologie), prejezd muze byt uzavren taky z pultu
     zaver:Integer;                                    // pocet bloku, ktere mi daly zaver (pokud > 0, mam zaver; jinak zaver nemam)
  
positive.code:     procedure UPOZNOTClick(Sender:TObject);
  
      // DEBUG volby:
      procedure MenuAdminZAVRENOStartClick(SenderPnl:TIdContext; SenderOR:TObject);
      procedure MenuAdminZAVRENOStopClick(SenderPnl:TIdContext; SenderOR:TObject);
      procedure MenuAdminNUZClick(SenderPnl:TIdContext; SenderOR:TObject);
  
      procedure StitUPO(SenderPnl:TIdContext; SenderOR:TObject;
          UPO_OKCallback: TNotifyEvent; UPO_EscCallback:TNotifyEvent);
  
negative.code:  Self.PrjStav.zaver := 0;
   Self.UpdateOutputs();
   Self.Change();
  end;
  
  procedure TBlkPrejezd.SetSimInputs(uzavreno, vystraha, otevreno: Boolean; SenderPnl:TIdContext; SenderOR:TObject);
  begin
   try
     RCSi.SetInput(Self.PrjSettings.RCSInputs.Zavreno, PrevodySoustav.BoolToInt(uzavreno));
     RCSi.SetInput(Self.PrjSettings.RCSInputs.Vystraha, PrevodySoustav.BoolToInt(vystraha));
     RCSi.SetInput(Self.PrjSettings.RCSInputs.Otevreno, PrevodySoustav.BoolToInt(otevreno));
   except
     ORTCPServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TOR(SenderOR).ShortName, 'SIMULACE');
   end;
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  