udlgopprmspvassestestset.pas

来自「ADaM is a data mining and image processi」· PAS 代码 · 共 42 行

unit UDlgOpPrmSpvAssesTestSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UDlgBaseOperatorParameter, ComCtrls, StdCtrls, ExtCtrls;

type
  TdlgOpPrmSpvAssesTestSet = class(TDlgBaseOperatorParameter)
    rgSelExamples: TRadioGroup;
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
    procedure   ApplyModifications(); override;
    procedure   SetParameters(); override;    
  end;

var
  dlgOpPrmSpvAssesTestSet: TdlgOpPrmSpvAssesTestSet;

implementation

uses UCompSpvAssesTestSet;

{$R *.dfm}

{ TdlgOpPrmSpvAssesTestSet }

procedure TdlgOpPrmSpvAssesTestSet.ApplyModifications;
begin
 (self.OpPrm as TPrmOpSpvAssesTestSet).SelExamples:= TEnumEvaluationSet(self.rgSelExamples.ItemIndex);
end;

procedure TdlgOpPrmSpvAssesTestSet.SetParameters;
begin
 self.rgSelExamples.ItemIndex:= ord((self.OpPrm as TPrmOpSpvAssesTestSet).SelExamples);
end;

end.