jj: Auswahlliste wird geschlossen, wenn Text eingegeben wird

2017-08-09 15:05:14 +02:00 · 2017-08-09 15:05:14 +02:00 · 2252e6f055
commit 2252e6f055
parent 5863a41702
4 changed files with 1046 additions and 1097 deletions
--- a/Global_Indexer/frmIndex.designer.vb
+++ b/Global_Indexer/frmIndex.designer.vb
@ -118,27 +118,25 @@ Partial Class frmIndex
        '
        'SplitContainer1.Panel1
        '
-        resources.ApplyResources(Me.SplitContainer1.Panel1, "SplitContainer1.Panel1")
        Me.SplitContainer1.Panel1.Controls.Add(Me.pnlIndex)
        Me.SplitContainer1.Panel1.Controls.Add(Me.Panel1)
        Me.SplitContainer1.Panel1.Controls.Add(Me.Panel2)
        '
        'SplitContainer1.Panel2
        '
-        resources.ApplyResources(Me.SplitContainer1.Panel2, "SplitContainer1.Panel2")
        Me.SplitContainer1.Panel2.Controls.Add(Me.grpbxMailBody)
        Me.SplitContainer1.Panel2.Controls.Add(Me.grpBetreff)
        Me.SplitContainer1.Panel2.Controls.Add(Me.pnlPDF)
+        Me.SplitContainer1.Panel2Collapsed = True
        '
        'pnlIndex
        '
-        resources.ApplyResources(Me.pnlIndex, "pnlIndex")
        Me.pnlIndex.BackColor = System.Drawing.SystemColors.ControlLight
+        resources.ApplyResources(Me.pnlIndex, "pnlIndex")
        Me.pnlIndex.Name = "pnlIndex"
        '
        'Panel1
        '
-        resources.ApplyResources(Me.Panel1, "Panel1")
        Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight
        Me.Panel1.Controls.Add(Me.CheckBox1)
        Me.Panel1.Controls.Add(Me.Button1)
@ -146,6 +144,7 @@ Partial Class frmIndex
        Me.Panel1.Controls.Add(Me.lblerror)
        Me.Panel1.Controls.Add(Me.cmbDokumentart)
        Me.Panel1.Controls.Add(Me.Label1)
+        resources.ApplyResources(Me.Panel1, "Panel1")
        Me.Panel1.Name = "Panel1"
        '
        'CheckBox1
@ -165,16 +164,16 @@ Partial Class frmIndex
        '
        'ToolStrip1
        '
-        resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
+        resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
        Me.ToolStrip1.Name = "ToolStrip1"
        '
        'ToolStripButton1
        '
-        resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
        Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
        Me.ToolStripButton1.BackColor = System.Drawing.SystemColors.ButtonHighlight
        Me.ToolStripButton1.Image = Global.Global_Indexer.My.Resources.Resources.bullet_arrow_top
+        resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
        Me.ToolStripButton1.Name = "ToolStripButton1"
        '
        'lblerror
@ -197,12 +196,12 @@ Partial Class frmIndex
        '
        'Panel2
        '
-        resources.ApplyResources(Me.Panel2, "Panel2")
        Me.Panel2.Controls.Add(Me.chkMultiIndexer)
        Me.Panel2.Controls.Add(Me.chkdelete_origin)
        Me.Panel2.Controls.Add(Me.Label2)
        Me.Panel2.Controls.Add(Me.txtIndexfilepath)
        Me.Panel2.Controls.Add(Me.btnOK)
+        resources.ApplyResources(Me.Panel2, "Panel2")
        Me.Panel2.Name = "Panel2"
        '
        'chkMultiIndexer
@ -238,9 +237,9 @@ Partial Class frmIndex
        '
        'grpbxMailBody
        '
-        resources.ApplyResources(Me.grpbxMailBody, "grpbxMailBody")
        Me.grpbxMailBody.Controls.Add(Me.WebBrowser)
        Me.grpbxMailBody.Controls.Add(Me.StatusStrip3)
+        resources.ApplyResources(Me.grpbxMailBody, "grpbxMailBody")
        Me.grpbxMailBody.Name = "grpbxMailBody"
        Me.grpbxMailBody.TabStop = False
        '
