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

LookupControl: Translate Strings for LookupControl2

Browse Source
This commit is contained in:
Jonathan Jenne 2021-03-02 10:18:30 +01:00
parent 0a37e7b140
commit 4540778c5a
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Controls.LookupGrid/LookupControl2.vb
View File

@ -53,10 +53,8 @@ Public Class LookupControl2
Private Const TAG_DROPDOWN = "openDropdown" Private Const TAG_DROPDOWN = "openDropdown"
Private Const TAG_BUTTON_LOOKUP_FORM = "openLookupForm" Private Const TAG_BUTTON_LOOKUP_FORM = "openLookupForm"
Private Const TEXT_NO_RECORDS = "Keine Datensätze ausgewählt"
Private Const TEXT_ONE_RECORD = "Ein Datensatz ausgewählt"
Private Const TEXT_N_RECORDS = "{0} Datensätze ausgewählt"
Private _R As Resources.ResourceManager = My.Resources.Strings.ResourceManager
Private _SelectedValues As New List(Of String) Private _SelectedValues As New List(Of String)
Private _MultiSelect As Boolean Private _MultiSelect As Boolean
@ -81,7 +79,7 @@ Public Class LookupControl2
Properties.Buttons.Item(0).Tag = TAG_DROPDOWN Properties.Buttons.Item(0).Tag = TAG_DROPDOWN
Properties.Buttons.AddRange({_LookupFormButton}) Properties.Buttons.AddRange({_LookupFormButton})
Properties.NullText = TEXT_NO_RECORDS Properties.NullText = _R.GetString("LookupControl_NoRecords")
AddHandler ButtonClick, AddressOf HandleButtonClick AddHandler ButtonClick, AddressOf HandleButtonClick
AddHandler EditValueChanging, AddressOf HandleEditValueChanging AddHandler EditValueChanging, AddressOf HandleEditValueChanging
@ -155,11 +153,11 @@ Public Class LookupControl2
Select Case Values.Count Select Case Values.Count
Case 0 Case 0
Properties.NullText = TEXT_NO_RECORDS Properties.NullText = _R.GetString("LookupControl_NoRecords")
Case 1 Case 1
Properties.NullText = TEXT_ONE_RECORD Properties.NullText = _R.GetString("LookupControl_OneRecord")
Case Else Case Else
Properties.NullText = String.Format(TEXT_N_RECORDS, Values.Count) Properties.NullText = String.Format(_R.GetString("LookupControl_NRecords"), Values.Count)
End Select End Select
Else Else
Properties.NullText = Values.FirstOrDefault() Properties.NullText = Values.FirstOrDefault()