BusinessSkinForm中Calendar组件中文显示BUG的解决

 版本：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);

重新编译安装组件后，显示效果如下图：


问题解决.