pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Remove dependence on LazColorPalette from laz_visualplanit (How did it get there?)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4943 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-13 20:51:01 +00:00
parent ccc2190dcc
commit 0b95f7deb5
2 changed files with 7 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/tvplanit/source/laz_visualplanit.lpk
View File

@ -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)"/>

3
components/tvplanit/source/vpxmlds.pas
View File

@ -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;