From 035da0a2fe5f9544cfcb78b28cc85ec2d255fd6c Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 1 Mar 2021 16:36:45 +0100 Subject: [PATCH] LookupGrid: Localize to English --- Controls.LookupGrid/LookupControl.vbproj | 23 +++ .../Resources/Strings.Designer.vb | 85 +++++++++ .../Resources/Strings.en.Designer.vb | 0 Controls.LookupGrid/Resources/Strings.en.resx | 126 +++++++++++++ Controls.LookupGrid/Resources/Strings.resx | 126 +++++++++++++ Controls.LookupGrid/frmLookupGrid.Designer.vb | 40 ++-- Controls.LookupGrid/frmLookupGrid.en.resx | 126 +++++++++++++ Controls.LookupGrid/frmLookupGrid.resx | 174 ++++++++++++++++++ Controls.LookupGrid/frmLookupGrid.vb | 8 +- 9 files changed, 685 insertions(+), 23 deletions(-) create mode 100644 Controls.LookupGrid/Resources/Strings.Designer.vb create mode 100644 Controls.LookupGrid/Resources/Strings.en.Designer.vb create mode 100644 Controls.LookupGrid/Resources/Strings.en.resx create mode 100644 Controls.LookupGrid/Resources/Strings.resx create mode 100644 Controls.LookupGrid/frmLookupGrid.en.resx diff --git a/Controls.LookupGrid/LookupControl.vbproj b/Controls.LookupGrid/LookupControl.vbproj index 66c4fa50..38f00b9a 100644 --- a/Controls.LookupGrid/LookupControl.vbproj +++ b/Controls.LookupGrid/LookupControl.vbproj @@ -136,8 +136,21 @@ Component + + Strings.en.resx + True + True + + + True + True + Strings.resx + + + frmLookupGrid.vb + frmLookupGrid.vb @@ -157,6 +170,16 @@ My.Resources Designer + + ResXFileCodeGenerator + Strings.en.Designer.vb + My.Resources + + + My.Resources + ResXFileCodeGenerator + Strings.Designer.vb + diff --git a/Controls.LookupGrid/Resources/Strings.Designer.vb b/Controls.LookupGrid/Resources/Strings.Designer.vb new file mode 100644 index 00000000..edba7805 --- /dev/null +++ b/Controls.LookupGrid/Resources/Strings.Designer.vb @@ -0,0 +1,85 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Class Strings + + Private Shared resourceMan As Global.System.Resources.ResourceManager + + Private Shared resourceCulture As Global.System.Globalization.CultureInfo + + _ + Friend Sub New() + MyBase.New + End Sub + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DigitalData.Controls.LookupGrid.Strings", GetType(Strings).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Shared Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Bitte wählen Sie einen Wert aus: ähnelt. + ''' + Friend Shared ReadOnly Property FormText() As String + Get + Return ResourceManager.GetString("FormText", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Bitte wählen Sie einen oder mehrere Werte aus: ähnelt. + ''' + Friend Shared ReadOnly Property FormTextMultiLine() As String + Get + Return ResourceManager.GetString("FormTextMultiLine", resourceCulture) + End Get + End Property + End Class +End Namespace diff --git a/Controls.LookupGrid/Resources/Strings.en.Designer.vb b/Controls.LookupGrid/Resources/Strings.en.Designer.vb new file mode 100644 index 00000000..e69de29b diff --git a/Controls.LookupGrid/Resources/Strings.en.resx b/Controls.LookupGrid/Resources/Strings.en.resx new file mode 100644 index 00000000..a2357574 --- /dev/null +++ b/Controls.LookupGrid/Resources/Strings.en.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Please choose a value: + + + Please choose one or more values: + + \ No newline at end of file diff --git a/Controls.LookupGrid/Resources/Strings.resx b/Controls.LookupGrid/Resources/Strings.resx new file mode 100644 index 00000000..67c89192 --- /dev/null +++ b/Controls.LookupGrid/Resources/Strings.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Bitte wählen Sie einen Wert aus: + + + Bitte wählen Sie einen oder mehrere Werte aus: + + \ No newline at end of file diff --git a/Controls.LookupGrid/frmLookupGrid.Designer.vb b/Controls.LookupGrid/frmLookupGrid.Designer.vb index 8f8a802a..334a1455 100644 --- a/Controls.LookupGrid/frmLookupGrid.Designer.vb +++ b/Controls.LookupGrid/frmLookupGrid.Designer.vb @@ -22,6 +22,7 @@ Partial Class frmLookupGrid 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLookupGrid)) Me.gridLookup = New DevExpress.XtraGrid.GridControl() Me.viewLookup = New DevExpress.XtraGrid.Views.Grid.GridView() Me.Panel1 = New System.Windows.Forms.Panel() @@ -34,61 +35,58 @@ Partial Class frmLookupGrid ' 'gridLookup ' - Me.gridLookup.Dock = System.Windows.Forms.DockStyle.Fill - Me.gridLookup.Location = New System.Drawing.Point(0, 0) + resources.ApplyResources(Me.gridLookup, "gridLookup") + Me.gridLookup.EmbeddedNavigator.AccessibleDescription = resources.GetString("gridLookup.EmbeddedNavigator.AccessibleDescription") + Me.gridLookup.EmbeddedNavigator.AccessibleName = resources.GetString("gridLookup.EmbeddedNavigator.AccessibleName") + Me.gridLookup.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("gridLookup.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean) + Me.gridLookup.EmbeddedNavigator.Anchor = CType(resources.GetObject("gridLookup.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles) + Me.gridLookup.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("gridLookup.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image) + Me.gridLookup.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("gridLookup.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout) + Me.gridLookup.EmbeddedNavigator.ImeMode = CType(resources.GetObject("gridLookup.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode) + Me.gridLookup.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("gridLookup.EmbeddedNavigator.MaximumSize"), System.Drawing.Size) + Me.gridLookup.EmbeddedNavigator.TextLocation = CType(resources.GetObject("gridLookup.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation) + Me.gridLookup.EmbeddedNavigator.ToolTip = resources.GetString("gridLookup.EmbeddedNavigator.ToolTip") + Me.gridLookup.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("gridLookup.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType) + Me.gridLookup.EmbeddedNavigator.ToolTipTitle = resources.GetString("gridLookup.EmbeddedNavigator.ToolTipTitle") Me.gridLookup.MainView = Me.viewLookup Me.gridLookup.Name = "gridLookup" - Me.gridLookup.Size = New System.Drawing.Size(388, 221) - Me.gridLookup.TabIndex = 0 Me.gridLookup.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewLookup}) ' 'viewLookup ' + resources.ApplyResources(Me.viewLookup, "viewLookup") Me.viewLookup.GridControl = Me.gridLookup Me.viewLookup.Name = "viewLookup" Me.viewLookup.OptionsView.ShowGroupPanel = False ' 'Panel1 ' + resources.ApplyResources(Me.Panel1, "Panel1") Me.Panel1.Controls.Add(Me.btnOK) Me.Panel1.Controls.Add(Me.btnClear) - Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel1.Location = New System.Drawing.Point(0, 221) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(388, 40) - Me.Panel1.TabIndex = 1 ' 'btnOK ' - Me.btnOK.Location = New System.Drawing.Point(12, 6) + resources.ApplyResources(Me.btnOK, "btnOK") Me.btnOK.Name = "btnOK" - Me.btnOK.Size = New System.Drawing.Size(117, 23) - Me.btnOK.TabIndex = 0 - Me.btnOK.Text = "OK (F2)" Me.btnOK.UseVisualStyleBackColor = True ' 'btnClear ' - Me.btnClear.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + resources.ApplyResources(Me.btnClear, "btnClear") Me.btnClear.DialogResult = System.Windows.Forms.DialogResult.OK - Me.btnClear.Location = New System.Drawing.Point(240, 6) Me.btnClear.Name = "btnClear" - Me.btnClear.Size = New System.Drawing.Size(136, 23) - Me.btnClear.TabIndex = 0 - Me.btnClear.Text = "Leeren" Me.btnClear.UseVisualStyleBackColor = True ' 'frmLookupGrid ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(388, 261) Me.Controls.Add(Me.gridLookup) Me.Controls.Add(Me.Panel1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow - Me.MinimumSize = New System.Drawing.Size(400, 300) Me.Name = "frmLookupGrid" - Me.Text = "Wählen Sie einen Wert:" Me.TopMost = True CType(Me.gridLookup, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.viewLookup, System.ComponentModel.ISupportInitialize).EndInit() diff --git a/Controls.LookupGrid/frmLookupGrid.en.resx b/Controls.LookupGrid/frmLookupGrid.en.resx new file mode 100644 index 00000000..f00661ee --- /dev/null +++ b/Controls.LookupGrid/frmLookupGrid.en.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Clear + + + Choose a value: + + \ No newline at end of file diff --git a/Controls.LookupGrid/frmLookupGrid.resx b/Controls.LookupGrid/frmLookupGrid.resx index 1af7de15..4bef9e4c 100644 --- a/Controls.LookupGrid/frmLookupGrid.resx +++ b/Controls.LookupGrid/frmLookupGrid.resx @@ -117,4 +117,178 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + btnOK + + + OK (F2) + + + Panel1 + + + + 0, 0 + + + 0 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 0, 0 + + + + 0 + + + gridLookup + + + 1 + + + $this + + + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + frmLookupGrid + + + + Bottom + + + 0 + + + Leeren + + + 400, 300 + + + 1 + + + + Center + + + 388, 261 + + + + + + $this + + + 0 + + + 117, 23 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 240, 6 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 0 + + + Fill + + + 136, 23 + + + Tile + + + btnClear + + + + + + Top, Left + + + Wählen Sie einen oder mehrere Werte: + + + Panel1 + + + Inherit + + + Top, Right + + + + Default + + + 388, 40 + + + 388, 221 + + + 0, 221 + + + 6, 13 + + + Panel1 + + + + None + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + + + + + + + + viewLookup + + + 12, 6 + + + Wählen Sie einen Wert: + + + 1 + + + True + + + en + \ No newline at end of file diff --git a/Controls.LookupGrid/frmLookupGrid.vb b/Controls.LookupGrid/frmLookupGrid.vb index 0b94b322..9a480d5e 100644 --- a/Controls.LookupGrid/frmLookupGrid.vb +++ b/Controls.LookupGrid/frmLookupGrid.vb @@ -14,6 +14,8 @@ Public Class frmLookupGrid Private _DataSourceTemp As DataTable Private _View As GridView Private _Grid As GridControl + Private _R As Resources.ResourceManager = My.Resources.Strings.ResourceManager + Private Sub frmLookupGrid_Load(sender As Object, e As EventArgs) Handles Me.Load _View = viewLookup @@ -52,11 +54,13 @@ Public Class frmLookupGrid Dim oCheckboxColumn = _View.Columns.Item(0) oCheckboxColumn.Caption = " " oCheckboxColumn.MaxWidth = 10 + My.Resources.ResourceManager.GetString("FormText") + - Text = "Wählen Sie einen oder mehrere Werte:" + Text = _R.GetString("FormText") _DataColumn = 1 Else - Text = "Wählen Sie einen Wert:" + Text = _R.GetString("FormText") _DataColumn = 0 End If