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

Gtk2: fixed TIconArrangement of GtkListView.

Browse Source 
git-svn-id: trunk@38892 -
This commit is contained in:
zeljko 2012-09-29 08:00:27 +00:00
parent d102797393
commit fbd34e1260
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1611,6 +1611,10 @@ 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);
end
else
begin