LookupGrid: Remove old Versions, Fix Null Value Text \o/

This commit is contained in:
Jonathan Jenne
2021-04-29 12:25:43 +02:00
parent 817347af6f
commit aa1e11b030
13 changed files with 28 additions and 1043 deletions

View File

@@ -0,0 +1,24 @@
Imports DevExpress.XtraEditors.Controls
Public Class LookupGridLocalizer
Inherits EditResLocalizer
Private Const LANG_DE = "de-DE"
Public Overrides Function GetLocalizedString(id As StringId) As String
Dim oResult As String
Select Case id
Case StringId.LookUpEditValueIsNull
If Language = LANG_DE Then
oResult = "[Kein Wert ausgewählt]"
Else
oResult = "[No Value selected]"
End If
Case Else
oResult = MyBase.GetLocalizedString(id)
End Select
Return oResult
End Function
End Class