udlgopprmfactnipals.pas

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

unit UDlgOpPrmFactNIPALS;

interface

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

type
  TDlgOpPrmFactNIPALS = class(TDlgBaseOperatorParameter)
    chkStd: TCheckBox;
    spinNbAxis: TLMDSpinEdit;
    Label1: TLabel;
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  procedure   ApplyModifications(); override;
  procedure   SetParameters(); override;  
  end;

var
  DlgOpPrmFactNIPALS: TDlgOpPrmFactNIPALS;

implementation

uses UCompFactNIPALS;

{$R *.dfm}

{ TDlgOpPrmFactNIPALS }

procedure TDlgOpPrmFactNIPALS.ApplyModifications;
var prm: TOpPrmFactNIPALS;
begin
 prm:= OpPrm as TOpPrmFactNIPALS;
 prm.Standardize:= self.chkStd.Checked;
 prm.NbAxisCreated:= self.spinNbAxis.Value;
end;

procedure TDlgOpPrmFactNIPALS.SetParameters;
var prm: TOpPrmFactNIPALS;
begin
 prm:= OpPrm as TOpPrmFactNIPALS;
 self.chkStd.Checked:= prm.Standardize;
 self.spinNbAxis.Value:= prm.NbAxisCreated;
end;

end.