(* ------------------------------------------------------------------------------
  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.