From b655690fb81b4b339f67f33f22743df4441338fe Mon Sep 17 00:00:00 2001 From: lloyddewit Date: Wed, 14 Sep 2022 09:46:34 +0200 Subject: [PATCH] Added Spanish language option --- instat/dlgOptions.vb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/instat/dlgOptions.vb b/instat/dlgOptions.vb index 12ea68659f2..d92348227f2 100644 --- a/instat/dlgOptions.vb +++ b/instat/dlgOptions.vb @@ -84,7 +84,7 @@ Public Class dlgOptions ucrPnlGraphDisplay.AddRadioButton(rdoDisplayinRViewer) ucrPnlGraphDisplay.AddRadioButton(rdoDisplayinSeparateWindows) ucrInputLanguage.SetLinkedDisplayControl(lblLanguage) - ucrInputLanguage.SetItems({"English", "French", "Kiswahili", "Portuguese", "Russian"}) + ucrInputLanguage.SetItems({"English", "French", "Kiswahili", "Portuguese", "Russian", "Spanish"}) ucrInputLanguage.SetDropDownStyleAsNonEditable() SetVisibleLanButton() @@ -129,6 +129,8 @@ Public Class dlgOptions ucrInputLanguage.SetText("Portuguese") Case "ru-RU" ucrInputLanguage.SetText("Russian") + Case "es-ES" + ucrInputLanguage.SetText("Spanish") End Select strPrevLanguageCulture = frmMain.clsInstatOptions.strLanguageCultureCode @@ -275,6 +277,8 @@ Public Class dlgOptions strCurrLanguageCulture = "pt-PT" Case "Russian" strCurrLanguageCulture = "ru-RU" + Case "Spanish" + strCurrLanguageCulture = "es-ES" End Select ApplyEnabled(True) End Sub