Subversion Repositories spacemission

Compare Revisions

Regard whitespace Rev 2 → Rev 3

/LevMain.pas
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);