paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 10:56:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5: Fixed TGroupBox margins & wrong mouse coordinates. fixes issues #32186 and #37576

Browse Source 
git-svn-id: trunk@64857 -
This commit is contained in:
zeljko 2021-03-22 13:12:05 +00:00
parent 6e22a97b90
commit 7b8b329d98
1 changed files with 21 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8115,53 +8115,30 @@ var
LeftMargin: Integer;
TopMargin: Integer;
RightMargin: Integer;
BottomMargin: Integer;
{$IFDEF HASX11}
Font: QFontH;
FontMetrics: QFontMetricsH;
FontHeight: Integer;
{$ENDIF}
BottomMargin, AStyleMetric: Integer;
begin
if ALayout = nil then
exit;
QWidget_getContentsMargins(AWidget,@LeftMargin, @TopMargin, @RightMargin, @BottomMargin);
{if contentsMargins TopMargin is huge then we must rethink about TopMargin
size (eg.oxygen theme have 32 top margin while plastique have 19
with same font height) }
{$IFDEF HASX11}
Font := QWidget_font(AWidget);
FontMetrics := QFontMetrics_create(Font);
try
FontHeight := QFontMetrics_height(FontMetrics);
finally
QFontMetrics_destroy(FontMetrics);
end;
{currently applies only to wrong TopMargin calculation (eg.gtk style).}
if (TopMargin - FontHeight < 2) then
TopMargin := FontHeight + 2 // top & bottom +1px
else {currently applies only to oxygen & nitrogen theme.}
if ((TopMargin - BottomMargin - 2) > FontHeight) then
begin
{do not touch fusion style !}
if QtWidgetSet.StyleName <> 'fusion' then
begin
TopMargin := TopMargin - BottomMargin - 3;
BottomMargin := 0;
end;
end;
{$ENDIF}
{if there's no text set margin to bottom margin size. issue #23642}
if getText = '' then
AStyleMetric := QStyle_pixelMetric(QApplication_style(), QStyleSE_DockWidgetTitleBarText, nil, Widget);
{issue #37576}
{if (AStyle = 'fusion') or (AStyle = 'gtk2') or
(AStyle = 'qt5ct-style') then}
if AStyleMetric = 0 then
else
if (getText = '') then
TopMargin := BottomMargin;
QLayout_setContentsMargins(ALayout, LeftMargin, TopMargin, RightMargin, BottomMargin);
QLayout_invalidate(ALayout);
if (LCLObject <> nil) and testAttribute(QtWA_Mapped) then
begin
{.$IFDEF VerboseQtResize}
{$IFDEF VerboseQtResize}
DebugLn('TQtGroupBox.setLayoutThemeMargins: ',dbgsName(LCLObject),' casp: ',dbgs(caspComputingBounds in LCLObject.AutoSizePhases),' mapped ',dbgs(testAttribute(QtWA_Mapped)));
{.$ENDIF}
{$ENDIF}
LCLObject.DoAdjustClientRectChange(False);
LCLObject.InvalidateClientRectCache(True);
end;
@ -8378,7 +8355,15 @@ var
L, T, R, B: Integer;
ASize: TSize;
begin
QWidget_getContentsMargins(Widget,@L, @T, @R, @B);
if WithThemeSpace then
QWidget_getContentsMargins(Widget,@L, @T, @R, @B)
else
begin
L := 0;
T := 0;
R := 0;
B := 0;
end;
QGroupBox_minimumSizeHint(QGroupBoxH(Widget), @ASize);
PreferredWidth := ASize.cx + L + R;
PreferredHeight := ASize.cy + B + T;