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);