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

IDE: added a sanity check about if ListView.Selected is assigned. Issue #19819

Browse Source 
git-svn-id: trunk@33595 -
This commit is contained in:
juha 2011-11-17 20:16:25 +00:00
parent a002250d2b
commit e597ae1306
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/newdialog.pas
View File

@ -203,11 +203,11 @@ begin
NewFile:=TNewItemProjectFile(FNewItem);
if (NewFile.Descriptor is TFileDescInheritedItem) then
begin
AInheritedNode := nil;
// If we are inheriting from a form
if (NewFile.Descriptor is TFileDescInheritedComponent) then begin
InhCompItem:=TFileDescInheritedComponent(NewFile.Descriptor);
AInheritedNode := InheritableComponentsListView.Selected;
if Assigned(AInheritedNode) then begin
// load the ancestor component
AnUnitInfo:=TUnitInfo(AInheritedNode.Data);
if LazarusIDE.DoOpenComponent(AnUnitInfo.Filename,
@ -223,6 +223,7 @@ begin
InhCompItem.InheritedUnit := AnUnitInfo;
InhCompItem.DeclareClassVariable := not AncestorComponent.ClassType.InheritsFrom(TFrame);
//DebugLn(['TNewOtherDialog.OKButtonClick ',InhCompItem.InheritedUnit.Filename,' ',dbgsname(InhCompItem.ResourceClass)]);
end;
end
else
begin