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

Merged revision(s) 56904 #f8d6369f36 from trunk:

Browse Source 
Designer: Do not free component's PopupMenuComponentEditor when deleting a CollectionItem. Issue #32820.
........

git-svn-id: branches/fixes_1_8@56937 -
This commit is contained in:
maxim 2018-01-03 14:05:31 +00:00
parent bb5e1ef63b
commit 72f0fe8876
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/designer.pp
View File

@ -2985,10 +2985,10 @@ begin
if APersistent=nil then exit; if APersistent=nil then exit;
try try
//debugln(['TDesigner.DoDeletePersistent A ',dbgsName(APersistent),' FreeIt=',FreeIt]); //debugln(['TDesigner.DoDeletePersistent A ',dbgsName(APersistent),' FreeIt=',FreeIt]);
PopupMenuComponentEditor:=nil;
// unselect component // unselect component
Selection.Remove(APersistent); Selection.Remove(APersistent);
if (APersistent is TComponent) then begin if (APersistent is TComponent) then begin
PopupMenuComponentEditor:=nil;
AComponent:=TComponent(APersistent); AComponent:=TComponent(APersistent);
if csDestroying in AComponent.ComponentState then if csDestroying in AComponent.ComponentState then
FreeIt:=false; FreeIt:=false;