5,930
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
yeeonefx 2012-08-17
- 打赏
- 举报
有拖拉功能，你看官方DEMO有例子
laty_cathy 2012-08-14
- 打赏
- 举报
yeeonefx
您好！
我也看过DevExpress 自带的甘特图demo.但好像没有拖拉功能，你那有这样的例子吗?
您好！
我也看过DevExpress 自带的甘特图demo.但好像没有拖拉功能，你那有这样的例子吗?
鲫鱼跃龙门 2012-08-13
- 打赏
- 举报
5分很高吗？我表示不解。
bruceoffice 2012-08-12
- 打赏
- 举报
[Quote=引用 10 楼 的回复:]
去我的空间看看，我刚上传了一个试用的甘特图控件（我自己做的），你可以下载来试试。
[/Quote] 下载分太高了
去我的空间看看，我刚上传了一个试用的甘特图控件（我自己做的），你可以下载来试试。
[/Quote] 下载分太高了
bruceoffice 2012-08-12
- 打赏
- 举报
[Quote=引用 10 楼 的回复:]
去我的空间看看，我刚上传了一个试用的甘特图控件（我自己做的），你可以下载来试试。
[/Quote] 下载分太高了
去我的空间看看，我刚上传了一个试用的甘特图控件（我自己做的），你可以下载来试试。
[/Quote] 下载分太高了
鲫鱼跃龙门 2012-08-12
- 打赏
- 举报
去我的空间看看，我刚上传了一个试用的甘特图控件（我自己做的），你可以下载来试试。
JPEXE 2012-08-06
- 打赏
- 举报
yeeonefx 2012-08-06
- 打赏
- 举报
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;
行事历(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;
bruce20062006 2012-08-06
- 打赏
- 举报
没有成熟的,DevExpress 估计可以,但比较难
kaikai_kk 2012-08-06
- 打赏
- 举报
甘特图? 2ccc盒子上应该有
navyly 2012-08-06
- 打赏
- 举报
DevExpress
bruce20062006 2012-08-04
- 打赏
- 举报
我也想要,现金求购,但比较复杂
haitao 2012-08-04
- 打赏
- 举报
直接搜：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开发，用于生产排程和计划方面。可以自由拖拉甘特图来更改时间，甘特图颜色区分，更 ...
也不少：
甘特图控件(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开发，用于生产排程和计划方面。可以自由拖拉甘特图来更改时间，甘特图颜色区分，更 ...
haitao 2012-08-04
- 打赏
- 举报
好像网页的比较多，程序再嵌入自己生成的网页来显示它
hsfzxjy 2012-08-03
- 打赏
- 举报
“甘特图”是神马
