带农历的日历

打算做一个日程管理,日历是很重要的,所以先做了一个带农历的.
控件安装: 在File菜单下,选择OPEN...打开这个LssCalendar_D7.dpk文件, 在出现的Package窗口中先Compile一下, 然后单击Install。你可以在LssCalendar Tab下找到控件。 最后在Tools->Environment Options->Library Tab,Library path里增加LssCalendar.pas所在目录,就OK了。 编译说明:如果你没有AAFont,请把第80行{$DEFINE AAFONT}删除; 如果你使用的Delphi版本低于7.0,请去掉第81行{$DEFINE DELPHI5}前的注释; TLssCalendar (支持农历的月历控件) Version 2.00 2006-03-01 Ver 2.00 Luke.Wang 主要修改; 1。TLssCalendar 2.0向下兼容; 2。参照控件CnCalendar,增加了月份背景显示; 3。参照控件hxCalendar,增加了公历和农历节日显示; 4。参照控件LunarCalendar,增加Grid和Border显示,显示提示信息窗口; 5。将控件中的字体设置改为TLssColors属性,方便用户修改; 6。Title栏增加了上一年、上一月、下一月、下一年快捷按钮; 7。增加了BackImage属性,用户可以为每个月设置不同图片作为每月背景; 8。增加了TFestivalList类,用户可以订制和标记自己的节日; 9。可以显示英文星期名称、标题; 10。支持ISO8601日期格式(以星期一为一周开始); 11。用户可以自定义公历日期与农历或节日的显示比例; 11。根据nihaoqiang的修改,编写了DateUtils中一些function,以方便Delphi 5.0用户; (本控件只在Delphi7中测试过,请使用Delphi其它版本的用户帮忙测试一下) 开发平台:WinXP SP2 + Delphi 7.0 请不要删除本说明。 Luke Wang 2004.01
TLssCalendar (支持农历的月历控件) Version 1.10 发布这个控件是因为我在网上找不到支持农历的月历控件,就自己写了个,希望能有用。 您可以没有任何限制的使用、修改、分发本控件。但没有任何担保,甚至没有适合特定目的而隐含的担保。如果您修改了本控件,烦请发一份拷贝到<LuckMiky@21cn.com> 。 开发平台:PWin2000Pro + Delphi 7.0 主要功能; 1、在日历面板上同时显示公历和农历农历部分仅支持公元1900.1.31到公元2100.12.31; 2、可以定制控件界面颜色和字体,类似TmonthCalendar,可以选择采用AAFont平滑字体边缘(有点慢); 3、控件字体大小根据控件大小自动适应; 4、支持鼠标和键盘或者代码选择日期; Home:每月的第一天 End:每月的最后一天 PageUp: 上一个月 Page:下一个月 四个方向键移动光标 5、提供了公历转农历农历转公历函数,支持干支年、月、日;函数原形及调用方法请看代码。 本单元农历转换部分为 Mostone.Jiang 漠石(mostone@hotmail.com)的CnBase.pas,作了一点小小改动。由于控件字体过小,采用了***与月共舞工作室周劲羽***的AAFont来平滑字体显示,在此感谢2位,提供了这么好的东西给我们免费使用! Miky2004.01 更新历史: 2004-4-24 Ver 1.10 修正了网友happylife发现的Bug; 修改了Paint部分,不再使用DoubleBuffered,显示速度有很大改观; 添加了干支记日显示方式选项; 添加了keypress,keydown,keyup事件; 添加了编译指令{DEFINE AAFONT},如果你没有AAFont,请把第49行删除
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值