home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / nagscr / frmnag.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-22  |  2.1 KB  |  89 lines
  1. {*********************************************
  2. * TNagScreen form unit for Delphi            *
  3. * FRMNAG.PAS 09/19/95                        *
  4. * Version 1.0a                               *
  5. * Copyright: D & L Tech Services '95         *
  6. * By: David M. Gentils                       *
  7. **********************************************}
  8. unit Frmnag;
  9.  
  10. interface
  11.  
  12. uses WinTypes, WinProcs, sysutils, Classes, Graphics, Forms, Controls, Buttons,
  13.   StdCtrls, ExtCtrls;
  14.  
  15. type
  16.   TFormNag = class(TForm)
  17.     Bevel1: TBevel;
  18.     ProductName: TPanel;
  19.     cmdContinue: TBitBtn;
  20.     Timer1: TTimer;
  21.     panTime: TPanel;
  22.     Version: TLabel;
  23.     CopyRight: TLabel;
  24.     Comments: TLabel;
  25.     Bevel2: TBevel;
  26.     Bevel3: TBevel;
  27.     Author: TLabel;
  28.     Address: TLabel;
  29.     CityStateZip: TLabel;
  30.     Bevel4: TBevel;
  31.     procedure cmdContinueClick(Sender: TObject);
  32.     procedure Timer1Timer(Sender: TObject);
  33.     procedure FormCreate(Sender: TObject);
  34.   private
  35.     { Private declarations }
  36.     TimeIndex, TotTime: Byte;
  37.   public
  38.     { Public declarations }
  39.   end;
  40.  
  41. const
  42.      MaxTime = 10; {Change this setting for
  43.                     delay time (in Secs.)
  44.                     Higher increases, Lower
  45.                     decreases (Min = 0, Max = 200)}
  46.  
  47. var
  48.   FormNag: TFormNag;
  49.  
  50. implementation
  51. {$R *.DFM}
  52.  
  53. procedure TFormNag.cmdContinueClick(Sender: TObject);
  54. begin
  55.      Close; {Close Nag Form}
  56. end;
  57.  
  58. procedure TFormNag.Timer1Timer(Sender: TObject);
  59. begin
  60.      Dec(TotTime);
  61.      Inc(TimeIndex);
  62.      panTime.Caption := IntToStr(TotTime);
  63.      if TimeIndex >= MaxTime then
  64.      begin
  65.           cmdContinue.Enabled := True;
  66.           panTime.Visible := False;
  67.           Timer1.Enabled := False;
  68.      end;
  69. end;
  70.  
  71. procedure TFormNag.FormCreate(Sender: TObject);
  72. begin
  73.      TimeIndex := 0;
  74.      TotTime := MaxTime;
  75.      if MaxTime > 0 then
  76.      begin
  77.           panTime.Visible := True;
  78.           panTime.Caption := IntToStr(MaxTime);
  79.           Timer1.Enabled := True;
  80.      end
  81.      else
  82.      begin
  83.          panTime.Visible := False;
  84.          cmdContinue.Enabled := True;
  85.      end;
  86. end;
  87.  
  88. end.
  89.