From 0e533764cc41eeee4307d7d6877e1b284dceb3f0 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Tue, 1 Oct 2024 14:58:08 +0200
Subject: [PATCH] =?UTF-8?q?getHeight=20gibt=20jetzt=20immer=20eine=20H?=
 =?UTF-8?q?=C3=B6he=20zur=C3=BCck.=20Messagebox=20aus=20der=20Funktion=20r?=
 =?UTF-8?q?ausgeworfen.=20H=C3=B6he=20aus=20Connectionpoint=20label=20f?=
 =?UTF-8?q?=C3=BCr=20Gef=C3=A4llestrecke=20beim=20Setzen=20relevant?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 169 +++++++++++++++++++++++++++++++--------------------
 1 file changed, 103 insertions(+), 66 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 36d2e75..4a53488 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="m.stangl [ENTW-NB08]" ModDate="2024-09-30T15:43:26" LanguageVersion="2014.1.3.690" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-10-01T14:56:04" LanguageVersion="2014.1.3.690" />
 	<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">
@@ -1008,6 +1008,7 @@
 			<VAR Id="RDK:1007444" Name="Point2D" Type="Point2D" />
 			<VAR Id="RDK:1519830" Name="SessionZip" Type="string" />
 			<VAR Id="RDK:20857929" Name="groupStrings" Type="string[]" DesignTimeRemark="Enthält ; separtiert alle Strings, damit die Gruppen beschrieben werden können. a;b;c wäre z.B. eine Gruppe aus den Objekten a, b und c" />
+			<VAR Id="RDK:21093041" Name="hoehe" Type="double" DesignTimeRemark="Generated by RD" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -10474,6 +10475,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								<PAR Name="Dbl" />
 								<PAR Name="Int" />
 								<PAR Name="Boo" />
+								<PAR Name="StrArr" />
 							</SET_STRUCT>
 							<SET_STRUCT Id="RDK:19795626" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
@@ -10485,6 +10487,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								</PAR>
 								<PAR Name="Int" />
 								<PAR Name="Boo" />
+								<PAR Name="StrArr" />
 							</SET_STRUCT>
 							<CALLFUNCTION Id="RDK:19795628">
 								<PAR Name="FuncName">
@@ -10659,6 +10662,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 										<PAR Name="Dbl" />
 										<PAR Name="Int" />
 										<PAR Name="Boo" />
+										<PAR Name="StrArr" />
 									</SET_STRUCT>
 									<CALLFUNCTION Id="RDK:19841627">
 										<PAR Name="FuncName">
@@ -16586,9 +16590,6 @@ me.x
 					<VALUECONDITION Value="true" Oper="OR">
 						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family = "Kurve"]]></EXP>
 					</VALUECONDITION>
-					<VALUECONDITION Value="true" Oper="OR">
-						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family = "Foerderer"]]></EXP>
-					</VALUECONDITION>
 					<VALUECONDITION Value="true">
 						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family = "Gefaellestrecke"]]></EXP>
 					</VALUECONDITION>
@@ -16611,9 +16612,6 @@ me.x
 					<VALUECONDITION Value="true" Oper="OR">
 						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Kurve"]]></EXP>
 					</VALUECONDITION>
-					<VALUECONDITION Value="true" Oper="OR">
-						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Foerderer"]]></EXP>
-					</VALUECONDITION>
 					<VALUECONDITION Value="true">
 						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Gefaellestrecke"]]></EXP>
 					</VALUECONDITION>
@@ -18109,6 +18107,7 @@ me.x
 									<PAR Name="Dbl" />
 									<PAR Name="Int" />
 									<PAR Name="Boo" />
+									<PAR Name="StrArr" />
 								</SET_STRUCT>
 								<CALLFUNCTION Id="RDK:20733293">
 									<PAR Name="FuncName">
@@ -19654,13 +19653,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 				</IFTHENELSE>
 				<COMMENTS Id="RDK:18530478" DesignTimeRemark="Param.Input" />
 				<GROUP Id="RDK:18329391" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
-					<VAR Id="RDK:18329384" Name="L_th" Type="double" />
-					<VAR Id="RDK:18539553" Name="H_th" Type="double" />
-					<VAR Id="RDK:19881503" Name="winkel_th" Type="double" />
 					<VAR Id="RDK:18376628" Name="shape_item" Type="Editor2DShapeType" />
-					<VAR Id="RDK:21050072" Name="RueckgabeListe" Type="SSGParameter[]" />
-					<VAR Id="RDK:21070814" Name="ResultListe" Type="string[]" />
-					<VAR Id="RDK:21070838" Name="cpId" Type="string" />
 				</GROUP>
 				<SET Id="RDK:18376630" VarRef="shape_item">
 					<EXP><![CDATA[$=$ShapeList["id="+Param.Input]]]></EXP>
@@ -19747,11 +19740,24 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						<EXIT_PROCESS Id="RDK:21071603" BreakType="4" ExitStatus="0" />
 					</CASEGROUP>
 				</SELECTCASE>
+				<GROUP Id="RDK:21076531" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:21076523" Name="L_th" Type="double" />
+					<VAR Id="RDK:21076524" Name="H_th" Type="double" />
+					<VAR Id="RDK:21076525" Name="winkel_th" Type="double" />
+					<VAR Id="RDK:21076527" Name="RueckgabeListe" Type="SSGParameter[]" />
+					<VAR Id="RDK:21076528" Name="UebergabeListe" Type="SSGParameter[]" />
+					<VAR Id="RDK:21076529" Name="ResultListe" Type="string[]" />
+					<VAR Id="RDK:21076530" Name="cpId" Type="string" />
+				</GROUP>
 				<COMMENTS Id="RDK:21038320" DesignTimeRemark="Wenn die Gefällestrecke nur einseitig angebunden ist, kann man von Länge und Winkel als wahre Größe ausgehen" />
 				<SET Id="RDK:21038363" VarRef="H_th">
 					<EXP><![CDATA[$=$Tan(DegToRad(shape_item.GefaelleDefinition.winkel)) * shape_item.GefaelleDefinition.L1]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
+				<SET Id="RDK:21104691" VarRef="H_th">
+					<EXP><![CDATA[$=$Round(H_th,1)]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
 				<COMMENTS Id="RDK:21070831" DesignTimeRemark="feststellen, welche der beiden Enden verbunden ist (oben oder unten)" />
 				<CALLFUNCTION Id="RDK:21069439">
 					<PAR Name="FuncName">
@@ -19817,36 +19823,48 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:21070846" CaseType="0">
 						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-						<IFTHENELSE Id="RDK:21038349">
+						<IFTHENELSE Id="RDK:21157583">
 							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$shape_item.GefaelleDefinition.HoeheOben > shape_item.GefaelleDefinition.HoeheUnten]]></EXP>
+								<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
 							</VALUECONDITION>
