frmcurveconfig.pas

来自「delphi语言开发的矢量图形处理对象」· PAS 代码 · 共 77 行

unit frmCurveConfig;

interface

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

type
  TfrmCurve_Config = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    UpDown1: TUpDown;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    edtName: TEdit;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Button2: TButton;
    RadioGroup2: TRadioGroup;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    cur_Param:TCurveData;
    procedure initParam(curParam:TCurveData);
  end;

var
  frmCurve_Config: TfrmCurve_Config;

implementation
uses
  StrUtils;

{$R *.dfm}

{ TfrmCurve_Config }

procedure TfrmCurve_Config.initParam(curParam: TCurveData);
begin
  cur_Param:=curParam;
  UpDown1.Position :=curParam.dataNum;
  CheckBox1.Checked :=curParam.isAbs;
  edtName.Text :=curParam.Name;
  RadioGroup1.ItemIndex :=curParam.dataType -1;
  RadioGroup2.ItemIndex :=curParam.dataFormat -1;
end;

procedure TfrmCurve_Config.Button1Click(Sender: TObject);
begin
  cur_Param.Name :=edtName.Text;
  cur_Param.dataNum :=UpDown1.Position;
  cur_Param.isAbs :=CheckBox1.Checked;
  cur_Param.dataType :=RadioGroup1.ItemIndex+1;
  cur_Param.dataFormat:=RadioGroup2.ItemIndex+1;
  if cur_Param.dataType in [5,6] then
     cur_Param.Value :=strToTime('00:00:00')
  else
  begin
     case radioGroup2.ItemIndex of
        0:begin
          cur_Param.Value :=strTofloat(dupestring('9',cur_Param.dataNum)+'.99');
          end;
        1:begin
          cur_Param.Value :=strTofloat(dupestring('9',cur_Param.dataNum));
          end;
        2:begin
          cur_Param.Value:=1.0;
          end;
     end;
  end;
end;

end.