anchor.diff:  
    Result := Result + 'STIT,';
   
  + // pokud mame knihovnu simulator, muzeme ridit stav useku
  + //  DEBUG nastroj
  + if (MTB.lib = 2) then
  +  begin
  +   Result := Result + '-,';
  +   if ((Self.Stav.basicStav = TBlkPrjBasicStav.uzavreno) or (Self.Stav.basicStav = TBlkPrjBasicStav.vystraha)) then
  +     Result := Result + '*ZAVRENO<'
  +   else
  +     Result := Result + '*ZAVRENO>';
  +  end;//if MTB.lib = 2
  +
    if (rights >= TORControlRights.superuser) then
     begin
      Result := Result + '-,';
  
positive.code: procedure TBlkPrejezd.MenuSTITClick(SenderPnl:TIdContext; SenderOR:TObject);
  begin
   ORTCPServer.Stitek(SenderPnl, Self, Self.Stav.Stit);
  end;
  
  procedure TBlkPrejezd.MenuAdminNUZClick(SenderPnl:TIdContext; SenderOR:TObject);
  
negative.code: begin
   if (Self.Stav.basicStav = TBlkPrjBasicStav.disabled) then Exit();
  
   if      (item = 'UZ')       then Self.MenuUZClick  (SenderPnl, SenderOR)
   else if (item = 'ZUZ')      then Self.MenuZUZClick (SenderPnl, SenderOR)
   else if (item = 'NOT>')     then Self.MenuNOTClick (SenderPnl, SenderOR)
   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;//procedure
  
  ////////////////////////////////////////////////////////////////////////////////
  