@ -251,47 +250,47 @@ Partial Class frmIndex
        '
        'StatusStrip3
        '
-        resources.ApplyResources(Me.StatusStrip3, "StatusStrip3")
        Me.StatusStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWebbrowser})
+        resources.ApplyResources(Me.StatusStrip3, "StatusStrip3")
        Me.StatusStrip3.Name = "StatusStrip3"
        '
        'tslblWebbrowser
        '
-        resources.ApplyResources(Me.tslblWebbrowser, "tslblWebbrowser")
        Me.tslblWebbrowser.Name = "tslblWebbrowser"
+        resources.ApplyResources(Me.tslblWebbrowser, "tslblWebbrowser")
        '
        'grpBetreff
        '
-        resources.ApplyResources(Me.grpBetreff, "grpBetreff")
        Me.grpBetreff.Controls.Add(Me.txtBetreff)
+        resources.ApplyResources(Me.grpBetreff, "grpBetreff")
        Me.grpBetreff.Name = "grpBetreff"
        Me.grpBetreff.TabStop = False
        '
        'txtBetreff
        '
-        resources.ApplyResources(Me.txtBetreff, "txtBetreff")
        Me.txtBetreff.BackColor = System.Drawing.SystemColors.Info
+        resources.ApplyResources(Me.txtBetreff, "txtBetreff")
        Me.txtBetreff.Name = "txtBetreff"
        Me.txtBetreff.ReadOnly = True
        '
        'pnlPDF
        '
-        resources.ApplyResources(Me.pnlPDF, "pnlPDF")
        Me.pnlPDF.Controls.Add(Me.PdfViewer1)
        Me.pnlPDF.Controls.Add(Me.StatusStrip2)
        Me.pnlPDF.Controls.Add(Me.RibbonControl1)
+        resources.ApplyResources(Me.pnlPDF, "pnlPDF")
        Me.pnlPDF.Name = "pnlPDF"
        '
        'PdfViewer1
        '
-        resources.ApplyResources(Me.PdfViewer1, "PdfViewer1")
        Me.PdfViewer1.DetachStreamAfterLoadComplete = True
+        resources.ApplyResources(Me.PdfViewer1, "PdfViewer1")
        Me.PdfViewer1.Name = "PdfViewer1"
        '
        'StatusStrip2
        '
-        resources.ApplyResources(Me.StatusStrip2, "StatusStrip2")
        Me.StatusStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.pdfstatuslblPageNumber, Me.ToolStripDropDownButton1})
+        resources.ApplyResources(Me.StatusStrip2, "StatusStrip2")
        Me.StatusStrip2.Name = "StatusStrip2"
        '
        'pdfstatuslblPageNumber
@ -307,9 +306,9 @@ Partial Class frmIndex
        '
        'RibbonControl1
        '
-        resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
        Me.RibbonControl1.ExpandCollapseItem.Id = 0
        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.PdfFileOpenBarItem1, Me.PdfFileSaveAsBarItem1, Me.PdfFilePrintBarItem1, Me.PdfPreviousPageBarItem1, Me.PdfNextPageBarItem1, Me.PdfFindTextBarItem1, Me.PdfZoomOutBarItem1, Me.PdfZoomInBarItem1, Me.PdfExactZoomListBarSubItem1, Me.PdfZoom10CheckItem1, Me.PdfZoom25CheckItem1, Me.PdfZoom50CheckItem1, Me.PdfZoom75CheckItem1, Me.PdfZoom100CheckItem1, Me.PdfZoom125CheckItem1, Me.PdfZoom150CheckItem1, Me.PdfZoom200CheckItem1, Me.PdfZoom400CheckItem1, Me.PdfZoom500CheckItem1, Me.PdfSetActualSizeZoomModeCheckItem1, Me.PdfSetPageLevelZoomModeCheckItem1, Me.PdfSetFitWidthZoomModeCheckItem1, Me.PdfSetFitVisibleZoomModeCheckItem1})
+        resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
        Me.RibbonControl1.MaxItemId = 24
        Me.RibbonControl1.Name = "RibbonControl1"
        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.PdfRibbonPage1})
@ -318,149 +317,122 @@ Partial Class frmIndex
        '
        'PdfFileOpenBarItem1
        '
