paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-11 05:38:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed crash on closing package graph

Browse Source 
git-svn-id: trunk@40658 -
This commit is contained in:
mattias 2013-03-28 10:41:52 +00:00
parent 052d1d3461
commit 16df97ee36
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packager/pkggraphexplorer.pas
View File

@ -219,7 +219,9 @@ var
NodeText: String; NodeText: String;
begin begin
Result:=nil; Result:=nil;
Node:=LvlGraphControl1.Graph.FirstSelected; Node:=nil;
if assigned(LvlGraphControl1) and assigned(LvlGraphControl1.Graph) Then
Node:=LvlGraphControl1.Graph.FirstSelected;
if Node=nil then exit; if Node=nil then exit;
NodePackageID:=TLazPackageID.Create; NodePackageID:=TLazPackageID.Create;
try try