diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/gui/treeviewtest/treeviewtest.lpr | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/examples/gui/treeviewtest/treeviewtest.lpr b/examples/gui/treeviewtest/treeviewtest.lpr index 902969c9..d8e6a9b7 100644 --- a/examples/gui/treeviewtest/treeviewtest.lpr +++ b/examples/gui/treeviewtest/treeviewtest.lpr @@ -37,7 +37,7 @@ begin tree := TfpgTreeView.Create(self); tree.SetPosition(8, 8, Width-16, Height-16); tree.Anchors := [anTop, anLeft, anRight, anBottom]; - tree.ShowColumns := True; +// tree.ShowColumns := True; // tree.TreeLineStyle := lsDot; tree.ScrollWheelDelta := 30; @@ -46,12 +46,13 @@ begin n.AppendText('Node 1.2'); n := tree.RootNode.AppendText('Node 2'); n.AppendText('Node 2.1'); - n := n.AppendText('Node 2.2'); + n := n.AppendText('Node 2.2 The quick brownfox jumps over the...'); for i := 1 to 3 do begin s := Format('Node 2.2.%d', [i]); n.AppendText(s);// + ' ' + s + ' ' + s); end; + n.Parent.AppendText('Node 2.3'); tree.RootNode.FirstSubNode.Next.Collapse; tree.RootNode.AppendText('Node 3'); tree.Selection := n; |