DevExpress 行事历(Scheduler)的常用属性事件和方法

Posted 2021-02-13 hjsofware

一、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
版权声明：本文为博主原创文章，转载请附上博文链接！