From ad462128abb5b2a15a84f4a45b89acae415f2ab1 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 9 Feb 2002 01:48:15 +0000
Subject: [PATCH] fixed TListView.Items.Add

git-svn-id: trunk@1306 -
---
 lcl/interfaces/gtk/gtkobject.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk/gtkobject.inc b/lcl/interfaces/gtk/gtkobject.inc
index 881d8784a2..6b5101b4aa 100644
--- a/lcl/interfaces/gtk/gtkobject.inc
+++ b/lcl/interfaces/gtk/gtkobject.inc
@@ -1319,7 +1319,7 @@ begin
       if (Sender is TListView) then
       begin
         ListViewAddItem(Sender);
-        ListViewChangeItem(Sender,Num);
+        ListViewChangeItem(Sender,TListView(Sender).Items.Count-1);
       end;
 
       LM_LV_SELECTITEM:
@@ -6631,6 +6631,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.290  2002/11/18 13:56:33  mattias
+  fixed TListView.Items.Add
+
   Revision 1.289  2002/11/18 13:38:44  mattias
   fixed buffer overrun and added several checks