-							<GROUP Id="RDK:21038350" SubType="Then">
+							<GROUP Id="RDK:21157580" SubType="Then">
 								<SET Id="RDK:21038345" VarRef="shape_item.GefaelleDefinition.HoeheUnten">
 									<EXP><![CDATA[$=$shape_item.GefaelleDefinition.HoeheOben - H_th]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</GROUP>
-							<GROUP Id="RDK:21038351" SubType="Else">
+							<GROUP Id="RDK:21157582" SubType="Else">
 								<SET Id="RDK:21038361" VarRef="shape_item.GefaelleDefinition.HoeheOben">
 									<EXP><![CDATA[$=$shape_item.GefaelleDefinition.HoeheUnten + H_th]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</GROUP>
 						</IFTHENELSE>
-						<SET Id="RDK:21048675" VarRef="shape_item.GefaelleDefinition.L_th">
+						<CALLFUNCTION Id="RDK:21119118">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$Calculate Gefaellestrecke]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$shape_item.id]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+						<SET Id="RDK:21048675" VarRef="shape_item.GefaelleDefinition.L_th" Suppressed="True">
 							<EXP><![CDATA[$=$shape_item.GefaelleDefinition.L1]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<SET Id="RDK:21048677" VarRef="shape_item.GefaelleDefinition.H_th">
-							<EXP><![CDATA[$=$Abs(Round(H_th, 0))]]></EXP>
+						<SET Id="RDK:21048677" VarRef="shape_item.GefaelleDefinition.H_th" Suppressed="True">
+							<EXP><![CDATA[$=$Abs(H_th)]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<SET Id="RDK:21048679" VarRef="shape_item.GefaelleDefinition.winkel_th">
+						<SET Id="RDK:21048679" VarRef="shape_item.GefaelleDefinition.winkel_th" Suppressed="True">
 							<EXP><![CDATA[$=$shape_item.GefaelleDefinition.winkel]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<SET Id="RDK:21046617" VarRef="shape_item.GefaelleDefinition.LH_fits">
+						<SET Id="RDK:21046617" VarRef="shape_item.GefaelleDefinition.LH_fits" Suppressed="True">
 							<EXP><![CDATA[$=$True]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
@@ -20484,6 +20502,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								<PAR Name="Key">
 									<EXP><![CDATA[$C$ShapeId]]></EXP>
 								</PAR>
+								<PAR Name="StrArr" />
 								<PAR Name="Str">
 									<EXP><![CDATA[$=$item_1.id]]></EXP>
 								</PAR>
@@ -21746,6 +21765,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="Dbl" />
 							<PAR Name="Int" />
 							<PAR Name="Boo" />
+							<PAR Name="StrArr" />
 						</SET_STRUCT>
 						<SET_STRUCT Id="RDK:18827092" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 							<PAR Name="Key">
@@ -22017,6 +22037,23 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<EXP><![CDATA[$=$item.KurveDefinition.H_1]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
+						<IFTHENELSE Id="RDK:21114298">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$h1>h2]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:21114295" SubType="Then" DesignTimeRemark="richtung=1, von cp1 nach cp2 abfallen">
+								<SET Id="RDK:21114294" VarRef="richtung">
+									<EXP><![CDATA[$=$1]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:21114297" SubType="Else" DesignTimeRemark="richtung=0, von cp2 nach cp1 abfallen">
+								<SET Id="RDK:21114296" VarRef="richtung">
+									<EXP><![CDATA[$=$0]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
 						<IFTHENELSE Id="RDK:18895307">
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
@@ -22062,29 +22099,11 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</SET>
 							</GROUP>
 						</IFTHENELSE>
-						<IFTHENELSE Id="RDK:18912104">
+						<IFTHENELSE Id="RDK:18912104" Suppressed="True" DesignTimeNotes="Abfrage ob das definiert ist, sollte ausserhalb dieser Funktion für eine Entscheidung stattfinden. Die Funktion selbst soll nur die enthaltenen Höhen zurück geben">
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$item.GefaelleDefinition.LH_fits]]></EXP>
 							</VALUECONDITION>
-							<GROUP Id="RDK:18912101" SubType="Then">
-								<IFTHENELSE Id="RDK:18827185">
-									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
-									</VALUECONDITION>
-									<GROUP Id="RDK:18827182" SubType="Then">
-										<SET Id="RDK:18827181" VarRef="hoehe">
-											<EXP><![CDATA[$=$h1]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-									</GROUP>
-									<GROUP Id="RDK:18827184" SubType="Else">
-										<SET Id="RDK:18827183" VarRef="hoehe">
-											<EXP><![CDATA[$=$h0]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-									</GROUP>
-								</IFTHENELSE>
-							</GROUP>
+							<GROUP Id="RDK:18912101" SubType="Then" />
 							<GROUP Id="RDK:18912103" SubType="Else">
 								<COMMENTS Id="RDK:21041036" DesignTimeRemark="//Gefällehoehe sind nicht definiert." />
 								<ACTION_CALL Id="RDK:21041038" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
@@ -22112,6 +22131,23 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</SET>
 							</GROUP>
 						</IFTHENELSE>
+						<IFTHENELSE Id="RDK:18827185">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:18827182" SubType="Then">
+								<SET Id="RDK:18827181" VarRef="hoehe">
+									<EXP><![CDATA[$=$h1]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:18827184" SubType="Else">
+								<SET Id="RDK:18827183" VarRef="hoehe">
+									<EXP><![CDATA[$=$h2]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:18741926" CaseType="0">
 						<EXP><![CDATA[$C$Foerderer]]></EXP>
@@ -22143,29 +22179,11 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</SET>
 							</GROUP>
 						</IFTHENELSE>
-						<IFTHENELSE Id="RDK:18928848">
+						<IFTHENELSE Id="RDK:18928848" Suppressed="True" DesignTimeNotes="Abfrage ob das definiert ist, sollte ausserhalb dieser Funktion für eine Entscheidung stattfinden. Die Funktion selbst soll nur die enthaltenen Höhen zurück geben">
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$item.FoerdererDefinition.LH_fits]]></EXP>
 							</VALUECONDITION>
-							<GROUP Id="RDK:18928841" SubType="Then">
-								<IFTHENELSE Id="RDK:18928840">
-									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
-									</VALUECONDITION>
-									<GROUP Id="RDK:18928837" SubType="Then">
-										<SET Id="RDK:18928836" VarRef="hoehe">
-											<EXP><![CDATA[$=$item.FoerdererDefinition.H_1]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-									</GROUP>
-									<GROUP Id="RDK:18928839" SubType="Else">
-										<SET Id="RDK:18928838" VarRef="hoehe">
-											<EXP><![CDATA[$=$item.FoerdererDefinition.H_0]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-									</GROUP>
-								</IFTHENELSE>
-							</GROUP>
+							<GROUP Id="RDK:18928841" SubType="Then" />
 							<GROUP Id="RDK:18928847" SubType="Else">
 								<COMMENTS Id="RDK:18928861" DesignTimeRemark="//Foerdererhoehe sind nicht definiert." />
 								<ACTION_CALL Id="RDK:18928865" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
@@ -22193,6 +22211,23 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</SET>
 							</GROUP>
 						</IFTHENELSE>
+						<IFTHENELSE Id="RDK:18928840">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:18928837" SubType="Then">
+								<SET Id="RDK:18928836" VarRef="hoehe">
+									<EXP><![CDATA[$=$item.FoerdererDefinition.H_1]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:18928839" SubType="Else">
+								<SET Id="RDK:18928838" VarRef="hoehe">
+									<EXP><![CDATA[$=$item.FoerdererDefinition.H_0]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:18741920" CaseType="1">
 						<EXP />
@@ -22221,6 +22256,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<PAR Name="Key">
 						<EXP><![CDATA[$C$Hoehe]]></EXP>
 					</PAR>
+					<PAR Name="StrArr" />
 					<PAR Name="Str" />
 					<PAR Name="Dbl">
 						<EXP><![CDATA[$=$hoehe]]></EXP>
@@ -22232,6 +22268,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<PAR Name="Key">
 						<EXP><![CDATA[$C$Richtung]]></EXP>
 					</PAR>
+					<PAR Name="StrArr" />
 					<PAR Name="Str" />
 					<PAR Name="Dbl">
 						<EXP><![CDATA[$=$richtung]]></EXP>
@@ -25075,7 +25112,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="DataSource" />
 							<PAR Name="Options" />
 						</ACTION_CALL>
-						<ACTION_CALL Id="RDK:837490" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeTip="cp2 top point" DesignTimeNotes="20231005 -1-&#xD;&#xA;Read only changed&#xD;&#xA;&#xD;&#xA;20230928 -1-&#xD;&#xA;Label changed">
+						<ACTION_CALL Id="RDK:837490" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeTip="cp2 top point" DesignTimeNotes="20231005 -1-&#xD;&#xA;Read only changed&#xD;&#xA;&#xD;&#xA;20230928 -1-&#xD;&#xA;Label changed&#xD;&#xA;&#xD;&#xA;20241001 -1-&#xD;&#xA;set H0 and H1 to Read only &#xD;&#xA;">
 							<PAR Name="RDLibraryName">
 								<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
 							</PAR>
@@ -25118,7 +25155,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="Required" />
 							<PAR Name="Hidden" />
 							<PAR Name="ROnly">
-								<EXP><![CDATA[$=$]]></EXP>
+								<EXP><![CDATA[$=$True]]></EXP>
 							</PAR>
 							<PAR Name="Disabled" />
 							<PAR Name="Pressed" />
@@ -25128,7 +25165,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="DataSource" />
 							<PAR Name="Options" />
 						</ACTION_CALL>
-						<ACTION_CALL Id="RDK:314381" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeTip="cp1 top point" DesignTimeNotes="20231005 -1-&#xD;&#xA;Read only changed&#xD;&#xA;&#xD;&#xA;20230928 -1-&#xD;&#xA;Label changed">
+						<ACTION_CALL Id="RDK:314381" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeTip="cp1 top point" DesignTimeNotes="20231005 -1-&#xD;&#xA;Read only changed&#xD;&#xA;&#xD;&#xA;20230928 -1-&#xD;&#xA;Label changed&#xD;&#xA;&#xD;&#xA;20241001 -1-&#xD;&#xA;set H0 and H1 to Read only ">
 							<PAR Name="RDLibraryName">
 								<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
 							</PAR>
@@ -25171,7 +25208,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="Required" />
 							<PAR Name="Hidden" />
 							<PAR Name="ROnly">
-								<EXP><![CDATA[$=$]]></EXP>
+								<EXP><![CDATA[$=$True]]></EXP>
 							</PAR>
 							<PAR Name="Disabled" />
 							<PAR Name="Pressed" />