From 19434cc74eac1a3c418f19bea3641b39b5cb5107 Mon Sep 17 00:00:00 2001
From: Simon Schmutzler <s.schmutzler@schoenenberger.de>
Date: Wed, 10 Jul 2024 12:10:54 +0200
Subject: [PATCH] =?UTF-8?q?InheritHeight=20Funktion=20gefixt;=20Berechnung?=
 =?UTF-8?q?=20erfolgt=20ohne=20ShapePrototype;=20Einziger=20=C3=9Cbergabep?=
 =?UTF-8?q?arameter=20ist=20die=20ShapeId=20des=20Parent=20Elements,=20des?=
 =?UTF-8?q?sen=20H=C3=B6he=20an=20alle=20Children=20vererbt=20wird?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 203 +++++++++++++++++++++++++++++----------------------
 1 file changed, 114 insertions(+), 89 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 510144b..8b79e61 100644
--- a/MAIN_SSG.rdx
+++ b/MAIN_SSG.rdx
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <PROCESS Id="RDK:0001" Name="MAIN_SSG" ModernUI="True" Options="(GITSAVEMODE)(NOUPDATEINCLUDEFILES)" Expanded="True">
-	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-07-03T09:31:38" LanguageVersion="2014.1.3.676" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-07-10T12:09:11" LanguageVersion="2014.1.3.680" />
 	<GROUP Id="RDK:0002" Name="Declarations" SubType="Declarations" Expanded="True">
 		<GROUP Id="RDK:0003" Name="Types" SubType="TypeSet" IncludeDate="0">
 			<GROUP Id="RDK:26387" Name="SSG_Group" SubType="TypeSet" IncludeDate="0">
@@ -465,7 +465,7 @@
 					<FIELD Id="RDK:1014048" Name="handler" Type="string" />
 					<FIELD Id="RDK:1014049" Name="params" Type="Editor2DParameterTypeList" />
 				</TYPE>
-				<TYPE Id="RDK:1014057" Name="Editor2DEventArgumentsType" SubType="structure">
+				<TYPE Id="RDK:1014057" Name="Editor2DEventArgumentsType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:1014051" Name="class" Type="string" />
 					<FIELD Id="RDK:1014052" Name="handler" Type="Editor2DEventHandlerType" />
@@ -827,12 +827,12 @@
 					<FIELD Id="RDK:18946347" Name="toSetParameters" Type="SEExportParamType[]" />
 				</TYPE>
 			</GROUP>
-			<TYPE Id="RDK:1007393" Name="Point2D" SubType="structure" HasArrayType="True">
+			<TYPE Id="RDK:1007393" Name="Point2D" Expanded="True" SubType="structure" HasArrayType="True">
 				<TYPE_VALUES />
 				<FIELD Id="RDK:1007391" Name="X" Type="double" />
 				<FIELD Id="RDK:1007392" Name="Y" Type="double" />
 			</TYPE>
-			<TYPE Id="RDK:1007741" Name="SSY_Shapes" SubType="structure" HasArrayType="True">
+			<TYPE Id="RDK:1007741" Name="SSY_Shapes" Expanded="True" SubType="structure" HasArrayType="True">
 				<TYPE_VALUES />
 				<FIELD Id="RDK:1007735" Name="name" Type="string" />
 				<FIELD Id="RDK:1007736" Name="ShapeID" Type="string" />
@@ -5715,9 +5715,20 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							</IFTHENELSE>
 						</FOREACHLOOP>
 					</FUNCTION>
-					<FUNCTION Id="RDK:1280515" Name="CollectKreiselGroup" DesignTimeNotes="20230928 -1-" InputTypeName="string[]" ResultTypeName="string[]">
+					<FUNCTION Id="RDK:1280515" Name="CollectKreiselGroup" DesignTimeNotes="20230928 -1-" InputTypeName="string" ResultTypeName="string[]">
 						<GROUP Id="RDK:1280524" Name="Local Variables" SubType="VarSet" IncludeDate="0">
