131 lines
3.4 KiB
Plaintext
131 lines
3.4 KiB
Plaintext
(* ------------------------------------------------------------------------------
|
|
ResourceExtractor : 1.0
|
|
Copyright © 1986-2012 : Copyright Adirondack Software & Graphics
|
|
Last Modification : 04-05-2012
|
|
Source File : uSplash.pas
|
|
Compiler : Delphi 2010
|
|
Operating System : Windows 7
|
|
This file is copyright (C) W W Miller, 1986-2012.
|
|
It may be used without restriction. This code distributed on an "AS IS"
|
|
basis, WITHOUT WARRANTY OF ANY KIND, either express or implied.
|
|
------------------------------------------------------------------------------ *)
|
|
|
|
unit usplash;
|
|
|
|
{$WARN SYMBOL_PLATFORM OFF}
|
|
{$WARN UNIT_PLATFORM OFF}
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, ExtCtrls, StdCtrls, ComCtrls;
|
|
|
|
type
|
|
TFormSplash = class ( TForm )
|
|
pnlClient: TPanel;
|
|
Bevel1: TBevel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
Image1: TImage;
|
|
Label1: TLabel;
|
|
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 }
|
|
public
|
|
{ Public declarations }
|
|
constructor Create ( AOwner: TComponent ); override;
|
|
end;
|
|
|
|
var
|
|
FormSplash: TFormSplash;
|
|
|
|
const
|
|
VERSION = '1.0';
|
|
|
|
implementation
|
|
|
|
uses ShellAPI;
|
|
|
|
{$R *.dfm}
|
|
|
|
constructor TFormSplash.Create ( AOwner: TComponent );
|
|
begin
|
|
inherited;
|
|
Label3.Caption := 'Version ' + VERSION;
|
|
Label3.Invalidate;
|
|
end;
|
|
|
|
procedure TFormSplash.Label5MouseEnter ( Sender: TObject );
|
|
begin
|
|
Label5.Font.Color := clRed;
|
|
Label5.Font.Style := [ fsUnderline ];
|
|
end;
|
|
|
|
procedure TFormSplash.Label5MouseLeave ( Sender: TObject );
|
|
begin
|
|
Label5.Font.Color := clBlack;
|
|
Label5.Font.Style := [ ];
|
|
end;
|
|
|
|
procedure TFormSplash.Label5Click ( Sender: TObject );
|
|
begin
|
|
Screen.Cursor := crHourglass;
|
|
try
|
|
ShellExecute ( 0, nil, PChar ( 'mailto:' + Label5.Caption ), nil, nil, SW_NORMAL );
|
|
finally; Screen.Cursor := crDefault; end;
|
|
end;
|
|
|
|
procedure TFormSplash.Label1Click ( Sender: TObject );
|
|
begin
|
|
Screen.Cursor := crHourglass;
|
|
try
|
|
ShellExecute ( Handle, 'open', PChar ( 'http://www.hicomponents.com/Apprehend' ), nil, nil, SW_SHOWNORMAL );
|
|
finally; Screen.Cursor := crDefault; end;
|
|
end;
|
|
|
|
procedure TFormSplash.Label1MouseEnter ( Sender: TObject );
|
|
begin
|
|
Label1.Font.Color := clRed;
|
|
Label1.Font.Style := [ fsUnderline ];
|
|
end;
|
|
|
|
procedure TFormSplash.Label1MouseLeave ( Sender: TObject );
|
|
begin
|
|
Label1.Font.Color := clBlack;
|
|
Label1.Font.Style := [ ];
|
|
end;
|
|
|
|
procedure TFormSplash.Label4Click ( Sender: TObject );
|
|
begin
|
|
Screen.Cursor := crHourglass;
|
|
try
|
|
ShellExecute ( Handle, 'open', PChar ( 'http://www.hicomponents.com' ), nil, nil, SW_SHOWNORMAL );
|
|
finally; Screen.Cursor := crDefault; end;
|
|
end;
|
|
|
|
procedure TFormSplash.Label4MouseEnter ( Sender: TObject );
|
|
begin
|
|
Label4.Font.Color := clRed;
|
|
Label4.Font.Style := [ fsUnderline ];
|
|
end;
|
|
|
|
procedure TFormSplash.Label4MouseLeave ( Sender: TObject );
|
|
begin
|
|
Label4.Font.Color := clBlack;
|
|
Label4.Font.Style := [ ];
|
|
end;
|
|
|
|
end.
|
|
|