Add DPI Scaling to frmIndex, more logging in ClassFileDrop

Global_Indexer/ClassFileDrop.vb

@@ -93,16 +93,18 @@ Public Class ClassFileDrop
                 End If
             End If
             If e.Data.GetDataPresent("FileGroupDescriptor") Then
-                Dim oApp
+                Dim oApp As Outlook.Application
                 Try
                     oApp = New Outlook.Application()
                 Catch ex As Exception
+                    LOGGER.Error(ex)
                     MsgBox("Unexpected error in Initialisieren von Outlook-API:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Evtl ist Outlook nicht in der dafür vorgesehenen For")
+                    Return False
                 End Try
 
                 LOGGER.Info(">> Drop of msg")
                 'supports a drop of a Outlook message 
-                Dim myobj As Object
+                Dim myobj As Outlook.MailItem
                 For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
                     myobj = oApp.ActiveExplorer.Selection.Item(i)
                     Dim subj As String = myobj.Subject
@@ -127,6 +129,7 @@ Public Class ClassFileDrop
                     Try
                         myobj.SaveAs(strFile)
                     Catch ex As Exception
+                        LOGGER.Error(ex)
                         MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                         Return False
                     End Try

Global_Indexer/Global_Indexer.vbproj

@@ -171,6 +171,9 @@
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
     </Reference>
+    <Reference Include="DigitalData.Modules.Windows">
+      <HintPath>..\..\DDMonorepo\Windows\bin\Debug\DigitalData.Modules.Windows.dll</HintPath>
+    </Reference>
     <Reference Include="DigitalData.Modules.Windream, Version=1.0.0.5, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\DDMonorepo\Modules.Windream\bin\Debug\DigitalData.Modules.Windream.dll</HintPath>

Global_Indexer/frmIndex.vb

@@ -1720,11 +1720,13 @@ Public Class frmIndex
 
     Private Sub LoadIndexe_Man()
         Try
-            Dim oControlCount As Integer = 1
-            Dim oLabelPosition As Integer = 11
-            Dim oControlPosition As Integer = 33
 
-            Dim oControls As New DigitalData.GUIs.GlobalIndexer.ControlCreator(LOGCONFIG, pnlIndex, Me) With {
+            Dim oDpiscale = DigitalData.Modules.Windows.Screen.GetScalingFactor()
+            Dim oControlCount As Integer = 1
+            Dim oLabelPosition As Integer = 11 * oDpiscale
+            Dim oControlPosition As Integer = 33 * oDpiscale
+
+            Dim oControls As New ControlCreator(LOGCONFIG, pnlIndex, Me) With {
                 .OnControlChanged = AddressOf PrepareDependingControl,
                 .OnLookupData = AddressOf GetLookupData
             }
@@ -1811,8 +1813,8 @@ Public Class frmIndex
                 End Select
 
                 oControlCount += 1
-                oLabelPosition += 50
-                oControlPosition += 50
+                oLabelPosition += 50 * oDpiscale
+                oControlPosition += 50 * oDpiscale
                 'make y as height in fom
             Next
             Dim oPanelHeight = oControlPosition - 30

SetupVS19/Product.wxs

@@ -117,6 +117,7 @@
         <File Id="DocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" Source="DigitalData.Controls.DocumentViewer.dll" KeyPath="no" />
         <File Id="LookupGrid" Name="DigitalData.Controls.LookupGrid.dll" Source="DigitalData.Controls.LookupGrid.dll" KeyPath="no" />
         <File Id="Windream" Name="DigitalData.Modules.Windream.dll" Source="DigitalData.Modules.Windream.dll" KeyPath="no" />
+        <File Id="Windows" Name="DigitalData.Modules.Windows.dll" Source="DigitalData.Modules.Windows.dll" KeyPath="no" />
       </Component>
 
       <Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275">