[分享]修改平台缺省的界面**

alang

主界面上放置的跟显示相关的控件简单说明如下

TContainer 主要属性是 Background、Border
Background是背景，可以用Image给一个图片，也可以设置Color来设置颜色
Border把区域分成了8个部分，每一个部分也是可以用Image给一个图片，也可以设置Color来设置颜色

TFrameButton 用于定义显示的属性是 Frames 属性，这个属性是TFrameButtonFrame的列表，每一个TFrameButtonFrame也是跟TContainer一样通过Background、Border属性分成了9个部分

TFrameButtonResource 跟TFrameButton类似有一个定义显示的Frames属性，作用跟TFrameButton中一样

TDockStub 通过 TopBar、BottomBar、LeftBar、RightBar属性定义了上下左右四个边如何来显示，他们都是TDockBarDefine类型的。TDockBarDefine跟TContainer一样通过Background、Border属性分成了9个部分，还有一个Tab(TDockBarTabDefine)属性定义了标签页的显示。这个TDockBarTabDefine又是通过Background、Border属性分成了9个部分

TGraphicTab 有两组属性用于显示，ActiveImage、Active定义了标签页处于激活状态的9个部分的显示，NormalImage、Normal定义了标签页处于非激活状态的9个部分的显示

alang

1) 左面的功能树是FFuncNavBar(TOperatorFuncNavBar)，继承自 TdxNavBar
2) 这个TOperatorFuncNavBar 在 系统空间用户界面基础\界面库组件库 中定义的，里面包含了一个 TOperatorFuncTreeView(继承自TBizTreeView) 也在这个资源集中定义的
3) 图中蓝色和浅绿色框的是分组的组头
    //普通显示的组头
    FFuncNavBar.DefaultStyles.GroupHeader.Font.Color := Graphics.clBlack;
    FFuncNavBar.DefaultStyles.GroupHeader.Font.Style := [];
    FFuncNavBar.DefaultStyles.GroupHeader.AlphaBlending := 100;
    FFuncNavBar.DefaultStyles.GroupHeader.BackColor := 15260372;
    FFuncNavBar.DefaultStyles.GroupHeader.BackColor2 := 15128272;

    //普通组头在鼠标划过时候的显示
    FFuncNavBar.DefaultStyles.GroupHeaderHotTracked.Font.Color := Graphics.clWhite;
    FFuncNavBar.DefaultStyles.GroupHeaderHotTracked.AlphaBlending2 := 250;
    FFuncNavBar.DefaultStyles.GroupHeaderHotTracked.BackColor := 6343771;//4641273;
    FFuncNavBar.DefaultStyles.GroupHeaderHotTracked.BackColor2 := 2792213;//4641273;

    //普通组头在鼠标点击时的显示
    FFuncNavBar.DefaultStyles.GroupHeaderPressed.Font.Color := Graphics.clWhite;
    FFuncNavBar.DefaultStyles.GroupHeaderPressed.AlphaBlending2 := 250;
    FFuncNavBar.DefaultStyles.GroupHeaderPressed.BackColor := 6343771;
    FFuncNavBar.DefaultStyles.GroupHeaderPressed.BackColor2 := 2792213;

    //激活的组头的显示
    FFuncNavBar.DefaultStyles.GroupHeaderActive.AlphaBlending2 := 250;
    FFuncNavBar.DefaultStyles.GroupHeaderActive.BackColor := 6343771;
    FFuncNavBar.DefaultStyles.GroupHeaderActive.BackColor2 := 2792213;

    //激活的组头在鼠标点击时的显示
    FFuncNavBar.DefaultStyles.GroupHeaderActivePressed.AlphaBlending2 := 250;
    FFuncNavBar.DefaultStyles.GroupHeaderActivePressed.BackColor := 6343771;
    FFuncNavBar.DefaultStyles.GroupHeaderActivePressed.BackColor2 := 2792213;

    //激活的组头在鼠标划过时的显示
    FFuncNavBar.DefaultStyles.GroupHeaderActiveHotTracked.AlphaBlending2 := 250;
    FFuncNavBar.DefaultStyles.GroupHeaderActiveHotTracked.BackColor := 6343771;
    FFuncNavBar.DefaultStyles.GroupHeaderActiveHotTracked.BackColor2 := 2792213;
4) 图中紫色部分是Background
    FFuncNavBar.DefaultStyles.Background.BackColor := 15855854;
    FFuncNavBar.DefaultStyles.Background.BackColor2 := 15855854;
以上所有的都可以用BackColor、BackColor2两个属性来定义背景颜色从一个过渡到另外一个的过渡色，也可以用Image属性定义一个图片

alang

上图中绿色部分是一个TOperatorFuncTreeView(继承自TBizTreeView)，但是没有从FFuncNavBar公布出来，只能在创建地方修改了
这段创建代码在 系统空间\用户界面基础\界面库\组件库
function TOperatorFuncNavBar.CreateTreeView(AGroup: TdxNavBarGroup;
  const AFromGUID: string): TBaseTreeView;
begin
  Result := inherited CreateTreeView(AGroup, AFromGUID);
  Result.Color := $f7dfd6;
end;
通过设置Color属性来修改背景色

alang

关联信息
1) 右面的关联信息是FRelevancyNavBar (TRelevancyNavBar)，TRelevancyNavBar在 协同系统关联\业务关联库 中定义的，没有提供源码，但是他是从TdxNavBar继承下来的，只要12楼来定义显示就可以了，如定义背景色，可以用
    FRelevancyNavBar.DefaultStyles.GroupBackground.BackColor := Graphics.clYellow;
    FRelevancyNavBar.DefaultStyles.GroupBackground.BackColor2 := Graphics.clAqua;
2) FRelevancyNavBar 与功能树不同，不是用另外一个控件来显示里面的项目，而是直接用了TdxNavBar的组来显示的，因此只要修改GroupBackgound的BackColor、BackColor2或者Image属性就可以了
    FRelevancyNavBar.DefaultStyles.Background.BackColor := Graphics.clBlack;
    FRelevancyNavBar.DefaultStyles.Background.BackColor2 := Graphics.clGray;
3) 每一个关联项是Item，
    FRelevancyNavBar.DefaultStyles.Item.Font.Color := Graphics.clWhite;
    FRelevancyNavBar.DefaultStyles.Item.BackColor := Graphics.clBlue;
    FRelevancyNavBar.DefaultStyles.Item.BackColor2 := Graphics.clDkGray;