-        resources.ApplyResources(Me.PdfFileOpenBarItem1, "PdfFileOpenBarItem1")
        Me.PdfFileOpenBarItem1.Id = 1
        Me.PdfFileOpenBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O))
        Me.PdfFileOpenBarItem1.Name = "PdfFileOpenBarItem1"
        '
        'PdfFileSaveAsBarItem1
        '
-        resources.ApplyResources(Me.PdfFileSaveAsBarItem1, "PdfFileSaveAsBarItem1")
        Me.PdfFileSaveAsBarItem1.Id = 2
        Me.PdfFileSaveAsBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S))
        Me.PdfFileSaveAsBarItem1.Name = "PdfFileSaveAsBarItem1"
        '
        'PdfFilePrintBarItem1
        '
-        resources.ApplyResources(Me.PdfFilePrintBarItem1, "PdfFilePrintBarItem1")
        Me.PdfFilePrintBarItem1.Id = 3
        Me.PdfFilePrintBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.P))
        Me.PdfFilePrintBarItem1.Name = "PdfFilePrintBarItem1"
        '
        'PdfPreviousPageBarItem1
        '
-        resources.ApplyResources(Me.PdfPreviousPageBarItem1, "PdfPreviousPageBarItem1")
        Me.PdfPreviousPageBarItem1.Id = 4
        Me.PdfPreviousPageBarItem1.Name = "PdfPreviousPageBarItem1"
        '
        'PdfNextPageBarItem1
        '
-        resources.ApplyResources(Me.PdfNextPageBarItem1, "PdfNextPageBarItem1")
        Me.PdfNextPageBarItem1.Id = 5
        Me.PdfNextPageBarItem1.Name = "PdfNextPageBarItem1"
        '
        'PdfFindTextBarItem1
        '
-        resources.ApplyResources(Me.PdfFindTextBarItem1, "PdfFindTextBarItem1")
        Me.PdfFindTextBarItem1.Id = 6
        Me.PdfFindTextBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F))
        Me.PdfFindTextBarItem1.Name = "PdfFindTextBarItem1"
        '
        'PdfZoomOutBarItem1
        '
-        resources.ApplyResources(Me.PdfZoomOutBarItem1, "PdfZoomOutBarItem1")
        Me.PdfZoomOutBarItem1.Id = 7
        Me.PdfZoomOutBarItem1.Name = "PdfZoomOutBarItem1"
        '
        'PdfZoomInBarItem1
        '
-        resources.ApplyResources(Me.PdfZoomInBarItem1, "PdfZoomInBarItem1")
        Me.PdfZoomInBarItem1.Id = 8
        Me.PdfZoomInBarItem1.Name = "PdfZoomInBarItem1"
        '
        'PdfExactZoomListBarSubItem1
        '
-        resources.ApplyResources(Me.PdfExactZoomListBarSubItem1, "PdfExactZoomListBarSubItem1")
        Me.PdfExactZoomListBarSubItem1.Id = 9
        Me.PdfExactZoomListBarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom10CheckItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom25CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom50CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom75CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom100CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom125CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom150CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom200CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom400CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom500CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetActualSizeZoomModeCheckItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetPageLevelZoomModeCheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitWidthZoomModeCheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitVisibleZoomModeCheckItem1)})
-        Me.PdfExactZoomListBarSubItem1.MenuAppearance.HeaderItemAppearance.FontSizeDelta = CType(resources.GetObject("PdfExactZoomListBarSubItem1.MenuAppearance.HeaderItemAppearance.FontSizeDelta"), Integer)
-        Me.PdfExactZoomListBarSubItem1.MenuAppearance.HeaderItemAppearance.FontStyleDelta = CType(resources.GetObject("PdfExactZoomListBarSubItem1.MenuAppearance.HeaderItemAppearance.FontStyleDelta"), System.Drawing.FontStyle)
-        Me.PdfExactZoomListBarSubItem1.MenuAppearance.HeaderItemAppearance.GradientMode = CType(resources.GetObject("PdfExactZoomListBarSubItem1.MenuAppearance.HeaderItemAppearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
-        Me.PdfExactZoomListBarSubItem1.MenuAppearance.HeaderItemAppearance.Image = CType(resources.GetObject("PdfExactZoomListBarSubItem1.MenuAppearance.HeaderItemAppearance.Image"), System.Drawing.Image)
        Me.PdfExactZoomListBarSubItem1.Name = "PdfExactZoomListBarSubItem1"
        Me.PdfExactZoomListBarSubItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu
        '
        'PdfZoom10CheckItem1
        '
-        resources.ApplyResources(Me.PdfZoom10CheckItem1, "PdfZoom10CheckItem1")
        Me.PdfZoom10CheckItem1.Id = 10
        Me.PdfZoom10CheckItem1.Name = "PdfZoom10CheckItem1"
        '
        'PdfZoom25CheckItem1
        '
-        resources.ApplyResources(Me.PdfZoom25CheckItem1, "PdfZoom25CheckItem1")
        Me.PdfZoom25CheckItem1.Id = 11
        Me.PdfZoom25CheckItem1.Name = "PdfZoom25CheckItem1"
        '
        'PdfZoom50CheckItem1
        '
-        resources.ApplyResources(Me.PdfZoom50CheckItem1, "PdfZoom50CheckItem1")
        Me.PdfZoom50CheckItem1.Id = 12
        Me.PdfZoom50CheckItem1.Name = "PdfZoom50CheckItem1"
        '
        'PdfZoom75CheckItem1
        '
-        resources.ApplyResources(Me.PdfZoom75CheckItem1, "PdfZoom75CheckItem1")
        Me.PdfZoom75CheckItem1.Id = 13
        Me.PdfZoom75CheckItem1.Name = "PdfZoom75CheckItem1"
        '
        'PdfZoom100CheckItem1
        '
-        resources.ApplyResources(Me.PdfZoom100CheckItem1, "PdfZoom100CheckItem1")
        Me.PdfZoom100CheckItem1.Id = 14
        Me.PdfZoom100CheckItem1.Name = "PdfZoom100CheckItem1"
        '
        'PdfZoom125CheckItem1
        '
-        resources.ApplyResources(Me.PdfZoom125CheckItem1, "PdfZoom125CheckItem1")
        Me.PdfZoom125CheckItem1.Id = 15
        Me.PdfZoom125CheckItem1.Name = "PdfZoom125CheckItem1"
        '
        'PdfZoom150CheckItem1
        '
-        resources.ApplyResources(Me.PdfZoom150CheckItem1, "PdfZoom150CheckItem1")
        Me.PdfZoom150CheckItem1.Id = 16
        Me.PdfZoom150CheckItem1.Name = "PdfZoom150CheckItem1"
        '
        'PdfZoom200CheckItem1
        '
-        resources.ApplyResources(Me.PdfZoom200CheckItem1, "PdfZoom200CheckItem1")
        Me.PdfZoom200CheckItem1.Id = 17
        Me.PdfZoom200CheckItem1.Name = "PdfZoom200CheckItem1"
        '
        'PdfZoom400CheckItem1
        '
-        resources.ApplyResources(Me.PdfZoom400CheckItem1, "PdfZoom400CheckItem1")
        Me.PdfZoom400CheckItem1.Id = 18
        Me.PdfZoom400CheckItem1.Name = "PdfZoom400CheckItem1"
        '
        'PdfZoom500CheckItem1
        '
-        resources.ApplyResources(Me.PdfZoom500CheckItem1, "PdfZoom500CheckItem1")
        Me.PdfZoom500CheckItem1.Id = 19
        Me.PdfZoom500CheckItem1.Name = "PdfZoom500CheckItem1"
        '
        'PdfSetActualSizeZoomModeCheckItem1
        '
-        resources.ApplyResources(Me.PdfSetActualSizeZoomModeCheckItem1, "PdfSetActualSizeZoomModeCheckItem1")
        Me.PdfSetActualSizeZoomModeCheckItem1.Id = 20
        Me.PdfSetActualSizeZoomModeCheckItem1.Name = "PdfSetActualSizeZoomModeCheckItem1"
        '
        'PdfSetPageLevelZoomModeCheckItem1
        '
-        resources.ApplyResources(Me.PdfSetPageLevelZoomModeCheckItem1, "PdfSetPageLevelZoomModeCheckItem1")
        Me.PdfSetPageLevelZoomModeCheckItem1.Id = 21
        Me.PdfSetPageLevelZoomModeCheckItem1.Name = "PdfSetPageLevelZoomModeCheckItem1"
        '
        'PdfSetFitWidthZoomModeCheckItem1
        '
-        resources.ApplyResources(Me.PdfSetFitWidthZoomModeCheckItem1, "PdfSetFitWidthZoomModeCheckItem1")
        Me.PdfSetFitWidthZoomModeCheckItem1.Id = 22
        Me.PdfSetFitWidthZoomModeCheckItem1.Name = "PdfSetFitWidthZoomModeCheckItem1"
        '
        'PdfSetFitVisibleZoomModeCheckItem1
        '
-        resources.ApplyResources(Me.PdfSetFitVisibleZoomModeCheckItem1, "PdfSetFitVisibleZoomModeCheckItem1")
        Me.PdfSetFitVisibleZoomModeCheckItem1.Id = 23
        Me.PdfSetFitVisibleZoomModeCheckItem1.Name = "PdfSetFitVisibleZoomModeCheckItem1"
        '
@ -492,19 +464,19 @@ Partial Class frmIndex
        '
        'StatusStrip1
        '
-        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lblhinweis, Me.tslblVorschau})
+        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
        Me.StatusStrip1.Name = "StatusStrip1"
        '
        'lblhinweis
        '