-							<VAR Id="RDK:1280523" Name="ID" Type="string" />
+							<VAR Id="RDK:1280523" Name="Parent_Id" Type="string">
+								<SET Id="RDK:20511423" VarRef="Me">
+									<EXP><![CDATA[$=$Param.Input]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</VAR>
+							<VAR Id="RDK:20511425" Name="Parent_Shape" Type="Editor2DShapeType">
+								<SET Id="RDK:20511426" VarRef="Me">
+									<EXP><![CDATA[$=$ShapeList["id="+Parent_Id]]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</VAR>
 							<VAR Id="RDK:1286433" Name="KreiselList" Type="string[]" />
 							<VAR Id="RDK:1280577" Name="Kreisel" Type="string" />
 							<VAR Id="RDK:1280556" Name="TempLink" Type="string" />
@@ -5730,8 +5741,8 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							<EXP><![CDATA[$C$NOTHING]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<SET Id="RDK:1461340" VarRef="KreiselList">
-							<EXP><![CDATA[$=$Param.Input]]></EXP>
+						<SET Id="RDK:1461340" VarRef="KreiselList" DesignTimeTip="ExecOnValues(Shape_List[&quot;id=&quot;+Param.Input].links, &quot;StrAfter(Me, &quot;&quot;;&quot;&quot;)&quot;, &quot;&quot;)">
+							<EXP><![CDATA[$=$ExecOnValues(Parent_Shape.links, "StrAfter(Me, "";"")", "")]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 						<WHILELOOP Id="RDK:1280559">
@@ -5747,7 +5758,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								</PAR>
 								<GROUP Id="RDK:1442601" Name="Remove for Gefaellestrecke" SubType="Generic" DesignTimeNotes="20231005 -1-">
 									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$Shape_Prototype.family = "Gefaellestrecke"]]></EXP>
+										<EXP><![CDATA[$=$Parent_Shape.family = "Gefaellestrecke"]]></EXP>
 									</VALUECONDITION>
 									<VALUECONDITION Value="false">
 										<EXP><![CDATA[$=$Contains(AddedKreiselList, Kreisel)]]></EXP>
@@ -5757,10 +5768,10 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									</VALUECONDITION>
 									<GROUP Id="RDK:1442613" Name="Group" SubType="Generic" DesignTimeNotes="If NOT HoeheOben changed &amp; Linked to cp1 (top point)&#xD;&#xA;If NOT HoeheUnten changed &amp; Linked to cp2 (bottom point)">
 										<VALUECONDITION Value="false">
-											<EXP><![CDATA[$=$Contains(Shape_Prototype.links, "cp1;" + Kreisel) AND ShapeList["id=" + Shape_Prototype.id].GefaelleDefinition.HoeheOben <> Shape_Prototype.GefaelleDefinition.HoeheOben]]></EXP>
+											<EXP><![CDATA[$=$Contains(Parent_Shape.links, "cp1;" + Kreisel)]]></EXP>
 										</VALUECONDITION>
 										<VALUECONDITION Value="false">
-											<EXP><![CDATA[$=$Contains(Shape_Prototype.links, "cp2;" + Kreisel) AND ShapeList["id=" + Shape_Prototype.id].GefaelleDefinition.HoeheUnten <> Shape_Prototype.GefaelleDefinition.HoeheUnten]]></EXP>
+											<EXP><![CDATA[$=$Contains(Parent_Shape.links, "cp2;" + Kreisel)]]></EXP>
 										</VALUECONDITION>
 										<REMOVE_ADD Id="RDK:1442648" ListRef="KreiselList" Value="$=$Kreisel">
 											<EXP />
@@ -5774,13 +5785,16 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 										<EXIT_PROCESS Id="RDK:1442654" BreakType="2" ExitStatus="0" />
 									</GROUP>
 								</GROUP>
-								<GROUP Id="RDK:1293979" Name="If NOT Kreisel" SubType="Generic">
+								<GROUP Id="RDK:1293979" Name="If NOT Kreisel / Eckrad" SubType="Generic">
 									<VALUECONDITION Value="false">
 										<EXP><![CDATA[$=$ShapeList["id=" + Kreisel].family = "Kreisel"]]></EXP>
 									</VALUECONDITION>
 									<VALUECONDITION Value="false">
 										<EXP><![CDATA[$=$Contains(RemovedKreiselList, Kreisel)]]></EXP>
 									</VALUECONDITION>
+									<VALUECONDITION Value="false">
+										<EXP><![CDATA[$=$ShapeList["id=" + Kreisel].family = "Eckrad"]]></EXP>
+									</VALUECONDITION>
 									<REMOVE_ADD Id="RDK:1293997" ListRef="KreiselList" Value="$=$Kreisel">
 										<EXP />
 									</REMOVE_ADD>
@@ -5795,7 +5809,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 											<EXP><![CDATA[$=$ShapeList["id=" + Kreisel].family = "Gefaellestrecke"]]></EXP>
 										</VALUECONDITION>
 										<VALUECONDITION Value="false">
-											<EXP><![CDATA[$=$Kreisel = Shape_Prototype.id]]></EXP>
+											<EXP><![CDATA[$=$Kreisel = Parent_Id]]></EXP>
 										</VALUECONDITION>
 										<VALUECONDITION Value="false">
 											<EXP><![CDATA[$=$Contains(RemovedGefaellestreckeList, Kreisel)]]></EXP>
@@ -5817,7 +5831,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 										<EXP><![CDATA[$=$Contains(RemovedKreiselList, Kreisel)]]></EXP>
 									</VALUECONDITION>
 									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$Kreisel = Shape_Prototype.id]]></EXP>
