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

10-01-24 Komboxen mit übersetzen Inhalten

Browse Source
This commit is contained in:
PitzM
2024-01-10 13:05:23 +01:00
parent 2723b10a45
commit c77772aa7c
7 changed files with 732 additions and 581 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
EnvelopeGenerator.Form/frmEnvelopeMainData.vb
View File

@@ -30,19 +30,34 @@ Public Class frmEnvelopeMainData
EnvelopeTypeModel = New EnvelopeTypeModel(State)
Dim oTypes = EnvelopeTypeModel.List()
Dim certificationTypeList = [Enum].GetValues(GetType(CertificationType)).Cast(Of CertificationType)()
Dim oTranslatedCertificationTypeList = certificationTypeList.Select(AddressOf TranslateCertificationType).ToList()
cmbCertificationType.Properties.Items.AddRange(oTranslatedCertificationTypeList)
Dim finalEmailTypeList = [Enum].GetValues(GetType(FinalEmailType)).Cast(Of FinalEmailType)()
Dim oTranslatedFinalEmailTypeList = FinalEmailTypeList.Select(AddressOf TranslateFinalEmailType).ToList()
cmbEmailToCreator.Properties.Items.AddRange(oTranslatedFinalEmailTypeList)
cmbEmailToReceivers.Properties.Items.AddRange(oTranslatedFinalEmailTypeList)
cmbEnvelopeType.Properties.Items.AddRange(oTypes.ToList)
cmbCertificationType.Properties.Items.AddRange([Enum].GetValues(GetType(CertificationType)).Cast(Of CertificationType).ToList())
cmbEmailToCreator.Properties.Items.AddRange([Enum].GetValues(GetType(FinalEmailType)).Cast(Of FinalEmailType).ToList())
cmbEmailToReceivers.Properties.Items.AddRange([Enum].GetValues(GetType(FinalEmailType)).Cast(Of FinalEmailType).ToList())
cmbLanguage.Properties.Items.AddRange(New List(Of String) From {"de", "en"})
groupAllOptions.Expanded = False
txtTitle.EditValue = Envelope.Title
cmbEnvelopeType.EditValue = oTypes.FirstOrDefault()
cmbCertificationType.SelectedIndex = oTypes.FirstOrDefault.CertificationType
cmbEmailToCreator.SelectedIndex = oTypes.FirstOrDefault.FinalEmailToCreator
cmbEmailToReceivers.SelectedIndex = oTypes.FirstOrDefault.FinalEmailToReceivers
End Sub
Private Function TranslateContractType(pType As ContractType) As String
Private Function TranslateCertificationType(pType As CertificationType) As String
Return Resources.Model.ResourceManager.GetString(pType.ToString())
End Function
Private Function TranslateFinalEmailType(pType As FinalEmailType) As String
Return Resources.Model.ResourceManager.GetString(pType.ToString())
End Function
@@ -98,7 +113,7 @@ Public Class frmEnvelopeMainData
EnvelopeType = oSelectedType
cmbCertificationType.EditValue = oSelectedType.CertificationType
'cmbCertificationType.EditValue = oSelectedType.CertificationType
cmbLanguage.EditValue = oSelectedType.Language
chkUseAccessCode.EditValue = oSelectedType.UseAccessCode
chkSendReminderEmails.EditValue = oSelectedType.SendReminderEmails
@@ -106,7 +121,12 @@ Public Class frmEnvelopeMainData
spnReminderIntervalDays.EditValue = oSelectedType.ReminderIntervalDays
spnExpiresDays.EditValue = oSelectedType.ExpiresWhenDays
spnExpiresWarningDays.EditValue = oSelectedType.ExpiresWarningWhenDays
cmbEmailToCreator.EditValue = oSelectedType.FinalEmailToCreator
cmbEmailToReceivers.EditValue = oSelectedType.FinalEmailToReceivers
'cmbEmailToCreator.EditValue = oSelectedType.FinalEmailToCreator
'cmbEmailToReceivers.EditValue = oSelectedType.FinalEmailToReceivers
cmbCertificationType.SelectedIndex = oSelectedType.CertificationType
cmbEmailToCreator.SelectedIndex = oSelectedType.FinalEmailToCreator
cmbEmailToReceivers.SelectedIndex = oSelectedType.FinalEmailToReceivers
End Sub
End Class