add keybinding for profile selector

This commit is contained in:
Jonathan Jenne 2023-12-19 10:12:05 +01:00
parent 75bfd81ad4
commit 64a6cba017
7 changed files with 22 additions and 22 deletions

View File

@ -1,7 +1,7 @@
Imports System.Text.RegularExpressions
Imports DevExpress.XtraEditors
Imports DigitalData.Controls.LookupGrid
Imports DigitalData.Modules.Language
Imports DigitalData.Modules.Base
Imports DigitalData.GUIs.GlobalIndexer
Imports WINDREAMLib
@ -240,7 +240,7 @@ Public Class ClassPatterns
LOGGER.Warn("Lookup Control with [{0}] is not supported!", oFoundType)
End Select
Else
oValue = Utils.NotNull(oLookupControl.Properties.SelectedValues.Item(0), "")
oValue = ObjectEx.NotNull(oLookupControl.Properties.SelectedValues.Item(0), "")
End If
Catch ex As Exception
LOGGER.Error(ex)

View File

@ -178,12 +178,6 @@
<Reference Include="DigitalData.Modules.Database">
<HintPath>..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Filesystem">
<HintPath>..\..\DDModules\Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Language">
<HintPath>..\..\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.License">
<HintPath>..\..\DDModules\License\bin\Debug\DigitalData.Modules.License.dll</HintPath>
</Reference>

View File

@ -97,6 +97,7 @@ Partial Class frmIndex
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewer1)
Me.SplitContainer1.TabStop = False
'
'pnlIndex
'
@ -274,6 +275,7 @@ Partial Class frmIndex
resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1")
Me.DocumentViewer1.FileLoaded = False
Me.DocumentViewer1.Name = "DocumentViewer1"
Me.DocumentViewer1.TabStop = False
'
'BarToggleSwitchItem1
'

View File

@ -139,7 +139,7 @@
<value>636, 433</value>
</data>
<data name="pnlIndex.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
<value>2</value>
</data>
<data name="pnlIndex.Visible" type="System.Boolean, mscorlib">
<value>False</value>
@ -424,7 +424,7 @@
<value>441, 18</value>
</data>
<data name="checkMultiindex.TabIndex" type="System.Int32, mscorlib">
<value>12</value>
<value>3</value>
</data>
<data name="&gt;&gt;checkMultiindex.Name" xml:space="preserve">
<value>checkMultiindex</value>
@ -468,7 +468,7 @@
<value>183, 44</value>
</data>
<data name="btnOK.TabIndex" type="System.Int32, mscorlib">
<value>11</value>
<value>4</value>
</data>
<data name="btnOK.Text" xml:space="preserve">
<value>Datei verarbeiten</value>
@ -565,7 +565,7 @@
<value>636, 30</value>
</data>
<data name="ComboboxDoctype.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
<value>1</value>
</data>
<data name="&gt;&gt;ComboboxDoctype.Name" xml:space="preserve">
<value>ComboboxDoctype</value>
@ -637,7 +637,7 @@
<value>636</value>
</data>
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
<value>0</value>
</data>
<data name="&gt;&gt;SplitContainer1.Name" xml:space="preserve">
<value>SplitContainer1</value>

View File

@ -2927,4 +2927,11 @@ Public Class frmIndex
MsgBox(ex.Message)
End Try
End Sub
Private Sub ComboboxDoctype_KeyUp(sender As Object, e As KeyEventArgs) Handles ComboboxDoctype.KeyUp
If e.KeyCode = Keys.F2 Then
Dim oCombo As SearchLookUpEdit = sender
oCombo.ShowPopup()
End If
End Sub
End Class

View File

@ -606,7 +606,7 @@
<value>True</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>203</value>
<value>90</value>
</metadata>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>294, 161</value>

View File

@ -1,12 +1,9 @@
Imports System.IO
Imports Microsoft.Office.Interop
Imports System.Text
Imports System.Globalization
Imports System.Threading
Imports System.Runtime.InteropServices
Imports DigitalData.Modules.Language
Imports DigitalData.Modules.Windows
Imports DigitalData.Modules.License
Imports DigitalData.Modules.Base
Imports DigitalData.GUIs.Common
Public Class frmStart
@ -250,10 +247,10 @@ Public Class frmStart
End If
End If
For Each Filerow As DataRow In DTACTUAL_FILES.Rows
Dim oFileString As String = Filerow.Item("FILENAME2WORK")
Dim oFileGuid = Filerow.Item("GUID")
Dim oFileHash = Utils.NotNull(Filerow.Item("FILE_HASH"), "")
For Each oRow As DataRow In DTACTUAL_FILES.Rows
Dim oFileString As String = oRow.Item("FILENAME2WORK")
Dim oFileGuid = oRow.Item("GUID")
Dim oFileHash = oRow.ItemEx("FILE_HASH", "")
LOGGER.Info("Processing user file {0}", oFileString)
CURRENT_FILENAME = oFileString