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:   navest_old:Integer;                            // behem staveni obsahuje byvalou navest
    ABJC:TJC;                                      // odkaz na automaticky stavenou JC
    ZAM:Boolean;                                   // navestidlo zamkle z panelu
    redukce_menu:Integer;                          // kolik bloků mě redukuje
    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
  
negative.code: ﻿unit TBlokNav;
  
  //definice a obsluha technologickeho bloku Navestidlo
  
  interface
  
  