Qt,Qt5: fixed paleete change at runtime. issue #38589

(cherry picked from commit 4076f4efdd)

lcl/interfaces/qt/qtobject.inc

@@ -932,6 +932,17 @@ begin
         begin
           ClearCachedColors;
           FreeSysColorBrushes(True);
+        end else
+        begin
+          if QObject_isWidgetType(Sender) then
+          begin
+            W := QtObjectFromWidgetH(QWidgetH(Sender));
+            if (W <> nil) and Assigned(W.LCLObject) and W.IsWindow then
+            begin
+              RecreateWnd(W.LCLObject);
+              Result := True;
+            end;
+          end;
         end;
       end;
     QEventShow,

lcl/interfaces/qt5/qtobject.inc

@@ -907,6 +907,17 @@ begin
         begin
           ClearCachedColors;
           FreeSysColorBrushes(True);
+        end else
+        begin
+          if QObject_isWidgetType(Sender) then
+          begin
+            W := QtObjectFromWidgetH(QWidgetH(Sender));
+            if (W <> nil) and Assigned(W.LCLObject) and W.IsWindow then
+            begin
+              RecreateWnd(W.LCLObject);
+              Result := True;
+            end;
+          end;
         end;
       end;
     QEventShow,