版本:Version 6.30
BUG现象:日历组件的中文周标签全部显示变成了“星期”,如下图:
BUG分析:
追踪源码到bsCalendar.pas,找到
procedure TbsSkinMonthCalendar.DrawCalendar(Cnvs: TCanvas);
S := ShortDayNames[(Ord(FirstDayOfWeek) + I) mod 7 + 1]; //这里决定"星期X"的输出
接下来的S := Copy(S, 1, 4)决定了只输出前4个byte,对英文可以这样,中文的话,前4个byte就变成“星期了”,出现上图的BUG。
解决:
S := ShortDayNames[(Ord(FirstDayOfWeek) + I) mod 7 + 1];后面的这样修改:
S := ShortDayNames[(Ord(FirstDayOfWeek) + I) mod 7 + 1];
//
if SysLocale.PriLangID = LANG_CHINESE then
S := Copy(S, 5, 2)
else
if Length(S) > 4 then S := Copy(S, 1, 4);
重新编译安装组件后,显示效果如下图:
问题解决.