// support DBCS font name encoding function EncodeFontName(AFontName: string): string;var s: string;Index, Len: Integer;

• 20 // 修正在简体系统下繁体字体名的问题 // 只提供 MingLiU, PMingLiU --> 细明体, 新细明体的修正 s:=UpperCase(AFontName);