LookupGrid: Translate last string in LookupGrid

2021-03-02 09:30:47 +01:00
parent d79ffe4aa8
commit deb10b8958
5 changed files with 59 additions and 18 deletions
--- a/Controls.LookupGrid/frmLookupGrid.vb
+++ b/Controls.LookupGrid/frmLookupGrid.vb
@@ -54,13 +54,11 @@ Public Class frmLookupGrid
            Dim oCheckboxColumn = _View.Columns.Item(0)
            oCheckboxColumn.Caption = " "
            oCheckboxColumn.MaxWidth = 10
-            My.Resources.ResourceManager.GetString("FormText")

-
-            Text = _R.GetString("FormText")
+            Text = _R.GetString("PopupForm_Text")
            _DataColumn = 1
        Else
-            Text = _R.GetString("FormText")
+            Text = _R.GetString("PopupForm_TextMultiLine")
            _DataColumn = 0
        End If