anchor.diff:     else if (shPlay.trat <> nil) then
        Result := Result + 'HLEN prjezd,';
     end;
  -
  - Result := Result + '-,';
   end;
   
   ////////////////////////////////////////////////////////////////////////////////
  
positive.code:  Result := inherited;
  
   if (Self.SoupravyFull()) then begin
     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
  
negative.code:     DCC : false;
      stanicni_kolej : false;
      cislo_koleje : '';
      vlakPresun: -1;
      zpomalovani_ready : false;
      currentHoukEv : -1;
     );
  