diff options
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 : |