From cbd861fc8996669746f6afc72475be2d163ae1ff Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 29 Apr 2021 16:09:27 +0200 Subject: [PATCH] TestGUI: Add Localizer Tests for LookupControl --- GUIs.Test.TestGUI/frmLookup.vb | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/GUIs.Test.TestGUI/frmLookup.vb b/GUIs.Test.TestGUI/frmLookup.vb index 9614ea06..7a1a3257 100644 --- a/GUIs.Test.TestGUI/frmLookup.vb +++ b/GUIs.Test.TestGUI/frmLookup.vb @@ -1,10 +1,23 @@ -Imports DigitalData.Controls.LookupGrid +Imports System.Globalization +Imports DevExpress.XtraEditors.Controls +Imports DigitalData.Controls.LookupGrid Public Class frmLookup Private _Datasource As List(Of String) = New List(Of String) From {"Foo", "Bar", "Baz", "Bart", "Maggie", "Homer"} + Public Sub New() + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Localizer.Active = New LookupGridLocalizer() + End Sub + Private Sub frmLookup_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Dim oCulture = CultureInfo.CurrentCulture + Dim oUICulture = CultureInfo.CurrentUICulture + Dim oTable = GetDatatable(10) Dim LookupControl31 As New LookupControl3 With {