diff --git a/VECTOAux/VectoAuxiliaries/UI/frmAuxiliaryConfig.vb b/VECTOAux/VectoAuxiliaries/UI/frmAuxiliaryConfig.vb index 3e825e0fefa890a96c1f10d0d6e3127eb0c2ad1c..ae3392a325355fcd0e6753ac645ba1a7eab57d32 100644 --- a/VECTOAux/VectoAuxiliaries/UI/frmAuxiliaryConfig.vb +++ b/VECTOAux/VectoAuxiliaries/UI/frmAuxiliaryConfig.vb @@ -611,7 +611,7 @@ Public Class frmAuxiliaryConfig Dim s As Single - If e.ColumnIndex = - 1 Then + If e.ColumnIndex = -1 Then e.Cancel = True Exit Sub @@ -840,7 +840,7 @@ Public Class frmAuxiliaryConfig Private Sub btnAlternatorMapPath_Click(sender As Object, e As EventArgs) Handles btnAlternatorMapPath.Click - Dim fbAux As New cFileBrowser("AAUXALT", True, False) + Dim fbAux As New cFileBrowser("AAUXALT", False, False) fbAux.Extensions = New String() {"AALT"} Dim suppliedAALTPath As String = txtAlternatorMapPath.Text @@ -907,7 +907,7 @@ Public Class frmAuxiliaryConfig Return End If End Using - + BindingContext(auxConfig.ElectricalUserInputsConfig).EndCurrentEdit() Validate_Electrics() End If @@ -935,6 +935,10 @@ Public Class frmAuxiliaryConfig txtCompressorMap.Focus() End Sub + Private Sub btnActuationsMap_BindingContextChanged(sender As Object, e As EventArgs) _ + Handles btnActuationsMap.BindingContextChanged + End Sub + Private Sub btnActuationsMap_Click(sender As Object, e As EventArgs) Handles btnActuationsMap.Click Dim fbAux As New cFileBrowser("AAUXPneuAct", True, False) @@ -987,9 +991,13 @@ Public Class frmAuxiliaryConfig End If End Sub + Private Sub btnSSMBSource_BindingContextChanged(sender As Object, e As EventArgs) _ + Handles btnSSMBSource.BindingContextChanged + End Sub + Private Sub btnSSMBSource_Click(sender As Object, e As EventArgs) Handles btnSSMBSource.Click - Dim fbAux As New cFileBrowser("AAUXSSM", True, False) + Dim fbAux As New cFileBrowser("AAUXSSM", False, False) fbAux.Extensions = New String() {"AHSM"} Dim suppliedSSMPath As String = txtSSMFilePath.Text.Trim() @@ -1058,7 +1066,7 @@ Public Class frmAuxiliaryConfig Return End If End Using - + BindingContext(auxConfig.HvacUserInputsConfig).EndCurrentEdit() Validate_HVAC() End If @@ -1188,10 +1196,10 @@ Public Class frmAuxiliaryConfig e.Graphics.FillRectangle(br, e.Bounds) Dim sz As SizeF = e.Graphics.MeasureString(tabMain.TabPages(e.Index).Text, e.Font) e.Graphics.DrawString(tabMain.TabPages(e.Index).Text, e.Font, Brushes.Black, - e.Bounds.Left + (e.Bounds.Width - sz.Width)/2, e.Bounds.Top + (e.Bounds.Height - sz.Height)/2 + 1) + e.Bounds.Left + (e.Bounds.Width - sz.Width) / 2, e.Bounds.Top + (e.Bounds.Height - sz.Height) / 2 + 1) Dim rect As Rectangle = e.Bounds - rect.Offset(- 1, - 1) + rect.Offset(-1, -1) rect.Inflate(1, 1) ' e.Graphics.DrawRectangle(Pens.DarkGray, rect) 'e.DrawFocusRectangle()