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

LCL-GTK2: Fix ListView with vsIcon and Arrangement=iaLeft. Issue #41426, merge request !437.

Browse Source
This commit is contained in:
Massimo Magnano 2025-02-12 12:26:45 +01:00 committed by Juha
parent 4f6cf9605a
commit 5adcd2c308
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/interfaces/gtk2/gtk2wscustomlistview.inc
View File

@ -1773,10 +1773,19 @@ begin
begin
MainView := gtk_icon_view_new_with_model(TreeModel);
TreeSelection := nil;
if TLVHack(AWinControl).IconOptions.Arrangement = iaTop then
gtk_icon_view_set_columns(PGtkIconView(MainView), -1)
else
gtk_icon_view_set_columns(PGtkIconView(MainView), 1);
if TLVHack(AWinControl).IconOptions.AutoArrange then
begin
//MaxM: if we have only Horizontal bar active then set columns to Max
if TLVHack(AWinControl).Scrollbars in [ssHorizontal, ssAutoHorizontal] then
gtk_icon_view_set_columns(PGtkIconView(MainView), MaxInt)
else gtk_icon_view_set_columns(PGtkIconView(MainView), -1);
end
else begin
//We mimic the behavior of Windows although we should take scrollbars into account
if TLVHack(AWinControl).IconOptions.Arrangement = iaTop then
gtk_icon_view_set_columns(PGtkIconView(MainView), -1)
else gtk_icon_view_set_columns(PGtkIconView(MainView), MaxInt);
end;
end
else
begin