一、TcxScheduler
【TcxScheduler常用属性】
1.Storage - 邦定一个Storage为Scheduler显示提供数据
2.DateNavigate.ColCount - 显示日历的列数
3.DateNavigate.RowCount - 显示日历的行数. ColCount x RowCount 即显示日历数
4.DateNavigate.FirstWeekOfYear - 一年的第1个星期
5.DateNavigate.ShowWeekNumbers - 是否显示周数
6.DateNavigate.Visible - 是否显示日历
7.OptionsView.ResourcePerPage - 一页显示多少个Storage的Resources.Items(任务执行者）
8.OptionsView.WorkDays - 指定一个星期的哪些天要上班
9.OptionsView.StartOfWeek - 指定哪一天作为星期的第一天
10.OptionsView.WorkStart - 一天的上班开始时间
11.OptionsView.WorkFinish - 一天的上班结束时间
12.OptionsView.ViewPosition - View显示位置(左或右)
13.ViewDay.Active - 以日的形式显示
14.ViewWeek.Active - 以星期的形式显示
15.ViewTimeGrid - 以时间横向显示
16.ViewYear.Active - 以年的形式显示
【TcxScheduler常用事件】
1.OnLayoutChanged - 日期改变、显示形式改变等触发
2.OnSelectionChanged - 选择任务触发
3.DateNavigator.OnSelectionChanged - 选择的日期变化触发
【TcxScheduler常用方法】
1.SelectDays[0] - 返回被选中的第1个日期
2.GoToDate(d1, vmMonth) - 选中d1所在的月份, 并以某种形式显示
3.SelectedDays[n] - 返回选中的第n个日期
4.SelectWorkDays(d1) - 选中d1所在星期的工作日
5.FullRefresh - 刷新
二、TcxSchedulerStorage
【TcxSchedulerStorage常用属性】
1.Resources.Items - 增加任务的执行者。如：生产线、业务员....
2.Resources.Images - 任务执行者的图片集（不是必要的）
【TcxSchedulerStorage常用方法】
1.BeginUpdate - 开始增加任务
2.CreateEvent - 增加任务
3.EndUpdate - 结束增加任务
【TcxSchedulerStorage加载任务】
begin
Screen.Cursor := crHourGlass;
Storage.BeginUpdate;
try
//加入任务
with Storage.createEvent do
begin
ResourceID := 执行者的ResourceID;
Caption := '测试任务';
Start := StrToDateTime('2011/12/01 08:00'); //开始时间
Finish := StrToDateTime('2011/12/01 08:30'); //结束时间
end;
//循环任务
with Storage.createEvent do
begin
ResourceID := 执行者的ResourceID;
Caption := '循环任务';
Duration := 45 * MinuteToTime; //耗时
MoveTo(Date + (8 + AResourceID) * HourToTime); //开始时间. 当前日期 +8小明
EventType := etPattern; //任务类型
LabelColor := $51B0F7; //改Label颜色
RecurrenceInfo.Count := -1; //循环次数. -1为不限次数
RecurrenceInfo.Recurrence := cxreWeekly; //循环单位
RecurrenceInfo.Periodicity := 1; //循环周期
RecurrenceInfo.OccurDays := [dWednesday, dSaturday]; //循环日期
RecurrenceInfo.DayType := cxdtDay;
end;
finally
Storage.EndUpdate;
Scheduler.FullRefresh;
Screen.Cursor := crDefault;
end;
end;
【给TcxScheduler的日历加上底图或文字】
uses dxoffice11
procedure TfrmVSScheduler.SchedulerDateNavigatorCustomDrawContent(Sender: TObject;
ACanvas: TcxCanvas; AViewInfo: TcxSchedulerDateNavigatorMonthContentViewInfo;
var ADone: Boolean);
var
ABitmap: TBitmap;
AColor: TColor;
R: TRect;
begin
if 1 = 1 then
begin
//日历底图
case AViewInfo.Month of
3..5:
ABitmap := cxSpringStyle.Bitmap;
6..8:
ABitmap := cxSummerStyle.Bitmap;
9..11:
ABitmap := cxAutumnStyle.Bitmap;
else
ABitmap := cxWinterStyle.Bitmap;
end;
ACanvas.Canvas.StretchDraw(AViewInfo.Bounds, ABitmap);
end
else begin
//写文字
R := AViewInfo.Bounds;
case AViewInfo.Month of
3..5: AColor := $D0FFD0;
6..8: AColor := $D0D0FF;
9..11: AColor := $D0FFFF;
else
AColor := $FFE7E7;
end;
with ACanvas do
begin
Brush.Color := AColor;
FillRect(R);
Font.Height := R.Bottom - R.Top;
Font.Color := GetMiddleRGB(AColor, 0, 85);
DrawText(IntToStr(AViewInfo.Month), R, cxAlignCenter);
end;
ACanvas.Font := AViewInfo.ViewParams.Font;
end;
//
AViewInfo.Transparent := True;
ADone := True;
end;
---------------------
作者：chelen_jak
来源：CSDN
原文：https://blog.csdn.net/chelen_jak/article/details/7052181
版权声明：本文为博主原创文章，转载请附上博文链接！