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:  else if (item = 'IR>')  then Self.MenuAdminStopIR (SenderPnl, SenderOR, true)
   else if (item = 'IR<')  then Self.MenuAdminStopIR (SenderPnl, SenderOR, false)
   else if (item = 'KC')   then Self.MenuKCDKClick   (SenderPnl, SenderOR);
  
   if (item = 'ZRUŠ REDUKCI') then Self.MenuAdminREDUKClick(SenderPnl, SenderOR);
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
negative.code: 
      // DEBUG menu:
      procedure MenuAdminStopIR(SenderPnl:TIdContext; SenderOR:TObject; enabled:boolean);
  
      procedure UpdatePadani();
      procedure UpdatePrivol();
  