Rev 2 | Rev 4 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 2 | Rev 3 | ||
|---|---|---|---|
| Line 109... | Line 109... | ||
| 109 | MainForm: TMainForm; |
109 | MainForm: TMainForm; |
| 110 | 110 | ||
| 111 | implementation |
111 | implementation |
| 112 | 112 | ||
| 113 | uses |
113 | uses |
| 114 | Global, LevSplash, LevSpeicherung, LevText, SplInfo, LevSource, LevOptions; |
114 | Global, LevSplash, LevSpeicherung, ComText, ComInfo, LevSource, LevOptions; |
| 115 | 115 | ||
| 116 | const |
116 | const |
| 117 | FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!'; |
117 | FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!'; |
| 118 | status_info = ' Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigenschaften anzuzeigen...'; |
118 | status_info = ' Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigenschaften anzuzeigen...'; |
| 119 | status_lives = ' Leben: '; |
119 | status_lives = ' Leben: '; |
| Line 446... | Line 446... | ||
| 446 | begin |
446 | begin |
| 447 | if not fileexists(fdirectory+'Texte\Mitwirkende.txt') then |
447 | if not fileexists(fdirectory+'Texte\Mitwirkende.txt') then |
| 448 | begin |
448 | begin |
| 449 | MessageDLG('Die Datei "Texte\Mitwirkende.txt" ist nicht mehr vorhanden. Die Aktion wird abgebrochen!', |
449 | MessageDLG('Die Datei "Texte\Mitwirkende.txt" ist nicht mehr vorhanden. Die Aktion wird abgebrochen!', |
| 450 | mtWarning, [mbOK], 0); |
450 | mtWarning, [mbOK], 0); |
| 451 | end |
451 | exit; |
| 452 | else |
452 | end; |
| 453 | begin |
453 | |
| 454 | TextForm.memo1.lines.loadfromfile(FDirectory+'Texte\Mitwirkende.txt'); |
454 | TextForm.memo1.lines.loadfromfile(FDirectory+'Texte\Mitwirkende.txt'); |
| - | 455 | mainform.dxtimer.enabled := false; |
|
| 455 | TextForm.showmodal; |
456 | TextForm.showmodal; |
| 456 | end; |
457 | mainform.dxtimer.enabled := true; |
| 457 | end; |
458 | end; |
| 458 | 459 | ||
| 459 | procedure TMainForm.LevelClick(Sender: TObject); |
460 | procedure TMainForm.LevelClick(Sender: TObject); |
| 460 | begin |
461 | begin |
| 461 | speicherungform.showmodal; |
462 | speicherungform.showmodal; |
| Line 470... | Line 471... | ||
| 470 | dxtimer.ActiveOnly := true; |
471 | dxtimer.ActiveOnly := true; |
| 471 | end; |
472 | end; |
| 472 | 473 | ||
| 473 | procedure TMainForm.InformationenClick(Sender: TObject); |
474 | procedure TMainForm.InformationenClick(Sender: TObject); |
| 474 | begin |
475 | begin |
| - | 476 | mainform.dxtimer.enabled := false; |
|
| 475 | InfoForm.showmodal; |
477 | InfoForm.showmodal; |
| - | 478 | mainform.dxtimer.enabled := true; |
|
| 476 | end; |
479 | end; |
| 477 | 480 | ||
| 478 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); |
481 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); |
| 479 | begin |
482 | begin |
| 480 | SpriteEngine.Engine.Clear; |
483 | SpriteEngine.Engine.Clear; |