Fix #138

zamtmn · Sep 14, 2024 · 7dc55c8 · 7dc55c8
1 parent a4452b4
commit 7dc55c8
Showing 1 changed file with 8 additions and 2 deletions.
diff --git 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);