home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 February / PCWorld_1999-02_cd.bin / temacd / HotKeys / hkAbout.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-29  |  1.1 KB  |  58 lines
  1. unit hkAbout;
  2.  
  3. interface
  4.  
  5. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  6.   Buttons, ExtCtrls, AniPlay;
  7.  
  8. type
  9.   TfrmAbout = class(TForm)
  10.     pnlAbout: TPanel;
  11.     lblProductName: TLabel;
  12.     lblVersion: TLabel;
  13.     lblCopyright: TLabel;
  14.     lblComments: TLabel;
  15.     btnOk: TButton;
  16.     AnimIcon: TAnimatedIconPlayer;
  17.     timStart: TTimer;
  18.     procedure btnOkClick(Sender: TObject);
  19.     procedure AnimIconStopped(Sender: TObject);
  20.     procedure timStartTimer(Sender: TObject);
  21.     procedure FormShow(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  27.  
  28. var
  29.   frmAbout: TfrmAbout;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34.  
  35. procedure TfrmAbout.btnOkClick(Sender: TObject);
  36. begin
  37.   Close;
  38. end;
  39.  
  40. procedure TfrmAbout.AnimIconStopped(Sender: TObject);
  41. begin
  42.   timStart.Enabled := True;
  43. end;
  44.  
  45. procedure TfrmAbout.timStartTimer(Sender: TObject);
  46. begin
  47.   timStart.Enabled := False;
  48.   AnimIcon.Play;
  49. end;
  50.  
  51. procedure TfrmAbout.FormShow(Sender: TObject);
  52. begin
  53.   AnimIcon.Play;
  54. end;
  55.  
  56. end.
  57.  
  58.