5
TTreeView's ScrollBar Spiegelung nicht VCL Themen annehmen, wenn sie von diesem Code die Treeview-Spiegelung:TreeView des ScrollBar Ablehnen VCL Thema, wenn
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;
Beispielbild:
, was soll ich tun?
pls mir helfen ...
Sie wissen nicht, was genau falsch ist, aber es funktioniert, wenn Sie @ RRUZ ausgezeichneten umfassen [Vcl.Styles.Hooks] (https://github.com/RRUZ/vcl-styles-utils/wiki/VclStylesHook) Einheit – whosrdaddy
Zusätzliche Anmerkung, wenn Sie 'BiDiMode: = bdRightToLeft;' auf dem Formular dann die Bildlaufleiste wird richtig gerendert, aber die Baumansicht RTL-Modus wird nicht richtig gerendert ... – whosrdaddy
Danke ... @whosrdaddy – smartiz