+										<EXP><![CDATA[$=$Kreisel = Parent_Id]]></EXP>
 									</VALUECONDITION>
 									<LIST_ADD Id="RDK:1280583" ListRef="Param.Result">
 										<PAR Name="VALUE_TO_ADD">
@@ -5841,15 +5855,15 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<PAR Name="ExitCondExp">
 										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
-									<GROUP Id="RDK:1280595" Name="Only for Kreisel" SubType="Generic">
+									<GROUP Id="RDK:1280595" Name="Only for Kreisel / Eckrad" SubType="Generic">
 										<VALUECONDITION Value="true">
-											<EXP><![CDATA[$=$ShapeList["id=" + TempLink].family = "Kreisel"]]></EXP>
+											<EXP><![CDATA[$=$ShapeList["id=" + TempLink].family = "Kreisel" or ShapeList["id=" + TempLink].family = "Eckrad"]]></EXP>
 										</VALUECONDITION>
 										<VALUECONDITION Value="false">
 											<EXP><![CDATA[$=$Contains(Param.Result, TempLink)]]></EXP>
 										</VALUECONDITION>
 										<VALUECONDITION Value="false">
-											<EXP><![CDATA[$=$TempLink = Shape_Prototype.id]]></EXP>
+											<EXP><![CDATA[$=$TempLink = Parent_Id]]></EXP>
 										</VALUECONDITION>
 										<LIST_ADD Id="RDK:1280571" ListRef="Param.Result">
 											<PAR Name="VALUE_TO_ADD">
@@ -5883,7 +5897,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 											<EXP><![CDATA[$=$ShapeList["id=" + TempLink].family = "Gefaellestrecke"]]></EXP>
 										</VALUECONDITION>
 										<VALUECONDITION Value="false">
-											<EXP><![CDATA[$=$TempLink = Shape_Prototype.id]]></EXP>
+											<EXP><![CDATA[$=$TempLink = Parent_Id]]></EXP>
 										</VALUECONDITION>
 										<VALUECONDITION Value="false">
 											<EXP><![CDATA[$=$Contains(RemovedGefaellestreckeList, TempLink)]]></EXP>
@@ -9477,28 +9491,51 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 					</FOREACHLOOP>
 				</FUNCTION>
 			</GROUP>
