equal
deleted
inserted
replaced
836 function CheckCJKFont(s: ansistring; font: THWFont): THWFont; |
836 function CheckCJKFont(s: ansistring; font: THWFont): THWFont; |
837 var l, i : LongInt; |
837 var l, i : LongInt; |
838 u: WideChar; |
838 u: WideChar; |
839 tmpstr: array[0..256] of WideChar; |
839 tmpstr: array[0..256] of WideChar; |
840 begin |
840 begin |
841 if (font >= CJKfnt16) or (length(s) = 0) then exit(font); |
841 |
|
842 {$IFNDEF IPHONEOS} |
|
843 // remove chinese fonts for now |
|
844 if (font >= CJKfnt16) or (length(s) = 0) then |
|
845 {$ENDIF} |
|
846 exit(font); |
842 |
847 |
843 l:= Utf8ToUnicode(@tmpstr, Str2PChar(s), length(s))-1; |
848 l:= Utf8ToUnicode(@tmpstr, Str2PChar(s), length(s))-1; |
844 i:= 0; |
849 i:= 0; |
845 while i < l do |
850 while i < l do |
846 begin |
851 begin |