case GetACP of
874:
begin
DefFont.Name := '？？？';
DefFont.Charset := THAI_CHARSET;
end;
932:
begin
DefFont.Name := 'ＭＳ Ｐゴシック';
DefFont.Charset := SHIFTJIS_CHARSET;
end;
936:
begin
DefFont.Name := '？？？';
DefFont.Charset := GB2312_CHARSET;
end;
949:
begin
DefFont.Name := '？？？';
DefFont.Charset := HANGEUL_CHARSET;
end;
950:
begin
DefFont.Name := '？？？';
DefFont.Charset := CHINESEBIG5_CHARSET;
end;
1250:
begin
DefFont.Name := '？？？';
DefFont.Charset := EASTEUROPE_CHARSET;
end;
1251:
begin
DefFont.Name := '？？？';
DefFont.Charset := RUSSIAN_CHARSET;
end;
// LATIN (Include ANSI)
1252:
begin
DefFont.Name := '？？？';
DefFont.Charset := ANSI_CHARSET;
end;
1253:
begin
DefFont.Name := '？？？';
DefFont.Charset := GREEK_CHARSET;
end;
1254:
begin
DefFont.Name := '？？？';
DefFont.Charset := TURKISH_CHARSET;
end;
1255:
begin
DefFont.Name := '？？？';
DefFont.Charset := HEBREW_CHARSET;
end;
1256:
begin
DefFont.Name := '？？？';
DefFont.Charset := ARABIC_CHARSET;
end;
1257:
begin
DefFont.Name := '？？？';
DefFont.Charset := BALTIC_CHARSET;
end;
else
case GetOEMCP of
// KOREA(JOHAB)
1361:
begin
DefFont.Name := '？？？';
DefFont.Charset := JOHAB_CHARSET;
end;
else
case GetUserDefaultLCID of
// VIETNAM
$042A:
begin
DefFont.Name := 'Tahoma';
DefFont.Charset := VIETNAMESE_CHARSET;
end;
else
DefFont.Name := 'MS Sans Serif';
DefFont.Charset := GetDefFontCharset;
end;
end;
end;
|