projectproperty_.pas

来自「以可视的方式画IVR语音导航的流程,并把流程做为源文件保存起来」· PAS 代码 · 共 90 行

unit ProjectProperty_;

interface

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

type
  TProjectProperty = class(TForm)
    BtnCancel: TBitBtn;
    BtnSave: TBitBtn;
    GroupBox1: TGroupBox;
    editWidth: TEdit;
    editHeight: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    editWrite: TEdit;
    Label5: TLabel;
    BtnReset: TButton;
    Bevel1: TBevel;
    GroupBox2: TGroupBox;
    DateCreate: TDateTimePicker;
    DateModify: TDateTimePicker;
    Label3: TLabel;
    Label4: TLabel;
    procedure BtnCancelClick(Sender: TObject);
    procedure BtnResetClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure editWidthKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    procedure ResetData;
    { Public declarations }
  end;

var
  ProjectProperty: TProjectProperty;

implementation

uses main_;

{$R *.DFM}

procedure TProjectProperty.BtnCancelClick(Sender: TObject);
begin
    Close();
end;

procedure TProjectProperty.ResetData;
begin
    editWidth.Text := IntToStr(main.MainBox.HorzScrollBar.Range);
    editHeight.Text := IntToStr(main.MainBox.VertScrollBar.Range);
    editWrite.Text := main.Writer;
    DateCreate.DateTime := main.CreateDate;
    DateModify.DateTime := main.ModifyDate;
end;

procedure TProjectProperty.BtnResetClick(Sender: TObject);
begin
    ResetData();
end;

procedure TProjectProperty.BtnSaveClick(Sender: TObject);
begin
    main.Writer := editWrite.Text;
    main.MainBox.HorzScrollBar.Range := StrToInt(editWidth.Text);
    main.MainBox.VertScrollBar.Range := StrToInt(editHeight.Text);
end;

procedure TProjectProperty.FormShow(Sender: TObject);
begin
    ResetData();
end;

procedure TProjectProperty.editWidthKeyPress(Sender: TObject;
  var Key: Char);
begin
    if (Ord(Key) > $39) or (Ord(Key) < $30) then
    begin
        MessageBeep(MB_ICONERROR);
        Key := Chr(0);
    end;
end;

end.