Fix #41

zamtmn · Feb 7, 2022 · 6f1a03f · 6f1a03f
1 parent 957a316
commit 6f1a03f
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/cad_source/zengine/styles/uzestyleslinetypes.pas b/cad_source/zengine/styles/uzestyleslinetypes.pas
@@ -346,6 +346,20 @@ constructor GDBLtypeArray.init;
                  plp.LengthFact:=0;
                  plp.Mode:=TLTContinous;
             end;
+  if AddItem('ByLayer',pointer(plp))=IsCreated then
+            begin
+                 plp.init('ByLayer');
+                 plp.LengthDXF:=0;
+                 plp.LengthFact:=0;
+                 plp.Mode:=TLTByLayer;
+            end;
+  if AddItem('ByBlock',pointer(plp))=IsCreated then
+            begin
+                 plp.init('ByBlock');
+                 plp.LengthDXF:=0;
+                 plp.LengthFact:=0;
+                 plp.Mode:=TLTByBlock;
+            end;
 end;
 constructor GDBLtypeArray.initnul;
 begin