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

Qt5: additional fix for hovered buttons. issue

Browse Source
This commit is contained in:
Željan Rikalo 2021-08-30 12:35:05 +02:00
parent 284f51e4d0
commit a84e602a48
1 changed files with 12 additions and 0 deletions

12
lcl/interfaces/qt5/qtthemes.pas
View File

@ -448,6 +448,7 @@ begin
QStylePE_PanelButtonTool:
begin
opt := QStyleOption_create(Ord(QStyleOptionVersion), Ord(QStyleOptionSO_Default));
//issue #38356 - when button is in hot state bg color should be same as parent color.
if Assigned(Context.Parent) and
(StyleState and QStyleState_MouseOver <> 0) and (StyleState and QStyleState_AutoRaise = 0) then
@ -456,6 +457,17 @@ begin
Alpha := ABgColor.Alpha;
APalette := QPalette_Create(QWidget_palette(Context.Parent));
ColorRefToTQColor(ColorToRGB(Context.GetBkColor), ABgColor);
//issue #38356 additional fix for non initialized brush color in QPainter
if (ABGColor.r = MAXWORD) and (ABGColor.g = MAXWORD) and (ABGColor.b = MAXWORD) and
(ABGColor.Alpha = MAXWORD) and (QPainter_backgroundMode(Context.Widget) = QtTransparentMode) then
begin
QPalette_destroy(APalette);
APalette := QPalette_Create();
QStyleOption_palette(opt, APalette);
ABgColor := QBrush_color(QPalette_button(APalette))^;
end;
ABgColor.Alpha := Alpha;
ABrush := QBrush_create(PQColor(@ABgColor));
QPalette_setBrush(APalette, QPaletteAll, QPaletteButton, ABrush);