diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-07-23 15:06:47 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-07-23 15:06:47 +0000 |
commit | 8cfc0fff4c3f039b65dbfedb290cd211b673a060 (patch) | |
tree | 4fa2ed5e31181fe54b1853f83851c994f2b1678a /unicode/src/screens/UScreenName.pas | |
parent | 33c1099799c6d489e849742b5d9fb7f7f6a06c3c (diff) | |
download | usdx-8cfc0fff4c3f039b65dbfedb290cd211b673a060.tar.gz usdx-8cfc0fff4c3f039b65dbfedb290cd211b673a060.tar.xz usdx-8cfc0fff4c3f039b65dbfedb290cd211b673a060.zip |
cleanup
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1865 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'unicode/src/screens/UScreenName.pas')
-rw-r--r-- | unicode/src/screens/UScreenName.pas | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/unicode/src/screens/UScreenName.pas b/unicode/src/screens/UScreenName.pas index dc2f14ef..31edfd6b 100644 --- a/unicode/src/screens/UScreenName.pas +++ b/unicode/src/screens/UScreenName.pas @@ -76,8 +76,7 @@ begin + KMOD_LCTRL + KMOD_RCTRL + KMOD_LALT + KMOD_RALT); // check normal keys - if (IsAlphaNumericChar(CharCode) or - IsPunctuationChar(CharCode)) then + if (IsPrintableChar(CharCode)) then begin Button[Interaction].Text[0].Text := Button[Interaction].Text[0].Text + UCS4ToUTF8String(CharCode); @@ -198,7 +197,7 @@ begin SDLK_BACKSPACE: begin - Button[Interaction].Text[0].DeleteLastLetter; + Button[Interaction].Text[0].DeleteLastLetter(); end; SDLK_ESCAPE : |