镜像时TreeView的ScrollBar Not Accept VCL theme

Question

TTreeView's 当通过此代码镜像 Treeview 时，ScrollBar 不接受 VCL 主题：

procedure SetWinControlBiDi(Control: TWinControl);
const
 WS_EX_NOINHERITLAYOUT = [=10=]100000;
 WS_EX_LAYOUTRTL = [=10=]400000;
var
 ExStyle: Longint;
begin
 ExStyle := GetWindowLong(Control.Handle, GWL_EXSTYLE);
 SetWindowLong(Control.Handle, GWL_EXSTYLE, ExStyle or WS_EX_RTLREADING or WS_EX_RIGHT
   or WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT );
end;


procedure TForm2.FormCreate(Sender: TObject);
begin
   SetWinControlBiDi(TreeView1);
end;

示例图片：

我该怎么办？

请帮助我...

Answer 1

这是 TScrollingStyleHook 样式挂钩中的一个问题，您应该将此报告给 Embarcadero。同时，您可以使用 Vcl Styles Utils 项目来解决此问题。

只需要按照安装说明，然后将 Vcl.Styles.Hooks 单元添加到您的项目中。