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

Qt,Qt5,Qt6: fixed widget palette dangling pointers.

Browse Source 
(cherry picked from commit b2dc565bb3)
This commit is contained in:
Željan Rikalo 2024-01-18 22:20:03 +01:00
parent 9835b964fb
commit 1f724b1393
3 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/qt/qtwidgets.pas
View File

@ -2552,8 +2552,11 @@ begin
begin
// DebugLn('QEventEnabledChange: ',dbgsName(LCLObject),' enabled ',dbgs(getEnabled));
if not getEnabled then
Palette.setTextColor(@Palette.DisabledTextColor)
else
begin
BeginUpdate;
Palette.setTextColor(@Palette.DisabledTextColor);
EndUpdate;
end else
begin
setInitialColor;
setInitialFontColor;

7
lcl/interfaces/qt5/qtwidgets.pas
View File

@ -2664,8 +2664,11 @@ begin
begin
// DebugLn('QEventEnabledChange: ',dbgsName(LCLObject),' enabled ',dbgs(getEnabled));
if not getEnabled then
Palette.setTextColor(@Palette.DisabledTextColor)
else
begin
BeginUpdate;
Palette.setTextColor(@Palette.DisabledTextColor);
EndUpdate;
end else
begin
setInitialColor;
setInitialFontColor;

7
lcl/interfaces/qt6/qtwidgets.pas
View File

@ -2662,8 +2662,11 @@ begin
begin
// DebugLn('QEventEnabledChange: ',dbgsName(LCLObject),' enabled ',dbgs(getEnabled));
if not getEnabled then
Palette.setTextColor(@Palette.DisabledTextColor)
else
begin
BeginUpdate;
Palette.setTextColor(@Palette.DisabledTextColor);
EndUpdate;
end else
begin
setInitialColor;
setInitialFontColor;