要将DateTimePicker的“星期一、星期二……星期日”改成“一、二……日”，该如何改改VCL源码？(200分)

  • 主题发起人 主题发起人 雁孤行
  • 开始时间 开始时间
雁

雁孤行

Unregistered / Unconfirmed
GUEST, unregistred user!
　　要将DateTimePicker 的“星期一、星期二……星期日”改成“一、二……日”，该
如何改VCL源码？在一层层的继承里翻了老半天也没找到相关的过程和函数，请问哪位兄
台知道在哪里改？
 
这样简单就好了，这是Windows本身的东西，相关字符串资源不在VCL源码里。
 
改原码是够戗了，跟计算机的操作系统的区域设置（以及语言）有关。
 
应该是从Windows里面获取字符串。。。

可以通过自己进行字符串的转换，实现自己要显示的名字。。。。[:)]
 
to CJF：
　　是啊！可找不到相关实现的函数在VCL源码的哪里，无从下手：（
 
如果在TMonthCalendar里面不好处理。。。。

可以在C:/Program Files/Borland/Delphi6/Source/Samples/Calendar.pas的基础上进行修改。。。

 
同意Door2000，应该从系统注册表考虑，相信不会很难，查查这方面相关的资料……
 
关注！
 
我用DEVEXPRESS的控件也碰到此问题
 
这问题我也想过，不过也没找着在哪里改，解决后告诉我，delphilai@163.com，谢谢
 
只要加上
ShortDayNames[1]:='日';
ShortDayNames[2]:='一';
ShortDayNames[3]:='二';
ShortDayNames[4]:='三';
ShortDayNames[5]:='四';
ShortDayNames[6]:='五';
ShortDayNames[7]:='六';
就可以了。
 
哇楼上，这么简单啊？
学习，收藏。
 
同意楼上观点. 可以查看帮助: Currency and date/time formatting variables

The following are a set of variables used to define the format for numeric or date/time strings:

var CurrencyString: string;
var CurrencyFormat: Byte;
var NegCurrFormat: Byte;
var ThousandSeparator: Char;
var DecimalSeparator: Char;
var CurrencyDecimals: Byte;
var DateSeparator: Char;
var ShortDateFormat: string;
var LongDateFormat: string;
var TimeSeparator: Char;
var TimeAMString: string;
var TimePMString: string;
var ShortTimeFormat: string;

var LongTimeFormat: string;
var ShortMonthNames: array[1..12] of string;
var LongMonthNames: array[1..12] of string;
var ShortDayNames: array[1..7] of string;
var LongDayNames: array[1..7] of string;

var SysLocale: TSysLocale;
var EraNames: array[1..7] of string;
var EraYearOffsets: array[1..7] of Integer;
var TwoDigitYearCenturyWindow: Word = 50;

var TListSeparator: Char;
 
好象对这个问题无效！
 
to: [blue]fanqun[/blue]
DateTimePicker控件的ShortDayNames值是能过API函数GetLocaleInfo得来的；
The GetLocaleInfo function retrieves information about a locale.
请按下面的方法试一下看行不行：
在C:/Program Files/Borland/Delphi6/Source/Samples/Calendar.pas的
GetCellText方法里加上
ShortDayNames[1]:='日';
ShortDayNames[2]:='一';
ShortDayNames[3]:='二';
ShortDayNames[4]:='三';
ShortDayNames[5]:='四';
ShortDayNames[6]:='五';
ShortDayNames[7]:='六';
保存后重新编译VCL，应该能行，这样就不用改计算机设置了！
 
我将VCL里所有涉及到ShortDayNames的过程和函数都改了，并重新编译了
相关单元。但只有TCalendar可以，TDateTimePicker和TMonthCalendar不
行，TDateTimePicker里的星期标识好像不是从ShortDayNames里来的。
 
To:[blue]雁孤行[/blue]
[:(]对不起，说错了，TDateTimePicker和TMonthCalendar与Calendar.pas单元并不相关，所有
的Win32元件都与系统相关，Borland只是给这些Win32元件加上了一层Object Pascal外套，
所以我建议您还是从系统入手，能帮您的也只有这一点点了……，顺便提一下，设置本地设
置用SetLocaleInfo函数……
http://efplus.com/techref/os/win/api/win32/func/src/f79_12.htm
 
多谢！我再仔细研究研究，看能不能解决。
 
　　问这个问题的主要缘故是在用Developer Express Inc的dxDateEdit控件
时，星期标识都挤在一起，只显示出一个“星”字，类似的还有RxLib等第三
方日历控件，十分难看。
　　现在我已经把问题解决了，总结一下，希望对其它被这样问题困扰的朋友
有一些帮助：在dxDateEdit的源码里第1302行用到了ShortDayNames，在第1300
后写上：
ShortDayNames[1]:='日';
ShortDayNames[2]:='一';
ShortDayNames[3]:='二';
ShortDayNames[4]:='三';
ShortDayNames[5]:='四';
ShortDayNames[6]:='五';
ShortDayNames[7]:='六';
可以将这个控件修改成显示“日、一、二……”的，但[blue]强烈建议[/blue]你不要这样
写，因为ShortDayNames是默认的全局变量，这样写的结果是：当你在窗体上
放了dxDateEdit控件，其它用到了ShortDayNames的控件的显示也会变（如果
是动态建立，则会在Create之后发生改变）。正确的写法应该是把“日、一、
二……”通过
　　if J > 7 then Dec(J, 7);
　　　S :=
赋值给S”
　　如果你懒得改控件，可以通过一个简单的方法解决：在主窗体的OnCreate
事件里写
ShortDayNames[1]:='日';
ShortDayNames[2]:='一';
ShortDayNames[3]:='二';
ShortDayNames[4]:='三';
ShortDayNames[5]:='四';
ShortDayNames[6]:='五';
ShortDayNames[7]:='六';
就可以了，总之问题的焦点在ShortDayNames，只要是用到了ShortDayNames的控
件都可以依此办理。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
C
高手请进，Devexpress的日期控件问题（200分）(200分)
回复
13
查看
270
codee
C
末
如何将日期换算成星期(50分)
回复
5
查看
716
末日之刃
末
Z
300分求指点 ExpressQuantumGrid日期控件修改问题(300分)
回复
11
查看
209
小小K
小
V
如何将日期控件DateTimePicker中的日期，时间取出来，显示在一个edit控件中(20分)
回复
2
查看
145
vpp
V
后退
顶部