udlgopprmspvdiscanalysis.pas

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

unit UDlgOpPrmSpvDiscAnalysis;

interface

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

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

var
  dlgOpPrmSpvDiscAnalysis: TdlgOpPrmSpvDiscAnalysis;

implementation

uses UCompSpvDiscriminantAnalysis;

{$R *.dfm}

{ TdlgOpPrmSpvDiscAnalysis }

procedure TdlgOpPrmSpvDiscAnalysis.ApplyModifications;
begin
 (self.OpPrm as TOpPrmLDiscAnalysis).MatInversion:= self.rgMatInv.ItemIndex;
end;

procedure TdlgOpPrmSpvDiscAnalysis.SetParameters;
begin
 self.rgMatInv.ItemIndex:= (self.OpPrm as TOpPrmLDiscAnalysis).MatInversion;
end;

end.