www.pudn.com > yrsCapture.zip > Splash.pas

{******************************************************************************} 
{*                                                                            *} 
{*                 Adirondack Software & Graphics Splash Unit                 *} 
{*          (C) Copyright Adirondack Software & Graphics 1996-1998            *} 
{*                                                                            *} 
{******************************************************************************} 
 
unit Splash; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, ExtCtrls, INIFiles, ComCtrls; 
 
type 
  TSplashForm = class( TForm ) 
    Panel1: TPanel; 
    Bevel1: TBevel; 
    Panel2: TPanel; 
    Image1: TImage; 
    ProgramLabel: TLabel; 
    Version: TLabel; 
    Label6: TLabel; 
    Label14: TLabel; 
    Label15: TLabel; 
    Label2: TLabel; 
    Label7: TLabel; 
    Label3: TLabel; 
    Label10: TLabel; 
    Copyright: TLabel; 
    Label11: TLabel; 
    Label8: TLabel; 
    Label4: TLabel; 
    Label5: TLabel; 
    Label9: TLabel; 
    Label12: TLabel; 
    Label13: TLabel; 
    Label1: TLabel; 
    Label17: TLabel; 
    Label19: TLabel; 
    Label18: TLabel; 
    Label20: TLabel; 
    Label21: TLabel; 
    Timer1: TTimer; 
    procedure OKButtonClick( Sender: TObject ); 
    procedure Timer1Timer(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  SplashForm  : TSplashForm; 
 
implementation 
 
uses main; 
 
{$R *.DFM} 
 
{==============================================================================} 
procedure TSplashForm.OKButtonClick( Sender: TObject ); 
{==============================================================================} 
begin 
   Close; 
end; 
 
{==============================================================================} 
procedure TSplashForm.Timer1Timer(Sender: TObject); 
{==============================================================================} 
begin 
  Sleep(3000); 
  Release; 
  MainForm.Show; 
end; 
 
end.