如何修改主界面

alang

X3协同系统缺省主界面如下图所示，
主界面在 系统空间简洁风格\界面库窗体库\标准风格主窗体
工作台在 协同系统面板功能\工作台工作台

alang

1 修改logo
2 修改系统名称

请打开 系统空间简洁风格\界面库窗体库\标准风格主窗体
修改imgTtile控件的Picture属性，用自己的图来代替

alang

3 修改功能的显示名称，缺省是显示主窗体的名称，如果需要显示功能名称，请

打开 业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体
function TFuncContainer.GetDisplayName: string;
函数是获得显示名称的函数，只要修改这个函数就可以了
例如：显示功能名称，而不是窗体的名称
function TFuncContainer.GetDisplayName: string;
begin
  if FDisplayName <> '' then
  begin
    Result := FDisplayName;
    Exit;
  end;

  if Func = nil then
  begin
    if FuncURL = '' then
      Result := ''
    else
      Result := FileSys.FileSystem.FileGetDisplayName(BizSys.BizSystem.URL2FileName(FuncURL));
    Exit;
  end;

{  if Func.MainForm.Caption <> '' then
  begin
    Result := Func.MainForm.Caption;
    Exit;
  end;
}
  Result := Func.DisplayName;
end;

alang

4 修改默认工作台
默认工作台，其实是平台在主窗体上自动运行了一个功能来实现的，可以让平台运行另外一个功能，而不是工作台的方式来修改，也可以修改工作台这个功能。

自动运行的功能，请修改
协同系统\公共资源\协同常量库
static function TRTLConsts.RunFuncs: string;
begin
  Result := 'Biz:\COLLABORATION\DesktopFunc.Func;' +
    'Biz:\COLLABORATION\SchedulerFunc.Func';
end;
这里替换成自己功能的BizURL，用分号格开可以运行多个

默认的工作台功能在 协同系统\面板功能\工作台\工作台

工作台 的背景色 是 FrameButtonResource -  Frames -  FuncTabActive -  Background -  Image 属性

alang

5 待办任务
6 当前计划
7 提交任务
8 我的客户

5 待办任务 对应文档 协同系统\任务\任务中心信息 信息中的 任务网格导航 文档
         更多对应功能 协同系统\任务\我的任务 cTaskFuncURL = 'Biz:\COLLABORATION\MyTaskFunc.Func';
                 运行时需要加参数 TSystemCore.FuncManager.RunFunc(Context, '', cTaskFuncURL, '-fNeedProcess -vvmTaskGrid -d待办', False, nil, False);

6 当前计划 对应文档在 协同系统\计划\计划中心信息\计划网格导航
          更多对应功能 协同系统\计划\计划中心 cPlanFuncURL = 'Biz:\COLLABORATION\PlanCenterFunc.Func';

7 提交任务 对应文档 协同系统\任务\任务中心信息 信息中的 任务网格导航 文档
         更多对应功能 协同系统\任务\我的任务 cTaskFuncURL = 'Biz:\COLLABORATION\MyTaskFunc.Func';
                 运行时需要加参数 TSystemCore.FuncManager.RunFunc(Context, '', cTaskFuncURL, '-vvmTaskGrid -fPost -d交办', False, nil, False);

8 我的客户 对应文档在 业务系统\客户关系管理(CRM)\客户管理\客户基本信息\客户网格导航
          更多对应功能 业务系统\客户关系管理(CRM)\客户管理\客户中心 cCustomerFuncURL = 'Biz:\OPERATION\CRMSPACE\CustomerMngFunc.Func';

alang

9 快捷工具栏
在 协同系统\面板功能\我的功能\收藏夹

alang

11 状态栏
在 系统空间\简洁风格\界面库\窗体库\标准风格主窗体
    ccStatusBar: TContainer;
procedure TSTANDARDSTYLEMAINFORM.InitStatusBar;
var
  S: string;
  L: Integer;
begin
  L := 0;
  if FDefaultPosition = nil then
    S := TSystemCore.Operator.DisplayName
  else
    S := GetOrgUnitDisplayName(FDefaultPosition.PersonMember, ' | ');
  CreateStatusBarText(L, ccStatusBar, S, False);

  FStatusBarHintText := CreateStatusBarText(L, ccStatusBar, '', True);
  FStatusBarHintText.Align := TAlign.alClient;
end;

alang

10 业务功能树
在 系统空间\简洁风格\界面库\窗体库\标准风格主窗体 中用代码动态创建
业务功能树是FFuncNavBar是TOperatorFuncNavBar类从TdxNavBar继承下来
在 TStandardStyleMainForm.Create 中创建
FFuncNavBar.Groups[Index]是TdxNavBarGroup类
需要修改可以参考 http://www.justep.com/ftp/BusinessPartner/Docs/NavBarHelp.zip
分组上用到的图标，在 系统空间\用户界面基础\库\公共组件库 中可以加载图标
procedure TUserGraphics.AddDefaultSystemIcons;
begin
  AddIcon(GetIconURL(IconID_Sys_Desktop), IconID_Sys_Desktop);
  AddIcon(GetIconURL(IconID_Sys_FuncLibrary), IconID_Sys_FuncLibrary);
  AddIcon(GetIconURL(IconID_Sys_ShortcutOverlay), IconID_Sys_ShortcutOverlay);
  AddIcon(GetIconURL(IconID_Sys_MyFuncsFolder), IconID_Sys_MyFuncsFolder);
  AddIcon(GetIconURL(IconID_Sys_StartupFolder), IconID_Sys_StartupFolder);
  AddIcon(GetIconURL(IconID_Sys_Favorites), IconID_Sys_Favorites);
  AddIcon(GetIconURL(IconID_Sys_Func), IconID_Sys_Func);
  AddIcon(GetIconURL(IconID_Comm_ClosedFolder), IconID_Comm_ClosedFolder);
  AddIcon(GetIconURL(cIconID_Comm_OpenFolder), cIconID_Comm_OpenFolder);
  AddIcon(GetIconURL(cIconID_Comm_Default), cIconID_Comm_Default);
