paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 01:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport: Clear objInsp selection before deleting objects to avoid AV if objInsp is editing a property, fix issue #26060

Browse Source 
(cherry picked from commit 92805d1862)
This commit is contained in:
Jesus Reyes A 2021-08-31 00:15:14 -05:00
parent cec79c00f2
commit a7bca06756
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4688,6 +4688,7 @@ var
begin
AddUndoAction(acDelete);
PageView.NPEraseSelection;
ObjInsp.Select(nil);
for i := Objects.Count - 1 downto 0 do
begin
t := TfrView(Objects[i]);
@ -4695,7 +4696,6 @@ begin
Page.Delete(i);
end;
SetPageTitles;
ObjInsp.Select(nil);
ResetSelection;
FirstSelected := nil;
PageView.Invalidate;