镜像时,TreeView的ScrollBar不接受VCL主题

Question

TTreeView's 通过以下代码镜像Treeview时,ScrollBar不接受VCL主题:

procedure SetWinControlBiDi(Control: TWinControl);
const
 WS_EX_NOINHERITLAYOUT = $00100000;
 WS_EX_LAYOUTRTL = $00400000;
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单元添加到项目中.