udlgopprmfcstandardize.pas

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

unit UDlgOpPrmFCStandardize;

interface

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

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

var
  DlgOpPrmFCStandardize: TDlgOpPrmFCStandardize;

implementation

uses UCompFCStandardize;

{$R *.dfm}

{ TDlgOpPrmFCStandardize }

procedure TDlgOpPrmFCStandardize.ApplyModifications;
begin
 (self.OpPrm as TPrmOpFCStandardize).PrmStd:= self.rgStd.ItemIndex;
end;

procedure TDlgOpPrmFCStandardize.SetParameters;
begin
 self.rgStd.ItemIndex:= (self.OpPrm as TPrmOpFCStandardize).PrmStd;
end;

end.