AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: AppStd:0a37e7b140404e0492817f4385419a618527c157
Branches Tags
AppStd:master AppStd:upgrade-to-NET8-1 AppStd:Monorepo-Update-.NET-8 AppStd:Newest-GDPictureVersion AppStd:ZugferdService-Redesign
...
compare: AppStd:cd75459a27d7dc86a93854c06a2cb6a6dba1a4a0
Branches Tags
AppStd:master AppStd:upgrade-to-NET8-1 AppStd:Monorepo-Update-.NET-8 AppStd:Newest-GDPictureVersion AppStd:ZugferdService-Redesign

2 Commits
0a37e7b140 ... cd75459a27

Author SHA1 Message Date
Jonathan Jenne
cd75459a27 LookupGrid: Version 2.1.2 2021-03-02 10:18:59 +01:00
Jonathan Jenne
4540778c5a LookupControl: Translate Strings for LookupControl2 2021-03-02 10:18:30 +01:00
2 changed files with 7 additions and 9 deletions
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()

4
Controls.LookupGrid/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.1.1.0")> <Assembly: AssemblyVersion("2.1.2.0")>
<Assembly: AssemblyFileVersion("2.1.1.0")> <Assembly: AssemblyFileVersion("2.1.2.0")>