anchor.diff:      function GetSprMenu(SenderPnl:TIdContext; SenderOR:TObject; sprLocalI:Integer):string;
       procedure ShowProperMenu(SenderPnl:TIdContext; SenderOR:TObject; rights:TORControlRights; params:string);
   
  +    function CanSprSpeedInsert(index:Integer):boolean;
  +
     protected
      UsekSettings:TBlkUsekSettings;
   
  
positive.code:    Exit(true);
    end;
  
   spri := TBlkUsek(Blk).Soupravs[TBlkUsek(Blk).VlakPresun];
  
   if (Blk = Self) then
  
negative.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  // vraci true prave tehdy, kdyz lze vlozit soupravu na pozici index
  // kontroluje, zda-li se nenazime vlozit pred soupravu v pohybu
  function TBlkUsek.CanSprSpeedInsert(index:Integer):boolean;
  begin
   Result := not ((Self.Soupravs.Count > 0) and
                  (((index = 0) and (Soupravy[Self.Soupravs[index]].rychlost > 0) and (Soupravy[Self.Soupravs[index]].smer = THVStanoviste.sudy)) or
                   ((index = Self.Soupravs.Count) and (Soupravy[Self.Soupravs[index-1]].rychlost > 0) and (Soupravy[Self.Soupravs[index-1]].smer = THVStanoviste.lichy))));
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  end.//unit
  
  