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

LCL-GTK3: Make Listview display icons in list mode. Issue #38914, patch by Anton Kavalenka.

Browse Source 
git-svn-id: trunk@65120 -
This commit is contained in:
juha 2021-05-21 09:50:57 +00:00
parent 876714be01
commit 7959d2ab7c
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -5929,16 +5929,20 @@ var
ImageIndex: Integer;
ColumnIndex: Integer;
APath: PGtkTreePath;
gv:TGValue;
pb:PgdkPixbuf;
begin
// TODO: set_property('pixbuf', TGValue);
// PGtkCellRendererPixbuf(cell)^.pixbuf := nil;
fillchar(gv,sizeof(gv),0);
gv.init(G_TYPE_OBJECT);
gv.set_instance(nil);
PGtkCellRendererPixbuf(cell)^.set_property('pixbuf',@gv);
gtk_tree_model_get(tree_model, iter, [0, @ListItem, -1]);
ListColumn := TListColumn(g_object_get_data(tree_column, 'TListColumn'));
if ListColumn = nil then
Exit;
ColumnIndex := ListColumn.Index;
// Images := Widgets^.Images;
Images := TGtk3ListView(AData).Images;
if Images = nil then
Exit;
@ -5961,10 +5965,13 @@ begin
ImageIndex := ListItem.SubItemImages[ColumnIndex-1];
if (ImageIndex > -1) and (ImageIndex <= Images.Count-1) then
// TODO: set property
//PGtkCellRendererPixbuf(cell)^.pixbuf := PGdkPixbuf(Images.Items[ImageIndex])
pb:=TGtk3Image(TBitmap(Images.Items[ImageIndex]).Handle).Handle
else
; // PGtkCellRendererPixbuf(cell)^.pixbuf := nil;
pb:=nil;
gv.set_instance(pb);
PGtkCellRendererPixbuf(cell)^.set_property('pixbuf',@gv)
end;
procedure Gtk3WS_ListViewColumnClicked(column: PGtkTreeViewColumn; AData: GPointer); cdecl;