-			<FUNCTION Id="RDK:1332780" Name="InheritHeight" DesignTimeNotes="20231005 -1-" InputTypeName="InheritHeightType">
+			<FUNCTION Id="RDK:1332780" Name="InheritHeight" DesignTimeNotes="20231005 -1-" InputTypeName="string">
+				<COMMENTS Id="RDK:20494467" DesignTimeRemark="Bekommt als Parameter ParentId (ID zum Shape, dessen Höhe an alle anderen (direkt und über weitere Kreisel) angebundenen Shapes vererbt werden soll (Param.Input[0])" DesignTimeTip="ParentId bzw. Item0 ist das Objekt, dessen Höhe weitergegeben wird." />
 				<GROUP Id="RDK:1219232" Name="Inherit height" SubType="Generic" DesignTimeNotes="20230928 -1-">
 					<VALUECONDITION Value="false">
-						<EXP><![CDATA[$=$Count(ShapeList[Param.Input.ParentIndex].links) = 0]]></EXP>
+						<EXP><![CDATA[$=$Count(ShapeList["id="+Param.Input].links) = 0]]></EXP>
 					</VALUECONDITION>
 					<GROUP Id="RDK:1143994" Name="Local Vars" SubType="VarSet" IncludeDate="0" DesignTimeNotes="20230928 -1-">
 						<VAR Id="RDK:1528242" Name="parent_links" Type="string[]">
-							<SET Id="RDK:19945395" VarRef="Me">
-								<EXP><![CDATA[$=$ShapeList[Param.Input.ParentIndex].links]]></EXP>
+							<SET Id="RDK:19945395" VarRef="Me" DesignTimeRemark="Hole alle verbundenen Items (links) des ParentItems (ParentId = Param.Input)">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input].links ]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
 						</VAR>
-						<VAR Id="RDK:19942027" Name="TempKreisel" Type="string" />
+						<VAR Id="RDK:20494466" Name="parentHeight" Type="double" />
+						<VAR Id="RDK:20497858" Name="TempKreisel" Type="string" />
 						<VAR Id="RDK:19795588" Name="TempKreiselLink" Type="string" />
 						<VAR Id="RDK:19866065" Name="KreiselGroupList" Type="string[]" DesignTimeNotes="20230928 -1-" />
 					</GROUP>
-					<CALLFUNCTION Id="RDK:1280616">
+					<COMMENTS Id="RDK:20497856" DesignTimeRemark="ParentHeight als Höhe des Parent Objekts (muss Kreisel oder Eckrad sein)" DesignTimeTip="ParentId bzw. Item0 ist das Objekt, dessen Höhe weitergegeben wird." />
+					<SELECTCASE Id="RDK:20607516">
+						<EXP><![CDATA[$=$ShapeList["id="+Param.Input].family]]></EXP>
+						<CASEGROUP Id="RDK:20607517" CaseType="0">
+							<EXP><![CDATA[$C$Kreisel]]></EXP>
+							<SET Id="RDK:20497886" VarRef="parentHeight">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input].KreiselDefinition.Hoehe]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</CASEGROUP>
+						<CASEGROUP Id="RDK:20607520" CaseType="0">
+							<EXP><![CDATA[$C$Eckrad]]></EXP>
+							<SET Id="RDK:20607522" VarRef="parentHeight">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input].EckradDefinition.Hoehe]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</CASEGROUP>
+						<CASEGROUP Id="RDK:20607518" CaseType="1">
+							<EXP />
+						</CASEGROUP>
+					</SELECTCASE>
+					<CALLFUNCTION Id="RDK:1280616" DesignTimeTip="old input value: ExecOnValues(parent_links, &quot;StrAfter(Me, &quot;&quot;;&quot;&quot;)&quot;, &quot;&quot;)">
 						<PAR Name="FuncName">
 							<EXP><![CDATA[$C$CollectKreiselGroup]]></EXP>
 						</PAR>
 						<PAR Name="InputExp">
-							<EXP><![CDATA[$=$ExecOnValues(parent_links, "StrAfter(Me, "";"")", "")]]></EXP>
+							<EXP><![CDATA[$=$Param.Input]]></EXP>
 						</PAR>
 						<PAR Name="ResultRef">
 							<EXP><![CDATA[$V$KreiselGroupList]]></EXP>
