Add TrySetStyle.

Components/Themes.pas

@@ -136,6 +136,7 @@ type
   TStyleManager = class
     class var FSystemHooks: TSystemHooks;
     class property SystemHooks: TSystemHooks read FSystemHooks write FSystemHooks;
+    class function TrySetStyle(const Name: string; ShowErrorDialog: Boolean = True): Boolean;
   end;
 
   { Override ComCtrls }
@@ -234,6 +235,13 @@ begin
   Result := True;
 end;
 
+{ TStyleManager }
+
+class function TStyleManager.TrySetStyle(const Name: string; ShowErrorDialog: Boolean): Boolean;
+begin
+  Result := False;
+end;
+
 initialization
 
 finalization