mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-09 19:58:45 +02:00
IDE: fixed crash on closing package graph
git-svn-id: trunk@40658 -
This commit is contained in:
parent
052d1d3461
commit
16df97ee36
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user