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"/> <OutDir Value="../languages"/>
<EnableI18NForLFM Value="True"/> <EnableI18NForLFM Value="True"/>
</i18n> </i18n>
<RequiredPkgs Count="4"> <RequiredPkgs Count="3">
<Item1> <Item1>
<PackageName Value="LazColorPalette"/>
</Item1>
<Item2>
<PackageName Value="FCL"/> <PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2> </Item2>
<Item3> <Item3>
<PackageName Value="LCL"/>
</Item3>
<Item4>
<PackageName Value="IDEIntf"/> <PackageName Value="IDEIntf"/>
</Item4> </Item3>
</RequiredPkgs> </RequiredPkgs>
<UsageOptions> <UsageOptions>
<UnitPath Value="$(PkgOutDir)"/> <UnitPath Value="$(PkgOutDir)"/>

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

@ -271,7 +271,8 @@ begin
if not appending then begin if not appending then begin
Result := node.FindNode(L[i]); Result := node.FindNode(L[i]);
// Result is nil if the path element L[i] is not found. In this case // 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 if (Result = nil) then
appending := true; appending := true;
end; end;