5
TTreeView's स्क्रॉलपट्टी मिरर VCL विषयों को स्वीकार नहीं करता जब इस कोड से Treeview मिररिंग:TreeView के स्क्रॉलपट्टी 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;
नमूना छवि:
मुझे क्या करना चाहिए?
कृपया मेरी मदद करो ...
वास्तव में क्या गलत है, लेकिन यह काम करता है जब आप शामिल नहीं जानते @ RRUZ उत्तम [Vcl.Styles.Hooks] (https://github.com/RRUZ/vcl-styles-utils/wiki/VclStylesHook) इकाई – whosrdaddy
अतिरिक्त नोट, यदि आप फॉर्म पर 'BiDiMode: = bdRightToLeft;' सेट करते हैं तो स्क्रॉलबार सही ढंग से प्रस्तुत किया जाता है लेकिन वृक्षदृश्य आरटीएल मोड सही ढंग से प्रस्तुत नहीं किया जाता है ... – whosrdaddy
धन्यवाद ... @whosrdaddy – smartiz