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

* Fixed crash with new treemodel

Browse Source 
git-svn-id: trunk@22947 -
This commit is contained in:
andrew 2009-12-03 20:23:49 +00:00
parent e282aec07c
commit 04240b2cb9
1 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -84,12 +84,6 @@ begin
DeliverMessage(WidgetInfo^.LCLObject, msg);
ALV := TLVHack(WidgetInfo^.LCLObject);
if ALV.Items.Count = 0 then begin
Widgets := PTVWidgets(WidgetInfo^.UserData);
Widgets^.ItemCache.Free;
Widgets^.ItemCache := nil;
end;
end;
procedure Gtk2_ItemInserted(model: PGtkTreeModel; path: PGtkTreePAth; Iter: PGtkTreeIter; WidgetInfo: PWidgetInfo); cdecl;
@ -841,8 +835,6 @@ begin
with Widgets^ do
begin
if ItemCache = nil then
ItemCache := TStringList.Create;
{$IFDEF USEORIGTREEMODEL}
if AIndex = -1 then
Index := gtk_tree_model_iter_n_children(TreeModel, nil)
@ -1065,14 +1057,15 @@ begin
New(Widgets);
with Widgets^ do
begin
ItemCache := nil;
ItemCache := TStringList.Create;
Images := nil;
PtrType := G_TYPE_POINTER;
{$IFDEF USEORIGTREEMODEL}
TreeModel := gtk_list_store_newv(1, @PtrType);
{$ELSE}
TreeModel:= LCLListViewModelNew(TCustomListView(AWinControl));
{$ENDIF}
TreeModel:= LCLListViewModelNew(TCustomListView(AWinControl));
MainView:=gtk_tree_view_new_with_model(TreeModel);
@ -1463,8 +1456,6 @@ begin
gtk_tree_view_set_model(PGtkTreeView(MainView), TreeModel);
g_object_unref(TreeModel);
{$ELSE}
if ItemCache = nil then
ItemCache := TStringList.Create;
gtk_list_store_clear(PGtkListStore(TreeModel));
for Index := 0 to AValue - 1 do
gtk_list_store_insert_with_values(PGtkListStore(TreeModel), @Iter, Index, 0, nil, -1);