5
TTreeView's ScrollBar non accetta temi VCL quando il mirroring la TreeView di questo codice:del controllo TreeView non accetta VCL tema quando il mirroring
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;
immagine del campione:
cosa devo fare?
pls mi aiutano ...
Non so che cosa è esattamente sbagliato, ma funziona quando si include @ di RRUZ eccellente [Vcl.Styles.Hooks] (https://github.com/RRUZ/vcl-styles-utils/wiki/VclStylesHook) unit – whosrdaddy
Nota aggiuntiva, se si imposta 'BiDiMode: = bdRightToLeft;' sul modulo la barra di scorrimento viene visualizzata correttamente ma la modalità RTL di treeview non viene visualizzata correttamente ... – whosrdaddy
Grazie ... @whosrdaddy – smartiz