Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml
===================================================================
diff -u -r60122 -r62979
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 60122)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 62979)
@@ -1,41 +1,63 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
+<Property name="BasisElementFactory">
+<Type>TECH.Svg.BasisElementFactory</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BasisElementFactory:TECH.Svg.BasisElementFactory</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..BasisElementFactory = $$$Inject(BasisElementFactory, ##class(TECH.Svg.BasisElementFactory).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VulDrieRects">
-<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer,Los:%Boolean=0</FormalSpec>
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer,LosProfiel:%Boolean=0</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Group</ReturnType>
 <Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	#dim KaderOffset As %Integer
 	#dim FillS As %String
 	#dim BorderS As %String
-	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
+	Set KaderGroup = ##class(TECH.Svg.Basis.Group).%New()
 	Do KaderGroup.VoegToeID("kader")
+	
 	;Outer Rectangle
-	Set KDOuter = BasisElementFactory.MaakRechthoek(0,0,Breedte\1,Hoogte\1)
+	#dim KDOuter As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0, 0, Breedte\1, Hoogte\1, "KDOuter", "clsHidePrint")
 	Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, .KaderOffset, .BorderS, .FillS)
-	Set KDMiddle = BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
+	#dim KDMiddle As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+KaderOffset\1), (0+KaderOffset\1), (Breedte-(2*KaderOffset)\1), (Hoogte-(2*KaderOffset)), "KDMiddle", "clsHidePrint")
 	Set KaderOffset = KaderdeurObject.ProfType.Breedte
-	Set KDInner = BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
+	#dim KDInner As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+KaderOffset\1), (0+KaderOffset\1), (Breedte-(2*KaderOffset)\1), (Hoogte-(2*KaderOffset)), "KDInner", "clsHidePrint")
 	Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, KaderOffset, BorderS, FillS)
-	;als het geen losprofiel is vul je kleuren in, anders zet je alles in stippelijn. 
-	If (Los = 0){
+	
+	;Als het geen losprofiel is vul je kleuren in, anders zet je alles in stippelijn. 
+	If (LosProfiel = 0){
 		Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).Grijs())
 		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
-		Do KDMiddle.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
-		Do KDMiddle.SetStrokeDashArray($S(BorderS="LD":"2",BorderS="D":"1",1:"none"))
+		Do KDMiddle.SetFill($S(BorderS="LD":##class(TECH.Svg.enu.Kleur).Geen(),BorderS="D":##class(TECH.Svg.enu.Kleur).Geen(),1:##class(TECH.Svg.enu.Kleur).DonkerGroen()))
+		Do KDMiddle.SetStrokeDashArray($S(BorderS="LD":"4",BorderS="D":"2",1:"none"))
+		If (FillS="T") {
+			Do KDMiddle.SetFill(##class(TECH.Svg.enu.Kleur).Grijs())
+		}
 		Do KDInner.SetFill($S($$$HasLength(KaderdeurObject.Vulling.Vulling):##class(TECH.Svg.enu.Kleur).LichtGroen(),1:##class(TECH.Svg.enu.Kleur).Wit()))
 		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	}Else {
-		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
+		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(), , "2")
 		Do KDOuter.SetFill()
-		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
+		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(), , "2")
 		Do KDMiddle.SetFill()
-		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
+		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(), , "2")
 		Do KDInner.SetFill()
 	}
+	
 	Do KaderGroup.VoegToeElement(KDOuter)
 	Do KaderGroup.VoegToeElement(KDMiddle)
 	Do KaderGroup.VoegToeElement(KDInner)
@@ -46,17 +68,19 @@
 
 <Method name="VulTweeRects">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Group</ReturnType>
 <Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	#dim KaderGroup =##class(TECH.Svg.Basis.Group).%New()
+	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
   	Do KaderGroup.VoegToeID("kader")
 	#dim GlasOffset As %Integer = KaderdeurObject.AfstandRandVoorVulling()
-	Set KDOuter = BasisElementFactory.MaakRechthoek(0,0,Breedte,Hoogte)
+	
+	#dim KDOuter As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0, 0, Breedte, Hoogte, "KDOuter", "clsHidePrint")
 	Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
-	Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
-	Set KDInner = BasisElementFactory.MaakRechthoek((0+GlasOffset\1),(0+GlasOffset\1),Breedte-(2*GlasOffset),Hoogte-(2*GlasOffset))
+	Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(), , "2")
+	#dim KDInner As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+GlasOffset\1), (0+GlasOffset\1), Breedte-(2*GlasOffset), Hoogte-(2*GlasOffset), "KDInner", "clsHidePrint")
 	Do KDInner.SetFill(##class(TECH.Svg.enu.Kleur).LichtGroen())
 	Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
+  	
   	Do KaderGroup.VoegToeElement(KDOuter)
   	Do KaderGroup.VoegToeElement(KDInner)