anchor.diff:  {
     Okno TF_RREv umoznuje definovat udalost ve smyslu tridy TRREv (Railroad event).
     Toto male okynko se pouziva napriklad pri definici houkacich udalosti,
  -  planovane vyuziti je take na zastavky a zastavovani a zpomalovani pred
  -  navestidly.
  +  zpomalovani a zastavovani pred navestidly, planovane vyuziti je take na
  +  zastavky.
   }
   
   interface
  
positive.code:     procedure ShowEmpty();
      function GetRREv():TRREv;
      function InputValid():boolean;
  
    end;
  
  
negative.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  procedure TF_RREv.SetEnabled(state:boolean);
  begin
   inherited;
  
   Self.CB_Typ.Enabled := state;
   Self.CB_UsekPart.Enabled := state;
   Self.CB_IRId.Enabled := state;
   Self.CB_UsekStav.Enabled := state;
   Self.CB_IRStav.Enabled := state;
   Self.SE_Cas.Enabled := state;
  
   if (not state) then
    begin
     Self.CB_Typ.ItemIndex := -1;
     Self.CB_UsekPart.ItemIndex := -1;
     Self.CB_IRId.ItemIndex := -1;
     Self.CB_UsekStav.ItemIndex := -1;
     Self.CB_IRStav.ItemIndex := -1;
     Self.SE_Cas.Value := 0;
    end;
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  end.
  