udlgopprmfsfcbf.pas

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

unit UDlgOpPrmFSFcbf;

interface

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

type
  TDlgOpPrmFSFcbf = class(TDlgBaseOperatorParameter)
    Label1: TLabel;
    edDelta: TLMDMaskEdit;
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
    procedure   ApplyModifications(); override;
    procedure   SetParameters(); override;        
  end;

var
  DlgOpPrmFSFcbf: TDlgOpPrmFSFcbf;

implementation

uses UCompFSFcbf;

{$R *.dfm}

{ TDlgOpPrmFSFcbf }

procedure TDlgOpPrmFSFcbf.ApplyModifications;
begin
 (self.OpPrm as TOpPrmFSFcbf).Delta:= strtofloat(self.edDelta.Text);
end;

procedure TDlgOpPrmFSFcbf.SetParameters;
begin
 self.edDelta.Text:= floattostr((self.OpPrm as TOpPrmFSFcbf).Delta);
end;

end.