【搞定】TOperatorFuncNavBar的风格显示问题

ruanzhong5

在主窗体的构造函数中，对TOperatorFunNavBar风格初始化进行修改，出现了一些问题，请大家帮忙解决
if FDefaultPosition = nil then
    FFuncNavBar := TOperatorFuncNavBar.Create(TSystemCore.Operator.Context)
  else
    FFuncNavBar := TOperatorFuncNavBar.Create(FDefaultPosition.Context);
  FFuncNavBar.Parent := HidePanel;
  FFuncNavBar.Width := 180;

  FFuncNavBar.View := 1; ///修改自定义的风格原来为11
  ***************************************
  上面这行改为6或者6以下后，功能树中的Group下面的Item
  全丢失了，请问为什么，我的版本是2617，注意，在这里
改值时，必须把TRelevancyManager.ApplyNavBarStyle (FFuncNavBar);注释掉，否则他的值默认改为10，则不会出现
我说的情况
FFuncNavBar.Align := TAlign.alClient;
  FFuncNavBar.BorderStyle := TFormBorderStyle.bsNone;
  FFuncNavBar.SmallImages := TImageList(TCommonComponentLibrary.UserGraphics.ImageList16);
  FFuncNavBar.LargeImages := TImageList(TCommonComponentLibrary.UserGraphics.ImageList32);

//TRelevancyManager.ApplyNavBarStyle(FFuncNavBar);     //修改了上面的风格
//  FFuncNavBar.View := 6;或者上面不该在这里修改

//  FFuncNavBar.BaseTree := FFuncTree;
  for I := 0 to FFuncNavBar.Groups.Count - 1 do
  begin
    FFuncNavBar.Groups[I].UseSmallImages := False;
    FFuncNavBar.Groups[I].LargeImageIndex := 8;
  end;

ruanzhong5

版主帮忙解决一下

alang

请参考 http://bbs.justep.com/forum.php? ... t=TRelevancyManager
13楼代码

附图是 view := 5 的效果

ruanzhong5

谢谢，可以结贴了