diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-21 15:13:23 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-21 15:13:23 +0000 |
| commit | b08c9047b5cdd5628f45877c90149e3bedd57b89 (patch) | |
| tree | 9a08f9ed604290801814b8c21327aab6f317263e /Game/Code/Screens/UScreenSongMenu.pas | |
| parent | 35572be5588c92bff06d21791122175d05819374 (diff) | |
| download | usdx-b08c9047b5cdd5628f45877c90149e3bedd57b89.tar.gz usdx-b08c9047b5cdd5628f45877c90149e3bedd57b89.tar.xz usdx-b08c9047b5cdd5628f45877c90149e3bedd57b89.zip | |
ParseInput(... ScanCode: byte; ...) -> ParseInput(... CharCode: WideChar; ...)
See: http://trac2.assembla.com/usdx/ticket/35
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@966 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
| -rw-r--r-- | Game/Code/Screens/UScreenSongMenu.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Game/Code/Screens/UScreenSongMenu.pas b/Game/Code/Screens/UScreenSongMenu.pas index 26843c3b..e3ec825e 100644 --- a/Game/Code/Screens/UScreenSongMenu.pas +++ b/Game/Code/Screens/UScreenSongMenu.pas @@ -25,7 +25,7 @@ type Visible: Boolean; //Whether the Menu should be Drawn constructor Create; override; - function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override; + function ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; override; procedure onShow; override; function Draw: boolean; override; procedure MenuShow(sMenu: Byte); @@ -64,7 +64,7 @@ uses UGraphic, UPlaylist, USongs; -function TScreenSongMenu.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; +function TScreenSongMenu.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; begin Result := true; If (PressedDown) Then @@ -74,7 +74,7 @@ begin case PressedKey of SDLK_0..SDLK_9, SDLK_A..SDLK_Z, SDLK_SPACE, SDLK_MINUS, SDLK_EXCLAIM, SDLK_COMMA, SDLK_SLASH, SDLK_ASTERISK, SDLK_QUESTION, SDLK_QUOTE, SDLK_QUOTEDBL: begin - Button[Interaction].Text[0].Text := Button[Interaction].Text[0].Text + chr(ScanCode); + Button[Interaction].Text[0].Text := Button[Interaction].Text[0].Text + CharCode; exit; end; |