From 7dc55c8a61f24242436ca88020f4797eb63ed36d Mon Sep 17 00:00:00 2001 From: zamtmn Date: Sat, 14 Sep 2024 13:53:38 +0500 Subject: [PATCH] Fix https://github.com/zamtmn/zcad/issues/138 --- .../zcad/gui/odjectinspector/uzcoimultiobjects.pas | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/cad_source/zcad/gui/odjectinspector/uzcoimultiobjects.pas b/cad_source/zcad/gui/odjectinspector/uzcoimultiobjects.pas index 48eaf29fd..c49c9a1e5 100644 --- a/cad_source/zcad/gui/odjectinspector/uzcoimultiobjects.pas +++ b/cad_source/zcad/gui/odjectinspector/uzcoimultiobjects.pas @@ -534,7 +534,10 @@ procedure TMSEditor.CreateMultiPropertys; for j:=0 to pv^.GetExtensionsCount-1 do begin Extender:=pv^.GetExtension(j); ObjIDWithExtender.ObjID:=pv^.GetObjType; - ObjIDWithExtender.ExtenderClass:=typeof(Extender); + if Extender=nil then + ObjIDWithExtender.ExtenderClass:=nil + else + ObjIDWithExtender.ExtenderClass:=typeof(Extender); if MultiPropertiesManager.MultiPropertyVector[i].MPObjectsData.tryGetValue(ObjIDWithExtender,MultiPropertyDataForObjects)then begin if @MultiPropertyDataForObjects.EntBeforeIterateProc<>nil then begin ChangedData:=CreateChangedData(Extender,MultiPropertyDataForObjects.GSData); @@ -579,7 +582,10 @@ procedure TMSEditor.CreateMultiPropertys; for j:=0 to pv^.GetExtensionsCount-1 do begin Extender:=pv^.GetExtension(j); ObjIDWithExtender.ObjID:=pv^.GetObjType; - ObjIDWithExtender.ExtenderClass:=typeof(Extender); + if Extender=nil then + ObjIDWithExtender.ExtenderClass:=nil + else + ObjIDWithExtender.ExtenderClass:=typeof(Extender); if MultiPropertiesManager.MultiPropertyVector[i].MPObjectsData.tryGetValue(ObjIDWithExtender,MultiPropertyDataForObjects)then begin if @MultiPropertyDataForObjects.EntIterateProc<>nil then begin ChangedData:=CreateChangedData(Extender,MultiPropertyDataForObjects.GSData);