359 begin |
359 begin |
360 u:= tmpstr[i]; |
360 u:= tmpstr[i]; |
361 if (#$1100 <= u) and ( |
361 if (#$1100 <= u) and ( |
362 (u <= #$11FF ) or // Hangul Jamo |
362 (u <= #$11FF ) or // Hangul Jamo |
363 ((#$2E80 <= u) and (u <= #$2FDF)) or // CJK Radicals Supplement / Kangxi Radicals |
363 ((#$2E80 <= u) and (u <= #$2FDF)) or // CJK Radicals Supplement / Kangxi Radicals |
364 ((#$2FF0 <= u) and (u <= #$303F)) or // Ideographic Description Characters / CJK Radicals Supplement |
364 ((#$2FF0 <= u) and (u <= #$31FF)) or // Ideographic Description Characters / CJK Radicals Supplement / Hiragana / Hangul Compatibility Jamo / Katakana |
365 ((#$3130 <= u) and (u <= #$318F)) or // Hangul Compatibility Jamo |
|
366 ((#$31C0 <= u) and (u <= #$31EF)) or // CJK Strokes |
365 ((#$31C0 <= u) and (u <= #$31EF)) or // CJK Strokes |
367 ((#$3200 <= u) and (u <= #$4DBF)) or // Enclosed CJK Letters and Months / CJK Compatibility / CJK Unified Ideographs Extension A |
366 ((#$3200 <= u) and (u <= #$4DBF)) or // Enclosed CJK Letters and Months / CJK Compatibility / CJK Unified Ideographs Extension A / Circled Katakana |
368 ((#$4E00 <= u) and (u <= #$9FFF)) or // CJK Unified Ideographs |
367 ((#$4E00 <= u) and (u <= #$9FFF)) or // CJK Unified Ideographs |
369 ((#$AC00 <= u) and (u <= #$D7AF)) or // Hangul Syllables |
368 ((#$AC00 <= u) and (u <= #$D7AF)) or // Hangul Syllables |
370 ((#$F900 <= u) and (u <= #$FAFF)) or // CJK Compatibility Ideographs |
369 ((#$F900 <= u) and (u <= #$FAFF)) or // CJK Compatibility Ideographs |
371 ((#$FE30 <= u) and (u <= #$FE4F))) // CJK Compatibility Forms |
370 ((#$FE30 <= u) and (u <= #$FE4F)) or // CJK Compatibility Forms |
|
371 ((#$FF66 <= u) and (u <= #$FF9D))) // halfwidth katakana |
372 then |
372 then |
373 begin |
373 begin |
374 CheckCJKFont:= THWFont( ord(font) + ((ord(High(THWFont))+1) div 2) ); |
374 CheckCJKFont:= THWFont( ord(font) + ((ord(High(THWFont))+1) div 2) ); |
375 exit; |
375 exit; |
376 end; |
376 end; |