diff options
| author | eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-25 20:41:08 +0000 |
|---|---|---|
| committer | eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-25 20:41:08 +0000 |
| commit | 7968b0878c1c13f61dddbacb603e00997af38f63 (patch) | |
| tree | 601c94658ea0271a9f44d1a40284afd0d620031e /Game/Code/Menu | |
| parent | 2ab5632e101af18810c288ad670ed130202605ad (diff) | |
| download | usdx-7968b0878c1c13f61dddbacb603e00997af38f63.tar.gz usdx-7968b0878c1c13f61dddbacb603e00997af38f63.tar.xz usdx-7968b0878c1c13f61dddbacb603e00997af38f63.zip | |
Fixed compilation on the mac.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@972 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Menu')
| -rw-r--r-- | Game/Code/Menu/UMenu.pas | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Game/Code/Menu/UMenu.pas b/Game/Code/Menu/UMenu.pas index dcdcf1ca..4fd9262a 100644 --- a/Game/Code/Menu/UMenu.pas +++ b/Game/Code/Menu/UMenu.pas @@ -46,6 +46,7 @@ type //constructor Create(Back: string; W, H: integer); overload; virtual; // W and H are the number of overlaps // interaction + function WideCharUpperCase(const wchar : WideChar) : WideString; procedure AddInteraction(Typ, Num: integer); procedure SetInteraction(Num: integer); property Interaction: integer read SelInteraction write SetInteraction; @@ -1543,6 +1544,16 @@ begin // beep; end; +function TMenu.WideCharUpperCase(const wchar : WideChar) : WideString; +begin + {$IFDEF DARWIN} + // eddie: WideUpperCase crashes on the mac with WideChars. + Result := UpperCase(wchar); + {$ELSE} + Result := WideUpperCase(wchar); + {$ENDIF} +end; + procedure TMenu.onHide; begin // nothing |