anchor.diff:    end;
   end;
   
  -procedure TBlkNav.MenuAdminREDUKClick(SenderPnl:TIdContext; SenderOR:TObject);
  -begin
  - Self.NavStav.redukce_menu := 0;
  - Self.Change();
  -end;
  -
   procedure TBlkNav.MenuAdminStopIR(SenderPnl:TIdContext; SenderOR:TObject; enabled:boolean);
   var Blk:TBlk;
   begin
  
positive.code: 
   if ((Self.Navest <> 8) and (Self.CanIDoRNZ)) then
    Result := Result + '!RNZ,';
  
   if (rights >= TORControlRights.superuser) then
     if (Self.NavStav.redukce_menu > 0) then
       Result := Result + '-,*ZRUŠ REDUKCI,';
  
   // DEBUG: jednoduche nastaveni IR pri knihovne simulator
   if (RCSi.simulation) then
  
negative.code:   navest_old:Integer;                            // behem staveni obsahuje byvalou navest
    ABJC:TJC;                                      // odkaz na automaticky stavenou JC
    ZAM:Boolean;                                   // navestidlo zamkle z panelu
    dn_jc_ref,privol_ref:TJC;                      // reference na aktualni JC na navestidle (resp. NC)
  
    padani:boolean;                                // zde je true, pokud navestidlo pada do STUJ (ma zpozdeny pad) a jeste nespadlo
  