Commit 5102a773 authored by Juha Manninen's avatar Juha Manninen
Browse files

LCL-GTK2: Fix TListView column widths. Issue #34044, patch from accorp.

git-svn-id: trunk@59047 -
parent 62c05b07
......@@ -814,7 +814,11 @@ begin
Exit;
GtkColumn := gtk_tree_view_get_column(PGtkTreeView(Widgets^.MainView), AIndex);
if GtkColumn <> nil then
begin
Result := gtk_tree_view_column_get_width(GtkColumn);
if Result = 0 then
Result := gtk_tree_view_column_get_fixed_width(GtkColumn);
end;
end;
class procedure TGtk2WSCustomListView.ColumnInsert(const ALV: TCustomListView;
......@@ -1048,7 +1052,10 @@ begin
Exit;
GtkColumn := gtk_tree_view_get_column(PGtkTreeView(Widgets^.MainView), AIndex);
if GtkColumn <> nil then
begin
GtkColumn^.width := 0;
gtk_tree_view_column_set_fixed_width(GtkColumn, AWidth + Ord(AWidth<1));
end;
end;
class procedure TGtk2WSCustomListView.ColumnSetVisible(const ALV: TCustomListView;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment