From 4ef91ca61a1cac4918fbe40c1550a84819744404 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Mon, 3 Sep 2007 15:03:23 +0000
Subject: * Treeview finally paints itself. Still not 100% and still no input
 support.

---
 examples/gui/treeviewtest/treeviewtest.lpr | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'examples/gui')

diff --git a/examples/gui/treeviewtest/treeviewtest.lpr b/examples/gui/treeviewtest/treeviewtest.lpr
index 7db4aafe..45c18079 100644
--- a/examples/gui/treeviewtest/treeviewtest.lpr
+++ b/examples/gui/treeviewtest/treeviewtest.lpr
@@ -32,12 +32,18 @@ begin
   
   TV := TfpgTreeView.Create(self);
   TV.SetPosition(8, 8, 250, 180);
-  TV.ShowColumns := False;
+  TV.Align := alClient;
+  TV.ShowColumns := True;
   n := TV.RootNode.AppendText('Node 1');
   n.AppendText('Node 1.1');
+  n.AppendText('Node 1.2');
   n := TV.RootNode.AppendText('Node 2');
   n.AppendText('Node 2.1');
+  n := n.AppendText('Node 2.2');
+  n.AppendText('Node 2.2.1');
+  TV.RootNode.FirstSubNode.Next.Collapse;
   TV.RootNode.AppendText('Node 3');
+  TV.Selection := n;
 end;
 
 
-- 
cgit v1.2.3-70-g09d2