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

gtk2: reimplement ShowColumn for TListView. fixes issue #0013682

Browse Source 
git-svn-id: trunk@19901 -
This commit is contained in:
paul 2009-05-10 07:41:47 +00:00
parent 74c011bf82
commit 1e2eaeb90e
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1468,18 +1468,23 @@ class procedure TGtk2WSCustomListView.SetViewStyle(const ALV: TCustomListView;
procedure ShowColumns(const Widgets: PTVWidgets; const Show: Boolean);
var
List: PGList;
GtkColumn: PGtkTreeViewColumn;
i: Integer;
begin
for i := 1 to TLVHack(ALV).Columns.Count-1 do begin
GtkColumn := gtk_tree_view_get_column(PGtkTreeView(Widgets^.MainView), i);
if GtkColumn=nil then continue;
if not (Show)
or (Show and (PtrUInt(g_object_get_data(G_OBJECT(GtkColumn),
PChar('Visible')))<>0))
then
List := gtk_tree_view_get_columns(PGtkTreeView(Widgets^.MainView));
for i := 0 to g_list_length(List) - 1 do
begin
GtkColumn := g_list_nth_data(List, i);
if GtkColumn = nil then
Continue;
if not Show or
(Show and (PtrUInt(g_object_get_data(G_OBJECT(GtkColumn),
PChar('Visible'))) <> 0)) then
gtk_tree_view_column_set_visible(GtkColumn, Show);
end;
g_list_free(List)
end;
var