anchor.diff:   if (Self.VyhSettings.spojka > -1) then
     begin
      // pokud se jedna o spojku, volame SetPoloha i na spojku
  -   Blky.GetBlkByID(Self.VyhSettings.spojka, Blk);
  -   if ((Blk <> nil) and (Blk.typ = _BLK_VYH) and
  -   (((Blk as TBlkVyhybka).Stav.staveni_plus <> Self.VyhStav.staveni_plus) or ((Blk as TBlkVyhybka).Stav.staveni_minus <> Self.VyhStav.staveni_minus))) then
  -     (Blk as TBlkVyhybka).SetPoloha(new, zamek, nouz);
  +   if ((spojka <> nil) and (spojka.typ = _BLK_VYH) and
  +       ((spojka.Stav.staveni_plus <> Self.VyhStav.staveni_plus) or (spojka.Stav.staveni_minus <> Self.VyhStav.staveni_minus))) then
  +     spojka.SetPoloha(new, zamek, nouz);
     end;
   
    Result := 0;
  
positive.code: 
  //vytvoreni menu pro potreby konkretniho bloku:
  function TBlkVyhybka.ShowPanelMenu(SenderPnl:TIdContext; SenderOR:TObject; rights:TORCOntrolRights):string;
  var spojka:TBlk;
  begin
   Result := inherited;
  
   Blky.GetBlkByID(Self.VyhSettings.spojka, spojka);
  
   if ((Self.Zaver = TZaver.no) and (not Self.vyhZaver) and (not Self.redukce_menu) and
      ((Self.zamek = nil) or ((Self.zamek as TBlkZamek).klicUvolnen)) and
    ((spojka = nil) or (((spojka as TBlkVyhybka).Zaver = TZaver.no) and (not (spojka as TBlkVyhybka).vyhZaver)))) then
    begin
     // na vyhybce neni zaver a menu neni redukovane
  
     if ((Self.Obsazeno = TUsekStav.obsazeno) or ((spojka <> nil) and ((spojka as TBlkVyhybka).Obsazeno = TUsekStav.obsazeno))) then
      begin
       if (Self.VyhStav.poloha = plus) then Result := Result + '!NS-,';
       if (Self.VyhStav.poloha = minus) then Result := Result + '!NS+,';
  
negative.code:   end;
  
   if ((Self.Zaver = TZaver.no) and (not Self.vyhZaver) and (Self.VyhStav.locked) and (Self.VyhStav.redukce_menu = 0) and
       ((Self.zamek = nil) or ((Self.zamek as TBlkZamek).klicUvolnen))) then
    begin
     Self.Unlock();
     changed := true;
  