111,7 → 111,7 |
implementation |
|
uses |
Global, LevSplash, LevSpeicherung, LevText, SplInfo, LevSource, LevOptions; |
Global, LevSplash, LevSpeicherung, ComText, ComInfo, LevSource, LevOptions; |
|
const |
FileError = 'Die Datei kann von SpaceMission nicht geƶffnet werden!'; |
448,13 → 448,14 |
begin |
MessageDLG('Die Datei "Texte\Mitwirkende.txt" ist nicht mehr vorhanden. Die Aktion wird abgebrochen!', |
mtWarning, [mbOK], 0); |
end |
else |
begin |
exit; |
end; |
|
TextForm.memo1.lines.loadfromfile(FDirectory+'Texte\Mitwirkende.txt'); |
mainform.dxtimer.enabled := false; |
TextForm.showmodal; |
mainform.dxtimer.enabled := true; |
end; |
end; |
|
procedure TMainForm.LevelClick(Sender: TObject); |
begin |
472,7 → 473,9 |
|
procedure TMainForm.InformationenClick(Sender: TObject); |
begin |
mainform.dxtimer.enabled := false; |
InfoForm.showmodal; |
mainform.dxtimer.enabled := true; |
end; |
|
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); |