Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1 | daniel-mar | 1 | program PegSolitaire; |
2 | |||
3 | uses |
||
4 | Forms, |
||
5 | Main in 'Main.pas' {MainForm}, |
||
6 | About in 'About.pas' {AboutBox}, |
||
7 | Finish in 'Finish.pas' {FinishForm}, |
||
8 | Choice in 'Choice.pas' {LevelChoice}, |
||
9 | LevelFunctions in 'LevelFunctions.pas', |
||
10 | Functions in 'Functions.pas', |
||
11 | History in 'History.pas' {HistoryForm}, |
||
12 | HighScore in 'HighScore.pas' {HighScoreForm}, |
||
13 | Help in 'Help.pas' {HelpForm}, |
||
14 | Constants in 'Constants.pas'; |
||
15 | |||
16 | {$R *.res} |
||
17 | {$R ExtraResources.res} |
||
18 | |||
19 | begin |
||
20 | Application.Initialize; |
||
21 | Application.Title := 'ViaThinkSoft Peg Solitaire'; |
||
22 | Application.CreateForm(TMainForm, MainForm); |
||
23 | Application.CreateForm(TAboutBox, AboutBox); |
||
24 | Application.CreateForm(TFinishForm, FinishForm); |
||
25 | Application.CreateForm(TLevelChoice, LevelChoice); |
||
26 | Application.CreateForm(THistoryForm, HistoryForm); |
||
27 | Application.CreateForm(THighScoreForm, HighScoreForm); |
||
28 | Application.CreateForm(THelpForm, HelpForm); |
||
29 | Application.Run; |
||
30 | end. |