diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-09-03 15:03:23 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-09-03 15:03:23 +0000 |
| commit | 4ef91ca61a1cac4918fbe40c1550a84819744404 (patch) | |
| tree | 90396bd0b8af74b6b8723feec237f29c9ae315e2 /examples/gui/treeviewtest | |
| parent | feabd37193a4e63ff629b6f1e05039eeffcc8aa2 (diff) | |
| download | fpGUI-4ef91ca61a1cac4918fbe40c1550a84819744404.tar.xz | |
* Treeview finally paints itself. Still not 100% and still no input support.
Diffstat (limited to 'examples/gui/treeviewtest')
| -rw-r--r-- | examples/gui/treeviewtest/treeviewtest.lpr | 8 |
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; |