Subversion Repositories spacemission

Compare Revisions

Regard whitespace Rev 3 → Rev 4

/LevMain.pas
5,7 → 5,7
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem,
Dialogs, StdCtrls, ExtCtrls, Menus, DIB, DXClass, DXSprite, DXDraws,
DXSounds, Spin, ComCtrls;
DXSounds, Spin, ComCtrls, System.UITypes, WinAPI.DirectDraw;
 
type
TMainForm = class(TDXForm)
13,11 → 13,9
Spiel: TMenuItem;
Beenden: TMenuItem;
Hilfe: TMenuItem;
Mitarbeiter: TMenuItem;
Leer1: TMenuItem;
Level: TMenuItem;
Informationen: TMenuItem;
Leer2: TMenuItem;
Enemy1: TRadioButton;
Enemy2: TRadioButton;
Enemy3: TRadioButton;
55,7 → 53,6
procedure DXTimerTimer(Sender: TObject; LagCount: Integer);
procedure BeendenClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure MitarbeiterClick(Sender: TObject);
procedure LevelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure InformationenClick(Sender: TObject);
111,7 → 108,7
implementation
 
uses
Global, LevSplash, LevSpeicherung, ComText, ComInfo, LevSource, LevOptions;
Global, LevSplash, LevSpeicherung, ComInfo, LevSource, LevOptions;
 
const
FileError = 'Die Datei kann von SpaceMission nicht geƶffnet werden!';
123,8 → 120,6
 
{$R *.DFM}
 
{$R WindowsXP.res}
 
type
TBackground = class(TBackgroundSprite)
protected
215,7 → 210,7
dxdraw.Display.FixedSize := False;
dxdraw.Display.Height := 600;
dxdraw.Display.Width := 800;
dxdraw.Options := [doAllowReboot, doWaitVBlank, doAllowPalette256, doCenter, doRetainedMode, doHardware, doSelectDriver];
dxdraw.Options := [doAllowReboot, doWaitVBlank, doAllowPalette256, doCenter, {doRetainedMode,} doHardware, doSelectDriver];
dxdraw.OnFinalize := DXDrawFinalize;
dxdraw.OnInitialize := DXDrawInitialize;
dxdraw.ParentShowHint := False;
442,21 → 437,6
mainform.Visible := true;
end;
 
procedure TMainForm.MitarbeiterClick(Sender: TObject);
begin
if not fileexists(fdirectory+'Texte\Mitwirkende.txt') then
begin
MessageDLG('Die Datei "Texte\Mitwirkende.txt" ist nicht mehr vorhanden. Die Aktion wird abgebrochen!',
mtWarning, [mbOK], 0);
exit;
end;
 
TextForm.memo1.lines.loadfromfile(FDirectory+'Texte\Mitwirkende.txt');
mainform.dxtimer.enabled := false;
TextForm.showmodal;
mainform.dxtimer.enabled := true;
end;
 
procedure TMainForm.LevelClick(Sender: TObject);
begin
speicherungform.showmodal;