AppStd/EnvelopeGenerator
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix pageindex, translations

Browse Source
This commit is contained in:
Jonathan Jenne
2023-12-11 11:35:45 +01:00
parent c4e9f5aa2b
commit 788d7fac9f
7 changed files with 54 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
EnvelopeGenerator.Form/frmEnvelopeMainData.vb
View File

@@ -22,14 +22,19 @@ Public Class frmEnvelopeMainData
cmbContractType.ReadOnly = True
End If
Dim contractTypeList = [Enum].GetValues(GetType(ContractType)) _
.Cast(Of ContractType)().ToList()
cmbContractType.Properties.Items.AddRange(contractTypeList)
Dim contractTypeList = [Enum].GetValues(GetType(ContractType)).Cast(Of ContractType)()
Dim oTranslatedList = contractTypeList.Select(AddressOf TranslateContractType).ToList()
cmbContractType.Properties.Items.AddRange(oTranslatedList)
txtTitle.EditValue = EnvelopeTitle
cmbContractType.EditValue = EnvelopeContractType
cmbContractType.EditValue = TranslateContractType(EnvelopeContractType)
End Sub
Private Function TranslateContractType(pType As ContractType) As String
Return Resources.Model.ResourceManager.GetString(pType.ToString())
End Function
Private Sub btOK_Click(sender As Object, e As EventArgs) Handles btOK.Click
Dim Validator As Validator = New Validator(State.LogConfig, AdornerUIManager1)
@@ -42,6 +47,6 @@ Public Class frmEnvelopeMainData
End If
EnvelopeTitle = txtTitle.EditValue
EnvelopeContractType = cmbContractType.EditValue
EnvelopeContractType = cmbContractType.SelectedIndex + 1
End Sub
End Class