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

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

Browse Source
This commit is contained in:
Željan Rikalo 2024-01-18 22:20:03 +01:00
parent 554ea7ebb1
commit b2dc565bb3
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

@ -2554,8 +2554,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

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