@@ -9517,6 +9554,10 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								<VAR Id="RDK:19787415" Name="UebergabeListe" Type="SSGParameter[]" />
 								<VAR Id="RDK:19790136" Name="shape_item" Type="Editor2DShapeType" />
 							</GROUP>
+							<SET Id="RDK:20623826" VarRef="UebergabeListe">
+								<EXP><![CDATA[$C$NOTHING]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
 							<SET_STRUCT Id="RDK:19795624" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
 									<EXP><![CDATA[$C$ShapeId]]></EXP>
@@ -9534,7 +9575,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								</PAR>
 								<PAR Name="Str" />
 								<PAR Name="Dbl">
-									<EXP><![CDATA[$=$Param.Input.NewHoehe]]></EXP>
+									<EXP><![CDATA[$=$parentHeight]]></EXP>
 								</PAR>
 								<PAR Name="Int" />
 								<PAR Name="Boo" />
@@ -9588,6 +9629,10 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<EXP><![CDATA[$=$ShapeList["id=" + StrAfter(TempKreiselLink, ";")]]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
+								<SET Id="RDK:20563558" VarRef="UebergabeListe">
+									<EXP><![CDATA[$C$NOTHING]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
 								<IFTHENELSE Id="RDK:19795600">
 									<VALUECONDITION Value="true" Oper="OR">
 										<EXP><![CDATA[$=$shape_item.family = "Gefaellestrecke"]]></EXP>
@@ -9675,11 +9720,15 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								<EXP><![CDATA[$=$ShapeList["id=" + StrAfter(Link, ";")]]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
+							<SET Id="RDK:20573688" VarRef="UebergabeListe">
+								<EXP><![CDATA[$C$NOTHING]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
 							<IFTHENELSE Id="RDK:19841630">
 								<VALUECONDITION Value="true" Oper="OR">
 									<EXP><![CDATA[$=$shape_item.family = "Gefaellestrecke"]]></EXP>
 								</VALUECONDITION>
-								<VALUECONDITION Value="true">
+								<VALUECONDITION Value="true" Oper="OR">
 									<EXP><![CDATA[$=$shape_item.family = "Foerderer"]]></EXP>
 								</VALUECONDITION>
 								<GROUP Id="RDK:19841629" SubType="Then">
@@ -9688,7 +9737,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 											<EXP><![CDATA[$C$shapeId_0]]></EXP>
 										</PAR>
 										<PAR Name="Str">
-											<EXP><![CDATA[$=$ShapeList[Param.Input.ParentIndex].id]]></EXP>
+											<EXP><![CDATA[$=$Param.Input]]></EXP>
 										</PAR>
 										<PAR Name="Dbl" />
 										<PAR Name="Int" />
@@ -9973,23 +10022,12 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								<VALUECONDITION Value="false">
 									<EXP><![CDATA[$=$IndexOf(ShapeList, Shape_Prototype) = -1]]></EXP>
 								</VALUECONDITION>
-								<SET_STRUCT Id="RDK:1345491" VarRef="InheritHeightData" ClearAll="True" DesignTimeNotes="Results in -1:&#xD;&#xA;IndexOfByFieldValue(ShapeList, &quot;id&quot;, Shape_Prototype.id)&#xD;&#xA;But element is in list">
-									<PAR Name="ParentIndex">
-										<EXP><![CDATA[$=$IndexOf(ShapeList, Shape_Prototype)]]></EXP>
-									</PAR>
-									<PAR Name="NewHoehe">
-										<EXP><![CDATA[$=$Shape_Prototype.KreiselDefinition.Hoehe]]></EXP>
-									</PAR>
-									<PAR Name="NewHoeheOben" />
-									<PAR Name="NewHoeheUnten" />
-									<PAR Name="Text" />
-								</SET_STRUCT>
 								<CALLFUNCTION Id="RDK:1332781" DesignTimeNotes="20231005 -1-">
 									<PAR Name="FuncName">
 										<EXP><![CDATA[$C$InheritHeight]]></EXP>
 									</PAR>
 									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$InheritHeightData]]></EXP>
+										<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
 										<EXP><![CDATA[$V$]]></EXP>
@@ -14673,6 +14711,23 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									</GROUP>
 								</IFTHENELSE>
 							</GROUP>
+							<GROUP Id="RDK:20612257" Name="Eckrad exists" SubType="Generic" DesignTimeNotes="Inherit height to direct Shaps and set others to Gelb (except Kreisel Groups).&#xD;&#xA;&#xD;&#xA;ShapeList[&quot;id=&quot; + Shape_Prototype.id].KreiselDefinition.Hoehe is not working here (returns empty or wrong value).&#xD;&#xA;Because of this use TempIndex instead.">
+								<VALUECONDITION Value="false">
+									<EXP><![CDATA[$=$IndexOf(ShapeList, Shape_Prototype) = -1]]></EXP>
+								</VALUECONDITION>
+								<CALLFUNCTION Id="RDK:20612256" DesignTimeNotes="20231005 -1-">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$InheritHeight]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
 							<EXIT_PROCESS Id="RDK:1546000" BreakType="3" ExitStatus="0" />
 						</CASEGROUP>
 						<CASEGROUP Id="RDK:1546094" CaseType="0">
@@ -14831,7 +14886,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<PAR Name="Options" />
 								</CALLFUNCTION>
 							</GROUP>
-							<GROUP Id="RDK:1332808" Name="Gefaellestrecke HoeheOben OR HoeheUnten was changed" SubType="Generic" DesignTimeNotes="20231005 -1-&#xD;&#xA;&#xD;&#xA;Inherit height to direct Shaps and set others to Gelb (except Kreisel Groups).">
+							<GROUP Id="RDK:1332808" Name="Gefaellestrecke HoeheOben OR HoeheUnten was changed" SubType="Generic" Suppressed="True" DesignTimeNotes="20231005 -1-&#xD;&#xA;&#xD;&#xA;Inherit height to direct Shaps and set others to Gelb (except Kreisel Groups).">
 								<VALUECONDITION Value="true" Oper="OR">
 									<EXP><![CDATA[$=$ShapeList["id=" + Shape_Prototype.id].GefaelleDefinition.HoeheOben <> Shape_Prototype.GefaelleDefinition.HoeheOben]]></EXP>
 								</VALUECONDITION>
@@ -14975,7 +15030,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<PAR Name="Options" />
 								</CALLFUNCTION>
 							</GROUP>
-							<GROUP Id="RDK:18732404" Name="Strecke HoeheOben OR HoeheUnten was changed" SubType="Generic" DesignTimeNotes="20231005 -1-&#xD;&#xA;&#xD;&#xA;Inherit height to direct Shaps and set others to Gelb (except Kreisel Groups).">
+							<GROUP Id="RDK:18732404" Name="Strecke HoeheOben OR HoeheUnten was changed" SubType="Generic" Suppressed="True" DesignTimeNotes="20231005 -1-&#xD;&#xA;&#xD;&#xA;Inherit height to direct Shaps and set others to Gelb (except Kreisel Groups).">
 								<VALUECONDITION Value="true" Oper="OR">
 									<EXP><![CDATA[$=$ShapeList["id=" + Shape_Prototype.id].StreckeDefinition.HoeheOben <> Shape_Prototype.StreckeDefinition.HoeheOben]]></EXP>
 								</VALUECONDITION>
@@ -15193,7 +15248,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									</GROUP>
 								</IFTHENELSE>
 							</GROUP>
-							<GROUP Id="RDK:18116642" Name="Gefaellestrecke HoeheOben OR HoeheUnten was changed" SubType="Generic" DesignTimeNotes="20231005 -1-&#xD;&#xA;&#xD;&#xA;Inherit height to direct Shaps and set others to Gelb (except Kreisel Groups).">
+							<GROUP Id="RDK:18116642" Name="Gefaellestrecke HoeheOben OR HoeheUnten was changed" SubType="Generic" Suppressed="True" DesignTimeNotes="20231005 -1-&#xD;&#xA;&#xD;&#xA;Inherit height to direct Shaps and set others to Gelb (except Kreisel Groups).">
 								<VALUECONDITION Value="true" Oper="OR">
 									<EXP><![CDATA[$=$ShapeList["id=" + Shape_Prototype.id].FoerdererDefinition.H_1 <> Shape_Prototype.FoerdererDefinition.H_1]]></EXP>
 								</VALUECONDITION>
@@ -17657,6 +17712,7 @@ me.x
 					<VAR Id="RDK:18399128" Name="shape_id" Type="string" />
 					<VAR Id="RDK:19089175" Name="item_1" Type="Editor2DShapeType" />
 					<VAR Id="RDK:19474689" Name="LH_fits" Type="boolean" />
+					<VAR Id="RDK:20494435" Name="InheritHeight_Data" Type="string[]" />
 				</GROUP>
 				<SET Id="RDK:1578954" VarRef="Shape_Prototype">
 					<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
@@ -17688,24 +17744,12 @@ me.x
 					<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family]]></EXP>
 					<CASEGROUP Id="RDK:1576707" CaseType="0">
 						<EXP><![CDATA[$C$Kreisel]]></EXP>
