LookupGrid: Remove old Versions, Fix Null Value Text \o/
This commit is contained in:
24
Controls.LookupGrid/LookupGridLocalizer.vb
Normal file
24
Controls.LookupGrid/LookupGridLocalizer.vb
Normal 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
|
||||
Reference in New Issue
Block a user