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. |