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

Qt5: fixed drawing of TSpeedButton.Flat=true when mouse over. issue #38356

Browse Source 
git-svn-id: trunk@64716 -
This commit is contained in:
zeljko 2021-03-01 17:43:27 +00:00
parent 1ff32ae62f
commit 0f32d7c396
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -137,6 +137,8 @@ var
dx, dy: integer;
APalette: QPaletteH;
W: WideString;
ABgColor: TQColor;
Alpha: Word;
procedure DrawSplitterInternal;
var
@ -442,6 +444,27 @@ begin
begin
opt := QStyleOptionFrame_create();
end;
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
begin
ABgColor := QBrush_color(QPainter_brush(Context.Widget))^;
Alpha := ABgColor.Alpha;
APalette := QPalette_Create(QWidget_palette(Context.Parent));
ColorRefToTQColor(ColorToRGB(Context.GetBkColor), ABgColor);
ABgColor.Alpha := Alpha;
ABrush := QBrush_create(PQColor(@ABgColor));
QPalette_setBrush(APalette, QPaletteAll, QPaletteButton, ABrush);
QStyleOption_setPalette(opt, APalette);
QBrush_destroy(ABrush);
QPalette_destroy(APalette);
end;
end;
QStylePE_IndicatorBranch:
begin