summaryrefslogtreecommitdiff
path: root/examples/gui
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-09-03 15:03:23 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-09-03 15:03:23 +0000
commit4ef91ca61a1cac4918fbe40c1550a84819744404 (patch)
tree90396bd0b8af74b6b8723feec237f29c9ae315e2 /examples/gui
parentfeabd37193a4e63ff629b6f1e05039eeffcc8aa2 (diff)
downloadfpGUI-4ef91ca61a1cac4918fbe40c1550a84819744404.tar.xz
* Treeview finally paints itself. Still not 100% and still no input support.
Diffstat (limited to 'examples/gui')
-rw-r--r--examples/gui/treeviewtest/treeviewtest.lpr8
1 files changed, 7 insertions, 1 deletions
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;