udlgopregmultiple.pas

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

unit UDlgOpRegMultiple;

interface

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

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

var
  DlgOpPrmRegressionMultiple: TDlgOpPrmRegressionMultiple;

implementation

uses UCompRegMultiple;

{$R *.dfm}

{ TDlgOpPrmRegressionMultiple }

procedure TDlgOpPrmRegressionMultiple.ApplyModifications;
begin
 (self.OpPrm as TOpPrmRegMultiple).Constant:= self.chkUseConst.Checked;
end;

procedure TDlgOpPrmRegressionMultiple.SetParameters;
begin
 self.chkUseConst.Checked:= (self.OpPrm as TOpPrmRegMultiple).Constant;
end;

end.