【结帖】时间控件问题**

xjc · 发表于 2008-9-4 11:26:06

我的时间空间其他地方都对就是当12月的时候就不对了
代码是这样的
procedure TMAINFORM.FECalendar1DrawCellProperties(Sender: TObject; ADate: Double; AState: TFECalCellStates; var ALabel: string; CellProperties: TFECellProperties);
begin
  if DateUtils.MonthOf(ADate)=FECalendar1.Month then
  begin
CellProperties.CaptionStyle := TFECapStyle.csNone;
CellProperties.Color := Graphics.clInfoBk;
CellProperties.Font.Color := Graphics.clGreen;
CellProperties.Layout := TTextLayout.tlTop;
// ALabel := GetDateStr(ADate);
   ALabel := '111';
  end;
end;

xjc · 发表于 2008-9-4 11:28:39

上面是正常的其他月

12月就会这样

shangxy · 发表于 2008-9-4 17:18:26

if (not (TFECalCellState.csCaption in AState)) and (not (TFECalCellState.csNotInMonth in AState)) then
  begin
CellProperties.CaptionStyle := TFECapStyle.csNone;
CellProperties.Color := Graphics.clInfoBk;
CellProperties.Font.Color := Graphics.clGreen;
CellProperties.Layout := TTextLayout.tlTop;
// ALabel := GetDateStr(ADate);
   ALabel := '111';
  end;

shangxy · 发表于 2008-9-27 15:30:09

楼主反馈一下结果

xjc · 发表于 2008-10-8 13:55:05

不好意思结了哈

		自动登录	找回密码
密码			立即注册