CnPack Forum


 
Subject: 修改月历控件
不夜人
新警察
Rank: 1



UID 42224
Digest Posts 0
Credits 7
Posts 2
点点分 7
Reading Access 10
Registered 2009-4-20
Status Offline
Post at 2009-4-20 09:40  Profile | Blog | P.M. 
修改月历控件

我在使用CnMonthCalendar组件的过程中,自我感觉不太人性化,所以根据自己的需要略微修改了一下,希望对本组件更好的发展而有所帮助。
1、FWeekTextColor: TColor;       //增加星期的字体颜色属性(原来的颜色就是年月背景颜色,这就缩小了背景颜色的选择范围)
2、FDaySelectColor: TColor;       //增加选择日期背景颜色属性设置
3、FDaySelectTextColor: TColor;       //增加选择日期字体颜色属性设置。
4、适当增大星期字体尺寸(原来的在整个CnMonthCalendar缩小时,有时看不清楚)
5、在头部年月日表格中,增加月份的“上一月”“下一月”选择按钮。




安装方法:本文件替代控件中的原文件。重新编译cnpack控件包!

[ 本帖最后由 不夜人 于 2009-4-20 16:12 编辑 ]


Attachment: [修改后的组件文件] CnMonthCalendar.rar (2009-4-20 09:40, 7.18 K)
Download count 399
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6750
Posts 3551
点点分 6750
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2009-4-20 09:53  Profile | Blog | P.M. 
谢谢楼主,我们先检查一下改动,合适的话可合并入我们的组件包。
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6750
Posts 3551
点点分 6750
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2009-4-20 17:03  Profile | Blog | P.M. 
检查了一下,有些地方有些小问题。命名、注释等就先不提了,这个我们可以自己修改。

您在Paint方法中处理Label的位置,似乎不是太合适,我建议重载SetBounds方法,实现中inherited后再设置两个label的位置,这样比较合理一些。

您加了三个颜色属性,但Assign方法中只增加一个,另外两个是否也需要补上?
Top
ygmxss
新警察
Rank: 1



UID 39736
Digest Posts 0
Credits 18
Posts 6
点点分 18
Reading Access 10
Registered 2008-4-17
Status Offline
Post at 2009-4-24 18:02  Profile | Blog | P.M. 
为什么不加入“上一年”和“下一年”按钮呢?
Top
tahhkj
普通灌水员
Rank: 2



UID 41884
Digest Posts 0
Credits 68
Posts 25
点点分 68
Reading Access 10
Registered 2009-2-28
Status Offline
Post at 2009-4-26 13:05  Profile | Blog | P.M. 
回复 #4 ygmxss 的帖子

太有道理了,应该加上“上一年”和“下一年”的按钮。
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6750
Posts 3551
点点分 6750
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2009-4-26 21:54  Profile | Blog | P.M. 
楼主的改动目前已合并入组件包。CVS上已经是最新代码了,示例也有所更新。
年和月的按钮也加了,并且设置了属性来控制这两组按钮是否显示。
Top
不夜人
新警察
Rank: 1



UID 42224
Digest Posts 0
Credits 7
Posts 2
点点分 7
Reading Access 10
Registered 2009-4-20
Status Offline
Post at 2009-4-29 09:27  Profile | Blog | P.M. 
谢老大!
我们一直在用cn控件包,总想为他做点什么!这次总算出了点力(汗!)
实际上,我们所做的也只是起到抛砖引玉的作用,毕竟对控件包我们没有全盘考虑,有的只是断章取意,所以难免语句不严谨,考虑不周详!这就需要各位cn老大,来严谨、规范和补充。
让我们共同支持国人自己的cn控件包!
Top
gzhubin (Skywin)
普通灌水员
Rank: 2



UID 41851
Digest Posts 0
Credits 57
Posts 22
点点分 57
Reading Access 10
Registered 2009-2-23
Location 广州
Status Offline
Post at 2009-6-18 19:47  Profile | Site | Blog | P.M.  | QQ
不错

不错,正在使用中
Top
 




All times are GMT++8, the time now is 2024-3-29 04:26

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.007017 second(s), 8 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP