From 0b95f7deb552494b4d99e595e543e6c76ea57b07 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 13 Jul 2016 20:51:01 +0000
Subject: [PATCH] tvplanit: Remove dependence on LazColorPalette from
 laz_visualplanit (How did it get there?)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4943 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/laz_visualplanit.lpk | 13 +++++--------
 components/tvplanit/source/vpxmlds.pas          |  3 ++-
 2 files changed, 7 insertions(+), 9 deletions(-)

diff --git a/components/tvplanit/source/laz_visualplanit.lpk b/components/tvplanit/source/laz_visualplanit.lpk
index 4c345994f..35e3b53ad 100644
--- a/components/tvplanit/source/laz_visualplanit.lpk
+++ b/components/tvplanit/source/laz_visualplanit.lpk
@@ -336,20 +336,17 @@ Contributor(s): "/>
       <OutDir Value="../languages"/>
       <EnableI18NForLFM Value="True"/>
     </i18n>
-    <RequiredPkgs Count="4">
+    <RequiredPkgs Count="3">
       <Item1>
-        <PackageName Value="LazColorPalette"/>
-      </Item1>
-      <Item2>
         <PackageName Value="FCL"/>
         <MinVersion Major="1" Valid="True"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="LCL"/>
       </Item2>
       <Item3>
-        <PackageName Value="LCL"/>
-      </Item3>
-      <Item4>
         <PackageName Value="IDEIntf"/>
-      </Item4>
+      </Item3>
     </RequiredPkgs>
     <UsageOptions>
       <UnitPath Value="$(PkgOutDir)"/>
diff --git a/components/tvplanit/source/vpxmlds.pas b/components/tvplanit/source/vpxmlds.pas
index 1722c6bb4..eb5956289 100644
--- a/components/tvplanit/source/vpxmlds.pas
+++ b/components/tvplanit/source/vpxmlds.pas
@@ -271,7 +271,8 @@ begin
       if not appending then begin
         Result := node.FindNode(L[i]);
         // Result is nil if the path element L[i] is not found. In this case
-        // set the Flag appending to true to indicate that a new sub-tree begins here.
+        // set the flag "appending" to true to indicate that a new sub-tree
+        // begins here.
         if (Result = nil) then
           appending := true;
       end;