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

IDE: check if object is TPkgDependency, otherwise we'll crash. issue #21338

Browse Source 
git-svn-id: trunk@35530 -
This commit is contained in:
zeljko 2012-02-21 11:24:21 +00:00
parent 340a4ed173
commit 3c600e2263
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/projectinspector.pas
View File

@ -782,6 +782,7 @@ function TProjectInspectorForm.GetSelectedDependency: TPkgDependency;
var var
CurNode: TTreeNode; CurNode: TTreeNode;
Branch: TTreeFilterBranch; Branch: TTreeFilterBranch;
AnObject: TObject;
begin begin
Result:=nil; Result:=nil;
if LazProject=nil then exit; if LazProject=nil then exit;
@ -791,7 +792,9 @@ begin
then begin then begin
Branch:=FilterEdit.GetExistingBranch(CurNode.Parent); Branch:=FilterEdit.GetExistingBranch(CurNode.Parent);
Assert(Assigned(Branch)); Assert(Assigned(Branch));
Result:=Branch.GetData(CurNode.Index) as TPkgDependency; AnObject := Branch.GetData(CurNode.Index);
if (AnObject <> nil) and (AnObject is TPkgDependency) then
Result := TPkgDependency(AnObject);
end; end;
end; end;