Rev 97 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1 | daniel-mar | 1 | unit LevSplash; |
| 2 | |||
| 3 | interface |
||
| 4 | |||
| 5 | uses |
||
| 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
||
| 98 | daniel-mar | 7 | jpeg, ExtCtrls, StdCtrls, Vcl.Imaging.pngimage; |
| 1 | daniel-mar | 8 | |
| 9 | type |
||
| 10 | TSplashForm = class(TForm) |
||
| 11 | SplashImage: TImage; |
||
| 97 | daniel-mar | 12 | v: TLabel; |
| 13 | Label1: TLabel; |
||
| 1 | daniel-mar | 14 | end; |
| 15 | |||
| 16 | var |
||
| 17 | SplashForm: TSplashForm; |
||
| 18 | |||
| 19 | implementation |
||
| 20 | |||
| 21 | uses |
||
| 22 | LevMain; |
||
| 23 | |||
| 24 | {$R *.DFM} |
||
| 25 | |||
| 26 | end. |
||
| 27 |