udlgopprmspvcpls.pas

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

unit UDlgOpPrmSpvCPLS;

interface

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

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

var
  dlgOpPrmSpvCPLS: TdlgOpPrmSpvCPLS;

implementation

uses UCompSpvCPLS;

{$R *.dfm}

{ TdlgOpPrmSpvCPLS }

procedure TdlgOpPrmSpvCPLS.ApplyModifications;
begin
 (self.OpPrm as TOpPrmCPLS).NbAxis:= self.spinNbAxis.Value;
end;

procedure TdlgOpPrmSpvCPLS.SetParameters;
begin
 self.spinNbAxis.Value:= (self.OpPrm as TOpPrmCPLS).NbAxis;
end;

end.