udlgopprmspvtreec45.pas

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

unit UDlgOpPrmSpvTreeC45;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UDlgBaseOperatorParameter, ComCtrls, StdCtrls, ExtCtrls,
  lmdstdcA, LMDCustomControl, LMDCustomPanel, LMDCustomBevelPanel,
  LMDBaseEdit, LMDCustomEdit, LMDCustomMaskEdit, LMDMaskEdit;

type
  TdlgOpPrmSpvTreeC45 = class(TDlgBaseOperatorParameter)
    edCLevel: TLMDMaskEdit;
    spinMinSize: TLMDSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  procedure   ApplyModifications(); override;
  procedure   SetParameters(); override;    
  end;

var
  dlgOpPrmSpvTreeC45: TdlgOpPrmSpvTreeC45;

implementation

uses UCompSpvTreeC45;

{$R *.dfm}

{ TdlgOpPrmSpvTreeC45 }

procedure TdlgOpPrmSpvTreeC45.ApplyModifications;
begin
 (OpPrm as TOpPrmSpvTreeC45).SizeMinLeaf:= self.spinMinSize.Value;
 TRY
 (OpPrm as TOpPrmSpvTreeC45).PLevel:= StrToFloat(self.edCLevel.Text);
 EXCEPT
 (OpPrm as TOpPrmSpvTreeC45).PLevel:= 0.25;
 END;
end;

procedure TdlgOpPrmSpvTreeC45.SetParameters;
begin
 self.spinMinSize.Value:= (OpPrm as TOpPrmSpvTreeC45).SizeMinLeaf;
 self.edCLevel.Text:= FloatToStr((OpPrm as TOpPrmSpvTreeC45).PLevel);
end;

end.