anchor.diff:       fOnIdChanged: TNotifyEvent;
        fOnNavChanged: ENavChanged;
   
  +      procedure SetInitKrok();
         procedure SetProperties(prop:TJCProp);
   
         procedure RusZacatekJC();
  
positive.code:     blk:TBlk;
      aZaver:TJCType;
      neprofil:TBlkUsek;
      uzavren,uzavren_glob:boolean;
      str:string;
      npCall:^TNPCallerData;
      spri:Integer;
  
negative.code:    ncBarieryCntLast:Integer;                                                    // posledni pocet barier ve staveni nouzove cesty
     nextVyhybka:Integer;                                                         // vyhybka, ktera se ma stavit jako dalsi
                                                                                  // po postaveni vsechn vyhybek plynule prechazi do indexu seznamu odvratu
     ab:Boolean;                                                                  // po postaveni JC automaticky zavest AB
     prjWasClosed:Boolean;                                                        // jiz byl vydan povel k zavreni prejezdu
    end;
  
    // vlastnosti jizdni cesty nemenici se se stavem:
  