paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 06:38:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Željan Rikalo 2021-10-11 16:11:41 +02:00
parent 8d41aa5e99
commit 4076f4efdd
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

@ -911,6 +911,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,