paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 05:56:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
(cherry picked from commit 4076f4efdd)
This commit is contained in:
Željan Rikalo 2021-10-11 16:11:41 +02:00 committed by Maxim Ganetsky
parent 044eaf72fa
commit fee3ccb58e
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/qt/qtobject.inc
View File

@ -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,

11
lcl/interfaces/qt5/qtobject.inc
View File

@ -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,