anchor.diff:        fg := $A0A0A0;
      if (Self.ZAM) then
        case (Self.SymbolType) of
  -      0 : fg := clRed;
  -      1 : fg := clBlue;
  +      TBlkNavSymbol.hlavni : fg := clRed;
  +      TBlkNavSymbol.seradovaci : fg := clBlue;
        end;
     end;
     _NAV_CHANGING, _NAV_ZHASNUTO: begin
  
positive.code: begin
   if (Self.NavSettings.events.Count = 0) then Exit();
   Usek := Self.UsekPred;
   if (Self.NavRel.SymbolType = 1) then Exit();          // pokud jsem posunove navestidlo, koncim funkci
   if ((Usek = nil) or ((Usek.typ <> _BLK_USEK) and (Usek.typ <> _BLK_TU))) then Exit();    // pokud pred navestidlem neni usek, koncim funkci
  
   // pokud na useku prede mnou neni souprava, koncim funkci
  
negative.code: procedure TBlkNav.MenuVCStartClick(SenderPnl:TIdContext; SenderOR:TObject);
  var Blk:TBlk;
  begin
   if (Self.NavRel.SymbolType = TBlkNavSymbol.seradovaci) then Exit();
   if ((SenderOR as TOR).stack.volba = PV) then
     if (((Self.DNjc <> nil) and (Self.DNjc.RozpadRuseniBlok < 1)) or
         (JCDb.FindOnlyStaveniJC(Self.id) > -1)) then Exit;
  