WEB开发网
开发学院软件开发Delphi 使DevExpress日期控件正确显示 阅读

使DevExpress日期控件正确显示

 2006-02-04 13:40:35 来源:WEB开发网   
核心提示:使DevExPRess日期控件正确显示===========================================作者:Andy Kwok电邮:andykwok@163.com语言:DELPHI 5环境:Windows 2000 Personal简体中文============================
使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/

Tags:DevExpress 日期 控件

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接