* Minor painting improvement in the treeview nodes.

2 files changed, 15 insertions, 7 deletions

diff --git a/examples/gui/treeviewtest/treeviewtest.lpi b/examples/gui/treeviewtest/treeviewtest.lpi
index 4990220b..4e659945 100644
--- a/examples/gui/treeviewtest/treeviewtest.lpi
+++ b/examples/gui/treeviewtest/treeviewtest.lpi
@@ -1,15 +1,15 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="\"/>
-    <Version Value="5"/>
+    <PathDelim Value="/"/>
+    <Version Value="6"/>
     <General>
       <Flags>
         <SaveOnlyProjectUnits Value="True"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <IconPath Value=".\"/>
+      <IconPath Value="./"/>
       <TargetFileExt Value=""/>
     </General>
     <VersionInfo>
@@ -17,14 +17,13 @@
     </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
-      <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
       <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
     </PublishOptions>
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
     <RequiredPackages Count="1">
@@ -43,7 +42,6 @@
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
-    <PathDelim Value="\"/>
     <CodeGeneration>
       <Generate Value="Faster"/>
     </CodeGeneration>
diff --git a/examples/gui/treeviewtest/treeviewtest.lpr b/examples/gui/treeviewtest/treeviewtest.lpr
index 101668f2..562ca8bb 100644
--- a/examples/gui/treeviewtest/treeviewtest.lpr
+++ b/examples/gui/treeviewtest/treeviewtest.lpr
@@ -26,6 +26,7 @@ type
 constructor TMainForm.Create(AOwner: TComponent);
 var
   n: TfpgTreeNode;
+  n2: TfpgTreeNode;
   i: integer;
   s: string;
 begin
@@ -50,12 +51,21 @@ begin
   for i := 1 to 3 do
   begin
     s := Format('Node 2.2.%d', [i]);
-    n.AppendText(s);// + ' ' + s + ' ' + s);
+    if i = 2 then
+      n2 := n.AppendText(s)
+    else
+      n.AppendText(s);
   end;
   n.Parent.AppendText('Node 2.3');
   tree.RootNode.FirstSubNode.Next.Collapse;
   tree.RootNode.AppendText('Node 3');
   tree.Selection := n;
+//  n := tree.RootNode.FindSubNode('Node 2.2.2', True);
+  if Assigned(n2) then
+  begin
+    n2.AppendText('Child 1').AppendText('Child 2');
+    n2.Collapsed := False;
+  end;
 end;