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

Ide-Inspector: fix crash, hen removing nodes

Browse Source 
git-svn-id: trunk@34812 -
This commit is contained in:
martin 2012-01-20 03:01:45 +00:00
parent fbb3077190
commit 5c519197d4
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/IdeInspector/maininspector.pas
View File

@ -446,14 +446,17 @@ begin
end;
procedure TIdeInspectForm.btnRemoveSelectedClick(Sender: TObject);
var
CurSel: TTreeNode;
begin
if TreeView1.Selected = nil then
CurSel:= TreeView1.Selected;
if CurSel = nil then
exit;
if TreeView1.Selected.Parent <> nil then
if CurSel.Parent <> nil then
SetSelected(TComponent(TreeView1.Selected.Parent.Data))
else
SetSelected(nil);
TreeView1.Selected.Delete;
CurSel.Delete;
UpdateTree;
end;