udlgopprmclusteringrng.pas

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

unit UDlgOpPrmClusteringRNG;

interface

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

type
  TdlgOpPrmClusteringNG = class(TDlgBaseOperatorParameter)
    Label1: TLabel;
    spinMinClusSize: TLMDSpinEdit;
    Label2: TLabel;
    cmbPositiveClass: TComboBox;
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
    procedure   ApplyModifications(); override;
    procedure   SetParameters(); override;        
  end;

var
  dlgOpPrmClusteringNG: TdlgOpPrmClusteringNG;

implementation

uses UCompClusteringNG, UDatasetDefinition, UDatasetImplementation,
  UCompManageDataset;

{$R *.dfm}

{ TdlgOpPrmClusteringRNG }

procedure TdlgOpPrmClusteringNG.ApplyModifications;
begin
 if (cmbPositiveClass.ItemIndex >= 0)
  then (self.OpPrm as TOpPrmNG).PositiveClass := cmbPositiveClass.Items.Strings[cmbPositiveClass.ItemIndex]
  else (self.OpPrm as TOpPrmNG).PositiveClass := '';
end;

procedure TdlgOpPrmClusteringNG.SetParameters;
var att: TAttDiscrete;
    i: TTypeDiscrete;
    prm: TOpPrmNG;
begin
 prm:= self.OpPrm as TOpPrmNG;
 //lister les valeurs dispos de la target
 self.cmbPositiveClass.Items.Clear();
 //y a-t-il un target d閖