Code development platform for open source projects from the European Union institutions :large_blue_circle: EU Login authentication by SMS has been phased out. To see alternatives please check here

Skip to content
Snippets Groups Projects
Commit 285b5aa4 authored by Michael KRISPER's avatar Michael KRISPER
Browse files

VehicleForm: Removed disabling the retarder controls

parent ce64cb8e
Branches
Tags
No related merge requests found
...@@ -87,7 +87,6 @@ Public Class VehicleForm ...@@ -87,7 +87,6 @@ Public Class VehicleForm
CbCdMode.DataSource = EnumHelper.GetKeyValuePairs(of CrossWindCorrectionMode)(Function(t) t.GetLabel()) CbCdMode.DataSource = EnumHelper.GetKeyValuePairs(of CrossWindCorrectionMode)(Function(t) t.GetLabel())
CbRtType.DataSource = EnumHelper.GetKeyValuePairs(Of RetarderType)(Function(t) t.GetLabel()) CbRtType.DataSource = EnumHelper.GetKeyValuePairs(Of RetarderType)(Function(t) t.GetLabel())
CbRtType.Enabled = true
If (cfg.DeclMode) Then If (cfg.DeclMode) Then
CbAxleConfig.DataSource = DeclarationData.TruckSegments.GetAxleConfigurations() _ CbAxleConfig.DataSource = DeclarationData.TruckSegments.GetAxleConfigurations() _
...@@ -322,7 +321,6 @@ Public Class VehicleForm ...@@ -322,7 +321,6 @@ Public Class VehicleForm
TbCdFile.Text = "" TbCdFile.Text = ""
CbRtType.SelectedIndex = 0 CbRtType.SelectedIndex = 0
CbRtType.Enabled = true
TbRtRatio.Text = "" TbRtRatio.Text = ""
TbRtPath.Text = "" TbRtPath.Text = ""
...@@ -816,16 +814,12 @@ Public Class VehicleForm ...@@ -816,16 +814,12 @@ Public Class VehicleForm
Select Case CType(CbRtType.SelectedValue, RetarderType) Select Case CType(CbRtType.SelectedValue, RetarderType)
Case RetarderType.TransmissionInputRetarder 'Primary Case RetarderType.TransmissionInputRetarder 'Primary
LbRtRatio.Text = "Ratio to engine speed" LbRtRatio.Text = "Ratio to engine speed"
PnRt.Enabled = True
Case RetarderType.TransmissionOutputRetarder 'Secondary Case RetarderType.TransmissionOutputRetarder 'Secondary
LbRtRatio.Text = "Ratio to cardan shaft speed" LbRtRatio.Text = "Ratio to cardan shaft speed"
PnRt.Enabled = True
case RetarderType.AxlegearInputRetarder case RetarderType.AxlegearInputRetarder
LbRtRatio.Text = "Ratio to axle shaft speed" LbRtRatio.Text = "Ratio to axle shaft speed"
PnRt.Enabled = True
Case Else '0 None Case Else '0 None
LbRtRatio.Text = "Ratio" LbRtRatio.Text = "Ratio"
PnRt.Enabled = False
End Select End Select
Change() Change()
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment