Return from VCL to TMS style

VCL TMS VCL UI Pack
1

The form and some components still retain the colors from the VCL

frmstlrVisualOption.ApplyStyle; // FormStyler

procedure TfrmVisualOptions.frmstlrVisualOptionChange(Sender: TObject);
begin
oAppearance.TSMCentre.TMSStyle := frmstlrVisualOption.Style;
StyleName := TRttiEnumerationType.GetName(frmstlrVisualOption.Style);
StyleName := Copy(StyleName, StartCopy, Length(StyleName));
oAppearance.TSMCentre.SetStylers(StyleName);

2

In other words. I need to cancel the effect of the VCL style.

3

Did you set control.StyleElements := [] if you do not want VCL styles to be applied?

4

Thanks, that didn't occur to me. I'll try.

5

It is OK.