paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 12:59:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed TQtGroupBox margins with fusion style.

Browse Source 
git-svn-id: trunk@52984 -
This commit is contained in:
zeljko 2016-09-17 14:14:15 +00:00
parent dff5e86d21
commit 8b791e4d7a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8356,8 +8356,12 @@ begin
else {currently applies only to oxygen & nitrogen theme.} else {currently applies only to oxygen & nitrogen theme.}
if ((TopMargin - BottomMargin - 2) > FontHeight) then if ((TopMargin - BottomMargin - 2) > FontHeight) then
begin begin
TopMargin := TopMargin - BottomMargin - 3; {do not touch fusion style !}
BottomMargin := 0; if QtWidgetSet.StyleName <> 'fusion' then
begin
TopMargin := TopMargin - BottomMargin - 3;
BottomMargin := 0;
end;
end; end;
{$ENDIF} {$ENDIF}
{if there's no text set margin to bottom margin size. issue #23642} {if there's no text set margin to bottom margin size. issue #23642}