end;

alang

12  功能显示名称所在按钮
在 系统空间\简洁风格\界面库\窗体库\标准风格主窗体 上有一个 FrameButtonResource 的控件
设置这个控件的 Frames | FuncTabActive  属性

一个Button在这里被拆成了三个部分，左Border\Left，右Border\Right和中间BackGround
都是在Image属性中设置的，你只需要替换这三个Image就可以了

alang

去掉默认功能有两种方法：
一是修改config.justep.xml文件
<defaultfuncs enabled="false"/>
这里改成false就好了

一是修改 协同系统\公共资源\协同常量库 中的
static function TRTLConsts.DefaultFuncs: TStringArray;
begin
  Result := ['Biz:\COLLABORATION\DesktopFunc.Func',
    'Biz:\COLLABORATION\SchedulerFunc.Func',
    'Biz:\COLLABORATION\TaskCenterFunc.Func',
    'Biz:\COLLABORATION\PlanCenterFunc.Func',
    'Biz:\OPERATION\CRMSPACE\CustomerMngFunc.Func',
    'Biz:\COLLABORATION\JustepMail.Func',
    'Biz:\COLLABORATION\DecisionCenterFunc.Func',

    'Biz:\OPERATION\CRMSPACE\UserMngFunc.Func',

    'Biz:\COLLABORATION\MyTaskFunc.Func',
    'Biz:\COLLABORATION\TaskRelationViewFunc.Func',
    'Biz:\COLLABORATION\PlanBrowseFunc.Func',

    'Biz:\COLLABORATION\WorkRecordFunc.Func',
    'Biz:\COLLABORATION\WORKTASKFUNC.Func',
    'Biz:\COLLABORATION\WorkRemindFunc.Func',
    'Biz:\COLLABORATION\WorkLogFunc.Func',
    'Biz:\COLLABORATION\WorkAdviceFunc.Func',
    'Biz:\COLLABORATION\WorkWeekPlanFunc.Func',


    'Biz:\COLLABORATION\WorkAdviceDealFunc.Func',
    'Biz:\COLLABORATION\WorkLogDealFunc.Func',
    'Biz:\COLLABORATION\WorkRecordDealFunc.Func',
    'Biz:\COLLABORATION\WorkRemindDealFunc.Func',
    'Biz:\COLLABORATION\WorkTaskDealFunc.Func',
    'Biz:\COLLABORATION\WorkWeekPlanDealFunc.Func',

   // TRTLConsts.DocCenterURL,

    'Biz:\OPERATION\CRMSPACE\CstmCommRecordFunc.Func',
    'Biz:\OPERATION\CRMSPACE\CSTMTRACKTFUNC.Func',
    'Biz:\OPERATION\CRMSPACE\PresaleWorkTaskFunc.Func',
    'Biz:\OPERATION\CRMSPACE\CustomerMngFunc.Func',
    'Biz:\OPERATION\CRMSPACE\UserCommRecordFunc.Func',
    'Biz:\OPERATION\CRMSPACE\UserTrackRecordFunc.Func',
    'Biz:\OPERATION\CRMSPACE\CHIEFMEETINGRECFUNC.Func',
    'Biz:\OPERATION\CRMSPACE\WORKWEEKREPORTFunc.Func',
    'Biz:\OPERATION\CRMSPACE\ProductDemandFUNC.Func',
    'Biz:\OPERATION\CRMSPACE\ProductQuestionFunc.Func',
    'Biz:\OPERATION\CRMSPACE\ProductQuestionFunc.Func',
    'Biz:\OPERATION\CRMSPACE\DATEAPPLICATIONFunc.Func',

    'Biz:\OPERATION\CRMSPACE\CstmCommRecordDealFunc.Func',
    'Biz:\OPERATION\CRMSPACE\CSTMTRACKDEALFUNC.Func',
    'Biz:\OPERATION\CRMSPACE\PresaleWorkTaskDealFunc.Func',
    'Biz:\OPERATION\CRMSPACE\UserCommRecordDealFunc.Func',
    'Biz:\OPERATION\CRMSPACE\UserTrackRecordDealFunc.Func',
    'Biz:\OPERATION\CRMSPACE\CHIEFMEETINGRECDEALFUNC.Func',
    'Biz:\OPERATION\CRMSPACE\WORKWEEKREPORTDEALfunc.Func',
    'Biz:\OPERATION\CRMSPACE\ProductDemandDealFunc.Func',
    'Biz:\OPERATION\CRMSPACE\ProductQuestionDealFunc.Func',
    {//todo wdx 不要删除此注释，这里如果需要OA有新闻公告板，则需将此放开
    'Biz:\OPERATION\OASPACE\TASKCENTERNEWSFUNC.FUNC',}
    'Biz:\OPERATION\CRMSPACE\DATEAPPLICATIONDEALFUNC.Func'
    ];
end;
注释掉自己不需要的，注意这里修改了以后，需要保存、编译、签入、刷新缓存才可以