Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program EnjoyChess;
- Uses
- Vcl.Forms,
- EnjoyChessVCLWelcomeWindow In 'EnjoyChessVCLWelcomeWindow.pas' {frmWelcomeWindow} ,
- EnjoyChessDataImages In 'EnjoyChessDataImages.pas' {dtmdData: TDataModule} ,
- EnjoyChessVCLAnalysis In 'EnjoyChessVCLAnalysis.pas' {frmAnalysis} ,
- EnjoyChessVCLGameForm In 'EnjoyChessVCLGameForm.pas' {frmGameForm} ,
- EnjoyChessVCLSettings In 'EnjoyChessVCLSettings.pas' {frmSettings} ,
- Vcl.Themes,
- Vcl.Styles,
- EnjoyChessBackEngine In 'EnjoyChessBackEngine.pas',
- EnjoyChessLoadingScreen In 'EnjoyChessLoadingScreen.pas' {frmLoadingScreen};
- {$R *.res}
- Begin
- Application.Initialize;
- FrmLoadingScreen := TfrmLoadingScreen.Create(Application);
- FrmLoadingScreen.Show;
- While FrmLoadingScreen.TmrEndLoadingScreen.Enabled Do
- Application.ProcessMessages;
- FrmLoadingScreen.Hide;
- Application.MainFormOnTaskbar := False;
- Application.CreateForm(TFrmWelcomeWindow, FrmWelcomeWindow);
- Application.CreateForm(TDtmdData, DtmdDataImages);
- FrmLoadingScreen.Free;
- Application.CreateForm(TDtmdData, DtmdDataImages);
- Application.Run;
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement