diff -r 4c35e9cf6057 -r 40e5af28d026 hedgewars/uUtils.pas --- a/hedgewars/uUtils.pas Wed May 02 11:28:38 2012 +0200 +++ b/hedgewars/uUtils.pas Wed May 02 10:53:13 2012 +0100 @@ -296,12 +296,13 @@ u: WideChar; tmpstr: array[0..256] of WideChar; begin +CheckCJKFont:= font; {$IFNDEF MOBILE} // remove chinese fonts for now if (font >= CJKfnt16) or (length(s) = 0) then {$ENDIF} - exit(font); + exit; l:= Utf8ToUnicode(@tmpstr, Str2PChar(s), length(s))-1; i:= 0; @@ -320,10 +321,13 @@ ((#$AC00 <= u) and (u <= #$D7AF)) or // Hangul Syllables ((#$F900 <= u) and (u <= #$FAFF)) or // CJK Compatibility Ideographs ((#$FE30 <= u) and (u <= #$FE4F))) // CJK Compatibility Forms - then exit(THWFont( ord(font) + ((ord(High(THWFont))+1) div 2) )); + then + begin + CheckCJKFont:= THWFont( ord(font) + ((ord(High(THWFont))+1) div 2) ); + exit; + end; inc(i) end; -exit(font); (* two more to check. pascal WideChar is only 16 bit though ((#$20000 <= u) and (u >= #$2A6DF)) or // CJK Unified Ideographs Extension B ((#$2F800 <= u) and (u >= #$2FA1F))) // CJK Compatibility Ideographs Supplement *)