MS Optimizing, CurrentLocal

GUIs.Common/DocumentResultList/frmDocumentResultList.vb

@@ -15,6 +15,8 @@ Imports DigitalData.Modules.EDMI.API.Client
 Imports DevExpress.XtraGrid.Views.Base
 Imports DevExpress.XtraGrid.Views.BandedGrid
 Imports System.ComponentModel
+Imports System.Globalization
+Imports System.Threading
 
 Public Class frmDocumentResultList
     Implements IResultForm
@@ -56,7 +58,20 @@ Public Class frmDocumentResultList
         _Environment = Environment
         _Params = Params
         _ResultLists = Params.Results
-
+        Try
+            Dim Culture = CultureInfo.CreateSpecificCulture(_Environment.User.Language)
+            ' The following line provides localization for the application's user interface.
+            Thread.CurrentThread.CurrentUICulture = Culture
+            ' The following line provides localization for data formats.
+            Thread.CurrentThread.CurrentCulture = Culture
+            ' Set this culture as the default culture for all threads in this application. 
+            ' Note: The following properties are supported in the .NET Framework 4.5+
+            CultureInfo.DefaultThreadCurrentCulture = Culture
+            CultureInfo.DefaultThreadCurrentUICulture = Culture
+            Culture.DateTimeFormat.ShortDatePattern = _Environment.User.DateFormat
+        Catch ex As Exception
+            _Logger.Warn($"Error loading CultureInfo: {ex.Message}")
+        End Try
         MaybeInitIDB()
     End Sub
 
@@ -77,6 +92,8 @@ Public Class frmDocumentResultList
 
     Private Sub frmDocumentResultList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
+
+
             ' Load config
             SplitContainerControl1.SplitterPosition = _Config.Config.SplitContainer1Distance
             SwitchMainContainerHorizontal.Checked = _Config.Config.SplitContainer1Horizontal
@@ -147,6 +164,7 @@ Public Class frmDocumentResultList
     Private Async Function LoadFile_IDB(GridRow As DataRow) As Task
         Try
             Dim oObjectId = GridRow.Item(COLUMN_DOCID)
+            _Logger.Debug($"Gettin' Infor for oObjectId: {oObjectId}")
             _DocumentInfo = Await _IDBClient.GetDocumentInfo(_Environment.User.UserId, oObjectId)
 
             DocumentViewer1.LoadFile(_DocumentInfo.FullPath)