From 80b6f0a6cc705eae0a75e9129b37edca01a3cc3b Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Tue, 11 Sep 2018 08:51:06 +0000
Subject: [PATCH] LCL-GTK2: Allow creating TListView in a loaded lib. Issue
 #33450, patch from fantangshan.

git-svn-id: trunk@58948 -
---
 lcl/interfaces/gtk2/gtk2listviewtreemodel.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk2/gtk2listviewtreemodel.pas b/lcl/interfaces/gtk2/gtk2listviewtreemodel.pas
index 53cf3968e4..baf82ee2a9 100644
--- a/lcl/interfaces/gtk2/gtk2listviewtreemodel.pas
+++ b/lcl/interfaces/gtk2/gtk2listviewtreemodel.pas
@@ -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;