Version 2.3.9.8

Global_Indexer/My Project/AssemblyInfo.vb

@@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")> 
 <Assembly: AssemblyProduct("Global Indexer")>
 <Assembly: AssemblyCopyright("Copyright © 2021")>
-<Assembly: AssemblyTrademark("2397")>
+<Assembly: AssemblyTrademark("2398")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.3.9.7")>
+<Assembly: AssemblyVersion("2.3.9.8")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

Global_Indexer/frmIndex.vb

@@ -1540,6 +1540,7 @@ Public Class frmIndex
             ShowErrorMessage(ex, "Form Open")
         End Try
     End Sub
+
     Sub Load_String()
         Try
             Me.VWDDINDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
@@ -1718,11 +1719,15 @@ Public Class frmIndex
     Private Sub LoadIndexe_Man()
         Try
 
-            Dim oDpiscale = DigitalData.Modules.Windows.Screen.GetScalingFactor()
+            Dim oScreen As New DigitalData.Modules.Windows.Screen()
+            Dim oDpiscale = oScreen.GetScreenScaling(Me)
+
             Dim oControlCount As Integer = 1
             Dim oLabelPosition As Integer = 11 * oDpiscale
             Dim oControlPosition As Integer = 33 * oDpiscale
 
+            _Logger.Info("Loading Indicies for Screen Scaling Factor [{0}]", oDpiscale)
+
             Dim oControls As New ControlCreator(LOGCONFIG, pnlIndex, Me) With {
                 .OnControlChanged = AddressOf PrepareDependingControl,
                 .OnLookupData = AddressOf GetLookupData