Rev 80 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 80 | Rev 90 | ||
|---|---|---|---|
| Line 120... | Line 120... | ||
| 120 | uses |
120 | uses |
| 121 | LevSplash, LevSpeicherung, ComInfo, LevOptions, ShellAPI, ComHilfe; |
121 | LevSplash, LevSpeicherung, ComInfo, LevOptions, ShellAPI, ComHilfe; |
| 122 | 122 | ||
| 123 | {$R *.DFM} |
123 | {$R *.DFM} |
| 124 | 124 | ||
| - | 125 | resourcestring |
|
| - | 126 | status_info = 'Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigenschaften anzuzeigen...'; |
|
| - | 127 | ||
| 125 | type |
128 | type |
| 126 | TBackground = class(TBackgroundSprite) |
129 | TBackground = class(TBackgroundSprite) |
| 127 | strict protected |
130 | strict protected |
| 128 | procedure DoMove(MoveCount: Integer); override; |
131 | procedure DoMove(MoveCount: Integer); override; |
| 129 | end; |
132 | end; |
| Line 238... | Line 241... | ||
| 238 | imagelist := tdximagelist.create(self); |
241 | imagelist := tdximagelist.create(self); |
| 239 | imagelist.DXDraw := dxdraw; |
242 | imagelist.DXDraw := dxdraw; |
| 240 | 243 | ||
| 241 | { VCL-Ersatz ende } |
244 | { VCL-Ersatz ende } |
| 242 | 245 | ||
| - | 246 | StatusBar.SimpleText := ' ' + status_info; |
|
| - | 247 | ||
| 243 | LivesEdit.MinValue := 1; |
248 | LivesEdit.MinValue := 1; |
| 244 | LivesEdit.MaxValue := MaxPossibleEnemyLives; |
249 | LivesEdit.MaxValue := MaxPossibleEnemyLives; |
| 245 | LivesEdit.Value := 1; |
250 | LivesEdit.Value := 1; |
| 246 | 251 | ||
| 247 | Enemy1.Checked := true; |
252 | Enemy1.Checked := true; |
| Line 747... | Line 752... | ||
| 747 | end; |
752 | end; |
| 748 | 753 | ||
| 749 | procedure TMainForm.DXDrawMouseMove(Sender: TObject; Shift: TShiftState; X, |
754 | procedure TMainForm.DXDrawMouseMove(Sender: TObject; Shift: TShiftState; X, |
| 750 | Y: Integer); |
755 | Y: Integer); |
| 751 | resourcestring |
756 | resourcestring |
| 752 | status_info = 'Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigenschaften anzuzeigen...'; |
- | |
| 753 | status_lives = 'Leben: '; |
757 | status_lives = 'Leben: '; |
| 754 | status_nolives = 'Einheit hat keine Lebensangabe'; |
758 | status_nolives = 'Einheit hat keine Lebensangabe'; |
| 755 | SUnknownEnemyType = '???'; |
759 | SUnknownEnemyType = '???'; |
| 756 | var |
760 | var |
| 757 | i: TEnemyType; |
761 | i: TEnemyType; |