home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / D7 / MSI_Splash.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2003-08-19  |  1.1 KB  |  50 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       MiTeC System Information Component              }
  4. {                Splash Screen                          }
  5. {           version 8.0 for Delphi 5,6,7                  }
  6. {                                                       }
  7. {       Copyright ⌐ 1997,2003 Michal Mutl               }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. {$INCLUDE MITEC_DEF.INC}
  12.  
  13. unit MSI_Splash;
  14.  
  15. interface
  16.  
  17. uses
  18.   Windows, Messages, SysUtils, Classes, StdCtrls, Graphics, Controls,
  19.   ExtCtrls, Forms;
  20.  
  21. type
  22.   TscrMSI_Splash = class(TForm)
  23.     Panel1: TPanel;            
  24.     pInfo: TPanel;
  25.     Panel3: TPanel;
  26.     Image1: TImage;
  27.     lCopy: TLabel;
  28.     lVersion: TLabel;
  29.     procedure FormCreate(Sender: TObject);
  30.   private
  31.   public
  32.   end;
  33.  
  34. var
  35.   scrMSI_Splash: TscrMSI_Splash;
  36.  
  37. implementation
  38.  
  39. uses MSI_Common;
  40.  
  41. {$R *.DFM}
  42.  
  43. procedure TscrMSI_Splash.FormCreate(Sender: TObject);
  44. begin
  45.   lVersion.Caption:=cVersion;
  46.   lCopy.Caption:=cCopyright;
  47. end;
  48.  
  49. end.
  50.