paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 09:40:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

xmlcfg: invalidate path cache on deleting nodes

Browse Source 
git-svn-id: trunk@25819 -
This commit is contained in:
mattias 2010-06-01 19:34:24 +00:00
parent 1b77293eb8
commit d23bee7225
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/laz_xmlcfg.pas
View File

@ -343,6 +343,7 @@ begin
if (Node=nil) or (Node.ParentNode=nil) then exit;
ParentNode:=Node.ParentNode;
ParentNode.RemoveChild(Node);
InvalidatePathCache;
InternalCleanNode(ParentNode);
end;
@ -553,6 +554,7 @@ begin
if (Node is TDOMElement) and (not TDOMElement(Node).IsEmpty) then break;
ParentNode:=Node.ParentNode;
ParentNode.RemoveChild(Node);
InvalidatePathCache;
Node:=ParentNode;
FModified := True;
end;