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

LazReport: fix Access Violation on deleting object which has been previously renamed, issue #30206

Browse Source 
git-svn-id: trunk@52434 -
This commit is contained in:
jesus 2016-06-04 06:44:23 +00:00
parent f585e29ca1
commit ea8917f49a
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/lazreport/source/lr_desgn.pas
View File

@ -7603,18 +7603,16 @@ begin
if (Obj=nil) or (Obj is TPersistent) then
begin
FSelectedObject:=Obj;
if Obj=nil then
fPropertyGrid.Selection := nil
else
begin
fcboxObjList.ItemIndex := fcboxObjList.Items.IndexOfObject(Obj);
NewSel := TPersistentSelectionList.Create;
try
NewSel := TPersistentSelectionList.Create;
try
if Obj<>nil then
begin
fcboxObjList.ItemIndex := fcboxObjList.Items.IndexOfObject(Obj);
NewSel.Add(TfrView(Obj));
fPropertyGrid.Selection := NewSel;
finally
NewSel.Free;
end;
fPropertyGrid.Selection := NewSel
finally
NewSel.Free;
end;
end
else