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

Qt,Qt5,Qt6: checkbox offset should be applied only to the first column where checkbox resides. issue #41496

Browse Source
This commit is contained in:
zeljan1 2025-03-01 18:04:56 +01:00
parent 283bf2e564
commit 41593d7fba
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtwscomctrls.pp
View File

@ -1728,7 +1728,7 @@ begin
end;
ChkBoxRect := Rect(0, 0, 0, 0);
if QtTreeWidget.Checkable then
if QtTreeWidget.Checkable and (ASubItem = 0) then
begin
APixelMetric := QStyle_pixelMetric(QApplication_style(), QStylePM_IndicatorWidth, nil, QtTreeWidget.Widget);
APixelMetric += QStyle_pixelMetric(QApplication_style(), QStylePM_CheckBoxLabelSpacing, nil, QtTreeWidget.Widget);

2
lcl/interfaces/qt5/qtwscomctrls.pp
View File

@ -1800,7 +1800,7 @@ begin
end;
ChkBoxRect := Rect(0, 0, 0, 0);
if QtTreeWidget.Checkable then
if QtTreeWidget.Checkable and (ASubItem = 0) then
begin
APixelMetric := QStyle_pixelMetric(QApplication_style(), QStylePM_IndicatorWidth, nil, QtTreeWidget.Widget);
APixelMetric += QStyle_pixelMetric(QApplication_style(), QStylePM_CheckBoxLabelSpacing, nil, QtTreeWidget.Widget);

2
lcl/interfaces/qt6/qtwscomctrls.pp
View File

@ -1799,7 +1799,7 @@ begin
end;
ChkBoxRect := Rect(0, 0, 0, 0);
if QtTreeWidget.Checkable then
if QtTreeWidget.Checkable and (ASubItem = 0) then
begin
APixelMetric := QStyle_pixelMetric(QApplication_style(), QStylePM_IndicatorWidth, nil, QtTreeWidget.Widget);
APixelMetric += QStyle_pixelMetric(QApplication_style(), QStylePM_CheckBoxLabelSpacing, nil, QtTreeWidget.Widget);