Rev 14 | Rev 24 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 14 | Rev 15 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | unit LevMain; |
1 | unit LevMain; |
| 2 | 2 | ||
| - | 3 | // TODO 2024: |
|
| - | 4 | // - Wenn man ein Level "X" lädt, und dann Verwalten wieder öffnet, sollte diese Level-Nummer vorgeschlagen werden, sodass man direkt Speichern klicken kann |
|
| - | 5 | ||
| 3 | interface |
6 | interface |
| 4 | 7 | ||
| 5 | uses |
8 | uses |
| 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem, |
9 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem, |
| 7 | Dialogs, StdCtrls, ExtCtrls, Menus, DIB, DXClass, DXSprite, DXDraws, |
10 | Dialogs, StdCtrls, ExtCtrls, Menus, DIB, DXClass, DXSprite, DXDraws, |
| 8 | DXSounds, Spin, ComCtrls{$IF CompilerVersion >= 23.0}, System.UITypes, |
11 | DXSounds, Spin, ComCtrls{$IF CompilerVersion >= 23.0}, System.UITypes, |
| 9 | WinAPI.DirectDraw{$ELSE}, DirectX{$IFEND}; |
12 | WinAPI.DirectDraw{$ENDIF}, DirectX; |
| 10 | 13 | ||
| 11 | type |
14 | type |
| 12 | TMainForm = class(TDXForm) |
15 | TMainForm = class(TDXForm) |
| 13 | MainMenu: TMainMenu; |
16 | MainMenu: TMainMenu; |
| 14 | Spiel: TMenuItem; |
17 | Spiel: TMenuItem; |
| Line 726... | Line 729... | ||
| 726 | LivesChange(lives.Position); |
729 | LivesChange(lives.Position); |
| 727 | end; |
730 | end; |
| 728 | 731 | ||
| 729 | procedure TMainForm.LivesEdtKeyPress(Sender: TObject; var Key: Char); |
732 | procedure TMainForm.LivesEdtKeyPress(Sender: TObject; var Key: Char); |
| 730 | begin |
733 | begin |
| - | 734 | {$IFDEF UNICODE} |
|
| - | 735 | if not CharInSet(Key, [#13, #08, '0'..'9']) then |
|
| - | 736 | {$ELSE} |
|
| 731 | if not (Key in [#13, #08, '0'..'9']) then |
737 | if not (Key in [#13, #08, '0'..'9']) then |
| - | 738 | {$ENDIF} |
|
| 732 | Key := #0; |
739 | Key := #0; |
| 733 | end; |
740 | end; |
| 734 | 741 | ||
| 735 | procedure TMainForm.LivesEdtChange(Sender: TObject); |
742 | procedure TMainForm.LivesEdtChange(Sender: TObject); |
| 736 | begin |
743 | begin |