-						<COMMENTS Id="RDK:19602905" Suppressed="True" DesignTimeRemark="InheritHeight wird hier nicht benötigt; Höhe wird durch Funktion SetHeightOnConnect gesetzt" />
-						<SET_STRUCT Id="RDK:19937317" VarRef="InheritHeightData" ClearAll="True" DesignTimeNotes="Results in -1:&#xD;&#xA;IndexOfByFieldValue(ShapeList, &quot;id&quot;, Shape_Prototype.id)&#xD;&#xA;But element is in list">
-							<PAR Name="ParentIndex">
-								<EXP><![CDATA[$=$IndexOf(ShapeList, ShapeList["id="+Param.Input[1].shapeID])]]></EXP>
-							</PAR>
-							<PAR Name="NewHoehe">
-								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].KreiselDefinition.Hoehe]]></EXP>
-							</PAR>
-							<PAR Name="NewHoeheOben" />
-							<PAR Name="NewHoeheUnten" />
-							<PAR Name="Text" />
-						</SET_STRUCT>
 						<CALLFUNCTION Id="RDK:19927916" DesignTimeNotes="20231005 -1-">
 							<PAR Name="FuncName">
 								<EXP><![CDATA[$C$InheritHeight]]></EXP>
 							</PAR>
 							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$InheritHeightData]]></EXP>
