| 5,7 → 5,7 |
|---|
| uses |
| Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem, |
| Dialogs, StdCtrls, ExtCtrls, Menus, DIB, DXClass, DXSprite, DXDraws, |
| DXSounds, Spin, ComCtrls, System.UITypes, WinAPI.DirectDraw; |
| DXSounds, Spin, ComCtrls; |
| |
| type |
| TMainForm = class(TDXForm) |
| 13,9 → 13,11 |
|---|
| Spiel: TMenuItem; |
| Beenden: TMenuItem; |
| Hilfe: TMenuItem; |
| Mitarbeiter: TMenuItem; |
| Leer1: TMenuItem; |
| Level: TMenuItem; |
| Informationen: TMenuItem; |
| Leer2: TMenuItem; |
| Enemy1: TRadioButton; |
| Enemy2: TRadioButton; |
| Enemy3: TRadioButton; |
| 53,6 → 55,7 |
|---|
| 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); |
| 108,7 → 111,7 |
|---|
| implementation |
| |
| uses |
| Global, LevSplash, LevSpeicherung, ComInfo, LevSource, LevOptions; |
| Global, LevSplash, LevSpeicherung, ComText, ComInfo, LevSource, LevOptions; |
| |
| const |
| FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!'; |
| 120,6 → 123,8 |
|---|
| |
| {$R *.DFM} |
| |
| {$R WindowsXP.res} |
| |
| type |
| TBackground = class(TBackgroundSprite) |
| protected |
| 210,7 → 215,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; |
| 437,6 → 442,21 |
|---|
| 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; |