【结贴】如何修改甘特图的时间轴单位为天**

jakek

请问如何修改平台中甘特图的时间轴单位为天。现在是以小时为单位的。找不到相应的代码改。

请各位帮忙。

jakek

我在任务中心信息/轨迹 里修改了甘特图的菜单。其中默认为天，而且把小时的checked属性的勾也去掉了。保存没问题，但一编译，小时前面的勾有回来了。还有哪里控制这个东西呢？

zfang

设置甘特图的属性就可以了
MinorScale.TimePeriod = tsHour

jakek

其实需求是把甘特图默认的时间间隔设置为天。
谢谢！

zfang

那用3楼的代码不可以吗？

jakek

他这里好像是动态调用变量的。用action控制。这样就可以在business的甘特图中使用右键菜单选择时间间隔，只不过我想把默认的时间隔改为天。

jakek

就是这段代码控制的
procedure TFLOWVIEW.actMinExecute(Sender: TObject);
var
  lAction: TAction;
begin
  if Sender Is TAction then
  begin
    lAction := Sender as TAction;
    fgvView.TimePeriod := TPSTimePeriod(lAction.Tag);
    lAction.Checked := True;
  end;
end;

但是如2楼的问题，我修改默认时间间隔为天后，编译时会自动改回小时。

zfang

楼主，这个效果你简单看下就应该可以做到的吧？
我这么试了下，可以满足要求
业务模型\协同系统\面板功能\我的功能\我的待办
procedure TMYTASKDOC.tbTabChange(Sender: TObject; Index: Integer);
.....
  else
  begin
    ViewMode := TViewMode.vmTaskTrack;
    //todo:zfang 修改
    TASKCENTERINFO.TFLOWVIEW(dvTaskTrack.Doc).pmiHour.Checked := False;
    TASKCENTERINFO.TFLOWVIEW(dvTaskTrack.Doc).pmiDay.Checked := True;
    TASKCENTERINFO.TFLOWVIEW(dvTaskTrack.Doc).actDay.Execute;
    //end 修改
  end;

zfang

跟7楼的代码没关系。
你可以照着8楼说得修改。
可以实现你要的效果。

jakek

8楼的代码只是修改了任务中心，双击查看里的甘特图的时间间隔。在处理时的甘特图仍然还是默认时间间隔为小时。
其实我的需求是所有甘特图的时间间隔都修改为天，能通过修改更底层的代码来实现吗？这样可以改动较少地方实现需求。