60 lines
1.3 KiB
Plaintext
60 lines
1.3 KiB
Plaintext
{----------------------------------------------------------------------------
|
|
| TImageENView Image Batch Conversion Demo
|
|
| Description: Demonstrate TImageEnView
|
|
| Known Problems: None
|
|
|---------------------------------------------------------------------------}
|
|
|
|
unit Splash;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, {$IfNDef VER130} Variants, {$EndIf} Classes, Graphics, Controls, Forms,
|
|
Dialogs, ExtCtrls, StdCtrls, ComCtrls;
|
|
|
|
type
|
|
TfrmSplash = class(TForm)
|
|
pnlClient: TPanel;
|
|
Bevel1: TBevel;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
ProgressBar: TProgressBar;
|
|
Label5: TLabel;
|
|
private
|
|
{ Private declarations }
|
|
function GetProgress: Integer;
|
|
procedure SetProgress(AValue: Integer);
|
|
public
|
|
{ Public declarations }
|
|
constructor Create(AOwner: TComponent); override;
|
|
property Progress: Integer read GetProgress write SetProgress;
|
|
end;
|
|
|
|
var
|
|
frmSplash: TfrmSplash;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
function TfrmSplash.GetProgress: Integer;
|
|
begin
|
|
Result := ProgressBar.Position;
|
|
end;
|
|
|
|
procedure TfrmSplash.SetProgress(AValue: Integer);
|
|
begin
|
|
ProgressBar.Position := AValue;
|
|
Update;
|
|
end;
|
|
|
|
constructor TfrmSplash.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
ProgressBar.Position := 0;
|
|
end;
|
|
|
|
end.
|