paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 10:59:29 +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 
(cherry picked from commit f9e932cb46)

Co-authored-by: zeljan1 <zeljko@holobit.hr>
This commit is contained in:
Željan Rikalo 2024-09-07 19:32:59 +00:00 committed by Željan Rikalo
parent cfd24b5c32
commit c8c5d06ff9
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;