132 lines
3.1 KiB
Plaintext
132 lines
3.1 KiB
Plaintext
unit usplash;
|
|
|
|
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;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
Label1: TLabel;
|
|
Label6: TLabel;
|
|
ProgressBar: TProgressBar;
|
|
Label5: TLabel;
|
|
procedure Label5MouseEnter ( Sender: TObject );
|
|
procedure Label5MouseLeave ( Sender: TObject );
|
|
procedure Label5Click ( Sender: TObject );
|
|
procedure Label1Click ( Sender: TObject );
|
|
procedure Label1MouseEnter ( Sender: TObject );
|
|
procedure Label1MouseLeave ( Sender: TObject );
|
|
procedure Label4Click ( Sender: TObject );
|
|
procedure Label4MouseEnter ( Sender: TObject );
|
|
procedure Label4MouseLeave ( Sender: TObject );
|
|
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;
|
|
|
|
const
|
|
VERSION = '1.0';
|
|
|
|
implementation
|
|
|
|
uses ShellAPI;
|
|
|
|
{$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;
|
|
Label3.Caption := 'Version ' + VERSION;
|
|
Label3.Invalidate;
|
|
end;
|
|
|
|
procedure TfrmSplash.Label5MouseEnter ( Sender: TObject );
|
|
begin
|
|
Label5.Font.Color := clRed;
|
|
Label5.Font.Style := [ fsUnderline ];
|
|
end;
|
|
|
|
procedure TfrmSplash.Label5MouseLeave ( Sender: TObject );
|
|
begin
|
|
Label5.Font.Color := clBlack;
|
|
Label5.Font.Style := [ ];
|
|
end;
|
|
|
|
procedure TfrmSplash.Label5Click ( Sender: TObject );
|
|
begin
|
|
Screen.Cursor := crHourglass;
|
|
try
|
|
ShellExecute ( Handle, 'open', PChar ( 'http://www.imageen.com/download/' ), nil, nil, SW_SHOWNORMAL );
|
|
finally; Screen.Cursor := crDefault; end;
|
|
end;
|
|
|
|
procedure TfrmSplash.Label1Click ( Sender: TObject );
|
|
begin
|
|
Screen.Cursor := crHourglass;
|
|
try
|
|
ShellExecute ( Handle, 'open', PChar ( 'http://www.imageen.com/download/' ), nil, nil, SW_SHOWNORMAL );
|
|
finally; Screen.Cursor := crDefault; end;
|
|
end;
|
|
|
|
procedure TfrmSplash.Label1MouseEnter ( Sender: TObject );
|
|
begin
|
|
Label1.Font.Color := clRed;
|
|
Label1.Font.Style := [ fsUnderline ];
|
|
end;
|
|
|
|
procedure TfrmSplash.Label1MouseLeave ( Sender: TObject );
|
|
begin
|
|
Label1.Font.Color := clBlack;
|
|
Label1.Font.Style := [ ];
|
|
end;
|
|
|
|
procedure TfrmSplash.Label4Click ( Sender: TObject );
|
|
begin
|
|
Screen.Cursor := crHourglass;
|
|
try
|
|
ShellExecute ( Handle, 'open', PChar ( 'http://www.imageen.com' ), nil, nil, SW_SHOWNORMAL );
|
|
finally; Screen.Cursor := crDefault; end;
|
|
end;
|
|
|
|
procedure TfrmSplash.Label4MouseEnter ( Sender: TObject );
|
|
begin
|
|
Label4.Font.Color := clRed;
|
|
Label4.Font.Style := [ fsUnderline ];
|
|
end;
|
|
|
|
procedure TfrmSplash.Label4MouseLeave ( Sender: TObject );
|
|
begin
|
|
Label4.Font.Color := clBlack;
|
|
Label4.Font.Style := [ ];
|
|
end;
|
|
|
|
end.
|
|
|