使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