【结帖】如何然计划中心打开时默认不是完整树？**

qiezi

如何然计划中心打开时默认不是完整树？

qiezi

在3042版本中有什么属性？

qiezi

up

shangxy

最初由 qiezi 发布
[B]如何然计划中心打开时默认不是完整树？ [/B]

默认打开不是完整树是什么意思、

qiezi

计划中心中右键中不是有完整树选项吗？现在我想默认计划中心打开的时候完整树是未选中的，直接设置属性的话行吗？

zfang

业务模型\协同系统\计划\计划中心资源
constructor TPlanFilterManage.Create(AContext: TContext);   
  FShowEntireTree := True;//改成False看看

qiezi

好，我先去试试

qiezi

要求：计划中心取消完整树，并且缺省时间本月，状态待办与完成，本人的计划，
现在还是不符合要求，怎么改啊？看计划中心的代码符合要求，但是为什么结果不符合要求？拜托了

shangxy

就是6楼的方法：
constructor TPlanFilterManage.Create(AContext: TContext);
begin
  FContext := AContext;
  FExecuting := False;
  FPlanStates := [];
  FPlanTimeBegin := 0;
  FPlanTimeFinish := 0;
  FRangeModel := TRangeModel.rmWork;
  FPlanTypes := TStringList.Create;
  TStringList(FPlanTypes).OnChange := DoPlanTypesChange;
  TStringList(FPlanTypes).CaseSensitive := False;
  FBizTypes := TStringList.Create;
  TStringList(FBizTypes).OnChange := DoBizTypesChange;
  TStringList(FBizTypes).CaseSensitive := False;
  FDeptURLs := TStringList.Create;
  FIncludePerson := True;
  FIncludeDept := False;
  TStringList(FDeptURLs).CaseSensitive := False;
  TStringList(FDeptURLs).OnChange := DoDeptURLsChange;
  FEditPlanType := TPlanDefineInfo.GetDefaultTypeID(Context);
  FPlanIDs := TStringList.Create;
  TStringList(FPlanIDs).CaseSensitive := False;
  TStringList(FPlanIDs).OnChange := DoPlanIDsChange;
  FAllowPlanIDs := False;
  FShowEntireTree := False;
  FIsMain := False;
end;
改成这样就可以了

qiezi

不行，将FIncludeDept := False后计划都没了，但是在详细中可以看到第一条计划，说明这么修改是对的，但是为什么列表中看不到呢？