111,7 → 111,7 |
implementation |
|
uses |
Global, LevSplash, LevSpeicherung, ComText, ComInfo, LevSource, LevOptions; |
Global, LevSplash, LevSpeicherung, LevText, SplInfo, LevSource, LevOptions; |
|
const |
FileError = 'Die Datei kann von SpaceMission nicht geƶffnet werden!'; |
448,14 → 448,13 |
begin |
MessageDLG('Die Datei "Texte\Mitwirkende.txt" ist nicht mehr vorhanden. Die Aktion wird abgebrochen!', |
mtWarning, [mbOK], 0); |
exit; |
end; |
|
end |
else |
begin |
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 |
473,9 → 472,7 |
|
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); |