From a66d591c52c3ad79c4c64091371c5f28825c35e5 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Mon, 3 May 2021 13:02:49 +0200
Subject: [PATCH] Add Proper Translation for Lookup Grids

---
 app/DD_PM_WINDREAM/frmValidator.vb | 28 ++++++++++++++++------------
 1 file changed, 16 insertions(+), 12 deletions(-)

diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb
index 83e9793..de1ff8d 100644
--- a/app/DD_PM_WINDREAM/frmValidator.vb
+++ b/app/DD_PM_WINDREAM/frmValidator.vb
@@ -14,6 +14,7 @@ Imports DevExpress.XtraEditors.Repository
 Imports DigitalData.Modules.EDMI.API
 Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
 Imports DevExpress.XtraGrid.Views.Grid
+Imports DevExpress.XtraEditors.Controls
 
 Public Class frmValidator
     Dim strFileList()
@@ -82,7 +83,22 @@ Public Class frmValidator
 
     Private ControlHandleStarted As Boolean = False
 
+    Public Sub New()
+        'MyBase.New
+        LOGGER.Debug("Initialize Components...")
+        InitializeComponent()
+        LOGGER.Debug("Initialize _frmValidatorSearch...")
+        Try
+            _frmValidatorSearch = New frmValidatorSearch
+        Catch ex As Exception
+            LOGGER.Error(ex)
+        End Try
+
+        Localizer.Active = New LookupGridLocalizer()
+    End Sub
+
     Private Sub frmValidation_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
         Try
             LOGGER.Debug("###frmValidation_Load###")
             DataASorDB = New ClassDataASorDB
@@ -5227,18 +5243,6 @@ Public Class frmValidator
     Private Const SEE_MASK_FLAG_NO_UI = &H400
     Public Const SW_SHOW As Short = 5
 
-    Public Sub New()
-        'MyBase.New
-        LOGGER.Debug("Initialize Components...")
-        InitializeComponent()
-        LOGGER.Debug("Initialize _frmValidatorSearch...")
-        Try
-            _frmValidatorSearch = New frmValidatorSearch
-        Catch ex As Exception
-            LOGGER.Error(ex)
-        End Try
-    End Sub
-
     <DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
     Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
     End Function