anchor.diff:   Result := inherited;
   
    if (Self.SoupravyFull()) then begin
  -   Result := Result + Self.GetSprMenu(SenderPnl, SenderOR, 0);
  +   Result := Result + Self.GetSprMenu(SenderPnl, SenderOR, 0) + '-,';
      TTCPORsRef(SenderPnl.Data).spr_menu_index := 0;
    end else begin
      canAdd := ((not Self.SoupravyFull()) and (Self.UsekStav.stanicni_kolej) and
  
positive.code:  TTCPORsRef(SenderPnl.Data).spr_menu_index := sprLocalI;
  
   menu := inherited ShowPanelMenu(SenderPnl, SenderOR, TORControlRights.read);
   menu := menu + '$' + Soupravy[Self.Soupravs[sprLocalI]].nazev + ',-,';
   menu := menu + Self.GetSprMenu(SenderPnl, SenderOr, sprLocalI);
  
   ORTCPServer.Menu(SenderPnl, Self, (SenderOR as TOR), menu);
  
negative.code:   end;
  
   // reseni zruseni PRESUN soupravy, ktera jede
   if ((Self.IsVlakPresun()) and ((not Self.IsSouprava(Self.Soupravs[Self.VlakPresun])) or
       (Soupravy.soupravy[Self.VlakPresun].rychlost > 0))) then
     Self.VlakPresun := -1;
  
  