| yourmother
35682
|
2008/10/10 1:22:32 |
| 可以啊,好! |
| hb_35
25661
|
2006/8/26 7:47:20 |
| 很好!致敬! |
| stevensoft
19015
|
2005/11/8 19:10:55 |
节日的算法没有
请加上 |
| tim001
18810
|
2005/11/1 16:23:47 |
| 谢谢 |
| www_abc
18694
|
2005/10/27 12:22:23 |
| 那位高手把月历单独做个控件发来，造福大众阿。 |
| seagulll
18677
|
2005/10/26 15:39:07 |
如何计算出2005-10-26为
乙酉年 丙戌月 癸未日 |
| wangxz79
18663
|
2005/10/25 21:05:59 |
把LunarCalendar.pas里面的函数
function TLunar.CaculateToday: TLunarRec;
里面的
sEnWeekName := WeekEnName(iWeekName);
sLongWeekName := WeekEnName(iWeekName, true);
sCnWeekName := WeekCnName(iWeekName);
的三行
sEnWeekName := WeekEnName(iWeekName + 1);
sLongWeekName := WeekEnName(iWeekName + 1, true);
sCnWeekName := WeekCnName(iWeekName + 1);
就可以改正周的错误！
谢谢各位的欣赏和指正！ |
| ybbiawjtg
18655
|
2005/10/25 15:19:17 |
楼主：小弟帮你更正了个错误，
将 LunarObj.pas 中的 618 行：
nStr1 : Array[1..7] of string =('日','一','二','三','四','五','六');
更改为：
nStr1 : Array[1..7] of string =('一','二','三','四','五','六','日');
提示栏中显示的 星期几就正确啦。哈哈，
做的非常不错！ |
| chenjiwl
18654
|
2005/10/25 14:42:09 |
LunarCalender做的很漂亮，偶把它抽出来单独做了一个控件安装包（FOR BCB6）
还要做一些修改才行，内部有一些函数和变量需要重新定义和转换！
很漂亮！ |
| wangxz79
18650
|
2005/10/25 9:26:40 |
| 日历部分是从往事的VBScript的转换过来的 |
| wangxz79
18649
|
2005/10/25 9:24:57 |
所有控件都包含在里面，
在这里面
CustomCtrls.pas
MacForm.pas
LunarCalendar.pas
LunarObj.pas
SysMenu.pas
这些都是我自己写的，自己加到dpk里面去吧
AAFont.pas
CoolTray.pas
UnitBitmapRgn.pas
是现成的 |
| cimssoft
18648
|
2005/10/25 9:11:01 |
| 所有的控制里面都有附带，自已看吧！还是挺不错的，界面也非常漂亮。 |
| jmwl77
18647
|
2005/10/25 8:15:34 |
| 经过测试，证实可用，运行效果非常漂亮动人！～～ |
| zbird
18641
|
2005/10/24 19:52:19 |
不会日历部分也是用得控件吧。
如果这样的话那这个代码就真的没多少价值了。 |
| dronsonxp
18634
|
2005/10/24 15:09:38 |
| 漂亮是很漂亮 只是有一个小小的Bug 就是星期几 显示出现错误 望作者改之 使之更加完善 |
| ybbiawjtg
18628
|
2005/10/24 11:43:42 |
| 能把三方控件的名称给列出来吗？ 要不这样上传有什么意义呢。我想你上传的目的也不只是让别人为你叫好吧？ |
| youxuji
18627
|
2005/10/24 11:29:33 |
| 请你下次放代码时`1~!说一下用到的控件,和下载的地方~!~ |
| liu_zhiyin
18625
|
2005/10/24 10:40:22 |
很好,很好,请问能否把程序用到控件也放上来?
标题栏中的星期几同日期对不上,是要改进的 |
| jiang5460
18622
|
2005/10/24 9:45:22 |
| 你的控件封装，在我的机子上对装上去，就是不能用，不知道为什么的。 |
