AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add DPI Scaling to frmIndex, more logging in ClassFileDrop

Browse Source
This commit is contained in:
Jonathan Jenne 2021-04-06 17:11:25 +02:00
parent 03159797ab
commit f095914353
4 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Global_Indexer/ClassFileDrop.vb
View File

@ -93,16 +93,18 @@ Public Class ClassFileDrop
End If End If
End If End If
If e.Data.GetDataPresent("FileGroupDescriptor") Then If e.Data.GetDataPresent("FileGroupDescriptor") Then
Dim oApp Dim oApp As Outlook.Application
Try Try
oApp = New Outlook.Application() oApp = New Outlook.Application()
Catch ex As Exception 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") 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 End Try
LOGGER.Info(">> Drop of msg") LOGGER.Info(">> Drop of msg")
'supports a drop of a Outlook message '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 For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
myobj = oApp.ActiveExplorer.Selection.Item(i) myobj = oApp.ActiveExplorer.Selection.Item(i)
Dim subj As String = myobj.Subject Dim subj As String = myobj.Subject
@ -127,6 +129,7 @@ Public Class ClassFileDrop
Try Try
myobj.SaveAs(strFile) myobj.SaveAs(strFile)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False Return False
End Try End Try

3
Global_Indexer/Global_Indexer.vbproj
View File

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

14
Global_Indexer/frmIndex.vb
View File

@ -1720,11 +1720,13 @@ Public Class frmIndex
Private Sub LoadIndexe_Man() Private Sub LoadIndexe_Man()
Try 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, .OnControlChanged = AddressOf PrepareDependingControl,
.OnLookupData = AddressOf GetLookupData .OnLookupData = AddressOf GetLookupData
} }
@ -1811,8 +1813,8 @@ Public Class frmIndex
End Select End Select
oControlCount += 1 oControlCount += 1
oLabelPosition += 50 oLabelPosition += 50 * oDpiscale
oControlPosition += 50 oControlPosition += 50 * oDpiscale
'make y as height in fom 'make y as height in fom
Next Next
Dim oPanelHeight = oControlPosition - 30 Dim oPanelHeight = oControlPosition - 30

1
SetupVS19/Product.wxs
View File

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