paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: package editor: fixed crash when renaming a file

Browse Source 
git-svn-id: trunk@21602 -
This commit is contained in:
mattias 2009-09-07 13:46:08 +00:00
parent 2291788a7c
commit 477240cd60
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packager/packageeditor.pas
View File

@ -1849,7 +1849,8 @@ begin
ANode:=FilesTreeView.Items.GetFirstNode ANode:=FilesTreeView.Items.GetFirstNode
else else
ANode:=ANode.GetFirstChild; ANode:=ANode.GetFirstChild;
while ANode.Text<>CurText do ANode:=ANode.GetNextSibling; while (ANode<>nil) and (ANode.Text<>CurText) do
ANode:=ANode.GetNextSibling;
if ANode=nil then break; if ANode=nil then break;
ASelection.Delete(0); ASelection.Delete(0);
end; end;