udlgopprmassoctreespv.pas

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

unit UDlgOpPrmAssocTreeSpv;

interface

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

type
  TDlgOpPrmAssocTreeSpv = class(TDlgOpPrmAssociationRuleSpv)
    TabSheetSorting: TTabSheet;
    rgSortCriteria: TRadioGroup;
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
    procedure   ApplyModifications(); override;
    procedure   SetParameters(); override;      
  end;

var
  DlgOpPrmAssocTreeSpv: TDlgOpPrmAssocTreeSpv;

implementation

uses UCompAssocTreeSpv;

{$R *.dfm}

{ TDlgOpPrmAssocTreeSpv }

procedure TDlgOpPrmAssocTreeSpv.ApplyModifications;
begin
 inherited ApplyModifications();
 (self.OpPrm as TOpPrmAssocTreeSpv).SortCriteria:= self.rgSortCriteria.ItemIndex;
end;

procedure TDlgOpPrmAssocTreeSpv.SetParameters;
begin
 inherited SetParameters();
 self.rgSortCriteria.ItemIndex:= (self.OpPrm as TOpPrmAssocTreeSpv).SortCriteria;
end;

end.