使DevExpress日期控件正确显示

2019-11-18 18:36:57

字体：大中小

来源：转载

供稿：网友

使DevExPRess日期控件正确显示
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
作者：Andy Kwok
电邮：andykwok@163.com
语言：DELPHI 5
环境：Windows 2000 Personal简体中文
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
使DevExpress日期控件正确显示

TdxGridDatePopup是DevExpress组件中日期显示的一个组件，DevExperss是一个很强大的控件，但在中文Windows中，日期控件会出现一个问

题：无论星期几都只是显示“星”字。

原因：
出现这个问题并不是DevExpress公司的程序代码有问题，只是不同的语言版本中，系统提供的日期函数中返回的格式或文字有所不同。
DevExpress公司是用ShortDayNames数组取得星期几的。
ShortDayNames: array[1..7] of string;
ShortDayNames是一个String数组，共有七个元素，分别对应星期一到七的字符串，在英文Windows中，它的值为[‘Sunday’，‘Monday’...]，在中

文Windows中，它的值为[‘星期一‘，‘星期二‘...]。
DevExpress是想返回英文的第一个字母，如Sunday，返回的是S，所以她用了S := {$IFDEF

DELPHI3}WideString{$ENDIF}(ShortDayNames[J])[1]来取得，但在中文Windows中，就会返回”星“，问题就出在这里。

修改方法：
打开{Programe Files}Developer Express IncExpressInplaceEditorsDelphi 5SourcedxGrDate.pas，查找
S := {$IFDEF DELPHI3}WideString{$ENDIF}(ShortDayNames[J])[1]，
然后修改为
S := {$IFDEF DELPHI3}WideString{$ENDIF}(ShortDayNames[J])[3]。
重新编译dxGrDate.pas（你可以把dxGrDate.pas加到一个Project中，重新编译你的Project，dxGrDate.pas就会重新编译）,然后把相关的dxGrDate.Dcu复制到../LIB下。
问题就会解决了。
附：
ShortDayNames 的英文说明。
ShortDayNames - Array of strings containing short day names. The ddd
format specifier in a format string passed to FormatDate causes a short
day name to be substituted. The default values are fecthed from the
LOCALE_SABBREVDAYNAME system locale entries.

作者Blog：http://blog.csdn.net/andykwok/

上一篇：类和对象

下一篇：编译器（解释器）编写指南-编写编译器（解释器）的工具-LEX