+								<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
 							</PAR>
 							<PAR Name="ResultRef">
 								<EXP><![CDATA[$V$]]></EXP>
@@ -17717,6 +17761,11 @@ me.x
 								<EXP><![CDATA[$=$(ShapeList["id="+Param.Input[0].shapeID].Rotationsklasse="Rotationsobjekt")  Or 
 (ShapeList["id="+Param.Input[1].shapeID].Rotationsklasse="Rotationsobjekt")]]></EXP>
 							</VALUECONDITION>
+							<COMMENTS Id="RDK:20502617" DesignTimeRemark="Aktualisiere Shape_Prototype (Element, das an das Parent Element verbunden wurde) für nachfolgende Inherit Rotation" />
+							<SET Id="RDK:20539885" VarRef="Shape_Prototype">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
 							<GROUP Id="RDK:132804" Name="Ihnerit rotation" SubType="Generic">
 								<SET Id="RDK:514767" VarRef="OriginalRatation">
 									<EXP><![CDATA[$=$Shape_Prototype.KreiselDefinition.Drehung]]></EXP>
@@ -17861,7 +17910,7 @@ me.x
 								</CALLFUNCTION>
 							</GROUP>
 						</GROUP>
-						<GROUP Id="RDK:1002232" Name="InheritHeight" SubType="Generic">
+						<GROUP Id="RDK:1002232" Name="InheritHeight" SubType="Generic" Suppressed="True">
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$Count(ListDiff(NewListStr("Gefaellestrecke", "Kreisel"),NewListStr(ShapeList["id="+Param.Input[0].shapeID].family, ShapeList["id="+Param.Input[1].shapeID].family)))=0]]></EXP>
 							</VALUECONDITION>
