From eea8c16f6cecb947d889a60fad68300ae0f1f736 Mon Sep 17 00:00:00 2001
From: Markus Quaritsch <quaritsch@ivt.tugraz.at>
Date: Wed, 8 Feb 2023 16:45:18 +0100
Subject: [PATCH] allow all gearbox types in declaration mode
---
VECTO/GUI/GearboxForm.vb | 16 +++++-----------
1 file changed, 5 insertions(+), 11 deletions(-)
diff --git a/VECTO/GUI/GearboxForm.vb b/VECTO/GUI/GearboxForm.vb
index 17d975510c..c8ee2e0c8e 100644
--- a/VECTO/GUI/GearboxForm.vb
+++ b/VECTO/GUI/GearboxForm.vb
@@ -81,17 +81,11 @@ Public Class GearboxForm
CbGStype.ValueMember = "Value"
CbGStype.DisplayMember = "Label"
- If (Cfg.DeclMode) Then
- CbGStype.DataSource = [Enum].GetValues(GetType(GearboxType)) _
- .Cast(Of GearboxType)() _
- .Where(Function(type) Not type = GearboxType.APTN And (type.ManualTransmission() OrElse type = GearboxType.ATSerial)) _
- .Select(Function(type) New With {Key .Value = type, .Label = type.GetLabel()}).ToList()
- Else
- CbGStype.DataSource = [Enum].GetValues(GetType(GearboxType)) _
- .Cast(Of GearboxType)() _
- .Where(Function(type) type.ManualTransmission() OrElse type.AutomaticTransmission() OrElse type = GearboxType.IHPC OrElse type = GearboxType.IEPC) _
- .Select(Function(type) New With {Key .Value = type, .Label = type.GetLabel()}).ToList()
- End If
+ CbGStype.DataSource = [Enum].GetValues(GetType(GearboxType)) _
+ .Cast(Of GearboxType)() _
+ .Where(Function(type) type.ManualTransmission() OrElse type.AutomaticTransmission() OrElse type = GearboxType.IHPC OrElse type = GearboxType.IEPC) _
+ .Select(Function(type) New With {Key .Value = type, .Label = type.GetLabel()}).ToList()
+
DeclInit()
_changed = False
--
GitLab