From feabd37193a4e63ff629b6f1e05039eeffcc8aa2 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Mon, 3 Sep 2007 09:39:39 +0000
Subject: * Implemented more of the Treeview component. Started with the  
 painting routine as well. Still not usable though.

---
 examples/gui/treeviewtest/treeviewtest.lpi |  3 ---
 examples/gui/treeviewtest/treeviewtest.lpr | 13 +++++++++++++
 2 files changed, 13 insertions(+), 3 deletions(-)

(limited to 'examples/gui/treeviewtest')

diff --git a/examples/gui/treeviewtest/treeviewtest.lpi b/examples/gui/treeviewtest/treeviewtest.lpi
index 779a40a2..ca871164 100644
--- a/examples/gui/treeviewtest/treeviewtest.lpi
+++ b/examples/gui/treeviewtest/treeviewtest.lpi
@@ -4,9 +4,6 @@
     <PathDelim Value="/"/>
     <Version Value="5"/>
     <General>
-      <Flags>
-        <SaveOnlyProjectUnits Value="True"/>
-      </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
       <IconPath Value="./"/>
diff --git a/examples/gui/treeviewtest/treeviewtest.lpr b/examples/gui/treeviewtest/treeviewtest.lpr
index 85f7ffbc..7db4aafe 100644
--- a/examples/gui/treeviewtest/treeviewtest.lpr
+++ b/examples/gui/treeviewtest/treeviewtest.lpr
@@ -13,6 +13,8 @@ uses
 
 type
   TMainForm = class(TfpgForm)
+  private
+    TV: TfpgTreeView;
   public
     constructor Create(AOwner: TComponent); override;
   end;
@@ -20,11 +22,22 @@ type
 { TMainForm }
 
 constructor TMainForm.Create(AOwner: TComponent);
+var
+  n: TfpgTreeNode;
 begin
   inherited Create(AOwner);
   WindowTitle := 'Treeview Test';
   WindowPosition := wpUser;
   SetPosition(100, 100, 300, 200);
+  
+  TV := TfpgTreeView.Create(self);
+  TV.SetPosition(8, 8, 250, 180);
+  TV.ShowColumns := False;
+  n := TV.RootNode.AppendText('Node 1');
+  n.AppendText('Node 1.1');
+  n := TV.RootNode.AppendText('Node 2');
+  n.AppendText('Node 2.1');
+  TV.RootNode.AppendText('Node 3');
 end;
 
 
-- 
cgit v1.2.3-70-g09d2