@@ -18089,12 +18138,12 @@ me.x
 							</PAR>
 							<PAR Name="Options" />
 						</CALLFUNCTION>
-						<CALLFUNCTION Id="RDK:1701482">
+						<CALLFUNCTION Id="RDK:20494432">
 							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
+								<EXP><![CDATA[$C$InheritHeight]]></EXP>
 							</PAR>
 							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+								<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
 							</PAR>
 							<PAR Name="ResultRef">
 								<EXP><![CDATA[$V$]]></EXP>
@@ -20551,7 +20600,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:19595375" CaseType="0">
 						<EXP><![CDATA[$C$Eckrad]]></EXP>
-						<SET Id="RDK:19943522" VarRef="ShapeList[&quot;id=&quot;+shapeId].KreiselDefinition.Hoehe">
+						<SET Id="RDK:19943522" VarRef="ShapeList[&quot;id=&quot;+shapeId].EckradDefinition.Hoehe">
 							<EXP><![CDATA[$=$hoehe]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
@@ -20575,36 +20624,12 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<VAR Id="RDK:19664798" Name="cps_verbunden" Type="string[]" />
 					<VAR Id="RDK:19682385" Name="cp_0" Type="structure" />
 				</GROUP>
-				<CALLFUNCTION Id="RDK:19866001">
-					<PAR Name="FuncName">
-						<EXP><![CDATA[$C$IndexOfByFieldValue_SSG]]></EXP>
-					</PAR>
-					<PAR Name="InputExp">
-						<EXP><![CDATA[$=$Param.Input["key=shapeId_0"].Str]]></EXP>
-					</PAR>
-					<PAR Name="ResultRef">
-						<EXP><![CDATA[$V$shapeList_idx_0]]></EXP>
-					</PAR>
-					<PAR Name="Options" />
-				</CALLFUNCTION>
-				<CALLFUNCTION Id="RDK:19866007">
-					<PAR Name="FuncName">
-						<EXP><![CDATA[$C$IndexOfByFieldValue_SSG]]></EXP>
-					</PAR>
-					<PAR Name="InputExp">
-						<EXP><![CDATA[$=$Param.Input["key=shapeId_1"].Str]]></EXP>
-					</PAR>
-					<PAR Name="ResultRef">
-						<EXP><![CDATA[$V$shapeList_idx_1]]></EXP>
-					</PAR>
-					<PAR Name="Options" />
-				</CALLFUNCTION>
 				<SET Id="RDK:19710796" VarRef="item_0">
-					<EXP><![CDATA[$=$ShapeList[shapeList_idx_0]]]></EXP>
+					<EXP><![CDATA[$=$ShapeList["id="+Param.Input["key=shapeId_0"].Str]]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
 				<SET Id="RDK:19710798" VarRef="item_1">
-					<EXP><![CDATA[$=$ShapeList[shapeList_idx_1]]]></EXP>
+					<EXP><![CDATA[$=$ShapeList["id="+Param.Input["key=shapeId_1"].Str]]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
 				<CALLFUNCTION Id="RDK:19710799">
@@ -25177,7 +25202,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="Required" />
 							<PAR Name="Hidden" />
 							<PAR Name="ROnly">
-								<EXP><![CDATA[$=$True]]></EXP>
+								<EXP><![CDATA[$=$]]></EXP>
 							</PAR>
 							<PAR Name="Disabled" />
 							<PAR Name="Pressed" />
@@ -25230,7 +25255,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="Required" />
 							<PAR Name="Hidden" />
 							<PAR Name="ROnly">
-								<EXP><![CDATA[$=$True]]></EXP>
+								<EXP><![CDATA[$=$]]></EXP>
 							</PAR>
 							<PAR Name="Disabled" />
 							<PAR Name="Pressed" />