【搞定】功能树的颜色**

sgmx

在最新版本的窗体库代码中找不到TBaseNavBar = class(TdxNavBar)
这个构造函数阿！怎么修改这个背景色啊？

jiahaiming

TBaseNavBar = class(TdxNavBar)
楼主到组件库看看

sgmx

在用户界面基础/库/公共组件库的代码中找到上面构造函数的代码了，但是
StyleBackground := TdxNavBarStyleItem.Create(self);
  StyleBackground.Style.BackColor := Graphics.clRed;
  StyleBackground.Style.BackColor2 := Graphics.clRed;
这段代码放到哪里啊？
TBaseNavBar = class(TdxNavBar)
  private
    FBaseTree: TBaseTree;

    FGroups: TStringList;
    FTreeViews: TStringList;

    function GetGUID(ABarNode: TComponent): string;
    function FindTreeView(ABarNode: TComponent): TBaseTreeView;
    function GetTreeView(ABarNode: TComponent): TBaseTreeView;

    procedure CloseOtherGroups(AGroup: TdxNavBarGroup);

    function GetSelectNode: TBaseNode;

    procedure SetBaseTree(const Value: TBaseTree);

    procedure AdjusteControlHeight(Sender: TObject; AViewInfo: TdxNavBarGroupViewInfo;
      var AHeight: Integer);
  protected
    function DoAddGroup(ANode: TBaseNode): TdxNavBarGroup;
    procedure DoGroupChange(Sender: TObject);

    function DoCreateTreeView(AOwner: TComponent): TBaseTreeView; virtual;
    function CreateTreeView(AGroup: TdxNavBarGroup;
      const AFromGUID: string): TBaseTreeView; virtual;
    function CanAddGroup(ANode: TBaseNode): Boolean; virtual;
    procedure EnsureRoot; virtual;

    property BaseTree: TBaseTree read FBaseTree write SetBaseTree;
  public
    constructor Create(AOwner: TComponent);
    destructor Destroy; override;

    procedure Reload;

    property SelectNode: TBaseNode read GetSelectNode;
    //StyleBackground := TdxNavBarStyleItem.Create(self);
    //StyleBackground.Style.BackColor := Graphics.clRed;
    //StyleBackground.Style.BackColor2 := Graphics.clRed;

  end;

jiahaiming

constructor Create(AOwner: TComponent);