udlgopprmfactanalysisafc.pas

ADaM is a data mining and image processing toolkit

unit UDlgOpPrmFactAnalysisAFC;

interface

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

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

var
  DlgOpPrmFactAnalysisAFC: TDlgOpPrmFactAnalysisAFC;

implementation

uses UCompFactAnalysisAFC;

{$R *.dfm}

{ TDlgOpPrmFactAnalysisAFC }

procedure TDlgOpPrmFactAnalysisAFC.ApplyModifications;
var prm: TOpPrmFactAFC;
begin
 prm:= self.OpPrm as TOpPrmFactAFC;
 prm.AskNbAxis:= self.spinAxis.Value;
 prm.IsComputeContrib:= self.chkContrib.Checked;
end;

procedure TDlgOpPrmFactAnalysisAFC.SetParameters;
var prm: TOpPrmFactAFC;
begin
 prm:= self.OpPrm as TOpPrmFactAFC;
 self.spinAxis.Value:= prm.AskNbAxis;
 self.chkContrib.Checked:= prm.IsComputeContrib;
end;

end.