From fee3ccb58e054e1d95358a66591e43b7f2cddca1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C5=BDeljan=20Rikalo?= <zeljko@lazarus-ide.org>
Date: Mon, 11 Oct 2021 16:11:41 +0200
Subject: [PATCH] Qt,Qt5: fixed paleete change at runtime. issue #38589

(cherry picked from commit 4076f4efdd373e3cfb736613b84be34b0cfd7655)
---
 lcl/interfaces/qt/qtobject.inc  | 11 +++++++++++
 lcl/interfaces/qt5/qtobject.inc | 11 +++++++++++
 2 files changed, 22 insertions(+)

diff --git a/lcl/interfaces/qt/qtobject.inc b/lcl/interfaces/qt/qtobject.inc
index 393b3e2962..eadb5674f6 100644
--- a/lcl/interfaces/qt/qtobject.inc
+++ b/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,
diff --git a/lcl/interfaces/qt5/qtobject.inc b/lcl/interfaces/qt5/qtobject.inc
index 7c03578558..573a9baa4d 100644
--- a/lcl/interfaces/qt5/qtobject.inc
+++ b/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,