sysset.pas

来自「销售帐目管理」· PAS 代码 · 共 97 行

unit SysSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm, StdCtrls, SUIEdit, SUIButton, ExtDlgs;

type
  TFrmSysSet = class(TForm)
    suiForm1: TsuiForm;
    pnl1: TPanel;
    grp1: TGroupBox;
    Label1: TLabel;
    suiEdit_AppName: TsuiEdit;
    suiCheckBox1: TsuiCheckBox;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    Label3: TLabel;
    suiNumberEdit_SplashDelayTime: TsuiNumberEdit;
    Label4: TLabel;
    grp2: TGroupBox;
    suiEdit_BmPrefix: TsuiEdit;
    Label5: TLabel;
    suiEdit_BmSpace: TsuiEdit;
    Label6: TLabel;
    suiEditBmMonth: TsuiEdit;
    Label7: TLabel;
    Label8: TLabel;
    suiEdit_BmDigXlh: TsuiEdit;
    suiEdit_BMYear: TsuiEdit;
    Label9: TLabel;
    suiEdit_BmdigSf: TsuiEdit;
    Label10: TLabel;
    Label2: TLabel;
    suiNumberEdit_xlh: TsuiNumberEdit;
    Label11: TLabel;
    suiEdit_PicFile: TsuiEdit;
    suiButton3: TsuiButton;
    dlgOpenPic1: TOpenPictureDialog;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSysSet: TFrmSysSet;

implementation

uses PubUnit;

{$R *.dfm}

procedure TFrmSysSet.FormShow(Sender: TObject);
begin
  suiEdit_AppName.Text := P_AppName ;
  suiCheckBox1.Checked := P_DebugFlag ;
  suiNumberEdit_SplashDelayTime.Value := P_SplashDelay ;
  suiNumberEdit_xlh.Value := P_Xlh ;
  suiEdit_PicFile.Text := P_PicFileName ;
end;

procedure TFrmSysSet.FormCreate(Sender: TObject);
begin
  ChangeInterface(Self , suiForm1);
end;

procedure TFrmSysSet.suiButton2Click(Sender: TObject);
begin
  P_AppName := suiEdit_AppName.Text ;
  P_DebugFlag := suiCheckBox1.Checked ;
  P_SplashDelay := Round(suiNumberEdit_SplashDelayTime.Value);
  P_Xlh := Round(suiNumberEdit_xlh.Value);
  P_PicFileName := Trim(suiEdit_PicFile.Text); 
  Close ;
end;

procedure TFrmSysSet.suiButton1Click(Sender: TObject);
begin
  Close ;
end;

procedure TFrmSysSet.suiButton3Click(Sender: TObject);
begin
  if not dlgOpenPic1.Execute then Exit ;
  suiEdit_PicFile.Text := dlgOpenPic1.FileName ;
end;

end.