udlgopprmfctrend.pas

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

unit UDlgOpPrmFCTrend;

interface

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

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

var
  DlgOpPrmFCTrend: TDlgOpPrmFCTrend;

implementation

uses UCompFCTrend;

{$R *.dfm}

{ TDlgOpPrmFCTrend }

procedure TDlgOpPrmFCTrend.ApplyModifications;
begin
 (self.OpPrm as TOpFCTrendPrm).FirstValue:= self.rgFirstValue.ItemIndex;
end;

procedure TDlgOpPrmFCTrend.SetParameters;
begin
 self.rgFirstValue.ItemIndex:= (self.OpPrm as TOpFCTrendPrm).FirstValue;
end;

end.