From 33c7f6485030dbd7ede1681f82358a2ba65be2b8 Mon Sep 17 00:00:00 2001
From: Michael Krisper <michael.krisper@tugraz.at>
Date: Tue, 26 Apr 2022 19:35:18 +0200
Subject: [PATCH] VehicleForm: Corrected Selection of Retarder based on
EnginePosition again (E2 also has all retarders available)
---
VECTO/GUI/VehicleForm.vb | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/VECTO/GUI/VehicleForm.vb b/VECTO/GUI/VehicleForm.vb
index 0b902ef001..2b0f976321 100644
--- a/VECTO/GUI/VehicleForm.vb
+++ b/VECTO/GUI/VehicleForm.vb
@@ -1242,7 +1242,7 @@ Public Class VehicleForm
gbRatiosPerGear.Enabled = PowertrainPosition.HybridP2_5.Equals(cbEmPos.SelectedValue)
Dim selectedValue = CbRtType.SelectedValue
- If PowertrainPosition.BatteryElectricE4.Equals(cbEmPos.SelectedValue) OrElse PowertrainPosition.BatteryElectricE2.Equals(cbEmPos.SelectedValue) Then
+ If PowertrainPosition.BatteryElectricE4.Equals(cbEmPos.SelectedValue) Then
gbRetarderLosses.Enabled = False
TbRtRatio.Text = ""
TbRtPath.Text = ""
@@ -1259,6 +1259,7 @@ Public Class VehicleForm
If (selectedValue IsNot Nothing) Then
If Not selectedValue.Equals(CbRtType.SelectedValue) Then
MsgBox("Retarder has changed due to change of electric motor position. Please check.", MsgBoxStyle.Information)
+ CbRtType.SelectedIndex = 0
End If
End If
End Sub
--
GitLab