TECH.Svg.Basis.DomElement,TECH.RegisteredObject TECH.Svg.Basis.SvgBox KaderdeurObject:Prod.GADef.KaderDeur Beslag:Res.PI.Beslag,ProfielPlaats:%String,BPosX:%Integer,BPosY:%Integer,BPosZ:%Integer 2) { Do ##class(Tools.Wlip).%New(238).String("1") Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New(Boring.VmlID, Breedte, Lengte, Rotation) Do ..Group.VoegToeElement(BeslagBoringSpecialeVorm) } ElseIf (BoorType="Z") { Do ##class(Tools.Wlip).%New(238).String("2") Set GrootteBoring = 14 Set Rotation=$S(ProfielPlaats="PL":0, ProfielPlaats="PB":90, ProfielPlaats="PR":180, ProfielPlaats="PO":270, 1:0) Set ZijBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New(XPos,YPos,GrootteBoring,GrootteBoring,Rotation, Kleur) Do SvgBox.VoegToeElement(ZijBoring) } ElseIf(Boring.IsSpecialeBoring()){ Do ##class(Tools.Wlip).%New(238).String("3") Set GrootteBoring = 10 if (YPos < 0) { Set SpecialeBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring).%New(##class(TECH.Math).Abs(XPos),##class(TECH.Math).Abs(YPos),GrootteBoring,GrootteBoring, Kleur) } Else { Set SpecialeBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring).%New(##class(TECH.Math).Abs(XPos),YPos,GrootteBoring,GrootteBoring, Kleur) } Do SvgBox.VoegToeElement(SpecialeBoring) } ElseIf (Boring.BoorDiepte < 0) { Do ##class(Tools.Wlip).%New(238).String("4") Set GrootteBoring = 10 Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,GrootteBoring,GrootteBoring, Kleur) Do SvgBox.VoegToeElement(DoorBoring) } ElseIf(Boring.BoorDiameter<0) || (Boring.BoorDiepte=0){ Do ##class(Tools.Wlip).%New(238).String("5") Set GrootteBoring = 10 if (YPos < 0) { Set PuntBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(XPos,##class(TECH.Math).Abs(YPos),GrootteBoring,GrootteBoring, Kleur) } Else { Set PuntBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(XPos, ##class(TECH.Math).Abs(YPos) ,GrootteBoring,GrootteBoring, Kleur) } Do SvgBox.VoegToeElement(PuntBoring) } Else { Do ##class(Tools.Wlip).%New(238).String("6") If (GrootteBoring<10) { Set RugBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(XPos, YPos,10,10, Kleur) Do RugBoring.SetFill(##class(TECH.Svg.enu.Kleur).Zwart()) Do ..Group.VoegToeElement(RugBoring) }Else { Set Straal = GrootteBoring\2 Set Cirkel = BasisElementFactory.MaakCirkel((XPos-(Straal))\1 +Straal, (YPos-(Straal))\1 +Straal, Straal) Do Cirkel.SetFill(Kleur) Do SvgBox.VoegToeElement(Cirkel) } } } Do SvgBox.VoegToeElement(Rechthoek) Do SvgBox.VoegToeID("beslag") Do ..Group.VoegToeElement(SvgBox) ]]> %Library.CacheSerialState Fill Stroke StrokeWidth StrokeDashArray Overflow Opacity DoorBoringen PuntBoringen RugBoringen ZijBoringen Group