|
共有评论36条
当前显示最后6条评论
|
| zhousan |
2005/4/13 21:30:58 |
| 我不会安装啊。。我用的是ＤＥＬＰＨＩ ７，怎么安装啊。。 |
| zhousan |
2005/4/13 21:56:26 |
| 我找到了。。,在Samples页 |
| uniworldus |
2005/5/12 14:59:58 |
确实好用,提供了公农历转换,调用函数和方法也简单.谢谢!
就是界面差了点,选中的日期背景颜色太深,有点看不清字,哪位大虾能修改修改?? |
| llovy |
2005/9/1 17:59:42 |
| 恩,看看先！ |
| huangwei_sh |
2005/9/8 9:45:33 |
| 怎么装啊？我的是D7！高手指点啊！ |
| bear |
2006/2/1 8:55:22 |
用以下过程代替原DrawCell过程,当天底色为天蓝色,就容易看了.
procedure ThxCalendar.DrawCell(ACol, ARow: Longint; ARect: TRect;
AState: TGridDrawState);
var
HzDate:THzDate;
TheText,ry,dz,hzdaystr,sf: string;
MyDate:tdate;
begin
TheText := CellText[ACol, ARow];
if TheText='' then exit; //没有内容时跳出
if ARow=0 then //写表头的星期几的汉字
begin
Font.Color :=clBlue;
Canvas.TextRect(ARect, ARect.Left + 15, ARect.Top +10, TheText);
exit;
end;
MyDate := EncodeDate(year, month, strtoint(TheText));
HzDate := ToLunar(MyDate); //算出农历日期
dz:= GetJQ(MyDate); //取得指定日期的节气汉字串
if dz = '' Then
if HzDate.Day = 1 then
ry:=FormatLunarMonth(HzDate.Month,HzDate.isLeap)
else
ry := FormatLunarDay(Hzdate.Day);
sf :=GetsFtv(MyDate)+GetlFtv(hzDate); //取得新历节日及农历节日
with ARect, Canvas do
begin
if Day=strtoint(TheText) then //选择的当天背景色
begin
Canvas.Brush.Color:=clSkyBlue;
Canvas.FillRect(ARect);
end;
if dz<>'' then //节气的当天
begin
Font.Color := clRed; //节气字串,红色
TextRect(ARect, Left +2, Top +2, TheText+sf);
TextOut(Left + Font.Size+10, Top + 20, dz);
exit;
end;
if sf='' then Font.Color :=clBlue //非节日字串,蓝色
else Font.Color :=clRed; //节日字串,红色
TextRect(ARect, Left + 2, Top +2, TheText+sf); //上行,公历日期字串
Font.Color :=clblack; //农历字串,黑色
TextOut(ARect.Left + Font.Size+10, ARect.Top + 20, ry); //下行,农历汉字
end;
end; |
| 我要发表评论 |
查看全部评论 |
![]() |
|
