关于日历控件的问题**

zhdkelly

在日历控件中有没办法可以控制某一个单元的颜色

zhdkelly

我的做法是，在日历控件上选择某一日期，进行操作后，该日期的单元格颜色可以变化。。

gaihl

楼主，日历控件不能实现 “选择某一日期，进行操作后，该日期的单元格颜色可以变化。。”

zhdkelly

这个问题没有什么好的解决方法吗？我在你们产品上看到类似的例子，在协同系统/个人事物/备忘录功能，运行备忘录功能，在菜单栏上选择‘月’时候，显示按月的日历。在添加某个日期后，日期单元格中显示了选择类型的图标，既然日历单元格的颜色不能改变，那么也可以加图标区分。。但是阅读完这个例子后，代码还是不清楚，不知道日历的单元格图标是怎么填加进去的。求助解决。。。。

gaihl

楼主可以在TFECalendar控件DrawCellProperties事件中控制。

参考如下：
procedure TMainForm.FECalendar1DrawCellProperties(Sender: TObject; ADate: Double; AState: TFECalCellStates; var ALabel: string; CellProperties: TFECellProperties);
begin
  if TFECalCellState.csSelected in AState then
  begin
    CellProperties.Color := 4564132;
    ALabel := '选择';
  end;
end;

zhdkelly

在开发的时候。。发现你们产品中有这样的控件TPSProjectCalendar，TPSProjectCalendar但没有相应的说明材料。。。能否说明一下吗？

gaihl

报歉，的确没有相应的参考资料
我和楼主一样，现在只能参考源码的使用方法。

jianth2005

最初由 gaihl 发布
[B]楼主可以在TFECalendar控件DrawCellProperties事件中控制。

参考如下：
procedure TMainForm.FECalendar1DrawCellProperties(Sender: TObject; ADate: Double; AState:..

以下省略...... [/B]

按这个我做个遍,有以下问题请教下.
1.请问单击后可以让它的某单元的颜色不变回来么?
2.那日历控件FECalendar1单元格可以换行显示么?
3.当我知道某个日期时,可否控制该日期单元格的颜色?
其实想做个和你们论坛上的日历http://bbs.justep.com/calendar.php?s=类似效果

gaihl

1.记下你单击的日期，放到一个列表中。在DrawCellProperties事件中判断，列表中是否有当前的日期，如果有就执行你的设置就行了
2。可以在要回车的地方加换行字符： #13#10
3.用条件来控制，当条件成立，就执行你的设置就行了。

jianth2005

嗯~`测试过先再问