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

Qt5,Qt6: Fixed ugly item sizes in TListView with ViewStyle vsIcon,vsSmallIcon. issue #23187

Browse Source
This commit is contained in:
zeljan1 2024-07-24 20:31:22 +02:00
parent f6c415d958
commit f9e932cb46
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -739,6 +739,7 @@ begin
QtListWidget.setWrapping(IconOptions.AutoArrange);
QtListWidget.setViewFlow(IconArngToQListFlow[IconOptions.Arrangement]);
QtListWidget.setWordWrap(IconOptions.WrapText);
QtListWidget.setUniformItemSizes(IconOptions.WrapText);
end;
end else
@ -841,7 +842,7 @@ begin
Exit(-1);
// TODO: columns in vsIcon mode
if IsIconView(ALV) then
if IsIconView(ALV) or (csDestroyingHandle in ALV.ControlState) then
exit(0);
QtTreeWidget := TQtTreeWidget(ALV.Handle);

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

@ -737,6 +737,7 @@ begin
QtListWidget.setWrapping(IconOptions.AutoArrange);
QtListWidget.setViewFlow(IconArngToQListFlow[IconOptions.Arrangement]);
QtListWidget.setWordWrap(IconOptions.WrapText);
QtListWidget.setUniformItemSizes(IconOptions.WrapText);
end;
end else
@ -839,7 +840,7 @@ begin
Exit(-1);
// TODO: columns in vsIcon mode
if IsIconView(ALV) then
if IsIconView(ALV) or (csDestroyingHandle in ALV.ControlState) then
exit(0);
QtTreeWidget := TQtTreeWidget(ALV.Handle);
@ -849,7 +850,6 @@ begin
unfortunatelly it''s hardcoded in listcolumn.inc.}
if (csDesigning in ALV.ComponentState) and (QtTreeWidget.ColCount <> ALV.ColumnCount) then
exit(50);
Result := QtTreeWidget.ColWidth[AIndex];
end;