anchor.diff:  
   ////////////////////////////////////////////////////////////////////////////////
   
  +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.
  
positive.code: 
    1: begin
      data.typ := rrtIR;
      data.irId := CB_IR[Self.CB_IRId.ItemIndex];
      data.irState := PrevodySoustav.IntToBool(Self.CB_IRStav.ItemIndex);
    end;
  
  
negative.code:     procedure ShowEmpty();
      function GetRREv():TRREv;
      function InputValid():boolean;
  
    protected
      procedure SetEnabled(state:boolean); override;
  
    end;
  
  