Rev 3 | Rev 6 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 3 | Rev 4 | ||
---|---|---|---|
Line 3... | Line 3... | ||
3 | interface |
3 | interface |
4 | 4 | ||
5 | uses |
5 | uses |
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem, |
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem, |
7 | Dialogs, StdCtrls, ExtCtrls, Menus, DIB, DXClass, DXSprite, DXDraws, |
7 | Dialogs, StdCtrls, ExtCtrls, Menus, DIB, DXClass, DXSprite, DXDraws, |
8 | DXSounds, Spin, ComCtrls; |
8 | DXSounds, Spin, ComCtrls, System.UITypes, WinAPI.DirectDraw; |
9 | 9 | ||
10 | type |
10 | type |
11 | TMainForm = class(TDXForm) |
11 | TMainForm = class(TDXForm) |
12 | MainMenu: TMainMenu; |
12 | MainMenu: TMainMenu; |
13 | Spiel: TMenuItem; |
13 | Spiel: TMenuItem; |
14 | Beenden: TMenuItem; |
14 | Beenden: TMenuItem; |
15 | Hilfe: TMenuItem; |
15 | Hilfe: TMenuItem; |
16 | Mitarbeiter: TMenuItem; |
- | |
17 | Leer1: TMenuItem; |
16 | Leer1: TMenuItem; |
18 | Level: TMenuItem; |
17 | Level: TMenuItem; |
19 | Informationen: TMenuItem; |
18 | Informationen: TMenuItem; |
20 | Leer2: TMenuItem; |
- | |
21 | Enemy1: TRadioButton; |
19 | Enemy1: TRadioButton; |
22 | Enemy2: TRadioButton; |
20 | Enemy2: TRadioButton; |
23 | Enemy3: TRadioButton; |
21 | Enemy3: TRadioButton; |
24 | Enemy4: TRadioButton; |
22 | Enemy4: TRadioButton; |
25 | Enemy5: TRadioButton; |
23 | Enemy5: TRadioButton; |
Line 53... | Line 51... | ||
53 | procedure DXDrawInitialize(Sender: TObject); |
51 | procedure DXDrawInitialize(Sender: TObject); |
54 | procedure FormCreate(Sender: TObject); |
52 | procedure FormCreate(Sender: TObject); |
55 | procedure DXTimerTimer(Sender: TObject; LagCount: Integer); |
53 | procedure DXTimerTimer(Sender: TObject; LagCount: Integer); |
56 | procedure BeendenClick(Sender: TObject); |
54 | procedure BeendenClick(Sender: TObject); |
57 | procedure FormDestroy(Sender: TObject); |
55 | procedure FormDestroy(Sender: TObject); |
58 | procedure MitarbeiterClick(Sender: TObject); |
- | |
59 | procedure LevelClick(Sender: TObject); |
56 | procedure LevelClick(Sender: TObject); |
60 | procedure FormShow(Sender: TObject); |
57 | procedure FormShow(Sender: TObject); |
61 | procedure InformationenClick(Sender: TObject); |
58 | procedure InformationenClick(Sender: TObject); |
62 | procedure FormClose(Sender: TObject; var Action: TCloseAction); |
59 | procedure FormClose(Sender: TObject; var Action: TCloseAction); |
63 | procedure DXDrawMouseDown(Sender: TObject; Button: TMouseButton; |
60 | procedure DXDrawMouseDown(Sender: TObject; Button: TMouseButton; |
Line 109... | Line 106... | ||
109 | MainForm: TMainForm; |
106 | MainForm: TMainForm; |
110 | 107 | ||
111 | implementation |
108 | implementation |
112 | 109 | ||
113 | uses |
110 | uses |
114 | Global, LevSplash, LevSpeicherung, ComText, ComInfo, LevSource, LevOptions; |
111 | Global, LevSplash, LevSpeicherung, ComInfo, LevSource, LevOptions; |
115 | 112 | ||
116 | const |
113 | const |
117 | FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!'; |
114 | FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!'; |
118 | status_info = ' Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigenschaften anzuzeigen...'; |
115 | status_info = ' Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigenschaften anzuzeigen...'; |
119 | status_lives = ' Leben: '; |
116 | status_lives = ' Leben: '; |
Line 121... | Line 118... | ||
121 | RasterW = 48; |
118 | RasterW = 48; |
122 | RasterH = 32; |
119 | RasterH = 32; |
123 | 120 | ||
124 | {$R *.DFM} |
121 | {$R *.DFM} |
125 | 122 | ||
126 | {$R WindowsXP.res} |
- | |
127 | - | ||
128 | type |
123 | type |
129 | TBackground = class(TBackgroundSprite) |
124 | TBackground = class(TBackgroundSprite) |
130 | protected |
125 | protected |
131 | procedure DoMove(MoveCount: Integer); override; |
126 | procedure DoMove(MoveCount: Integer); override; |
132 | end; |
127 | end; |
Line 213... | Line 208... | ||
213 | dxdraw.Display.FixedBitCount := False; |
208 | dxdraw.Display.FixedBitCount := False; |
214 | dxdraw.Display.FixedRatio := False; |
209 | dxdraw.Display.FixedRatio := False; |
215 | dxdraw.Display.FixedSize := False; |
210 | dxdraw.Display.FixedSize := False; |
216 | dxdraw.Display.Height := 600; |
211 | dxdraw.Display.Height := 600; |
217 | dxdraw.Display.Width := 800; |
212 | dxdraw.Display.Width := 800; |
218 | dxdraw.Options := [doAllowReboot, doWaitVBlank, doAllowPalette256, doCenter, doRetainedMode, doHardware, doSelectDriver]; |
213 | dxdraw.Options := [doAllowReboot, doWaitVBlank, doAllowPalette256, doCenter, {doRetainedMode,} doHardware, doSelectDriver]; |
219 | dxdraw.OnFinalize := DXDrawFinalize; |
214 | dxdraw.OnFinalize := DXDrawFinalize; |
220 | dxdraw.OnInitialize := DXDrawInitialize; |
215 | dxdraw.OnInitialize := DXDrawInitialize; |
221 | dxdraw.ParentShowHint := False; |
216 | dxdraw.ParentShowHint := False; |
222 | dxdraw.ShowHint := False; |
217 | dxdraw.ShowHint := False; |
223 | dxdraw.TabOrder := 0; |
218 | dxdraw.TabOrder := 0; |
Line 440... | Line 435... | ||
440 | end;} |
435 | end;} |
441 | PalleteAnim(RGBQuad(0, 0, 0), 300); |
436 | PalleteAnim(RGBQuad(0, 0, 0), 300); |
442 | mainform.Visible := true; |
437 | mainform.Visible := true; |
443 | end; |
438 | end; |
444 | 439 | ||
445 | procedure TMainForm.MitarbeiterClick(Sender: TObject); |
- | |
446 | begin |
- | |
447 | if not fileexists(fdirectory+'Texte\Mitwirkende.txt') then |
- | |
448 | begin |
- | |
449 | MessageDLG('Die Datei "Texte\Mitwirkende.txt" ist nicht mehr vorhanden. Die Aktion wird abgebrochen!', |
- | |
450 | mtWarning, [mbOK], 0); |
- | |
451 | exit; |
- | |
452 | end; |
- | |
453 | - | ||
454 | TextForm.memo1.lines.loadfromfile(FDirectory+'Texte\Mitwirkende.txt'); |
- | |
455 | mainform.dxtimer.enabled := false; |
- | |
456 | TextForm.showmodal; |
- | |
457 | mainform.dxtimer.enabled := true; |
- | |
458 | end; |
- | |
459 | - | ||
460 | procedure TMainForm.LevelClick(Sender: TObject); |
440 | procedure TMainForm.LevelClick(Sender: TObject); |
461 | begin |
441 | begin |
462 | speicherungform.showmodal; |
442 | speicherungform.showmodal; |
463 | end; |
443 | end; |
464 | 444 |