aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Menu/UMenu.pas
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Menu/UMenu.pas11
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