flash.pas

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

unit flash;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Gauges, StdCtrls, ExtCtrls, CLTools;

type
  TFlashForm = class(TForm)
    Shape1: TShape;
    MainImage: TImage;
    Label1: TLabel;
    copyright: TLabel;
    StatusGauge: TGauge;
    StatusText: TLabel;
    SoftName: TLabel;
    Image1: TImage;
    Version: TLabel;
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    constructor Create(AOwner: TComponent; ProgressMax: Integer;
        ShowForm: Boolean = True);
    procedure AddStatusText(ShowStatusText: String);
    { Public declarations }
  end;

var
  FlashForm: TFlashForm;

implementation

{$R *.DFM}

procedure TFlashForm.AddStatusText(ShowStatusText: String);
begin
    StatusText.Caption := ShowStatusText;
    StatusGauge.AddProgress(1);
    Application.ProcessMessages();
end;

constructor TFlashForm.Create(AOwner: TComponent; ProgressMax: Integer;
    ShowForm: Boolean = True);
begin
    inherited Create(AOwner);

    StatusText.Caption := 'Starting...';
    StatusGauge.MaxValue := ProgressMax;
    StatusGauge.MinValue := 0;
    StatusGauge.Progress := 0;
    Version.Caption := 'Ver: ' +
        clGetAppVersion(Application.ExeName);
    if ShowForm then
    begin
        Show();
        Refresh();
    end;
end;

procedure TFlashForm.Label1Click(Sender: TObject);
begin
    Hide();
end;

end.