* More painting fixes for the Treeview. Node lines seem to paint

  correctly now, even if some nodes are partiall or fully hidden.

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;