求delphi 甘特图控件
大家好！
有没有甘特图控件，可以拖拉排程，实现自动排程。

[解决办法]
直接搜：delphi 甘特图控件
也不少：
甘特图控件(DELPHI开发)-delphi控件-华软源码下载
www.hur.cn ? Delphi源代码 - 网页快照
2012年2月16日 甘特图 控件(DELPHI开发). 源码语言: 简体中文; 源码类别: 国内源码; 运行环境: WinXP/NT/Vista/Win7; 授权方式: 免费源码; 解压密码: 点击查看 ...
delphi中实现MS Project的甘特图应该用什么控件！_Delphi之家_NO ...
www.websnap123.com/show-TVRReE1ETTI=.html - 网页快照delphi中实现MS Project的甘特图应该用什么控件！ 10-29. 如题，哪位知情富翁请告诉小弟，小弟不胜感激！ 1：在TeeChart中就有，TeeChart是delphi自带的， ...
求delphi 甘特图控件- Delphi / VCL组件开发及应用
topic.csdn.net/.../9cc89128-ea88-4bf7-95ca-7990270043ac.html?...
10 hours ago 大家好有没有甘特图控件可以拖拉排程实现自动排程.
delphi甘特图控件- 下载频道- CSDN.NET
download.csdn.net/tag/delphi甘特图控件 - 网页快照
首页 资源分类 排行榜 帮助 高级搜索 · 下载频道>delphi甘特图控件. 按相关度排序 · 按下载量排序 · 按上传时间排序. 下载频道公告. 完成有奖任务，赢积分！ 下载频道 ...
盒子- 甘特图 控件(DELPHI开发)
www.2ccc.com/article.asp?articleid=4802 - 网页快照2008年6月5日 甘特图控件，可以自由拖拉修改时间，用于生产排程及计划方面。 ... 我这个控件里的甘特图在缩放大小或翻页时会闪烁，大虾有什么好的意见可以 ...
delphi甘特图控件- 51下载IT资料下载
xiazaile.appspot.com/software/.../64771c882f2fa41a9256e01b9f7d1...
delphi甘特图控件. 2009年1月5日 511k 2次下载. ： 甘特图控件，使用DELPHI开发，用于生产排程和计划方面。可以自由拖拉甘特图来更改时间，甘特图颜色区分，更 ...
[解决办法]
DevExpress 中的Scheduler满足楼主要求
行事历(Scheduler)的常用属性、事件和方法

参考资料来源：附带的ExpressScheduler 2 Demo, 如想了解更多可以查看Demo.

一、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;