From 1b88decc3dccdbaa4aa90e39a14571316d541241 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Wed, 24 Sep 2008 06:15:15 +0000
Subject: [PATCH] lcl: allow to work with TTreeView.TopItem when handle is not
 allocated

git-svn-id: trunk@16691 -
---
 lcl/include/treeview.inc | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index 976625419a..5f6badbe87 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -3627,15 +3627,18 @@ begin
     UpdateTopItem;
     Result := FTopItem;
   end else
-    Result := nil;
+    Result := FTopItem;
 end;
 
 procedure TCustomTreeView.SetTopItem(Value: TTreeNode);
 begin
-  if HandleAllocated and (Value <> nil) then begin
+  if HandleAllocated and (Value <> nil) then
+  begin
     Value.MakeVisible;
     ScrolledTop:=Value.Top;
-  end;
+  end
+  else
+    FTopItem := Value;
 end;
 
 procedure TCustomTreeView.OnChangeTimer(Sender: TObject);