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

LCL-GTK2: Allow creating TListView in a loaded lib. Issue #33450, patch from fantangshan.

Browse Source 
git-svn-id: trunk@58948 -
This commit is contained in:
juha 2018-09-11 08:51:06 +00:00
parent 7c4624a81c
commit 80b6f0a6cc
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk2/gtk2listviewtreemodel.pas
View File

@ -21,6 +21,8 @@ uses
gtk2, glib2,
// LCL
ComCtrls;
const
ELCLListViewModel = 'LCLListViewModel';
type
{ TLCLTreeModel }
@ -95,6 +97,7 @@ var
TypeInfo: TGTypeInfo;
INterfaceINfo: TGInterfaceInfo;
begin
_LCLLISTVIEW_MODEL_TYPE := g_type_from_name(ELCLListViewModel);
if _LCLLISTVIEW_MODEL_TYPE = 0 then
begin
with TypeInfo do
@ -116,7 +119,7 @@ begin
interface_finalize := nil; //TGInterfaceFinalizeFunc;
interface_data := nil;//gpointer;
end;
_LCLLISTVIEW_MODEL_TYPE := g_type_register_static(G_TYPE_OBJECT, 'LCLListViewModel', @TypeInfo, 0);
_LCLLISTVIEW_MODEL_TYPE := g_type_register_static(G_TYPE_OBJECT, ELCLListViewModel, @TypeInfo, 0);
g_type_add_interface_static(_LCLLISTVIEW_MODEL_TYPE, GTK_TYPE_TREE_MODEL, @InterfaceInfo);
end;
Result := _LCLLISTVIEW_MODEL_TYPE;