-        resources.ApplyResources(Me.lblhinweis, "lblhinweis")
        Me.lblhinweis.Name = "lblhinweis"
+        resources.ApplyResources(Me.lblhinweis, "lblhinweis")
        '
        'tslblVorschau
        '
-        resources.ApplyResources(Me.tslblVorschau, "tslblVorschau")
        Me.tslblVorschau.Name = "tslblVorschau"
+        resources.ApplyResources(Me.tslblVorschau, "tslblVorschau")
        '
        'MyDataset
        '
--- a/Global_Indexer/frmIndex.en-US.resx
+++ b/Global_Indexer/frmIndex.en-US.resx
@ -166,29 +166,12 @@
  <data name="ToolStripDropDownButton1.Text" xml:space="preserve">
    <value>Pageview Minimal</value>
  </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="PdfExactZoomListBarSubItem1.MenuAppearance.HeaderItemAppearance.FontSizeDelta" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="PdfExactZoomListBarSubItem1.MenuAppearance.HeaderItemAppearance.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
-    <value>Regular</value>
-  </data>
-  <data name="PdfExactZoomListBarSubItem1.MenuAppearance.HeaderItemAppearance.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
-    <value>Horizontal</value>
-  </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="PdfExactZoomListBarSubItem1.MenuAppearance.HeaderItemAppearance.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
-    <value />
-  </data>
  <data name="tslblVorschau.Size" type="System.Drawing.Size, System.Drawing">
    <value>104, 17</value>
  </data>
  <data name="tslblVorschau.Text" xml:space="preserve">
    <value>Preview is enabled</value>
  </data>
-  <data name="$this.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>Inherit</value>
-  </data>
  <data name="$this.Text" xml:space="preserve">
    <value>Indexing Drag 'n Drop File:</value>
  </data>
--- a/Global_Indexer/frmIndex.resx
+++ b/Global_Indexer/frmIndex.resx
--- a/Global_Indexer/frmIndex.vb
+++ b/Global_Indexer/frmIndex.vb
@ -133,8 +133,20 @@ Public Class frmIndex
        AddHandler cmb.SelectedIndexChanged, AddressOf OncmbSIndexChanged
        AddHandler cmb.GotFocus, AddressOf OncmbGotFocus
        AddHandler cmb.LostFocus, AddressOf OncmbLostFocus
+        AddHandler cmb.KeyDown, AddressOf OncmbKeyDown
        Return cmb
    End Function
+
+    '    <STAThread()> _
+    Public Sub OncmbKeyDown(sender As System.Object, e As System.EventArgs)
+        Dim cmb As ComboBox = sender
+
+        ' Verhindert, dass Auswahlliste und Autocompleteliste übereinander liegen
+        If cmb.DroppedDown = True Then
+            cmb.DroppedDown = False
+        End If
+    End Sub
+
    '    <STAThread()> _
    Public Sub OncmbGotFocus(sender As System.Object, e As System.EventArgs)
        Dim cmb As ComboBox = sender