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

switch to monorepo for match & result forms

Browse Source
This commit is contained in:
Developer02 Digital Data
2019-10-14 15:15:38 +02:00
parent 8b1cfae8d5
commit 341c719777
26 changed files with 81 additions and 15097 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj
View File

@@ -74,6 +74,9 @@
<Reference Include="DigitalData.GUIs.Common">
<HintPath>..\..\..\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.ClipboardWatcher">
<HintPath>..\..\..\DDMonorepo\GUIs.ClipboardWatcher\bin\Debug\DigitalData.Modules.ClipboardWatcher.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference>
@@ -175,12 +178,6 @@
<Compile Include="frmControlCapture.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmDocViewAbout.designer.vb">
<DependentUpon>frmDocViewAbout.vb</DependentUpon>
</Compile>
<Compile Include="frmDocViewAbout.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAdministration.Designer.vb">
<DependentUpon>frmAdministration.vb</DependentUpon>
</Compile>
@@ -199,18 +196,6 @@
<Compile Include="frmLicense.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmDocView.designer.vb">
<DependentUpon>frmDocView.vb</DependentUpon>
</Compile>
<Compile Include="frmDocView.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmDocViewOpen.designer.vb">
<DependentUpon>frmDocViewOpen.vb</DependentUpon>
</Compile>
<Compile Include="frmDocViewOpen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmLicenseInfo.Designer.vb">
<DependentUpon>frmLicenseInfo.vb</DependentUpon>
</Compile>
@@ -229,12 +214,6 @@
<Compile Include="frmProcessCapture.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmResultSQL.Designer.vb">
<DependentUpon>frmResultSQL.vb</DependentUpon>
</Compile>
<Compile Include="frmResultSQL.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSettings.designer.vb">
<DependentUpon>frmSettings.vb</DependentUpon>
</Compile>
@@ -254,30 +233,12 @@
<Compile Include="frmConfig_Basic.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmProfileMatch.Designer.vb">
<DependentUpon>frmProfileMatch.vb</DependentUpon>
</Compile>
<Compile Include="frmProfileMatch.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmResultDoc.Designer.vb">
<DependentUpon>frmResultDoc.vb</DependentUpon>
</Compile>
<Compile Include="frmResultDoc.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSplash.Designer.vb">
<DependentUpon>frmSplash.vb</DependentUpon>
</Compile>
<Compile Include="frmSplash.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmTreeView.Designer.vb">
<DependentUpon>frmTreeView.vb</DependentUpon>
</Compile>
<Compile Include="frmTreeView.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="IResultForm.vb" />
<Compile Include="modCurrent.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
@@ -316,9 +277,6 @@
<EmbeddedResource Include="frmControlCapture.resx">
<DependentUpon>frmControlCapture.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmDocViewAbout.resx">
<DependentUpon>frmDocViewAbout.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAdministration.resx">
<DependentUpon>frmAdministration.vb</DependentUpon>
<SubType>Designer</SubType>
@@ -332,12 +290,6 @@
<EmbeddedResource Include="frmLicense.resx">
<DependentUpon>frmLicense.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmDocView.resx">
<DependentUpon>frmDocView.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmDocViewOpen.resx">
<DependentUpon>frmDocViewOpen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmLicenseInfo.resx">
<DependentUpon>frmLicenseInfo.vb</DependentUpon>
</EmbeddedResource>
@@ -347,9 +299,6 @@
<EmbeddedResource Include="frmProcessCapture.resx">
<DependentUpon>frmProcessCapture.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmResultSQL.resx">
<DependentUpon>frmResultSQL.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSettings.resx">
<DependentUpon>frmSettings.vb</DependentUpon>
</EmbeddedResource>
@@ -359,18 +308,9 @@
<EmbeddedResource Include="frmConfig_Basic.resx">
<DependentUpon>frmConfig_Basic.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmProfileMatch.resx">
<DependentUpon>frmProfileMatch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmResultDoc.resx">
<DependentUpon>frmResultDoc.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSplash.resx">
<DependentUpon>frmSplash.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmTreeView.resx">
<DependentUpon>frmTreeView.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>

503
app/DD_Clipboard_Searcher/frmDocView.designer.vb generated
View File

@@ -1,503 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmDocView
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocView))
Me.GdViewer1 = New GdPicture14.GdViewer()
Me.statusbar = New System.Windows.Forms.StatusStrip()
Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
Me.mainToolStrip = New System.Windows.Forms.ToolStrip()
Me.btnOpen = New System.Windows.Forms.ToolStripButton()
Me.btnPrint = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.btnFitWidth = New System.Windows.Forms.ToolStripButton()
Me.btnFitPage = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.btnMouseMode = New System.Windows.Forms.ToolStripDropDownButton()
Me.DefaultToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PanToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AreaSelectionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AreaZoomingToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MagnifierToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
Me.btnFirstPage = New System.Windows.Forms.ToolStripButton()
Me.btnPreviousPage = New System.Windows.Forms.ToolStripButton()
Me.tbCurrentPage = New System.Windows.Forms.ToolStripTextBox()
Me.lblPageCount = New System.Windows.Forms.ToolStripLabel()
Me.btnNextPage = New System.Windows.Forms.ToolStripButton()
Me.btnLastPage = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.btnZoomOut = New System.Windows.Forms.ToolStripButton()
Me.cbZoom = New System.Windows.Forms.ToolStripComboBox()
Me.btnZoomIn = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.btnRotateLeft = New System.Windows.Forms.ToolStripButton()
Me.btnRotateRight = New System.Windows.Forms.ToolStripButton()
Me.btnFlipX = New System.Windows.Forms.ToolStripButton()
Me.btnFlipY = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.btnSettings = New System.Windows.Forms.ToolStripButton()
Me.btnAbout = New System.Windows.Forms.ToolStripButton()
Me.pMain = New System.Windows.Forms.Panel()
Me.statusbar.SuspendLayout()
Me.mainToolStrip.SuspendLayout()
Me.pMain.SuspendLayout()
Me.SuspendLayout()
'
'GdViewer1
'
Me.GdViewer1.AllowDropFile = False
Me.GdViewer1.AnimateGIF = True
Me.GdViewer1.AnnotationDropShadow = False
Me.GdViewer1.AnnotationResizeRotateHandlesColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(128, Byte), Integer))
Me.GdViewer1.AnnotationResizeRotateHandlesScale = 1.0!
Me.GdViewer1.AnnotationSelectionLineColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GdViewer1.AutoScrollMargin = New System.Drawing.Size(0, 0)
Me.GdViewer1.AutoScrollMinSize = New System.Drawing.Size(0, 0)
Me.GdViewer1.BackColor = System.Drawing.SystemColors.AppWorkspace
Me.GdViewer1.BackgroundImage = Nothing
Me.GdViewer1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.GdViewer1.ContinuousViewMode = True
Me.GdViewer1.Cursor = System.Windows.Forms.Cursors.Default
Me.GdViewer1.DisplayQuality = GdPicture14.DisplayQuality.DisplayQualityAutomatic
Me.GdViewer1.DisplayQualityAuto = True
Me.GdViewer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GdViewer1.DocumentAlignment = GdPicture14.ViewerDocumentAlignment.DocumentAlignmentMiddleCenter
Me.GdViewer1.DocumentPosition = GdPicture14.ViewerDocumentPosition.DocumentPositionMiddleCenter
Me.GdViewer1.DrawPageBorders = True
Me.GdViewer1.EnableDeferredPainting = True
Me.GdViewer1.EnabledProgressBar = True
Me.GdViewer1.EnableICM = False
Me.GdViewer1.EnableMenu = True
Me.GdViewer1.EnableMouseWheel = True
Me.GdViewer1.EnableTextSelection = True
Me.GdViewer1.ForceScrollBars = False
Me.GdViewer1.ForceTemporaryMode = False
Me.GdViewer1.ForeColor = System.Drawing.Color.Black
Me.GdViewer1.Gamma = 1.0!
Me.GdViewer1.HQAnnotationRendering = True
Me.GdViewer1.IgnoreDocumentResolution = False
Me.GdViewer1.KeepDocumentPosition = False
Me.GdViewer1.Location = New System.Drawing.Point(0, 0)
Me.GdViewer1.LockViewer = False
Me.GdViewer1.MagnifierHeight = 90
Me.GdViewer1.MagnifierWidth = 160
Me.GdViewer1.MagnifierZoomX = 2.0!
Me.GdViewer1.MagnifierZoomY = 2.0!
Me.GdViewer1.MouseButtonForMouseMode = GdPicture14.MouseButton.MouseButtonLeft
Me.GdViewer1.MouseMode = GdPicture14.ViewerMouseMode.MouseModePan
Me.GdViewer1.MouseWheelMode = GdPicture14.ViewerMouseWheelMode.MouseWheelModeZoom
Me.GdViewer1.Name = "GdViewer1"
Me.GdViewer1.PageBordersColor = System.Drawing.Color.Black
Me.GdViewer1.PageBordersPenSize = 1
Me.GdViewer1.PageDisplayMode = GdPicture14.PageDisplayMode.MultiplePagesView
Me.GdViewer1.PdfDisplayFormField = True
Me.GdViewer1.PdfEnableFileLinks = True
Me.GdViewer1.PdfEnableLinks = True
Me.GdViewer1.PdfIncreaseTextContrast = False
Me.GdViewer1.PdfRasterizerEngine = GdPicture14.PdfRasterizerEngine.PdfRasterizerEngineHybrid
Me.GdViewer1.PdfShowDialogForPassword = True
Me.GdViewer1.PdfShowOpenFileDialogForDecryption = True
Me.GdViewer1.PdfVerifyDigitalCertificates = False
Me.GdViewer1.RectBorderColor = System.Drawing.Color.Black
Me.GdViewer1.RectBorderSize = 1
Me.GdViewer1.RectIsEditable = True
Me.GdViewer1.RegionsAreEditable = True
Me.GdViewer1.RenderGdPictureAnnots = True
Me.GdViewer1.ScrollBars = True
Me.GdViewer1.ScrollLargeChange = CType(50, Short)
Me.GdViewer1.ScrollSmallChange = CType(1, Short)
Me.GdViewer1.SilentMode = True
Me.GdViewer1.Size = New System.Drawing.Size(1264, 676)
Me.GdViewer1.TabIndex = 0
Me.GdViewer1.ViewRotation = System.Drawing.RotateFlipType.RotateNoneFlipNone
Me.GdViewer1.Zoom = 0R
Me.GdViewer1.ZoomCenterAtMousePosition = False
Me.GdViewer1.ZoomMode = GdPicture14.ViewerZoomMode.ZoomModeFitToViewer
Me.GdViewer1.ZoomStep = 25
'
'statusbar
'
Me.statusbar.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1, Me.ToolStripStatusLabel2})
Me.statusbar.Location = New System.Drawing.Point(0, 707)
Me.statusbar.Name = "statusbar"
Me.statusbar.Size = New System.Drawing.Size(1264, 22)
Me.statusbar.TabIndex = 3
Me.statusbar.Text = "StatusStrip1"
'
'ToolStripStatusLabel1
'
Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(0, 17)
'
'ToolStripStatusLabel2
'
Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(0, 17)
'
'mainToolStrip
'
Me.mainToolStrip.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.mainToolStrip.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.mainToolStrip.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.mainToolStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnOpen, Me.btnPrint, Me.ToolStripSeparator3, Me.btnFitWidth, Me.btnFitPage, Me.ToolStripSeparator2, Me.btnMouseMode, Me.ToolStripSeparator6, Me.btnFirstPage, Me.btnPreviousPage, Me.tbCurrentPage, Me.lblPageCount, Me.btnNextPage, Me.btnLastPage, Me.ToolStripSeparator1, Me.btnZoomOut, Me.cbZoom, Me.btnZoomIn, Me.ToolStripSeparator5, Me.btnRotateLeft, Me.btnRotateRight, Me.btnFlipX, Me.btnFlipY, Me.ToolStripSeparator4, Me.btnSettings, Me.btnAbout})
Me.mainToolStrip.Location = New System.Drawing.Point(0, 0)
Me.mainToolStrip.Name = "mainToolStrip"
Me.mainToolStrip.Size = New System.Drawing.Size(1264, 31)
Me.mainToolStrip.TabIndex = 5
Me.mainToolStrip.Text = "ToolStrip1"
'
'btnOpen
'
Me.btnOpen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnOpen.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnOpen.Image = CType(resources.GetObject("btnOpen.Image"), System.Drawing.Image)
Me.btnOpen.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnOpen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnOpen.Margin = New System.Windows.Forms.Padding(10, 1, 0, 2)
Me.btnOpen.Name = "btnOpen"
Me.btnOpen.Size = New System.Drawing.Size(28, 28)
Me.btnOpen.Text = "Open document"
'
'btnPrint
'
Me.btnPrint.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnPrint.Image = CType(resources.GetObject("btnPrint.Image"), System.Drawing.Image)
Me.btnPrint.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnPrint.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnPrint.Name = "btnPrint"
Me.btnPrint.Size = New System.Drawing.Size(28, 28)
Me.btnPrint.Text = "Print document"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Margin = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 31)
'
'btnFitWidth
'
Me.btnFitWidth.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnFitWidth.Image = CType(resources.GetObject("btnFitWidth.Image"), System.Drawing.Image)
Me.btnFitWidth.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnFitWidth.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnFitWidth.Name = "btnFitWidth"
Me.btnFitWidth.Size = New System.Drawing.Size(28, 28)
Me.btnFitWidth.Text = "Adjust to page width"
'
'btnFitPage
'
Me.btnFitPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnFitPage.Image = CType(resources.GetObject("btnFitPage.Image"), System.Drawing.Image)
Me.btnFitPage.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnFitPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnFitPage.Name = "btnFitPage"
Me.btnFitPage.Size = New System.Drawing.Size(28, 28)
Me.btnFitPage.Text = "Adjust to whole page"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Margin = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 31)
'
'btnMouseMode
'
Me.btnMouseMode.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnMouseMode.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DefaultToolStripMenuItem, Me.PanToolStripMenuItem, Me.AreaSelectionToolStripMenuItem, Me.AreaZoomingToolStripMenuItem, Me.MagnifierToolStripMenuItem})
Me.btnMouseMode.Image = CType(resources.GetObject("btnMouseMode.Image"), System.Drawing.Image)
Me.btnMouseMode.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnMouseMode.Name = "btnMouseMode"
Me.btnMouseMode.Size = New System.Drawing.Size(37, 28)
Me.btnMouseMode.Text = "Mouse mode"
'
'DefaultToolStripMenuItem
'
Me.DefaultToolStripMenuItem.CheckOnClick = True
Me.DefaultToolStripMenuItem.Name = "DefaultToolStripMenuItem"
Me.DefaultToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.DefaultToolStripMenuItem.Text = "Default"
'
'PanToolStripMenuItem
'
Me.PanToolStripMenuItem.Checked = True
Me.PanToolStripMenuItem.CheckOnClick = True
Me.PanToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked
Me.PanToolStripMenuItem.Name = "PanToolStripMenuItem"
Me.PanToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.PanToolStripMenuItem.Text = "Pan"
'
'AreaSelectionToolStripMenuItem
'
Me.AreaSelectionToolStripMenuItem.CheckOnClick = True
Me.AreaSelectionToolStripMenuItem.Name = "AreaSelectionToolStripMenuItem"
Me.AreaSelectionToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.AreaSelectionToolStripMenuItem.Text = "Area selection"
'
'AreaZoomingToolStripMenuItem
'
Me.AreaZoomingToolStripMenuItem.CheckOnClick = True
Me.AreaZoomingToolStripMenuItem.Name = "AreaZoomingToolStripMenuItem"
Me.AreaZoomingToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.AreaZoomingToolStripMenuItem.Text = "Area zooming"
'
'MagnifierToolStripMenuItem
'
Me.MagnifierToolStripMenuItem.CheckOnClick = True
Me.MagnifierToolStripMenuItem.Name = "MagnifierToolStripMenuItem"
Me.MagnifierToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.MagnifierToolStripMenuItem.Text = "Magnifier"
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Margin = New System.Windows.Forms.Padding(5, 0, 10, 0)
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(6, 31)
'
'btnFirstPage
'
Me.btnFirstPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnFirstPage.Image = CType(resources.GetObject("btnFirstPage.Image"), System.Drawing.Image)
Me.btnFirstPage.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnFirstPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnFirstPage.Name = "btnFirstPage"
Me.btnFirstPage.Size = New System.Drawing.Size(28, 28)
Me.btnFirstPage.Text = "Go to first page"
'
'btnPreviousPage
'
Me.btnPreviousPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnPreviousPage.Image = CType(resources.GetObject("btnPreviousPage.Image"), System.Drawing.Image)
Me.btnPreviousPage.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnPreviousPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnPreviousPage.Name = "btnPreviousPage"
Me.btnPreviousPage.Size = New System.Drawing.Size(28, 28)
Me.btnPreviousPage.Text = "Go to previous page"
'
'tbCurrentPage
'
Me.tbCurrentPage.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tbCurrentPage.Name = "tbCurrentPage"
Me.tbCurrentPage.Size = New System.Drawing.Size(40, 31)
Me.tbCurrentPage.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'lblPageCount
'
Me.lblPageCount.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblPageCount.Name = "lblPageCount"
Me.lblPageCount.Size = New System.Drawing.Size(25, 28)
Me.lblPageCount.Text = "/ X"
'
'btnNextPage
'
Me.btnNextPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnNextPage.Image = CType(resources.GetObject("btnNextPage.Image"), System.Drawing.Image)
Me.btnNextPage.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnNextPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnNextPage.Name = "btnNextPage"
Me.btnNextPage.Size = New System.Drawing.Size(28, 28)
Me.btnNextPage.Text = "Go to next page"
'
'btnLastPage
'
Me.btnLastPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnLastPage.Image = CType(resources.GetObject("btnLastPage.Image"), System.Drawing.Image)
Me.btnLastPage.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnLastPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnLastPage.Name = "btnLastPage"
Me.btnLastPage.Size = New System.Drawing.Size(28, 28)
Me.btnLastPage.Text = "Go to last page"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Margin = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 31)
'
'btnZoomOut
'
Me.btnZoomOut.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnZoomOut.Image = CType(resources.GetObject("btnZoomOut.Image"), System.Drawing.Image)
Me.btnZoomOut.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnZoomOut.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnZoomOut.Name = "btnZoomOut"
Me.btnZoomOut.Size = New System.Drawing.Size(28, 28)
Me.btnZoomOut.Text = "Zoom out"
'
'cbZoom
'
Me.cbZoom.DropDownWidth = 200
Me.cbZoom.Name = "cbZoom"
Me.cbZoom.Size = New System.Drawing.Size(75, 31)
'
'btnZoomIn
'
Me.btnZoomIn.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnZoomIn.Image = CType(resources.GetObject("btnZoomIn.Image"), System.Drawing.Image)
Me.btnZoomIn.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnZoomIn.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnZoomIn.Name = "btnZoomIn"
Me.btnZoomIn.Size = New System.Drawing.Size(28, 28)
Me.btnZoomIn.Text = "Zoom In"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Margin = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 31)
'
'btnRotateLeft
'
Me.btnRotateLeft.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnRotateLeft.Image = CType(resources.GetObject("btnRotateLeft.Image"), System.Drawing.Image)
Me.btnRotateLeft.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnRotateLeft.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnRotateLeft.Name = "btnRotateLeft"
Me.btnRotateLeft.Size = New System.Drawing.Size(28, 28)
Me.btnRotateLeft.Text = "Rotate left"
'
'btnRotateRight
'
Me.btnRotateRight.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnRotateRight.Image = CType(resources.GetObject("btnRotateRight.Image"), System.Drawing.Image)
Me.btnRotateRight.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnRotateRight.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnRotateRight.Name = "btnRotateRight"
Me.btnRotateRight.Size = New System.Drawing.Size(28, 28)
Me.btnRotateRight.Text = "Rotate right"
'
'btnFlipX
'
Me.btnFlipX.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnFlipX.Image = CType(resources.GetObject("btnFlipX.Image"), System.Drawing.Image)
Me.btnFlipX.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnFlipX.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnFlipX.Name = "btnFlipX"
Me.btnFlipX.Size = New System.Drawing.Size(28, 28)
Me.btnFlipX.Text = "Vertical flip"
'
'btnFlipY
'
Me.btnFlipY.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnFlipY.Image = CType(resources.GetObject("btnFlipY.Image"), System.Drawing.Image)
Me.btnFlipY.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnFlipY.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnFlipY.Name = "btnFlipY"
Me.btnFlipY.Size = New System.Drawing.Size(28, 28)
Me.btnFlipY.Text = "Horizontal flip"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Margin = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 31)
'
'btnSettings
'
Me.btnSettings.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnSettings.Image = CType(resources.GetObject("btnSettings.Image"), System.Drawing.Image)
Me.btnSettings.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnSettings.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnSettings.Name = "btnSettings"
Me.btnSettings.Size = New System.Drawing.Size(28, 28)
Me.btnSettings.Text = "Viewer settings"
'
'btnAbout
'
Me.btnAbout.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnAbout.Image = CType(resources.GetObject("btnAbout.Image"), System.Drawing.Image)
Me.btnAbout.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnAbout.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnAbout.Name = "btnAbout"
Me.btnAbout.Size = New System.Drawing.Size(28, 28)
Me.btnAbout.Text = "About"
'
'pMain
'
Me.pMain.Controls.Add(Me.GdViewer1)
Me.pMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.pMain.Location = New System.Drawing.Point(0, 31)
Me.pMain.Name = "pMain"
Me.pMain.Size = New System.Drawing.Size(1264, 676)
Me.pMain.TabIndex = 6
'
'frmDocView
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1264, 729)
Me.Controls.Add(Me.pMain)
Me.Controls.Add(Me.mainToolStrip)
Me.Controls.Add(Me.statusbar)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmDocView"
Me.Text = "Document Viewer"
Me.statusbar.ResumeLayout(False)
Me.statusbar.PerformLayout()
Me.mainToolStrip.ResumeLayout(False)
Me.mainToolStrip.PerformLayout()
Me.pMain.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents GdViewer1 As GdPicture14.GdViewer
Friend WithEvents statusbar As System.Windows.Forms.StatusStrip
Friend WithEvents mainToolStrip As System.Windows.Forms.ToolStrip
Friend WithEvents pMain As System.Windows.Forms.Panel
Friend WithEvents btnOpen As System.Windows.Forms.ToolStripButton
Friend WithEvents btnPrint As System.Windows.Forms.ToolStripButton
Friend WithEvents btnAbout As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents btnFirstPage As System.Windows.Forms.ToolStripButton
Friend WithEvents btnPreviousPage As System.Windows.Forms.ToolStripButton
Friend WithEvents tbCurrentPage As System.Windows.Forms.ToolStripTextBox
Friend WithEvents lblPageCount As System.Windows.Forms.ToolStripLabel
Friend WithEvents btnNextPage As System.Windows.Forms.ToolStripButton
Friend WithEvents btnLastPage As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents btnZoomOut As System.Windows.Forms.ToolStripButton
Friend WithEvents cbZoom As System.Windows.Forms.ToolStripComboBox
Friend WithEvents btnZoomIn As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents btnRotateLeft As System.Windows.Forms.ToolStripButton
Friend WithEvents btnRotateRight As System.Windows.Forms.ToolStripButton
Friend WithEvents btnFlipX As System.Windows.Forms.ToolStripButton
Friend WithEvents btnFlipY As System.Windows.Forms.ToolStripButton
Friend WithEvents btnSettings As System.Windows.Forms.ToolStripButton
Friend WithEvents btnFitWidth As System.Windows.Forms.ToolStripButton
Friend WithEvents btnFitPage As System.Windows.Forms.ToolStripButton
Friend WithEvents btnMouseMode As System.Windows.Forms.ToolStripDropDownButton
Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents DefaultToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents AreaSelectionToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents PanToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents AreaZoomingToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents MagnifierToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
End Class

3369
app/DD_Clipboard_Searcher/frmDocView.resx
View File

File diff suppressed because it is too large Load Diff

479
app/DD_Clipboard_Searcher/frmDocView.vb
View File

@@ -1,479 +0,0 @@
Option Strict On
Option Explicit On
Imports GdPicture14
Imports System.Globalization
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.ComponentModel
Public Class frmDocView
Private Enum ZoomMode
Zoom50
Zoom100
Zoom150
Zoom200
ZoomSelectedArea
ZoomFitToViewer
ZoomFitWidth
ZoomFitHeight
End Enum
Private _docPath As String
Private _currentSearchOccurence As Integer = 0
Private _toggleGamma As Boolean = True
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As EventArgs) Handles MyBase.Load
Try
If GDPICTURE_LICENSE = String.Empty Then
Logger.Warn("GD Picture Missing! Please add a license to the Database!")
MsgBox($"Lizenz für den Dokumenten Viewer wurde nicht konfiguriert.{vbNewLine}Bitte wenden Sie sich an Digital Data!", MsgBoxStyle.Exclamation, "Clipboard Watcher")
Me.Close()
End If
Dim oLicenceManager As New GdPicture14.LicenseManager()
oLicenceManager.RegisterKEY(GDPICTURE_LICENSE) 'Please, replace XXXX by a valid demo or commercial license key.
Dim zoomModes As New Dictionary(Of ZoomMode, String) From {
{ZoomMode.Zoom50, "50%"},
{ZoomMode.Zoom100, "100%"},
{ZoomMode.Zoom150, "150%"},
{ZoomMode.Zoom200, "200%"},
{ZoomMode.ZoomSelectedArea, "Zoom to selected area"},
{ZoomMode.ZoomFitToViewer, "Fit to viewer"},
{ZoomMode.ZoomFitWidth, "Fit to viewer width"},
{ZoomMode.ZoomFitHeight, "Fit to viewer height"}
}
For Each item In zoomModes
cbZoom.Items.Add(item.Value)
Next
Dim imageListSearchResults As New ImageList
imageListSearchResults.ImageSize = New Size(20, 20)
imageListSearchResults.Images.Add(CType(My.Resources.ResourceManager.GetObject("search"), Image))
UpdateMainUi()
If Not ConfigManager.Config.ViewerWindowLocation.IsEmpty Then
Location = ConfigManager.Config.ViewerWindowLocation
End If
If Not ConfigManager.Config.ViewerWindowSize.IsEmpty Then
Size = ConfigManager.Config.ViewerWindowSize
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Public Sub Load_File_from_Path(filepath As String)
CloseDocument()
_docPath = filepath
ToolStripStatusLabel2.Text = _docPath
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
GdViewer1.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
GdViewer1.DisplayFromFile(filepath)
GdViewer1.Focus()
UpdateMainUi()
End Sub
Private Sub UpdateMainUi()
If GdViewer1.PageCount = 0 Then
btnOpen.Enabled = True
btnPrint.Enabled = False
btnFirstPage.Enabled = False
btnPreviousPage.Enabled = False
tbCurrentPage.Enabled = False
lblPageCount.Enabled = False
btnNextPage.Enabled = False
btnLastPage.Enabled = False
btnZoomOut.Enabled = False
cbZoom.Enabled = False
btnZoomIn.Enabled = False
btnFitPage.Enabled = False
btnFitWidth.Enabled = False
btnRotateLeft.Enabled = False
btnRotateRight.Enabled = False
btnFlipX.Enabled = False
btnFlipY.Enabled = False
tbCurrentPage.Text = "0"
lblPageCount.Text = "/ 0"
cbZoom.SelectedIndex = -1
Else
btnOpen.Enabled = False
btnPrint.Enabled = True
btnFirstPage.Enabled = True
btnPreviousPage.Enabled = True
tbCurrentPage.Enabled = True
lblPageCount.Enabled = True
btnNextPage.Enabled = True
btnLastPage.Enabled = True
btnZoomOut.Enabled = True
cbZoom.Enabled = True
btnZoomIn.Enabled = True
btnFitPage.Enabled = True
btnFitWidth.Enabled = True
btnRotateLeft.Enabled = True
btnRotateRight.Enabled = True
btnFlipX.Enabled = True
btnFlipY.Enabled = True
UpdateaNavigationToolbar()
End If
End Sub
Private Sub UpdateaNavigationToolbar()
Dim currentPage As Integer = GdViewer1.CurrentPage()
tbCurrentPage.Text = currentPage.ToString()
lblPageCount.Text = "/ " & GdViewer1.PageCount.ToString()
If currentPage = 1 Then
btnFirstPage.Enabled = False
btnPreviousPage.Enabled = False
Else
btnFirstPage.Enabled = True
btnPreviousPage.Enabled = True
End If
If currentPage = GdViewer1.PageCount Then
btnNextPage.Enabled = False
btnLastPage.Enabled = False
Else
btnNextPage.Enabled = True
btnLastPage.Enabled = True
End If
cbZoom.Text = String.Format(CultureInfo.InvariantCulture, "{0:#0.##%}", GdViewer1.Zoom)
Dim widthInches, heightInches As Double
If GdViewer1.GetDocumentType = DocumentType.DocumentTypePDF Then
widthInches = GdViewer1.PdfGetPageWidth / 72
heightInches = GdViewer1.PdfGetPageHeight / 72
Else
widthInches = GdViewer1.PageWidth / GdViewer1.HorizontalResolution
heightInches = GdViewer1.PageHeight / GdViewer1.VerticalResolution
End If
Me.ToolStripStatusLabel1.Text = "Typ: " + GetDocumentTypeLabel() + " - " +
"Seitengröße (zoll): " + Trim(Str(Math.Round(widthInches, 2))) + " × " + Trim(Str(Math.Round(heightInches, 2))) + " - " +
"Seitengröße (pixel): " + Trim(Str(GdViewer1.PageWidth)) + " × " + Trim(Str(GdViewer1.PageHeight)) + " - " +
"Horizontale Auflösung: " + Trim(Str(Math.Round(GdViewer1.HorizontalResolution, 2))) + " DPI - " +
"Vertikale Auflösung: " + Trim(Str(Math.Round(GdViewer1.VerticalResolution, 2))) + " DPI"
End Sub
Private Function GetDocumentTypeLabel() As String
Dim result As String = ""
Select Case GdViewer1.GetDocumentType()
Case DocumentType.DocumentTypeBitmap
result = "Bilddatei"
Case DocumentType.DocumentTypeMetaFile
result = "Metafile"
Case DocumentType.DocumentTypePDF
result = "PDF"
Case DocumentType.DocumentTypeSVG
result = "SVG"
Case DocumentType.DocumentTypeTXT
result = "Textdatei"
Case DocumentType.DocumentTypeUnknown
result = "Unbekannt"
End Select
Return result
End Function
Private Sub CloseDocument()
GdViewer1.CloseDocument()
UpdateMainUi()
End Sub
Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnOpen.Click
CloseDocument()
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
GdViewer1.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
Using frmOpen As New frmDocViewOpen(GdViewer1)
frmOpen.ShowDialog(Me)
End Using
GdViewer1.Focus()
UpdateMainUi()
End Sub
Private Sub btnFirstPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFirstPage.Click
GdViewer1.DisplayFirstPage()
End Sub
Private Sub btnPreviousPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnPreviousPage.Click
GdViewer1.DisplayPreviousPage()
End Sub
Private Sub btnNextPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnNextPage.Click
GdViewer1.DisplayNextPage()
End Sub
Private Sub btnLastPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnLastPage.Click
GdViewer1.DisplayLastPage()
End Sub
Private Sub tbCurrentPage_Leave(ByVal sender As System.Object, ByVal e As EventArgs) Handles tbCurrentPage.Leave
Dim page As Integer = 0
If Integer.TryParse(tbCurrentPage.Text, page) Then
If page > 0 And page <= GdViewer1.PageCount Then
GdViewer1.DisplayPage(page)
UpdateaNavigationToolbar()
End If
End If
End Sub
Private Sub GdViewer1_PageChanged() Handles GdViewer1.PageChanged
UpdateaNavigationToolbar()
End Sub
Private Sub ChangeZoomValue()
If cbZoom.SelectedIndex <> -1 Then
Select Case CType(cbZoom.SelectedIndex, ZoomMode)
Case ZoomMode.Zoom50
GdViewer1.Zoom = 50.0F / 100
Case ZoomMode.Zoom100
GdViewer1.Zoom = 100.0F / 100
Case ZoomMode.Zoom150
GdViewer1.Zoom = 150.0F / 100
Case ZoomMode.Zoom200
GdViewer1.Zoom = 250.0F / 100
Case ZoomMode.ZoomSelectedArea
If GdViewer1.IsRect() Then
GdViewer1.ZoomRect()
Else
GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaSelection
GdViewer1.Focus()
End If
Case ZoomMode.ZoomFitToViewer
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer
Case ZoomMode.ZoomFitWidth
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
Case ZoomMode.ZoomFitHeight
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeHeightViewer
End Select
Else
If (IsNumeric(Regex.Replace(cbZoom.Text, "[^0-9,.]", ""))) Then
GdViewer1.Zoom = Val(Regex.Replace(cbZoom.Text, "[^0-9,.]", "")) / 100
End If
End If
UpdateaNavigationToolbar()
End Sub
Private Sub cbZoom_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles cbZoom.SelectedIndexChanged
ChangeZoomValue()
End Sub
Private Sub GdViewer1_AfterZoomChange() Handles GdViewer1.AfterZoomChange
UpdateaNavigationToolbar()
If GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaZooming Then
GdViewer1.MouseMode = ViewerMouseMode.MouseModePan
End If
End Sub
Private Sub btnZoomOut_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnZoomOut.Click
GdViewer1.ZoomOUT()
End Sub
Private Sub btnZoomIn_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnZoomIn.Click
GdViewer1.ZoomIN()
End Sub
Private Sub cbZoom_TextUpdate(ByVal sender As System.Object, ByVal e As EventArgs) Handles cbZoom.Validating
ChangeZoomValue()
End Sub
Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnAbout.Click
Using frmAbout As New frmDocViewAbout()
frmAbout.ShowDialog(Me)
End Using
End Sub
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnPrint.Click
If GdViewer1.PageCount = 0 Then
Return
End If
Using f As New frmPrint(GdViewer1)
f.ShowDialog(Me)
If f.DialogResult <> DialogResult.OK Then
Return
End If
Dim printSettings As frmPrint.PrintSettings = f.printConfiguration
If Not GdViewer1.PrintSetActivePrinter(printSettings.Printer) Then
Return
End If
GdViewer1.PrintSetDocumentName("GdPicture Print Job " + DateTime.Now.ToString("yyyy-MM-dd HH\mm"))
GdViewer1.PrintSetAlignment(printSettings.PrintAlignment)
Select Case printSettings.Orientation
Case frmPrint.PrintOrientation.AutoDetection
GdViewer1.PrintSetAutoRotation(True)
Exit Select
Case frmPrint.PrintOrientation.Portrait
GdViewer1.PrintSetAutoRotation(False)
GdViewer1.PrintSetOrientation(PrinterOrientation.PrinterOrientationPortrait)
Exit Select
Case frmPrint.PrintOrientation.Paysage
GdViewer1.PrintSetAutoRotation(False)
GdViewer1.PrintSetOrientation(PrinterOrientation.PrinterOrientationLandscape)
Exit Select
End Select
GdViewer1.PrintSetCopies(printSettings.Copies)
If printSettings.Copies > 1 Then
GdViewer1.PrintSetCollate(printSettings.Collate)
End If
Select Case printSettings.PagesToPrint
Case frmPrint.PagesToPrint.All
GdViewer1.PrintSetFromToPage(1, GdViewer1.PageCount)
GdViewer1.Print(printSettings.PrintSize)
Exit Select
Case frmPrint.PagesToPrint.Current
GdViewer1.PrintSetFromToPage(GdViewer1.CurrentPage, GdViewer1.CurrentPage)
GdViewer1.Print(printSettings.PrintSize)
Exit Select
Case frmPrint.PagesToPrint.Range
If printSettings.PageRange IsNot Nothing And printSettings.PageRange <> String.Empty Then
If printSettings.PageRange.Contains("-") Then
Dim pageStart As Integer = 0
If Integer.TryParse(printSettings.PageRange.Split("-"c)(0), pageStart) Then
Dim pageEnd As Integer = 0
If Integer.TryParse(printSettings.PageRange.Split("-"c)(1), pageEnd) Then
If pageEnd < pageStart Then
GdViewer1.PrintSetFromToPage(pageEnd, pageStart)
GdViewer1.Print(printSettings.PrintSize)
Else
GdViewer1.PrintSetFromToPage(pageStart, pageEnd)
GdViewer1.Print(printSettings.PrintSize)
End If
Else
MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End If
Else
MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End If
Else
Dim page As Integer = 0
If Integer.TryParse(printSettings.PageRange, page) Then
GdViewer1.PrintSetFromToPage(page, page)
GdViewer1.Print(printSettings.PrintSize)
Else
MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End If
End If
Else
MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End If
Exit Select
End Select
End Using
End Sub
Private Sub btnRotateLeft_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnRotateLeft.Click
GdViewer1.Rotate(RotateFlipType.Rotate270FlipNone)
End Sub
Private Sub btnRotateRight_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnRotateRight.Click
GdViewer1.Rotate(RotateFlipType.Rotate90FlipNone)
End Sub
Private Sub btnFlipX_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFlipX.Click
GdViewer1.Rotate(RotateFlipType.RotateNoneFlipX)
End Sub
Private Sub btnFlipY_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFlipY.Click
GdViewer1.Rotate(RotateFlipType.RotateNoneFlipY)
End Sub
Private Sub GdViewer1_TransferEnded(ByVal status As GdPictureStatus, ByVal download As System.Boolean) Handles GdViewer1.TransferEnded
GdViewer1.Focus()
UpdateMainUi()
End Sub
Private Sub cbZoom_Validating(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles cbZoom.Validating
ChangeZoomValue()
End Sub
Private Sub AddSearchRegion(ByVal occurence As Integer, ByVal leftCoordinate As Single, ByVal topCoordinate As Single, ByVal regionWidth As Single, ByVal regionheight As Single, ByVal ensureVisibility As Boolean)
Dim searchRegion As Integer = GdViewer1.AddRegionInches("SearchResult" & occurence, leftCoordinate, topCoordinate, regionWidth, regionheight, ForegroundMixMode.ForegroundMixModeMASKPEN, Color.Yellow)
GdViewer1.SetRegionEditable(searchRegion, False)
If ensureVisibility Then
GdViewer1.EnsureRegionVisibility(searchRegion)
End If
End Sub
Private Sub btnSettings_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSettings.Click
Using frmSettings As New frmSettings(GdViewer1)
frmSettings.ShowDialog(Me)
End Using
UpdateaNavigationToolbar()
End Sub
Private Sub btnFitWidth_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFitWidth.Click
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
End Sub
Private Sub btnFitPage_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFitPage.Click
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer
End Sub
Private Sub DefaultToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles DefaultToolStripMenuItem.Click
GdViewer1.MouseMode = ViewerMouseMode.MouseModeDefault
DefaultToolStripMenuItem.Checked = True
AreaSelectionToolStripMenuItem.Checked = False
PanToolStripMenuItem.Checked = False
AreaZoomingToolStripMenuItem.Checked = False
MagnifierToolStripMenuItem.Checked = False
GdViewer1.Focus()
End Sub
Private Sub AreaSelectionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles AreaSelectionToolStripMenuItem.Click
GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaSelection
DefaultToolStripMenuItem.Checked = False
AreaSelectionToolStripMenuItem.Checked = True
PanToolStripMenuItem.Checked = False
AreaZoomingToolStripMenuItem.Checked = False
MagnifierToolStripMenuItem.Checked = False
GdViewer1.Focus()
End Sub
Private Sub PanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles PanToolStripMenuItem.Click
GdViewer1.MouseMode = ViewerMouseMode.MouseModePan
DefaultToolStripMenuItem.Checked = False
AreaSelectionToolStripMenuItem.Checked = False
PanToolStripMenuItem.Checked = True
AreaZoomingToolStripMenuItem.Checked = False
MagnifierToolStripMenuItem.Checked = False
GdViewer1.Focus()
End Sub
Private Sub AreaZoomingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles AreaZoomingToolStripMenuItem.Click
GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaZooming
DefaultToolStripMenuItem.Checked = False
AreaSelectionToolStripMenuItem.Checked = False
PanToolStripMenuItem.Checked = False
AreaZoomingToolStripMenuItem.Checked = True
MagnifierToolStripMenuItem.Checked = False
GdViewer1.Focus()
End Sub
Private Sub MagnifierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles MagnifierToolStripMenuItem.Click
GdViewer1.MouseMode = ViewerMouseMode.MouseModeMagnifier
DefaultToolStripMenuItem.Checked = False
AreaSelectionToolStripMenuItem.Checked = False
PanToolStripMenuItem.Checked = False
AreaZoomingToolStripMenuItem.Checked = False
MagnifierToolStripMenuItem.Checked = True
GdViewer1.Focus()
End Sub
Private Sub frmDocView_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Try
ConfigManager.Config.ViewerWindowLocation = Location
ConfigManager.Config.ViewerWindowSize = Size
ConfigManager.Save()
Catch ex As Exception
Logger.Error(ex)
Logger.Info("Error in Save FormLayout: " & ex.Message)
End Try
End Sub
End Class

160
app/DD_Clipboard_Searcher/frmDocViewAbout.designer.vb generated
View File

@@ -1,160 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmDocViewAbout
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocViewAbout))
Me.btnClose = New System.Windows.Forms.Button()
Me.lblCopyrightORPALIS = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.lblDemoName = New System.Windows.Forms.Label()
Me.lblGdPictureDemo = New System.Windows.Forms.Label()
Me.lblGdPictureWebsite = New System.Windows.Forms.LinkLabel()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.SuspendLayout()
'
'btnClose
'
Me.btnClose.Location = New System.Drawing.Point(664, 283)
Me.btnClose.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnClose.Name = "btnClose"
Me.btnClose.Size = New System.Drawing.Size(100, 28)
Me.btnClose.TabIndex = 0
Me.btnClose.Text = "Close"
Me.btnClose.UseVisualStyleBackColor = True
'
'lblCopyrightORPALIS
'
Me.lblCopyrightORPALIS.AutoSize = True
Me.lblCopyrightORPALIS.Enabled = False
Me.lblCopyrightORPALIS.Location = New System.Drawing.Point(11, 289)
Me.lblCopyrightORPALIS.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblCopyrightORPALIS.Name = "lblCopyrightORPALIS"
Me.lblCopyrightORPALIS.Size = New System.Drawing.Size(181, 17)
Me.lblCopyrightORPALIS.TabIndex = 1
Me.lblCopyrightORPALIS.Text = "Copyright © 2018 ORPALIS"
'
'PictureBox1
'
Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(780, 191)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 2
Me.PictureBox1.TabStop = False
'
'Panel1
'
Me.Panel1.Controls.Add(Me.PictureBox1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(780, 191)
Me.Panel1.TabIndex = 3
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.SystemColors.Window
Me.Panel2.Controls.Add(Me.lblDemoName)
Me.Panel2.Controls.Add(Me.lblGdPictureDemo)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 191)
Me.Panel2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(780, 80)
Me.Panel2.TabIndex = 4
'
'lblDemoName
'
Me.lblDemoName.AutoSize = True
Me.lblDemoName.Location = New System.Drawing.Point(27, 39)
Me.lblDemoName.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblDemoName.Name = "lblDemoName"
Me.lblDemoName.Size = New System.Drawing.Size(251, 17)
Me.lblDemoName.TabIndex = 1
Me.lblDemoName.Text = ".NET Winform Document Viewer Demo"
'
'lblGdPictureDemo
'
Me.lblGdPictureDemo.AutoSize = True
Me.lblGdPictureDemo.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblGdPictureDemo.Location = New System.Drawing.Point(13, 14)
Me.lblGdPictureDemo.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblGdPictureDemo.Name = "lblGdPictureDemo"
Me.lblGdPictureDemo.Size = New System.Drawing.Size(247, 17)
Me.lblGdPictureDemo.TabIndex = 0
Me.lblGdPictureDemo.Text = "GdPicture.NET Application Demo"
'
'lblGdPictureWebsite
'
Me.lblGdPictureWebsite.AutoSize = True
Me.lblGdPictureWebsite.Location = New System.Drawing.Point(204, 289)
Me.lblGdPictureWebsite.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblGdPictureWebsite.Name = "lblGdPictureWebsite"
Me.lblGdPictureWebsite.Size = New System.Drawing.Size(168, 17)
Me.lblGdPictureWebsite.TabIndex = 6
Me.lblGdPictureWebsite.TabStop = True
Me.lblGdPictureWebsite.Text = "http://www.gdpicture.com/"
'
'frmAbout
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(780, 326)
Me.Controls.Add(Me.lblGdPictureWebsite)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.lblCopyrightORPALIS)
Me.Controls.Add(Me.btnClose)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmAbout"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "About..."
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btnClose As System.Windows.Forms.Button
Friend WithEvents lblCopyrightORPALIS As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents lblDemoName As System.Windows.Forms.Label
Friend WithEvents lblGdPictureDemo As System.Windows.Forms.Label
Friend WithEvents lblGdPictureWebsite As System.Windows.Forms.LinkLabel
End Class

3393
app/DD_Clipboard_Searcher/frmDocViewAbout.resx
View File

File diff suppressed because it is too large Load Diff

13
app/DD_Clipboard_Searcher/frmDocViewAbout.vb
View File

@@ -1,13 +0,0 @@
Option Strict On
Option Explicit On
Public Class frmDocViewAbout
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Me.Close()
End Sub
Private Sub lblGdPictureWebsite_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblGdPictureWebsite.LinkClicked
Process.Start("http://www.gdpicture.com/")
End Sub
End Class

412
app/DD_Clipboard_Searcher/frmDocViewOpen.designer.vb generated
View File

@@ -1,412 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmDocViewOpen
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocViewOpen))
Me.pOpenFromFile = New System.Windows.Forms.Panel()
Me.btOpenFromFile = New System.Windows.Forms.Button()
Me.tbFile = New System.Windows.Forms.TextBox()
Me.rbOpenFromFile = New System.Windows.Forms.RadioButton()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.rbOpenFromHTTP = New System.Windows.Forms.RadioButton()
Me.pOpenFromHTTP = New System.Windows.Forms.Panel()
Me.tbOpenFromHTTP = New System.Windows.Forms.TextBox()
Me.rbOpenFromFTP = New System.Windows.Forms.RadioButton()
Me.pOpenFromFTP = New System.Windows.Forms.Panel()
Me.tbPassword = New System.Windows.Forms.TextBox()
Me.lblPassword = New System.Windows.Forms.Label()
Me.tbLogin = New System.Windows.Forms.TextBox()
Me.lblLogin = New System.Windows.Forms.Label()
Me.tbPath = New System.Windows.Forms.TextBox()
Me.lblPath = New System.Windows.Forms.Label()
Me.tbPort = New System.Windows.Forms.TextBox()
Me.lblPort = New System.Windows.Forms.Label()
Me.tbHost = New System.Windows.Forms.TextBox()
Me.lblHost = New System.Windows.Forms.Label()
Me.rbOpenFromClipboard = New System.Windows.Forms.RadioButton()
Me.btnCancel = New System.Windows.Forms.Button()
Me.btnOpen = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.pOpenFromFile.SuspendLayout()
Me.pOpenFromHTTP.SuspendLayout()
Me.pOpenFromFTP.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pOpenFromFile
'
Me.pOpenFromFile.AutoSize = True
Me.pOpenFromFile.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.pOpenFromFile.Controls.Add(Me.btOpenFromFile)
Me.pOpenFromFile.Controls.Add(Me.tbFile)
Me.pOpenFromFile.Location = New System.Drawing.Point(17, 44)
Me.pOpenFromFile.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.pOpenFromFile.Name = "pOpenFromFile"
Me.pOpenFromFile.Size = New System.Drawing.Size(633, 33)
Me.pOpenFromFile.TabIndex = 0
'
'btOpenFromFile
'
Me.btOpenFromFile.Location = New System.Drawing.Point(529, 1)
Me.btOpenFromFile.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btOpenFromFile.Name = "btOpenFromFile"
Me.btOpenFromFile.Size = New System.Drawing.Size(100, 28)
Me.btOpenFromFile.TabIndex = 1
Me.btOpenFromFile.Text = "Browse..."
Me.btOpenFromFile.UseVisualStyleBackColor = True
'
'tbFile
'
Me.tbFile.Location = New System.Drawing.Point(4, 4)
Me.tbFile.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.tbFile.Name = "tbFile"
Me.tbFile.ReadOnly = True
Me.tbFile.Size = New System.Drawing.Size(516, 22)
Me.tbFile.TabIndex = 0
'
'rbOpenFromFile
'
Me.rbOpenFromFile.AutoSize = True
Me.rbOpenFromFile.Location = New System.Drawing.Point(56, 16)
Me.rbOpenFromFile.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.rbOpenFromFile.Name = "rbOpenFromFile"
Me.rbOpenFromFile.Size = New System.Drawing.Size(118, 21)
Me.rbOpenFromFile.TabIndex = 1
Me.rbOpenFromFile.TabStop = True
Me.rbOpenFromFile.Text = "Open from file"
Me.rbOpenFromFile.UseVisualStyleBackColor = True
'
'rbOpenFromHTTP
'
Me.rbOpenFromHTTP.AutoSize = True
Me.rbOpenFromHTTP.Location = New System.Drawing.Point(56, 98)
Me.rbOpenFromHTTP.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.rbOpenFromHTTP.Name = "rbOpenFromHTTP"
Me.rbOpenFromHTTP.Size = New System.Drawing.Size(137, 21)
Me.rbOpenFromHTTP.TabIndex = 2
Me.rbOpenFromHTTP.TabStop = True
Me.rbOpenFromHTTP.Text = "Open from HTTP"
Me.rbOpenFromHTTP.UseVisualStyleBackColor = True
'
'pOpenFromHTTP
'
Me.pOpenFromHTTP.AutoSize = True
Me.pOpenFromHTTP.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.pOpenFromHTTP.Controls.Add(Me.tbOpenFromHTTP)
Me.pOpenFromHTTP.Location = New System.Drawing.Point(21, 133)
Me.pOpenFromHTTP.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.pOpenFromHTTP.Name = "pOpenFromHTTP"
Me.pOpenFromHTTP.Size = New System.Drawing.Size(627, 26)
Me.pOpenFromHTTP.TabIndex = 3
'
'tbOpenFromHTTP
'
Me.tbOpenFromHTTP.Location = New System.Drawing.Point(0, 0)
Me.tbOpenFromHTTP.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.tbOpenFromHTTP.Name = "tbOpenFromHTTP"
Me.tbOpenFromHTTP.Size = New System.Drawing.Size(623, 22)
Me.tbOpenFromHTTP.TabIndex = 0
Me.tbOpenFromHTTP.Text = "http://download.bitsdujour.com/software/screenshot/orpalis-pdf-ocr-desktop-editio" &
"n-dbigw.png"
'
'rbOpenFromFTP
'
Me.rbOpenFromFTP.AutoSize = True
Me.rbOpenFromFTP.Location = New System.Drawing.Point(56, 180)
Me.rbOpenFromFTP.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.rbOpenFromFTP.Name = "rbOpenFromFTP"
Me.rbOpenFromFTP.Size = New System.Drawing.Size(126, 21)
Me.rbOpenFromFTP.TabIndex = 4
Me.rbOpenFromFTP.TabStop = True
Me.rbOpenFromFTP.Text = "Open from FTP"
Me.rbOpenFromFTP.UseVisualStyleBackColor = True
'
'pOpenFromFTP
'
Me.pOpenFromFTP.AutoSize = True
Me.pOpenFromFTP.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.pOpenFromFTP.Controls.Add(Me.tbPassword)
Me.pOpenFromFTP.Controls.Add(Me.lblPassword)
Me.pOpenFromFTP.Controls.Add(Me.tbLogin)
Me.pOpenFromFTP.Controls.Add(Me.lblLogin)
Me.pOpenFromFTP.Controls.Add(Me.tbPath)
Me.pOpenFromFTP.Controls.Add(Me.lblPath)
Me.pOpenFromFTP.Controls.Add(Me.tbPort)
Me.pOpenFromFTP.Controls.Add(Me.lblPort)
Me.pOpenFromFTP.Controls.Add(Me.tbHost)
Me.pOpenFromFTP.Controls.Add(Me.lblHost)
Me.pOpenFromFTP.Location = New System.Drawing.Point(17, 208)
Me.pOpenFromFTP.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.pOpenFromFTP.Name = "pOpenFromFTP"
Me.pOpenFromFTP.Size = New System.Drawing.Size(632, 95)
Me.pOpenFromFTP.TabIndex = 5
'
'tbPassword
'
Me.tbPassword.Location = New System.Drawing.Point(392, 69)
Me.tbPassword.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.tbPassword.Name = "tbPassword"
Me.tbPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.tbPassword.Size = New System.Drawing.Size(236, 22)
Me.tbPassword.TabIndex = 9
Me.tbPassword.Text = "Anonymous"
'
'lblPassword
'
Me.lblPassword.AutoSize = True
Me.lblPassword.Location = New System.Drawing.Point(313, 73)
Me.lblPassword.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblPassword.Name = "lblPassword"
Me.lblPassword.Size = New System.Drawing.Size(69, 17)
Me.lblPassword.TabIndex = 8
Me.lblPassword.Text = "Password"
'
'tbLogin
'
Me.tbLogin.Location = New System.Drawing.Point(52, 69)
Me.tbLogin.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.tbLogin.Name = "tbLogin"
Me.tbLogin.Size = New System.Drawing.Size(236, 22)
Me.tbLogin.TabIndex = 7
Me.tbLogin.Text = "Anonymous"
'
'lblLogin
'
Me.lblLogin.AutoSize = True
Me.lblLogin.Location = New System.Drawing.Point(5, 73)
Me.lblLogin.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblLogin.Name = "lblLogin"
Me.lblLogin.Size = New System.Drawing.Size(43, 17)
Me.lblLogin.TabIndex = 6
Me.lblLogin.Text = "Login"
'
'tbPath
'
Me.tbPath.Location = New System.Drawing.Point(52, 37)
Me.tbPath.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.tbPath.Name = "tbPath"
Me.tbPath.Size = New System.Drawing.Size(576, 22)
Me.tbPath.TabIndex = 5
Me.tbPath.Text = "/design/processor/datashts/325567.pdf"
'
'lblPath
'
Me.lblPath.AutoSize = True
Me.lblPath.Location = New System.Drawing.Point(5, 41)
Me.lblPath.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblPath.Name = "lblPath"
Me.lblPath.Size = New System.Drawing.Size(37, 17)
Me.lblPath.TabIndex = 4
Me.lblPath.Text = "Path"
'
'tbPort
'
Me.tbPort.Location = New System.Drawing.Point(559, 4)
Me.tbPort.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.tbPort.Name = "tbPort"
Me.tbPort.Size = New System.Drawing.Size(69, 22)
Me.tbPort.TabIndex = 3
Me.tbPort.Text = "21"
Me.tbPort.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'lblPort
'
Me.lblPort.AutoSize = True
Me.lblPort.Location = New System.Drawing.Point(516, 9)
Me.lblPort.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblPort.Name = "lblPort"
Me.lblPort.Size = New System.Drawing.Size(34, 17)
Me.lblPort.TabIndex = 2
Me.lblPort.Text = "Port"
'
'tbHost
'
Me.tbHost.Location = New System.Drawing.Point(52, 5)
Me.tbHost.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.tbHost.Name = "tbHost"
Me.tbHost.Size = New System.Drawing.Size(455, 22)
Me.tbHost.TabIndex = 1
Me.tbHost.Text = "ftp://download.intel.com"
'
'lblHost
'
Me.lblHost.AutoSize = True
Me.lblHost.Location = New System.Drawing.Point(4, 9)
Me.lblHost.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblHost.Name = "lblHost"
Me.lblHost.Size = New System.Drawing.Size(37, 17)
Me.lblHost.TabIndex = 0
Me.lblHost.Text = "Host"
'
'rbOpenFromClipboard
'
Me.rbOpenFromClipboard.AutoSize = True
Me.rbOpenFromClipboard.Location = New System.Drawing.Point(56, 331)
Me.rbOpenFromClipboard.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.rbOpenFromClipboard.Name = "rbOpenFromClipboard"
Me.rbOpenFromClipboard.Size = New System.Drawing.Size(158, 21)
Me.rbOpenFromClipboard.TabIndex = 6
Me.rbOpenFromClipboard.TabStop = True
Me.rbOpenFromClipboard.Text = "Open from clipboard"
Me.rbOpenFromClipboard.UseVisualStyleBackColor = True
'
'btnCancel
'
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnCancel.Location = New System.Drawing.Point(551, 361)
Me.btnCancel.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(100, 28)
Me.btnCancel.TabIndex = 34
Me.btnCancel.Text = "Cancel"
Me.btnCancel.UseVisualStyleBackColor = True
'
'btnOpen
'
Me.btnOpen.Location = New System.Drawing.Point(444, 361)
Me.btnOpen.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnOpen.Name = "btnOpen"
Me.btnOpen.Size = New System.Drawing.Size(99, 28)
Me.btnOpen.TabIndex = 33
Me.btnOpen.Text = "Open"
Me.btnOpen.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(21, 12)
Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(20, 20)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.PictureBox1.TabIndex = 35
Me.PictureBox1.TabStop = False
'
'PictureBox2
'
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
Me.PictureBox2.Location = New System.Drawing.Point(21, 95)
Me.PictureBox2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(20, 20)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.PictureBox2.TabIndex = 36
Me.PictureBox2.TabStop = False
'
'PictureBox3
'
Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Image)
Me.PictureBox3.Location = New System.Drawing.Point(21, 176)
Me.PictureBox3.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(20, 20)
Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.PictureBox3.TabIndex = 37
Me.PictureBox3.TabStop = False
'
'PictureBox4
'
Me.PictureBox4.Image = CType(resources.GetObject("PictureBox4.Image"), System.Drawing.Image)
Me.PictureBox4.Location = New System.Drawing.Point(21, 327)
Me.PictureBox4.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(20, 20)
Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.PictureBox4.TabIndex = 38
Me.PictureBox4.TabStop = False
'
'frmOpen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.btnCancel
Me.ClientSize = New System.Drawing.Size(671, 407)
Me.Controls.Add(Me.PictureBox4)
Me.Controls.Add(Me.PictureBox3)
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnOpen)
Me.Controls.Add(Me.rbOpenFromClipboard)
Me.Controls.Add(Me.pOpenFromFTP)
Me.Controls.Add(Me.rbOpenFromFTP)
Me.Controls.Add(Me.pOpenFromHTTP)
Me.Controls.Add(Me.rbOpenFromHTTP)
Me.Controls.Add(Me.rbOpenFromFile)
Me.Controls.Add(Me.pOpenFromFile)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmOpen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Open"
Me.pOpenFromFile.ResumeLayout(False)
Me.pOpenFromFile.PerformLayout()
Me.pOpenFromHTTP.ResumeLayout(False)
Me.pOpenFromHTTP.PerformLayout()
Me.pOpenFromFTP.ResumeLayout(False)
Me.pOpenFromFTP.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents pOpenFromFile As System.Windows.Forms.Panel
Friend WithEvents btOpenFromFile As System.Windows.Forms.Button
Friend WithEvents tbFile As System.Windows.Forms.TextBox
Friend WithEvents rbOpenFromFile As System.Windows.Forms.RadioButton
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents rbOpenFromHTTP As System.Windows.Forms.RadioButton
Friend WithEvents pOpenFromHTTP As System.Windows.Forms.Panel
Friend WithEvents tbOpenFromHTTP As System.Windows.Forms.TextBox
Friend WithEvents rbOpenFromFTP As System.Windows.Forms.RadioButton
Friend WithEvents pOpenFromFTP As System.Windows.Forms.Panel
Friend WithEvents tbPort As System.Windows.Forms.TextBox
Friend WithEvents lblPort As System.Windows.Forms.Label
Friend WithEvents tbHost As System.Windows.Forms.TextBox
Friend WithEvents lblHost As System.Windows.Forms.Label
Friend WithEvents tbPath As System.Windows.Forms.TextBox
Friend WithEvents lblPath As System.Windows.Forms.Label
Friend WithEvents tbLogin As System.Windows.Forms.TextBox
Friend WithEvents lblLogin As System.Windows.Forms.Label
Friend WithEvents tbPassword As System.Windows.Forms.TextBox
Friend WithEvents lblPassword As System.Windows.Forms.Label
Friend WithEvents rbOpenFromClipboard As System.Windows.Forms.RadioButton
Friend WithEvents btnCancel As System.Windows.Forms.Button
Friend WithEvents btnOpen As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
End Class

3172
app/DD_Clipboard_Searcher/frmDocViewOpen.resx
View File

File diff suppressed because it is too large Load Diff

131
app/DD_Clipboard_Searcher/frmDocViewOpen.vb
View File

@@ -1,131 +0,0 @@
Option Strict On
Option Explicit On
Imports System.IO
Imports GdPicture14
Public Class frmDocViewOpen
Private ReadOnly m_owner As GdViewer
Public Sub New(ByVal owner As GdViewer)
InitializeComponent()
m_owner = owner
End Sub
Private Sub UpdateUi()
If rbOpenFromFile.Checked Then
pOpenFromFile.Enabled = True
pOpenFromHTTP.Enabled = False
pOpenFromFTP.Enabled = False
ElseIf rbOpenFromHTTP.Checked Then
pOpenFromFile.Enabled = False
pOpenFromHTTP.Enabled = True
pOpenFromFTP.Enabled = False
ElseIf rbOpenFromFTP.Checked Then
pOpenFromFile.Enabled = False
pOpenFromHTTP.Enabled = False
pOpenFromFTP.Enabled = True
ElseIf rbOpenFromClipboard.Checked Then
pOpenFromFile.Enabled = False
pOpenFromHTTP.Enabled = False
pOpenFromFTP.Enabled = False
End If
End Sub
Private Sub frmOpen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Clipboard.ContainsImage() Then
rbOpenFromClipboard.Checked = True
Else
rbOpenFromFile.Checked = True
End If
End Sub
Private Sub rbOpenFromFile_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbOpenFromFile.CheckedChanged
If rbOpenFromFile.Checked Then
updateUI()
End If
End Sub
Private Sub rbOpenFromFTP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbOpenFromFTP.CheckedChanged
If rbOpenFromFTP.Checked Then
updateUI()
End If
End Sub
Private Sub rbOpenFromHTTP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbOpenFromHTTP.CheckedChanged
If rbOpenFromHTTP.Checked Then
updateUI()
End If
End Sub
Private Sub rbOpenFromClipboard_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbOpenFromClipboard.CheckedChanged
If rbOpenFromClipboard.Checked Then
updateUI()
End If
End Sub
Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
Dim ok As Boolean = False
If rbOpenFromFile.Checked Then
If Not String.IsNullOrWhiteSpace(tbFile.Text) And File.Exists(tbFile.Text) Then
Dim status As GdPictureStatus = m_owner.DisplayFromFile(tbFile.Text)
If status = GdPictureStatus.OK Then
ok = True
Else
MessageBox.Show("Error during file loading: " + status.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
MessageBox.Show("You must select a file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return
End If
ElseIf rbOpenFromFTP.Checked Then
Dim port As Integer
If Not String.IsNullOrWhiteSpace(tbHost.Text) And Not String.IsNullOrWhiteSpace(tbPort.Text) _
And Integer.TryParse(tbPort.Text, port) And Not String.IsNullOrWhiteSpace(tbPath.Text) Then
Dim status As GdPictureStatus = m_owner.DisplayFromFTP(tbHost.Text, tbPath.Text, tbLogin.Text, tbPassword.Text, port)
If status = GdPictureStatus.OK Then
ok = True
Else
MessageBox.Show("FTP Error: " + m_owner.GetLastTransferError(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
MessageBox.Show("You must enter all data for FTP connection", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
ElseIf rbOpenFromHTTP.Checked Then
Dim uri As Uri = Nothing
If Not String.IsNullOrWhiteSpace(tbOpenFromHTTP.Text) And System.Uri.TryCreate(tbOpenFromHTTP.Text, UriKind.Absolute, uri) Then
Dim status As GdPictureStatus = m_owner.DisplayFromHTTP(uri.ToString(), "", "")
If status = GdPictureStatus.OK Then
ok = True
Else
MessageBox.Show("HTTP Error: " + m_owner.GetLastTransferError(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
MessageBox.Show("You must specify an URI", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
ElseIf rbOpenFromClipboard.Checked Then
If Clipboard.ContainsImage() Then
Dim status As GdPictureStatus = m_owner.DisplayFromClipboard()
If status = GdPictureStatus.OK Then
ok = True
Else
MessageBox.Show("Error: " + status.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
MessageBox.Show("There is no image in clipboard", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
If ok Then
Me.Close()
End If
End Sub
Private Sub btOpenFromFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOpenFromFile.Click
Dim result As DialogResult = OpenFileDialog1.ShowDialog()
If (result = DialogResult.OK) Then
tbFile.Text = OpenFileDialog1.FileName
End If
End Sub
End Class

140
app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb generated
View File

@@ -1,140 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmProfileMatch
Inherits DevExpress.XtraEditors.XtraForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProfileMatch))
Me.Label1 = New System.Windows.Forms.Label()
Me.TileControlMatch = New DevExpress.XtraEditors.TileControl()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.AblaufSucheAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TileGroupDocumentsData = New DevExpress.XtraEditors.TileGroup()
Me.TileGroupDocuments = New DevExpress.XtraEditors.TileGroup()
Me.TileGroupData = New DevExpress.XtraEditors.TileGroup()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.Label1.Font = New System.Drawing.Font("Calibri", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(356, 19)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Es wurde(n) {0} für Ihre Suche nach '{1}' gefunden:"
'
'TileControlMatch
'
Me.TileControlMatch.AllowDragTilesBetweenGroups = False
Me.TileControlMatch.AppearanceGroupText.BackColor = System.Drawing.Color.Transparent
Me.TileControlMatch.AppearanceGroupText.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TileControlMatch.AppearanceGroupText.ForeColor = System.Drawing.Color.White
Me.TileControlMatch.AppearanceGroupText.Options.UseBackColor = True
Me.TileControlMatch.AppearanceGroupText.Options.UseFont = True
Me.TileControlMatch.AppearanceGroupText.Options.UseForeColor = True
Me.TileControlMatch.AppearanceGroupText.Options.UseTextOptions = True
Me.TileControlMatch.AppearanceGroupText.TextOptions.Trimming = DevExpress.Utils.Trimming.None
Me.TileControlMatch.AppearanceGroupText.TextOptions.WordWrap = DevExpress.Utils.WordWrap.Wrap
Me.TileControlMatch.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.TileControlMatch.AppearanceItem.Normal.BorderColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.TileControlMatch.AppearanceItem.Normal.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TileControlMatch.AppearanceItem.Normal.ForeColor = System.Drawing.Color.White
Me.TileControlMatch.AppearanceItem.Normal.Options.UseBackColor = True
Me.TileControlMatch.AppearanceItem.Normal.Options.UseBorderColor = True
Me.TileControlMatch.AppearanceItem.Normal.Options.UseFont = True
Me.TileControlMatch.AppearanceItem.Normal.Options.UseForeColor = True
Me.TileControlMatch.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.TileControlMatch.ContextMenuStrip = Me.ContextMenuStrip1
Me.TileControlMatch.Dock = System.Windows.Forms.DockStyle.Fill
Me.TileControlMatch.Groups.Add(Me.TileGroupDocumentsData)
Me.TileControlMatch.Groups.Add(Me.TileGroupDocuments)
Me.TileControlMatch.Groups.Add(Me.TileGroupData)
Me.TileControlMatch.ItemSize = 150
Me.TileControlMatch.Location = New System.Drawing.Point(0, 0)
Me.TileControlMatch.MaxId = 18
Me.TileControlMatch.Name = "TileControlMatch"
Me.TileControlMatch.ShowGroupText = True
Me.TileControlMatch.Size = New System.Drawing.Size(990, 523)
Me.TileControlMatch.TabIndex = 6
Me.TileControlMatch.Text = "TileControl1"
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AblaufSucheAnzeigenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(195, 26)
'
'AblaufSucheAnzeigenToolStripMenuItem
'
Me.AblaufSucheAnzeigenToolStripMenuItem.Name = "AblaufSucheAnzeigenToolStripMenuItem"
Me.AblaufSucheAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(194, 22)
Me.AblaufSucheAnzeigenToolStripMenuItem.Text = "Ablauf Suche anzeigen"
'
'TileGroupDocumentsData
'
Me.TileGroupDocumentsData.Name = "TileGroupDocumentsData"
Me.TileGroupDocumentsData.Text = "Kombiniert"
'
'TileGroupDocuments
'
Me.TileGroupDocuments.Name = "TileGroupDocuments"
Me.TileGroupDocuments.Text = "Dokumente"
'
'TileGroupData
'
Me.TileGroupData.Name = "TileGroupData"
Me.TileGroupData.Text = "Daten"
'
'frmProfileMatch
'
Me.Appearance.Options.UseFont = True
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(990, 523)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TileControlMatch)
Me.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.MinimumSize = New System.Drawing.Size(729, 486)
Me.Name = "frmProfileMatch"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Profile Match"
Me.TopMost = True
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents TileControlMatch As DevExpress.XtraEditors.TileControl
Friend WithEvents TileGroupDocumentsData As DevExpress.XtraEditors.TileGroup
Friend WithEvents TileGroupDocuments As DevExpress.XtraEditors.TileGroup
Friend WithEvents TileGroupData As DevExpress.XtraEditors.TileGroup
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents AblaufSucheAnzeigenToolStripMenuItem As ToolStripMenuItem
End Class

380
app/DD_Clipboard_Searcher/frmProfileMatch.resx
View File

@@ -1,380 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAMDAAAAEAIACoJQAANgAAACAgAAABACAAqBAAAN4lAAAQEAAAAQAgAGgEAACGNgAAKAAAADAA
AABgAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAgAAAAdAAAAJAAA
AB0AAAATAAAACgAAAAMAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQBk
hjEAAABPAAAAfCxCSagwSVGYAAAAQwAAAC4AAAAfAAAAFgAAAA0AAAAFAAAAAQAAAAEAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP//
/wAAAAAAAAAAAQCPvpkAlcf1BYay7hFvjukdWGzaJjk/wy0tLbMyMjKjL0dPnAAAAEoAAAA0AAAAIwAA
ABkAAAAQAAAABwAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAD///8A////AP///wAAAAAAAAAAAQCMuoxAs9n/gc3m/5bX7P81sdz/CJ7Q/wCPv/kSfKDyGl923yNB
TMosMDG4MDAwpy5FTaAAAABRAAAAOQAAACcAAAAcAAAAEwAAAAkAAAACAAAAAQAAAAEAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCMu5wAmcz/gs3m/+L2//+W3///atH+/1zK
9/9CvOr/Jq3e/w2g0/8AkcL7DYGo9BdmgOMgS1nQKjI2vC8vL6wsQkmoMElRlwAAAD8AAAArAAAAHwAA
ABUAAAALAAAAAwAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCTxMcOoNL/YcDh/8Hn
9f+76///b9X//2/V//9v1f//b9X//2/V//9m0Pr/SsLu/y6y4f8VpNb/BZfH/AmIs/cWeJjwHVNl1ig2
OsAuLi6xOjI6oi9HT5w0T1iKAAAALgAAACIAAAAYAAAADQAAAAUAAAABAAAAAQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCT
xMczsuL/Trrg/5fV6v/U8///ftz//3PZ//9z2f//c9n//3PZ//9z2f//c9n//3PZ//9z2f//bNX8/1TI
8f84ueT/HanZ/wmbzP4Ejbv5Enyg8iRqgeklOD/ELS4ttTAwMKcyPECZMktTjA0ODjYAAAAlAAAAGgAA
ABAAAAAIAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP//
/wAAAAAAAAAAAQCTxMdqy/n/GKPS/4/S6f/k+P//nOf//3bc//923P//dtz//3bc//923P//dtz//3bc
//923P//dtz//3bc//923P//dtz//3HZ/f9ezvT/Qr/p/yqx3v8PodP/AZHA+w6ApvMgbYXqI0FLyisx
NLosLS2oLTQ5mS5ETYwTExM+AAAAHAAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAD///8A////AP///wAAAAAAAAAAAQCRwsl+1P//Iqna/3PI5v/H6/f/tez//3nf//953///ed///3nf
//953///ed///3nf//953///ed///3nf//953///ed///3nf//953///ed///3nf//913f7/ZtP3/0vF
6/8xteD/F6PR/wiSwPwOgaf0HG2J6iFRYNUpOT67NTc4jUNeamagtKUEAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCXyvKD1v//MbDh/1G74v+i2uz/1Pb//4Lk
//994///feP//33j//994///feP//33j//994///feP//33j//994///feP//33j//994///feP//33j
//994///fOP//3zj//964v7/dt79/2TV9f9JxOr/MrXe/x6l0f8PibD1HWF30U1OW3uLjY8V7PDxAwAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCZzP+H1///Q7np/zGv
3f9uxeL/4/n//6Dr//+A5v//gOb//4Dm//+A5v//gOb//4Dm//+A5v//gOb//4Dm//+A5v//gOb//4Dm
//+A5v//gOb//4Dm//+A5v//gOb//3/m//+A5v//f+X//3/l//9/5f//e+P8/23Z+P9Dv+P+GIGh4ixW
ZKVLYmppzc3PCgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCZ
zP+M2f//TL3t/y6v4P9Tu+D/0vD4/7vz//+E6v//hOr//4Tq//+E6v//hOr//4Tq//+E6v//hOr//4Tq
//+E6v//hOr//4Tq//+E6v//hOr//4Tq//+E6f//hOr//4Tp//+D6f//g+n//4Pp//+D6f//g+n//3je
//9p2vT/Ra/L8i58k9Q8YGuCo6mtF+zu7gMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP//
/wAAAAAAAAAAAySp2f+R2v//R7vt/zSy5f9DtuD/qt3v/9D4//+H7f//h+3//4ft//+H7f//h+3//4ft
//+H7f//h+3//4ft//+H7f//h+3//4ft//+H7f//h+3//4ft//+H7P//h+3//4bs//+G7P//hu3//4bs
//+G7P//huz//3rh//+I7v3/Wczm/DWOpd83X2qgdIOFK+To6AMAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAD///8A////AP///wAAAAAAAAAACSaq2f+W3P//Qrrt/z646/83s+L/eMnk/+P7//+h8///ivD//4rw
//+K8P//ivD//4rw//+K8P//ivD//4rw//+K8P//ivD//4rw//+K8P//ivD//4rw//+J8P//iu///4nw
//+K7///ifD//4nv//+J7///ie///3zj//+S9f//c+H0/0+xxe82cYDAQ2Frea60txHw9PEBAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAIi2SCeq2f+b3v//SL3w/0i98P8gqdz/V73g/9v1
+/+9+P//jfP//43z//+N8///jfP//43z//+N8///jfP//43z//+N8///jfP//43z//+N8///jfP//43z
//+N8///jfL//43z//+M8///jPL//4zy//+M8v//jPL//37l//+X9v//jPD6/2DN4vs7kKPdQGFqlH2J
iyLp7O0EAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAIi2SCir2f+f3///TsDz/07A
8/8sr+L/T7vk/7Th8f/T/P//kff//5H3//+R9///kff//5H3//+R9///kff//5H3//+R9///kff//5H3
//+R9///kff//5H3//+R9///kPf//5H3//+Q9v//kPb//5D2//+Q9v//kPb//4Hn//+c+f//nvr//3ni
8v9Sq7zqO214t0hkbXPJzs8N8fPyAgAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAIazSTOw
3P+f3/7/VMP2/1TD9v9KvvH/Rbjk/4rR6P/h/v//ovv//5T6//+U+v//lPr//5T6//+U+v//lPr//5T6
//+U+v//lPr//5T6//+U+v//lPr//5T6//+U+v//lPr//5T5//+U+f//k/n//5P5//+T+f//k/n//4Tp
//99rbX/j6Km/5ikpv+UnKL/dXeV/4tHUP+Ol5oa6e3tAwAAAAAAAAAAAAAAAAAAAAD///8A////AP//
/wAAAAAAAIOuS1W+5v+W2/7/XMf6/1zH+v9cx/r/DJ/S/4DN5//k+/7/vv///5n///+Z////mf///5n/
//+Z////mf///5n///+Z////mf///5n///+Z////mf///5n///+Z////mf///5n+//+Y////mP7//5j9
//+Y/v//gbC1/4Gwtf+Qpab/kqWm/6mwtf+ysbX/g4mn/4dUYf+LPkn/rEQw//T19gEAAAAAAAAAAAAA
AAD///8A////AP///wAAAAABAIOvXVe/5v+b3f7/Ysr9/2LK/f9iyv3/K67h/2fE5/+85vP/0////5n/
//+Z////mf///5n///+Z////mf///5n///+Z////mf///5n///+Z////mf///5n///+Z////mf///5n/
//+Z////mf///5n///+BprX/kKam/5+xtf+Qpqb/oLG1/6ixtf+0sbX/p6ex/3N9j/+TWFH/rUg0/6tA
Vv8AAAAAAAAAAAAAAAD///8A////AP///wAAAAABAI6+ilm/5v+f3///Zsz//2bM//9mzP//U8L1/1C5
3P+N0ej/6////7r///+j////o////6P///+j////o////6P///+j////o////6P///+j////o////6P/
//+j////ov///6P///+j////o////6L///+IsbX/pbG1/5Wmpv+lsbX/p7y1/668tf/VsbX/vry1/5qY
r/++XW7//Uk1/6tBV/8AAAAAAAAAAAAAAAD///8A////AP///wAAAAABAI6+ilzA5v+k4f//a9H//2vR
//9r0f//a9H//w6g0v9Su97/4PP4//j////k////0f///8P///+3////rf///63///+t////rf///63/
//+t////rf///63///+t////rf///6z///+t////rP///46xtf+dpqb/rLG1/6yxtf+rvLX/y7G1/9Gx
tf+8vLX/4LG1/7youv+oboX/1WaG//9jWf+qYFb/AAAAAAAAAAD///8A////AP///wAAAAABAI28i4HQ
7/+b4f//cNb//3DW//9w1v//cNb//03D7/8wst//RbXa/4zR6P/K6vT/6vf7////////////+v///+//
///k////1////8v////A////uf///7j///+4////uP///7j///+4////uP///5Wxtf+zsbX/srG1/7Ox
tf/RsbX/tLy1/9extf/gsbX/5LzE/+HF0P+KrMT/x5B9//5jgv//f3//AAAAAAAAAAD///8A////AP//
/wAAAAABAIq4jpHW8v+b4///dtz//3bc//923P//dtz//3bc//9n1Pn/Q7/p/zq65f8nr93/E6TU/xij
0f9Mt9v/a8Th/5bV6v/K6vT/6vf7///////y////0f///8P////C////wv///8L////C////nLG1/6um
pv+rpqb/urG1/7m8tf/XsbX/2bG1/96xtf/mvLX/6sfE/+rp4f+m1O7/sLi7/8SOmP//YID/AAAAAAAA
AAD///8A////AP///wAAAAABAJHBuZXX8v+h5///fOL//3zi//984v//fOL//3zi//984v//fOL//3zi
//984v//fOL//23Z+f9WzO//QsDn/za54v8hrdr/D6LT/zev1//B5vP/9P///9j+///N////zP///8z/
///M////orG1/8Cxtf/AprX/wLG1/968xP/AvLX/4LG1/+a8tf/rsbX/7cfE/+3p4f/f7ez/dKvE/8x5
ef//gKv//f79AQAAAAD///8A////AP///wAAAAABAJPEx5jY8v+l6v//gef//4Hn//+B5///gef//4Hn
//+B5///gef//4Hn//+B5///gef//4Hn//+B5///gef//4Hn//+B5///eeL8/xio1v9ux+T/xOjz//X/
/v/g////1////9b////W////qbG1/7impv/HsbX/x7y1/+Sxtf/ksbX/6Ly1/+2xtf/wvMT/8sfE//PS
0v/z6eH/m7e//7uQgf9JWV9tf39/AgAAAAD///8A////AP///wAAAAABAJPEx6jf9f+m7v//h+3//4ft
//+H7f//h+3//4ft//+H7f//h+3//4ft//+H7f//h+3//4ft//+H7f//h+3//4ft//+H7f//h+3//27d
9f8Jns//V73e/8Hm8//9/v///P////j////1/v//u7G1/9axtf/VprX/8bG1/+28xP/svLX/8LG1//O8
xP/3sbX/97zE//fHxP/30tL/0sLK/3KHnP9DRUR7AAAACQAAAAD///8A////AP///wAAAAABAJLDyNTx
//+e8v//jfP//43z//+N8///jfP//43z//+N8///jfP//43z//+N8///jfP//43z//+N8///jfP//43z
//+N8///jfP//43z//9z4vX/GanV/yqs1v9Qudz/a8Th/5DS6f+Mmar/ppSe/9Wssv/dsLT//rvC//+8
tf//vLX//rzE//68tf/8vMT//LzE//vH0v/7x9L/+8fS/zCLp+U1QESYTV1jZgAAAAH///8A////AP//
/wAAAAABAJHCydny//+k9v//kvj//5L4//+S+P//kvj//5L4//+S+P//kvj//5L4//+S+P//kvj//5L4
//+S+P//AAD//wAA//8AAP//AF///wB///+S+P//kvj//4ny/P9u4fL/Ztzv/1XQ6v9Phpz/UHKH/1p6
mP9sfZP/foeY/4+PrP+ljKL/yLK4/9q4u//4xML//sfS///H0v//x9L/0+32/1mvzfIbYXipTV1jZgAA
AAH///8A////AP///wAAAAABAJnM/970//+p+///mP7//5j+//+Y/v//mP7//5j+//+Y/v//mP7//5j+
//+Y/v//mP7//5j+//8AAP//AAD//wBf//8AX///AH///wB///9Vn///mP7//5j+//+Y/v//mP7//5j+
//9VHyr/gAAA/6ofKv//Pyr//z9V//9fVf+Fe47/q25z/8Jvnf/Fbp7/MqvW/1y93v+Gz+f/acPh/yaZ
v9NMYZhqAAAABwAAAAD///8A////AP///wAAAAABAJnM/+L1//+r/f//mf///5n///+Z////mf///5n/
//+Z////mf///5n///+Z////mf///wAA//8AAP//AF///wB///8Af///AJ///1Wf//9Vn///Vb///5n/
//+Z////mf///5n///9VHyr/qh8q/6ofKv//P1X//39V//9ff//cgmX/JiorP3R4eQJ2dnYCAJPEMgCO
vkUAksOGAI++iQBNZiAAAAAHAAAAAQAAAAD///8A////AP///wAAAAABAJnM/+f3///A+///mf///5n/
//+Z////mf///5n///+Z////mf///5n///+Z////mf///wAA//8AAP//AH///wB///8An///AJ///1Wf
//9Vv///Vb///5n///+Z////mf///1UfKv+AAAD/qgAq//8/Vf//f3///19//wCZzP8AAQKVAgICKwAA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAJbIopTV
7P/n+f//nv///5n///+Z////mf///5n///+Z////mf///5n///+Z////mf///wAA//8AX///AH///wCf
//8An///Vb///6rf//+qv///qr///5n///+Z////mf///1UfKv+qHyr/qh8q//9fVf//X3//mf///wCZ
zP8AAACVAAAAKgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP//
/wAAAAAAAJTGIR6l0v/i9Pz/xf3//5n///+Z////mf///5n///+Z////mf///5n///+Z////n////wAA
//8AX///AH///wCf//8An///qr////D7//+q3///Vd////H6///b+///0Pz//1UfKv+qHyr//z9V//9f
Vf+Z////mf///wCZzP8AAACMAAAAJgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAD///8A////AP///wAAAAAAAAAAAACVx6N7y+b/7/z//5////+Z////mf///5n///+Z////mf///5n/
//+Z////0/3//wAA//8AAP//AH///wCf//8An///VZ///6rf//9Vv///qt///x+l0v89stn/VR8q/6of
Kv+qHyr//19V//9/f//q/P//3v3//w+fz/8AAABeAAAAGAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAACUxiEQn8//6vf8//r9///6/f//4v7//+L+
///K/v//w/7//7H////D/v//+v3//0643P8AAP//AH///wB///9Vn///Vb///1W///+q3///AAAAAQAA
AAEAlMYhVR8q/6ofKv+qPyr//19//wCUxcYAmcz/AJnM/wCMu60AAAAYAAAABgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAAAAAAAAl8qhIKbS/0Cz
2f9gv9//gMzm/4/S6f+/5vL/z+z1////////////j9Lp/wCEsN0AAAA3AF///wBf//8Af///Vb///6q/
//8AAAAAAAAAAAAAAABVHyr/gAAA/6ofKv//X1X//39V/wAAAAEAAAABAAAAAQAAAAEAAAABAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAAAA
AAAAAAAAAAAAAQCUxkIAirhHAJDAdwCPvokAksKnAJTFxgCVxtUAmcz/AJXH5ABTbjsAAAALAAAAAQAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAFUfKv+AAAD/gAAA/6ofKv//X1X//19//wAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP//
/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAQAA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFUfKv+AAAD/qh8q//9/f///f1X/AAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AVQAq/4AAAP+qHyr/qj8q//9/
f///f1X/////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AVR8q/4AA
AP+qHyr//39///+ff///X3//////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wBVHyr/gAAA/6ofKv+qPyr//39///+ff///X3//////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wBVHyr/qh8q/6oAKv+qPyr//59///+ff///X3//////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wBVHyr/qgAq/6o/Kv+qPyr//59////f1P//f3//////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wBVHyr/qh8q/6o/Kv//P1X//59////f
////X1X/////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wBVHyr/qh8q/6o/
Kv//P1X//59////f1P//f3//////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wCAAAD/qh8q/6o/Kv//P1X//59///+ff///f3//////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AgAAA/6oAKv+qPyr//59///9/f///X1X/////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AKofKv+qACr/qj8q//9fVf////8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AOAP/////wAAwAD/////AADAAA////8AAMAAAH///wAAwAAAB///AADAAAAAf/8AAMAA
AAAP/wAAwAAAAAf/AADAAAAAA/8AAMAAAAAB/wAAwAAAAAH/AADAAAAAAP8AAMAAAAAA/wAAwAAAAAB/
AADAAAAAAH8AAMAAAAAAPwAAwAAAAAA/AADAAAAAAB8AAIAAAAAAHwAAgAAAAAAfAACAAAAAAA8AAIAA
AAAADwAAgAAAAAAPAACAAAAAAAcAAIAAAAAABwAAgAAAAAAHAACAAAAAAAMAAIAAAAAAAwAAgAAAAAAH
AACAAAAAAAcAAIAAAAAH/wAAwAAAAAf/AADAAAAAB/8AAOAAAAAH/wAA4AAAAA//AADwAAOAH/8AAPgA
PwP//wAA/8D/B///AAD///4H//8AAP///gf//wAA///8B///AAD///wH//8AAP///Af//wAA///8B///
AAD///wH//8AAP///Af//wAA///+B///AAD///8P//8AACgAAAAgAAAAQAAAAAEAIAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAoAAAAqAAAAOwAAADEAAAAjAAAAGAAAAA4AAAAHAAAAAQAA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAABAH2nTjBZZ6YsOD24LCwstTAwMKc2NjaVAAAATAAA
ADgAAAAmAAAAGgAAABAAAAAHAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAEAjr6KULnc/0253/8Ni7X7H3iW9CBX
atwnP0jLLCwsuC8vL6sAAABtAAAAUgAAADoAAAAoAAAAHQAAABMAAAAJAAAAAgAAAAEAAAABAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAAAAAQCOvopnw+L/2vT//23T
//9TxfL/N7fm/xyo2f8Qk8H8E3ia8R5edOEnP0fLLCwsuTgvM64AAABzAAAAWQAAAEAAAAAsAAAAHwAA
ABUAAAALAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAABAI28izu0
4v//////e9r//3LY//9y2P//ctj//3LY//9dzfX/Qb3p/ySt3P8Mmcf+EH6j9Btlf+YkSFPSKysruy0t
LbMAAAB6AAAAYAAAAEUAAAAuAAAAHwAAAA8AAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAA
AAEAjLqMTL3s/6/f7/+p6f//dtz//3bc//923P//dtz//3bc//923P//dtz//3bc//9o1Pn/SsTs/y2z
3/8PotL/DYSr9xlsiOoiUF/XKysrvSwtLbQAAAB3AAAAQAAAAA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAD///8AAAAAAQCMu5x50fz/cMbi/9b2//984v//fOL//3zi//984v//fOL//3zi//984v//fOL//3zi
//984v//fOL//3zi//903vz/Vszv/zi64v8YqNf/C4m0+SBXat0AAAB2AAAAJAAAAAMAAAAAAAAAAAAA
AAAAAAAAAAAAAP///wAAAAABAJPEx3fQ+v8wrtr/9/3//4Dm//+A5v//gOb//4Dm//+A5v//gOb//4Dm
//+A5v//gOb//4Dm//+A5v//gOb//4Dm//+A5v//f+b//4Dm/v934Pz/GIuu9issLLkAAABGAAAADAAA
AAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAEXns3HedH5/ySr3v/P7PX/rPL//4bs//+G7P//huz//4bs
//+G7P//huz//4bs//+G7P//huz//4bs//+G7P//huz//4bs//+G7f//iO3//3vi/P9Wy+P/IFBg2QQF
BW8AAAAdAAAAAQAAAAAAAAAAAAAAAAAAAAD///8AAAAAATCo1MeA0/v/O7fq/4DM5v/T+f//ivD//4rw
//+K8P//ivD//4rw//+K8P//ivD//4rw//+K8P//ivD//4rw//+L8P//i/D//4/x//+R8/7/h+j8/47o
8/8oiKLxKSosswAAADoAAAAIAAAAAAAAAAAAAAAAAAAAAP///wAAAAABMafSyYnX/P9Nv/L/PrPd//H+
//+Q9v//kPb//5D2//+Q9v//kPb//5D2//+Q9v//kPb//5D2//+Q9v//kPb//5H2//+T9v//lff//5j3
/v+N6f3/n/T5/1rD3P8lQUvPBgcHZAAAABcAAAABAAAAAAAAAAAAAAAA////AAAAAAEqqtfyi9j9/1bE
9/8wseT/3/L5/6j7//+U+v//lPr//5T6//+U+v//lPr//5T6//+U+v//lPr//5T6//+U+v//lPn//5b5
//+a+///nvv+/5Xn9v+dztX/jJei/2BPX/yPJDzzhRkfhIkyLBoAAAAAAAAAAAAAAAD///8AAAAAASus
2f+F1v3/X8j7/02/8v+P0un/0v///5n///+Z////mf///5n///+Z////mf///5n///+Z////mf///5n/
//+b////nv3//5/+//+e6e7/mayx/6Klqf+gnKP/gXeI/48xQv+mKyf/pj8156k+WCYAAAAAAAAAAP//
/wAAAAABWb/m/4zY//9mzP//Zsz//1y/4v/z////rf///6P///+j////o////6P///+j////o////6P/
//+j////o////6T///+l/v//p/3+/5vN0f+trK//saqs/7qvrv+okpj/m1RY//U6Tf/kQEH/o1JSeAAA
AAAAAAAA////AAAAAANdweb/k97//23T//9t0///N7bm/4/S6f//////8P///+X////W////yf///8D/
//+z////s////7P///+z////s////7L///+v+Pn/oK2x/7Svs//EsrT/0rOy/8Wfpf+wbYT/0Gx7//98
f//qamz/AAAAAAAAAAD///8AAAAACWDB5v+a4v//dNr//3Ta//902v//SsPs/y2z3/9exOb/YL/f/4DM
5v+/5vL/3/L5//v////L////wP///8D///+/////v////6PDx/+tqKz/urC0/863t//esbP/3q+u/8Cu
sv+3uMH//8zK//9xjv8AAAABAAAAAP///wAAiLZIZMPm/5Xn//9+5P//fuT//37k//9+5P//fuT//37k
//9+5P//Z9b1/1fN7/9Av+b/aMTi//z////Z////0v///9L////R////rcLE/7ursP/Ftrf/3bW4/+S2
s//otLn/48PC/6qvtP/Ql4T/12+DrAAAAAkAAAAA////AACItkh0yen/l+z//4Xr//+F6///hev//4Xr
//+F6///hev//4Xr//+F6///hev//4Xr//9t3PX/aMXi///////0////8v7//+b19v++urz/x6qy/+Kx
t//svLj/7re5//W2vP/1vcH/s6/A/8F0eP1fMDCBAAAAFgAAAAH///8AAIazSaDb8v+h9P//j/X//4/1
//+P9f//j/X//4/1//+P9f//j/X//4/1//9Ri///Kkn//ypy//9k1Pf/Lrfc/2XL5v9gv9//erLJ/5yU
n//Ao6v/87q4//mytP/8v77/+sTB//zG0P/zxdL/MXqc7gAAAGEAAAAZAAAAAf///wAAiLZIpt3y/6j6
//+W/P//lvz//5b8//+W/P//lvz//5b8//+W/P//VI3//wAT//8AZP//AH3//y2P//9z1P//lvz//5b8
//92pq3/dpqk/4mbqf9pi6b/n36J/76Dl/eymLb/hMnj/7/m8v8jjMfeAAAAKAAAAAoAAAAA////AACQ
wFWq3vL/rP3//5n///+Z////mf///5n///+Z////mf///5n///8JEP//AE3//wCP//8Aof//WKj//1/C
//+Z////lvX1/2g3PP+mCiL/9FRi/993jP9eKyiwAAAAKwAAAAEAlMYhAJDARAB6oygAAAAGAAAAAQAA
AAD///8AAJTGIXXJ5v/M+///mf///5n///+Z////mf///5n///+Z////o/7//xcp//8Aff//AJz//1K3
///N5f//k9X//5n///+X+vr/cx4p/9MsNv/sf4f/NK3U/wAAAJEAAAAoAAAAAQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAP///wAAAAAAFJ7NwuP0/P+k////mf///5n///+Z////mf///5n////i+///FiX5/gBV
//8Eo///Tqf//5rY//+K5P7/zu75/4ltdf+ZGyX/8VNY/9LGyf87udz/AAAAbQAAAB4AAAABAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAlMZCe8vm/+z9///h/f//yv7//8P+//+x////1f7//7nk
8v8AUIWqAD743Ax6//9Hr///hcn+6kOx1l8ah7GXWhQe87ovLv/ndGz9a8Ti/zSq0uQAAAAeAAAACAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAl8qhUrXWxUOz2PFwxuL/gMzm/6/f
7/+/5vL/E5bBzgAAACUAI6YXAGX/JjSq/ya11/8VAAAAAFcHDO6GAgT/2EVD//9odc0AAAABAAAAAQAA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAAAAAABAAAAAQAA
AAEAlMYhAJDARACKuEcAZogYAAAABAAAAAEAAAAAAAAAAAAAAABNABtceQwS/64sLP//h3H//3RgKwAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AVREZDlgVIcmSDA7/52xn//+I
gP//YHg1////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wBQICxQhhId/6ga
JP/qh2n//4eB//9agTX///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AE8g
KkuQEiv/sTMp/++Tev//tbX//2tpNf///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8ATx8qTowiKf/ROjj//5KI//+5uv//amU1////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wB8AQE1kRAT9L8uMv/9kXn//5CA//91dDn///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wB/AAAxpQwn9r9LP/b/ZV2w/1xREP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8AwA///4AA//+AAAf/gAAA/4AAAD+AAAA/gAAAH4AA
AB+AAAAPgAAAD4AAAAeAAAAHgAAAA4AAAAOAAAADgAAAAYAAAAGAAAAAgAAAAIAAAAGAAAABgAAAP8AA
AD/AAAB/4ACA//AHB////gf///4H///+B////gf///4H////B/8oAAAAEAAAACAAAAABACAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAADgDAwN+AwMDlQMDA5UDAwOVAwMDlQMDA5UDAwOVAwMDlQMD
A5UDAwOVAwMDlQMDA5UDAwN+AAAAOAAAACEcgrX/GoCz/xd9sP8Ve67/Enir/w91qP8McqX/CnCj/wdt
oP8Fa57/A2mc/wFnmv8AZpn/AgICywMDA34hh7r/Zsz//x+FuP+Z////btT//27U//9u1P//btT//27U
//9u1P//btT//27U//9cwvD/mf///wBmmf8DAwOUJIq9/2bM//8mjL//mf///3rg//964P//euD//3rg
//964P//euD//3rg//964P//Z83z/5n///8BZ5r/AwMDlSeNwP9mzP//LJLF/5n///+F6///hev//4Xr
//+F6///hev//4Lc8f9/ucr/iam8/4O60f+Z+Pj/A2mc/wMDA5Upj8L/Zsz//zKYy/+Z////kff//5H3
//+R9///kff//5D1/f+Js73/mquw/6Wvtv+ss7z/o9TV/wVrnv8DAwOVLJLF/27U//8zmcz/mf///5n/
//+Z////mf///5n///+Q4OH/ma6x/7G1tf+8trb/veHi/7zZ3P8HbaD/AwMDlC6Ux/964P//LJLF////
////////////////////////3M3Q/+mwtf/9t7f//7e6///Y1f//5+f/CnCj/wMDA3Uwlsn/hev//4Dm
//8picj/InTT/ySJ0/8ulMf/LJHE/z5skv9qbo//cHSU/2J3n/9LeKj/IICy/xqAs/8AAAAhMpjL/5H3
//+O9P//KFD//wJ///8/t///dbrb//Ht7v+bICz//XeC///W1f//9vf/FXuu/wMDA3YAAAApAAAAATOZ
zP//////mf///zJi//8Djv//gtL//8HW4v85VXb/1EFE/0x/rf8cgrX/GoCz/xd9sP8AAAAhAAAACQAA
AAAAAAAAM5nM///////o6f//d6n//7jp//9ClsL/eQkN7/FgXdQAAAABAAAAAQAAAAEAAAABAAAAAQAA
AAAAAAAAAAAAAAAAAAAzmcz/MpjL/zCWyf8ulMf/YhYjrMRBPP//eHNyAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABTA8RH4MOGvLofGr//3OHbwAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8A////AP///wD///8A////AFEaJSSbICb9+ZWI//+LiHX///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wB7AAAJkAgQn91fV/T/b2ZS////AP//
/wD///8A////AP///wD///8A////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAQAAgAMAAMB/AADgfwAA+H8AAPh/AAA=
</value>
</data>
</root>

377
app/DD_Clipboard_Searcher/frmProfileMatch.vb
View File

@@ -1,377 +0,0 @@
Imports DD_Clipboard_Watcher.ClassProfileFilter
Imports DD_Clipboard_Watcher.ClassConstants
Imports DevExpress.XtraEditors
Imports DigitalData.GUIs.Common
Imports DigitalData.Modules
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Language
Imports DigitalData.Modules.ZooFlow
Public Class frmProfileMatch
Private PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
Private SecondaryFont As New Font("Segoe UI", 10)
Private OpenForms As New List(Of IResultForm)
Private ShouldHideInitially As Boolean = False
Public Class DocumentSearch
Public Guid As Integer
Public DataTable As DataTable
Public TabIndex As Integer
Public TabCaption As String
Public ProfileId As Integer
Public SQLCommand As String
End Class
Private Enum ProfileType
ANY = 0
DOCS_ONLY = 1
DATA_ONLY = 2
End Enum
Private Sub frmProfileMatch_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not ConfigManager.Config.MatchWindowLocation.IsEmpty Then
Location = ConfigManager.Config.MatchWindowLocation
End If
If Not ConfigManager.Config.MatchWindowSize.IsEmpty Then
Size = ConfigManager.Config.MatchWindowSize
End If
Dim oCreatedTiles = CreateTiles()
If oCreatedTiles = -1 Then
Exit Sub
End If
If oCreatedTiles = 0 Then
Logger.Warn("No Results found for ""{0}""", CURRENT_CLIPBOARD_CONTENTS)
Me.Close()
End If
Dim oMatchString = IIf(oCreatedTiles = 1, "1 Match", $"{oCreatedTiles} Matches")
Label1.Text = String.Format(Label1.Text, oMatchString, CURRENT_CLIPBOARD_CONTENTS)
' Open Result Forms directly if only one match found
If oCreatedTiles = 1 Then
Dim oProfile As ProfileData = CURRENT_MATCHING_PROFILES.First()
OpenResultForms(oProfile.Guid, oProfile.ProfileType)
ShouldHideInitially = True
End If
End Sub
Private Sub frmProfileMatch_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If ShouldHideInitially Then
Hide()
End If
End Sub
Function CreateTiles() As Integer
Try
Dim oCreatedTiles As Integer = 0
Dim oDocumentGroup = TileControlMatch.Groups.Item("TileGroupDocuments")
Dim oDataGroup = TileControlMatch.Groups.Item("TileGroupData")
Dim oDataDocumentsGroup = TileControlMatch.Groups.Item("TileGroupDocumentsData")
oDocumentGroup.Items.Clear()
oDataGroup.Items.Clear()
For Each oProfile As ProfileData In CURRENT_MATCHING_PROFILES
If oProfile.ProfileType = PROFILE_TYPE_DATA_DOCS Then
If oProfile.CountData > 0 And oProfile.CountDocs > 0 Then
Dim oCountText = oProfile.CountData + oProfile.CountDocs
Dim oItem = CreateTile(oProfile, $"{oCountText} Ergebnisse")
oDataDocumentsGroup.Items.Add(oItem)
oCreatedTiles += 1
End If
End If
If oProfile.ProfileType = PROFILE_TYPE_DATA_DOCS Or oProfile.ProfileType = PROFILE_TYPE_DOCS_ONLY Then
If oProfile.CountDocs > 0 Then
Dim oItem = CreateTile(oProfile, $"{oProfile.CountDocs} Dokumente")
oDocumentGroup.Items.Add(oItem)
oCreatedTiles += 1
End If
End If
If oProfile.ProfileType = PROFILE_TYPE_DATA_DOCS Or oProfile.ProfileType = PROFILE_TYPE_DATA_ONLY Then
If oProfile.CountData > 0 Then
Dim oItem = CreateTile(oProfile, $"{oProfile.CountData} Datensätze")
oDataGroup.Items.Add(oItem)
oCreatedTiles += 1
End If
End If
Next
Return oCreatedTiles
Catch ex As Exception
Logger.Error(ex)
MsgBox("Error while creating profile tiles!" & vbNewLine & ex.Message)
Return -1
End Try
End Function
Private Function CreateTile(Profile As ProfileData, CountText As String) As TileItem
Dim oItem As New TileItem() With {.Tag = Profile.Guid}
oItem.Elements.Clear()
Dim oNameElement = New TileItemElement With {
.Text = Profile.Name,
.TextAlignment = TileItemContentAlignment.TopLeft
}
oNameElement.Appearance.Normal.Font = PrimaryFont
oItem.Elements.Add(oNameElement)
Dim oCommentElement = New TileItemElement With {
.Text = Profile.Comment,
.TextAlignment = TileItemContentAlignment.MiddleLeft
}
oCommentElement.Appearance.Normal.Font = SecondaryFont
oItem.Elements.Add(oCommentElement)
Dim oCountElement = New TileItemElement With {
.Text = GetCountText(Profile, CountText),
.TextAlignment = TileItemContentAlignment.BottomRight
}
oCountElement.Appearance.Normal.Font = SecondaryFont
oItem.Elements.Add(oCountElement)
Return oItem
End Function
Private Function GetCountText(Profile As ProfileData, CountText As String) As String
Dim oText As String = "No implemented"
If Profile.CountData = INVALID_COUNT_SQL Then
oText = "Invalid SQL!"
ElseIf Profile.CountData = NO_COUNT_SQL Then
oText = "No SQL!"
Else
oText = CountText
End If
If Profile.CountDocs = INVALID_COUNT_SQL Then
oText = "Invalid SQL!"
ElseIf Profile.CountDocs = NO_COUNT_SQL Then
oText = "No SQL!"
Else
oText = CountText
End If
Return oText
End Function
Private Sub frmProfileMatch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
ConfigManager.Config.MatchWindowSize = Size
ConfigManager.Config.MatchWindowLocation = Location
ConfigManager.Save()
CURRENT_CLIPBOARD_CONTENTS = Nothing
Catch ex As Exception
Logger.Error(ex)
Logger.Info("Error in Save FormLayout: " & ex.Message)
End Try
End Sub
Private Sub TileControlMatch_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControlMatch.ItemClick
Dim oItem As TileItem = e.Item
Dim oProfileId As Integer = oItem.Tag
Select Case oItem.Group.Name
Case TileGroupData.Name
OpenResultForms(oProfileId, ProfileType.DATA_ONLY)
Case TileGroupDocuments.Name
OpenResultForms(oProfileId, ProfileType.DOCS_ONLY)
Case Else
OpenResultForms(oProfileId, ProfileType.ANY)
End Select
Hide()
End Sub
Private Async Function LoadSearchesAsync(MatchingProfiles As List(Of ProfileData)) As Task(Of List(Of DocumentSearch))
Return Await Task.Run(Function()
Return DoLoadSearches(MatchingProfiles)
End Function)
End Function
Private Function DoLoadSearches(MatchingProfiles As List(Of ProfileData)) As List(Of DocumentSearch)
Dim oMatchingIds = String.Join(",", MatchingProfiles.Select(Function(p) p.Guid).ToArray())
Dim oSQL As String = $"SELECT * FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID in ({oMatchingIds}) ORDER BY TAB_INDEX"
Dim oSearchesDataTable = Database.GetDatatable(oSQL)
Dim oDocSearches As New List(Of DocumentSearch)
For Each oRow As DataRow In oSearchesDataTable.Rows
Dim oGuid As Integer = oRow.Item("GUID")
Dim oProfileId As Integer = oRow.Item("PROFILE_ID")
Dim oTabTitle As String = oRow.Item("TAB_TITLE")
Dim oConnectionId As Integer = oRow.Item("CONN_ID")
oSQL = oRow.Item("SQL_COMMAND")
oSQL = clsPatterns.ReplaceAllValues(oSQL, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileId)
Dim oDatatable As DataTable = GetDatatable(oSQL, oConnectionId)
oDocSearches.Add(New DocumentSearch() With {
.Guid = oGuid,
.DataTable = oDatatable,
.ProfileId = oProfileId,
.TabCaption = oTabTitle,
.SQLCommand = oSQL
})
Next
Return oDocSearches
End Function
Private Async Sub OpenResultForms(ProfileId As Integer, OpenType As ProfileType)
Dim oMatchingProfiles As New List(Of ProfileData)
' TODO: Implement Show All
' Click on specific profile
Dim oProfile As ProfileData = CURRENT_MATCHING_PROFILES.
Where(Function(p) p.Guid = ProfileId).
First()
oMatchingProfiles.Add(oProfile)
Dim oSearches As List(Of DocumentSearch) = Await LoadSearchesAsync(oMatchingProfiles)
Dim oEnvironment = GetEnvironment()
Dim oParams = GetParams(oProfile, oSearches)
If OpenType = ProfileType.ANY Or OpenType = ProfileType.DOCS_ONLY Then
' Show Result Document Form
Dim oForm As New frmDocumentResultList(LogConfig, oEnvironment, oParams)
' TODO: Reopen match form
'AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
'OpenForms.Add(oForm)
'Dim oForm As New frmResultDoc(Me, oMatchingProfiles)
'AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
'OpenForms.Add(oForm)
oForm.Show()
End If
If OpenType = ProfileType.ANY Or OpenType = ProfileType.DATA_ONLY Then
' Show Result Data Form
Dim oForm As New frmResultSQL(Me, oMatchingProfiles)
AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
OpenForms.Add(oForm)
oForm.Show()
End If
End Sub
Private Function GetParams(Profile As ProfileData, DocumentSearches As List(Of DocumentSearch)) As DocumentResultParams
Dim oResults As New List(Of DocumentResult)
For Each oSearch In DocumentSearches
oResults.Add(New DocumentResult() With {
.Datatable = oSearch.DataTable,
.Title = oSearch.TabCaption
})
Next
Dim oParams As New DocumentResultParams() With {
.WindowGuid = GetWindowId(Profile, DocumentSearches),
.Results = oResults
}
Return oParams
End Function
Private Function GetWindowId(Profile As ProfileData, Searches As List(Of DocumentSearch)) As String
Dim oNameSlug = Utils.ConvertTextToSlug(Profile.Name)
Dim oSearchGuids = Searches.Select(Function(s) s.Guid).ToArray
Dim oWindowGuid = $"{Profile.Guid}-{oNameSlug}-{String.Join("-", oSearchGuids)}"
Return oWindowGuid
End Function
Private Function GetEnvironment() As Environment
Dim oUser As New State.UserState() With {
.DateFormat = USER_DATE_FORMAT,
.Email = USER_EMAIL,
.GivenName = USER_PRENAME,
.Language = USER_LANGUAGE,
.MachineName = System.Environment.MachineName,
.ShortName = USER_SHORTNAME,
.Surname = USER_SURNAME,
.UserId = USER_ID,
.UserName = USER_USERNAME
}
Dim oSettings As New State.SettingsState() With {
.GdPictureKey = ""
}
Dim oEnvironment As New Environment() With {
.Database = Nothing,
.Modules = Nothing,
.User = oUser,
.Settings = oSettings
}
Return oEnvironment
End Function
Private Function GetDatatable(SqlCommand As String, ConnectionId As Integer)
Try
Dim oRow As MyDataset.TBDD_CONNECTIONRow = DT_CONNECTIONS.AsEnumerable().
Where(Function(r) r.GUID = ConnectionId).
FirstOrDefault()
Dim oConnectionType As String = oRow.SQL_PROVIDER
Select Case oRow.SQL_PROVIDER
Case Constants.PROVIDER_MSSQL
Dim oSQL As New MSSQLServer(LogConfig, oRow.SERVER, oRow.DATENBANK, oRow.USERNAME, oRow.PASSWORD)
Return oSQL.GetDatatable(SqlCommand)
Case Constants.PROVIDER_ODBC
Dim oODBC As New ODBC(LogConfig, oRow.SERVER, oRow.USERNAME, oRow.PASSWORD)
Return oODBC.GetDatatable(SqlCommand)
Case Else
Dim oOracle As New Database.Oracle(LogConfig, oRow.SERVER, oRow.DATENBANK, oRow.USERNAME, oRow.PASSWORD)
Return oOracle.GetDatatable(SqlCommand)
End Select
Catch ex As Exception
Logger.Error(ex)
Return Nothing
End Try
End Function
Private Sub ProfileResultForm_Closed(sender As Object, e As FormClosedEventArgs)
Dim oShouldOpenAgain As Boolean = False
Dim oThisForm = New List(Of IResultForm) From {sender}
If TypeOf sender Is frmResultDoc Or TypeOf sender Is frmResultSQL Then
For Each oForm As IResultForm In OpenForms
' Determine if frmProfileMatch should be shown
If oForm.ShouldReturnToMatchForm Then
oShouldOpenAgain = True
End If
Next
End If
' If frmProfileMatch should be shown, close all windows of this profile
If oShouldOpenAgain Then
For Each oForm As Form In OpenForms.Except(oThisForm)
' Remove the Handler to prevent a loop
RemoveHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
oForm.Close()
Next
Show()
End If
End Sub
Private Sub AblaufSucheAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AblaufSucheAnzeigenToolStripMenuItem.Click
frmTreeView.ShowDialog()
End Sub
End Class

468
app/DD_Clipboard_Searcher/frmResultDoc.Designer.vb generated
View File

@@ -1,468 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmResultDoc
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmResultDoc))
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tslblDocID = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblState = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripDropDownButtonFile = New System.Windows.Forms.ToolStripDropDownButton()
Me.ÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripButtonDocView = New System.Windows.Forms.ToolStripButton()
Me.btnBackToMatchForm = New System.Windows.Forms.ToolStripButton()
Me.XtraTabControlDocs = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageDoc1 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch1 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc2 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch2 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc3 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch3 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc4 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch4 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch4 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc5 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch5 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ContextMenuStripWMFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.EigenschaftenDateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OrdnerÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControlDocs.SuspendLayout()
Me.XtraTabPageDoc1.SuspendLayout()
CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc2.SuspendLayout()
CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc3.SuspendLayout()
CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc4.SuspendLayout()
CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc5.SuspendLayout()
CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStripWMFile.SuspendLayout()
Me.SuspendLayout()
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblDocID, Me.tslblState})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 532)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 16, 0)
Me.StatusStrip1.Size = New System.Drawing.Size(933, 22)
Me.StatusStrip1.TabIndex = 0
Me.StatusStrip1.Text = "StatusStrip1"
'
'tslblDocID
'
Me.tslblDocID.Name = "tslblDocID"
Me.tslblDocID.Size = New System.Drawing.Size(0, 17)
'
'tslblState
'
Me.tslblState.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Alert_32xMD_color
Me.tslblState.Name = "tslblState"
Me.tslblState.Size = New System.Drawing.Size(75, 17)
Me.tslblState.Text = "Loading..."
'
'ToolStrip1
'
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile, Me.ToolStripButtonDocView, Me.btnBackToMatchForm})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(933, 25)
Me.ToolStrip1.TabIndex = 1
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripDropDownButtonFile
'
Me.ToolStripDropDownButtonFile.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripDropDownButtonFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ÖffnenToolStripMenuItem, Me.EigenschaftenToolStripMenuItem})
Me.ToolStripDropDownButtonFile.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.ID_FILE_PAGE_SETUP
Me.ToolStripDropDownButtonFile.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripDropDownButtonFile.Name = "ToolStripDropDownButtonFile"
Me.ToolStripDropDownButtonFile.Size = New System.Drawing.Size(63, 22)
Me.ToolStripDropDownButtonFile.Text = "Datei"
'
'ÖffnenToolStripMenuItem
'
Me.ÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.OpenFile
Me.ÖffnenToolStripMenuItem.Name = "ÖffnenToolStripMenuItem"
Me.ÖffnenToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
Me.ÖffnenToolStripMenuItem.Text = "Öffnen"
'
'EigenschaftenToolStripMenuItem
'
Me.EigenschaftenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.properties_16xMD
Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
Me.EigenschaftenToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
Me.EigenschaftenToolStripMenuItem.Text = "Eigenschaften"
'
'ToolStripButtonDocView
'
Me.ToolStripButtonDocView.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripButtonDocView.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.PreviewTab
Me.ToolStripButtonDocView.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButtonDocView.Name = "ToolStripButtonDocView"
Me.ToolStripButtonDocView.Size = New System.Drawing.Size(105, 22)
Me.ToolStripButtonDocView.Text = "Datei Vorschau"
'
'btnBackToMatchForm
'
Me.btnBackToMatchForm.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.control_start_blue
Me.btnBackToMatchForm.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnBackToMatchForm.Name = "btnBackToMatchForm"
Me.btnBackToMatchForm.Size = New System.Drawing.Size(157, 22)
Me.btnBackToMatchForm.Text = "Zurück zur Profilauswahl"
'
'XtraTabControlDocs
'
Me.XtraTabControlDocs.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControlDocs.Location = New System.Drawing.Point(0, 25)
Me.XtraTabControlDocs.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabControlDocs.Name = "XtraTabControlDocs"
Me.XtraTabControlDocs.SelectedTabPage = Me.XtraTabPageDoc1
Me.XtraTabControlDocs.Size = New System.Drawing.Size(933, 507)
Me.XtraTabControlDocs.TabIndex = 5
Me.XtraTabControlDocs.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageDoc1, Me.XtraTabPageDoc2, Me.XtraTabPageDoc3, Me.XtraTabPageDoc4, Me.XtraTabPageDoc5})
'
'XtraTabPageDoc1
'
Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
Me.XtraTabPageDoc1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
Me.XtraTabPageDoc1.Size = New System.Drawing.Size(931, 482)
Me.XtraTabPageDoc1.Text = "XtraTabPage1"
'
'GridControlDocSearch1
'
Me.GridControlDocSearch1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch1.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch1.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch1.MainView = Me.GridViewDocSearch1
Me.GridControlDocSearch1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch1.Name = "GridControlDocSearch1"
Me.GridControlDocSearch1.Size = New System.Drawing.Size(931, 482)
Me.GridControlDocSearch1.TabIndex = 0
Me.GridControlDocSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch1})
'
'GridViewDocSearch1
'
Me.GridViewDocSearch1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDocSearch1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch1.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch1.DetailHeight = 431
Me.GridViewDocSearch1.GridControl = Me.GridControlDocSearch1
Me.GridViewDocSearch1.Name = "GridViewDocSearch1"
Me.GridViewDocSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch1.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch1.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch1.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc2
'
Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
Me.XtraTabPageDoc2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
Me.XtraTabPageDoc2.PageVisible = False
Me.XtraTabPageDoc2.Size = New System.Drawing.Size(931, 482)
Me.XtraTabPageDoc2.Text = "XtraTabPage2"
'
'GridControlDocSearch2
'
Me.GridControlDocSearch2.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch2.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch2.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2
Me.GridControlDocSearch2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch2.Name = "GridControlDocSearch2"
Me.GridControlDocSearch2.Size = New System.Drawing.Size(931, 482)
Me.GridControlDocSearch2.TabIndex = 1
Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch2})
'
'GridViewDocSearch2
'
Me.GridViewDocSearch2.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDocSearch2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch2.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch2.DetailHeight = 431
Me.GridViewDocSearch2.GridControl = Me.GridControlDocSearch2
Me.GridViewDocSearch2.Name = "GridViewDocSearch2"
Me.GridViewDocSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch2.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch2.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch2.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc3
'
Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3)
Me.XtraTabPageDoc3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3"
Me.XtraTabPageDoc3.PageVisible = False
Me.XtraTabPageDoc3.Size = New System.Drawing.Size(931, 482)
Me.XtraTabPageDoc3.Text = "XtraTabPage1"
'
'GridControlDocSearch3
'
Me.GridControlDocSearch3.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch3.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch3.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch3.MainView = Me.GridViewDocSearch3
Me.GridControlDocSearch3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch3.Name = "GridControlDocSearch3"
Me.GridControlDocSearch3.Size = New System.Drawing.Size(931, 482)
Me.GridControlDocSearch3.TabIndex = 1
Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch3})
'
'GridViewDocSearch3
'
Me.GridViewDocSearch3.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDocSearch3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch3.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch3.DetailHeight = 431
Me.GridViewDocSearch3.GridControl = Me.GridControlDocSearch3
Me.GridViewDocSearch3.Name = "GridViewDocSearch3"
Me.GridViewDocSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch3.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch3.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch3.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc4
'
Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4)
Me.XtraTabPageDoc4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4"
Me.XtraTabPageDoc4.PageVisible = False
Me.XtraTabPageDoc4.Size = New System.Drawing.Size(931, 482)
Me.XtraTabPageDoc4.Text = "XtraTabPage2"
'
'GridControlDocSearch4
'
Me.GridControlDocSearch4.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch4.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch4.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch4.MainView = Me.GridViewDocSearch4
Me.GridControlDocSearch4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch4.Name = "GridControlDocSearch4"
Me.GridControlDocSearch4.Size = New System.Drawing.Size(931, 482)
Me.GridControlDocSearch4.TabIndex = 1
Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch4})
'
'GridViewDocSearch4
'
Me.GridViewDocSearch4.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDocSearch4.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch4.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch4.DetailHeight = 431
Me.GridViewDocSearch4.GridControl = Me.GridControlDocSearch4
Me.GridViewDocSearch4.Name = "GridViewDocSearch4"
Me.GridViewDocSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch4.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch4.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch4.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc5
'
Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5)
Me.XtraTabPageDoc5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5"
Me.XtraTabPageDoc5.PageVisible = False
Me.XtraTabPageDoc5.Size = New System.Drawing.Size(931, 482)
Me.XtraTabPageDoc5.Text = "XtraTabPage3"
'
'GridControlDocSearch5
'
Me.GridControlDocSearch5.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch5.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch5.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch5.MainView = Me.GridViewDocSearch5
Me.GridControlDocSearch5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch5.Name = "GridControlDocSearch5"
Me.GridControlDocSearch5.Size = New System.Drawing.Size(931, 482)
Me.GridControlDocSearch5.TabIndex = 1
Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch5})
'
'GridViewDocSearch5
'
Me.GridViewDocSearch5.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDocSearch5.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch5.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch5.DetailHeight = 431
Me.GridViewDocSearch5.GridControl = Me.GridControlDocSearch5
Me.GridViewDocSearch5.Name = "GridViewDocSearch5"
Me.GridViewDocSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch5.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch5.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch5.OptionsView.ShowAutoFilterRow = True
'
'ContextMenuStripWMFile
'
Me.ContextMenuStripWMFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EigenschaftenDateiToolStripMenuItem, Me.DateiÖffnenToolStripMenuItem, Me.OrdnerÖffnenToolStripMenuItem, Me.ToolStripSeparator1, Me.ToolStripMenuItem1, Me.ToolStripMenuItem2})
Me.ContextMenuStripWMFile.Name = "ContextMenuStripWMFile"
Me.ContextMenuStripWMFile.Size = New System.Drawing.Size(182, 120)
'
'EigenschaftenDateiToolStripMenuItem
'
Me.EigenschaftenDateiToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.properties_16xMD
Me.EigenschaftenDateiToolStripMenuItem.Name = "EigenschaftenDateiToolStripMenuItem"
Me.EigenschaftenDateiToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
Me.EigenschaftenDateiToolStripMenuItem.Text = "Eigenschaften Datei"
'
'DateiÖffnenToolStripMenuItem
'
Me.DateiÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.OpenFile
Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
Me.DateiÖffnenToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
Me.DateiÖffnenToolStripMenuItem.Text = "Datei öffnen"
'
'OrdnerÖffnenToolStripMenuItem
'
Me.OrdnerÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.folder_Open_16xLG
Me.OrdnerÖffnenToolStripMenuItem.Name = "OrdnerÖffnenToolStripMenuItem"
Me.OrdnerÖffnenToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
Me.OrdnerÖffnenToolStripMenuItem.Text = "Ordner öffnen"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(178, 6)
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.refresh_16xLG
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(181, 22)
Me.ToolStripMenuItem1.Text = "Aktualisieren"
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(181, 22)
Me.ToolStripMenuItem2.Text = "Layout zurücksetzen"
'
'frmResultDoc
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(933, 554)
Me.Controls.Add(Me.XtraTabControlDocs)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmResultDoc"
Me.Text = "Clipboard-Watcher Doc-Result"
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControlDocs.ResumeLayout(False)
Me.XtraTabPageDoc1.ResumeLayout(False)
CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc2.ResumeLayout(False)
CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc3.ResumeLayout(False)
CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc4.ResumeLayout(False)
CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc5.ResumeLayout(False)
CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStripWMFile.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents XtraTabControlDocs As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPageDoc1 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlDocSearch1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDocSearch1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabPageDoc2 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlDocSearch2 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDocSearch2 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabPageDoc3 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlDocSearch3 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDocSearch3 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabPageDoc4 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlDocSearch4 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDocSearch4 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabPageDoc5 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlDocSearch5 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDocSearch5 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents ContextMenuStripWMFile As ContextMenuStrip
Friend WithEvents EigenschaftenDateiToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DateiÖffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
Friend WithEvents tslblDocID As ToolStripStatusLabel
Friend WithEvents ToolStripDropDownButtonFile As ToolStripDropDownButton
Friend WithEvents ÖffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tslblState As ToolStripStatusLabel
Friend WithEvents OrdnerÖffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripButtonDocView As ToolStripButton
Friend WithEvents btnBackToMatchForm As ToolStripButton
End Class

182
app/DD_Clipboard_Searcher/frmResultDoc.resx
View File

@@ -1,182 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>134, 17</value>
</metadata>
<metadata name="ContextMenuStripWMFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>241, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA
AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAP///////wAA93d3d3d/AAD3d3d3
d38AAPd////3fwAA93////d/AAD3f///938AD/d////3fwD3eH////d/D3Zn////93/3ZmZ///d3f/Z2
Z2//93fw9/Zvf3d3fwD/9m//d3fwAPD2bw///wAAAP//AAAAAAAAAAAAAAAAAPAAAADwAAAA8AAAAPAA
AADwAAAA8AAAAOAAAADAAAAAgAAAAAAAAAAAAQAAAAMAAAAHAABCDwAAw/8AAP//AAAoAAAAEAAAACAA
AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCcUwAAvpBcAIaGhgCzs7MA8e/wAPTz
9AD29vYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAICAgICAgICAgICAgAAAAACAEBAQEB
AQEBAQEIAAAAAAgBAQEBAQEBAQEBCAAAAAAIAQEGBgYGBgYBAQgAAAAACAEBBgYGBgYGAQEIAAAAAAgB
AQYGBgYGBgEBCAAAAAgIAQEGBgYGBgYBAQgAAAgDAwUBBgYGBgYGAQEIAAgDAgIDCAYGBgYGBgEBCAgD
AgICAgMIBgYGAQEBBAgIAgMCAgMCCAYGBgEBBAgACAMIAgIIAwgBAQEBBAgAAAgICAICCAgIAQEBBAgA
AAAIAAgCAggACAgICAgAAAAAAAAICAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAA
AADwAAAA8AAAAPAAAADgAAAAwAAAAIAAAAAAAAAAAAEAAAADAAAABwAAQg8AAMP/AAD//wAAKAAAABAA
AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vb/9vb2//b2
9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/AAAAAAAAAAAAAAAAAAAAAPb2
9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/wAAAAAAAAAAAAAAAAAA
AAD29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b29v8AAAAAAAAAAAAA
AAAAAAAA9vb2/0JCQv9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JCQv/29vb/AAAAAAAA
AAAAAAAA9vb2MPb29v9CQkL/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv9CQkL/9vb2/wAA
AAAAAAAA9vb2MPb29u/29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b2
9v8AAAAA9vb2MPb29u++kFz/vpBc/7Ozs/9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JC
Qv/29vb/9vb2MPb29u++kFz/nFMA/5xTAP++kFz/9vb2//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JC
Qv9CQkL/9vb2//b29u++kFz/nFMA/5xTAP+cUwD/nFMA/76QXP/08/T/8e/w//Hv8P/x7/D/QkJC/0JC
Qv9CQkL/hoaG//b29u/29vb/nFMA/76QXP+cUwD/nFMA/76QXP+cUwD/9vb2//Hv8P/x7/D/8e/w/0JC
Qv9CQkL/hoaG//b29u/29vYw9vb2/76QXP/29vb/nFMA/5xTAP/29vb/vpBc//b29v9CQkL/QkJC/0JC
Qv9CQkL/hoaG//b29u/29vYwAAAAAPb29v/29vbv9vb2/5xTAP+cUwD/9vb2//b29u/29vb/QkJC/0JC
Qv9CQkL/hoaG//b29u/29vYwAAAAAAAAAAD29vbv9vb2MPb29v+cUwD/nFMA//b29v/29vYw9vb2//b2
9v/29vb/9vb2//b29u/29vYwAAAAAAAAAAAAAAAA9vb2MAAAAAD29vb/9vb2//b29v/29vb/AAAAAPb2
9jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAAAADwAAAA8AAAAOAA
AADAAAAAgAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAEL/AAD//wAA
</value>
</data>
</root>

678
app/DD_Clipboard_Searcher/frmResultDoc.vb
View File

@@ -1,678 +0,0 @@
Imports System.ComponentModel
Imports System.IO
Imports DevExpress.Utils
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Grid
Imports DD_LIB_Standards
Imports DevExpress.XtraTab
Imports DD_Clipboard_Watcher.ClassProfileFilter
Imports DigitalData.Modules
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Database.Constants
Public Class frmResultDoc
Implements IResultForm
#Region "Laufzeitvariablen & Konstanten"
Private Shared BW_DocPath As String
Private Shared BW_DocID As Integer
Private Shared CurrSearchID As Integer
Private DTDocSearchDefinition As DataTable
Private _frmDocView As frmDocView 'You need a reference to Form1
Private _frmProfileMatch As frmProfileMatch 'You need a reference to Form1
Private _frmSQL As frmResultSQL 'You need a reference to Form1
Private _activeGridView As GridView
Private Current_MatchingProfiles As List(Of ProfileData)
Public Property ShouldReturnToMatchForm As Boolean = False Implements IResultForm.ShouldReturnToMatchForm
#End Region
Public Sub New()
MyBase.New
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
_frmProfileMatch = Nothing
End Sub
Public Sub New(ProfileMatchForm As frmProfileMatch, MatchingProfiles As List(Of ProfileData))
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
_frmProfileMatch = ProfileMatchForm
Current_MatchingProfiles = MatchingProfiles
End Sub
Private Class DocSearch
Public DataTable As DataTable
Public TabIndex As Integer
Public TabCaption As String
Public ProfileId As Integer
Public SQLCommand As String
End Class
Private Async Sub frmResultDoc_Load(sender As Object, e As EventArgs) Handles Me.Load
ToolStripDropDownButtonFile.Visible = False
If Not ConfigManager.Config.ResultDocWindowLocation.IsEmpty Then
Location = ConfigManager.Config.ResultDocWindowLocation
End If
If Not ConfigManager.Config.ResultDocWindowSize.IsEmpty Then
Size = ConfigManager.Config.ResultDocWindowSize
End If
GridViewDocSearch1.ShowLoadingPanel()
Dim oSearches = Await LoadSearchesAsync()
For Each oSearch As DocSearch In oSearches
RefreshTabDoc(oSearch.ProfileId, oSearch.DataTable, oSearch.TabIndex, oSearch.TabCaption)
Next
GridViewDocSearch1.HideLoadingPanel()
End Sub
Private Sub frmResultDoc_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
ConfigManager.Config.ResultDocWindowSize = Size
ConfigManager.Config.ResultDocWindowLocation = Location
ConfigManager.Save()
Catch ex As Exception
Logger.Error(ex)
Logger.Warn("Error in Save FormLayout: " & ex.Message)
End Try
_frmDocView?.Close()
End Sub
Private Async Function LoadSearchesAsync() As Task(Of List(Of DocSearch))
Return Await Task.Run(AddressOf DoLoadSearches)
End Function
Private Function DoLoadSearches() As List(Of DocSearch)
Dim oMatchingIds = String.Join(",", Current_MatchingProfiles.Select(Function(p) p.Guid).ToArray())
Dim oSQL As String = $"SELECT * FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID in ({oMatchingIds}) ORDER BY TAB_INDEX"
Dim oSearchesDataTable = Database.GetDatatable(oSQL)
Dim oDocSearches As New List(Of DocSearch)
Dim oCounter As Integer = 0
DTDocSearchDefinition = oSearchesDataTable
For Each oRow As DataRow In oSearchesDataTable.Rows
Dim oProfileId As Integer = oRow.Item("PROFILE_ID")
Dim oTabTitle As String = oRow.Item("TAB_TITLE")
Dim oConnectionId As Integer = oRow.Item("CONN_ID")
oSQL = oRow.Item("SQL_COMMAND")
oSQL = clsPatterns.ReplaceAllValues(oSQL, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileId)
Dim oDatatable As DataTable = GetDatatable(oSQL, oConnectionId)
oDocSearches.Add(New DocSearch() With {
.DataTable = oDatatable,
.ProfileId = oProfileId,
.TabCaption = oTabTitle,
.TabIndex = oCounter,
.SQLCommand = oSQL
})
oCounter += 1
Next
Return oDocSearches
End Function
Private Function GetDatatable(SqlCommand As String, ConnectionId As Integer)
Try
Dim oRow As MyDataset.TBDD_CONNECTIONRow = DT_CONNECTIONS.AsEnumerable().
Where(Function(r) r.GUID = ConnectionId).
FirstOrDefault()
Dim oConnectionType As String = oRow.SQL_PROVIDER
Select Case oRow.SQL_PROVIDER
Case PROVIDER_MSSQL
Dim oSQL As New MSSQLServer(LogConfig, oRow.SERVER, oRow.DATENBANK, oRow.USERNAME, oRow.PASSWORD)
Return oSQL.GetDatatable(SqlCommand)
Case PROVIDER_ODBC
Dim oODBC As New ODBC(LogConfig, oRow.SERVER, oRow.USERNAME, oRow.PASSWORD)
Return oODBC.GetDatatable(SqlCommand)
Case Else
Dim oOracle As New Database.Oracle(LogConfig, oRow.SERVER, oRow.DATENBANK, oRow.USERNAME, oRow.PASSWORD)
Return oOracle.GetDatatable(SqlCommand)
End Select
Catch ex As Exception
Logger.Error(ex)
Return Nothing
End Try
End Function
Sub Filter_EventTab(FilterCount As Integer)
Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex
Dim oTabTitle = DTDocSearchDefinition.Rows(oTabIndex).Item("TAB_TITLE")
XtraTabControlDocs.TabPages(TabIndex).Text = $"{oTabTitle} ({FilterCount} Filtered)"
End Sub
Sub RefreshTabDoc(ProfileId As Integer, Datatable As DataTable, TabIndex As Integer, TabCaption As String)
Try
Dim myGridControl As GridControl = GridControlDocSearch1
Dim myGridview As GridView = GridViewDocSearch1
Select Case TabIndex
Case 0
GridControlDocSearch1.DataSource = Nothing
GridViewDocSearch1.Columns.Clear()
myGridview = GridViewDocSearch1
myGridControl = GridControlDocSearch1
Case 1
GridControlDocSearch2.DataSource = Nothing
GridViewDocSearch2.Columns.Clear()
myGridview = GridViewDocSearch2
myGridControl = GridControlDocSearch2
Case 2
GridControlDocSearch3.DataSource = Nothing
GridViewDocSearch3.Columns.Clear()
myGridview = GridViewDocSearch3
myGridControl = GridControlDocSearch3
Case 3
GridControlDocSearch4.DataSource = Nothing
GridViewDocSearch4.Columns.Clear()
myGridControl = GridControlDocSearch4
myGridview = GridViewDocSearch4
Case 4
GridControlDocSearch5.DataSource = Nothing
GridViewDocSearch5.Columns.Clear()
myGridControl = GridControlDocSearch5
myGridview = GridViewDocSearch5
End Select
myGridControl.ContextMenuStrip = ContextMenuStripWMFile
If Not IsNothing(Datatable) Then
XtraTabControlDocs.TabPages(TabIndex).Text = $"{TabCaption} ({Datatable.Rows.Count})"
clsWMDocGrid.DTDocuments = Datatable
Create_GridControl(myGridview, Datatable)
Dim oxmlPath As String = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
If File.Exists(oxmlPath) Then
myGridview.RestoreLayoutFromXml(oxmlPath)
myGridview.GuessAutoFilterRowValuesFromFilter()
End If
tslblState.Text = $"Tab [{TabCaption}] refreshed - {Now}"
XtraTabControlDocs.TabPages(TabIndex).PageVisible = True
Else
clsWMDocGrid.DTDocuments = Nothing
End If
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Sub Create_GridControl(MyGridView As GridView, _datatable As DataTable)
Dim oMyDocDatatable As New DataTable
Try
'Die Icon Colum erstellen und konfigurieren
Dim oColIcon As New DataColumn() With {
.DataType = GetType(Image),
.ColumnName = "ICON",
.Caption = ""
}
oMyDocDatatable.Columns.Add(oColIcon)
Dim oColPath As New DataColumn() With {
.DataType = GetType(String),
.ColumnName = "FULL_FILENAME",
.Caption = "Fullpath"
}
oMyDocDatatable.Columns.Add(oColPath)
Dim oColDocID As New DataColumn() With {
.DataType = GetType(Int32),
.ColumnName = "DocID",
.Caption = "DocID"
}
oMyDocDatatable.Columns.Add(oColDocID)
Dim oRestColArray As New List(Of String)
For Each oCol As DataColumn In _datatable.Columns
Dim onewColumn As New DataColumn()
If oCol.ColumnName <> "DocID" And oCol.ColumnName <> "FULL_FILENAME" And oCol.ColumnName <> "Filename" Then
onewColumn.DataType = GetType(String)
onewColumn.ColumnName = oCol.ColumnName
onewColumn.Caption = oCol.Caption
oMyDocDatatable.Columns.Add(onewColumn)
oRestColArray.Add(onewColumn.ColumnName)
End If
Next
For Each FILE_ROW As DataRow In _datatable.Rows
Dim oFullpath = FILE_ROW.Item("FULL_FILENAME")
Dim oDocID = FILE_ROW.Item("DocID")
'Dim Folderpath = Path.GetDirectoryName(fullpath)
Dim oFilename = Path.GetFileName(oFullpath)
Dim oFileextension = Path.GetExtension(oFullpath)
Dim oNewRow As DataRow
oNewRow = oMyDocDatatable.NewRow()
'Icon zuweisen
Select Case oFileextension.ToUpper
Case ".csv".ToUpper
oNewRow.Item(0) = My.Resources.doc_excel_csv
Case ".txt".ToUpper
oNewRow.Item(0) = My.Resources.txt
Case ".pdf".ToUpper
oNewRow.Item(0) = My.Resources.pdf
Case ".doc".ToUpper
oNewRow.Item(0) = My.Resources.doc
Case ".docx".ToUpper
oNewRow.Item(0) = My.Resources.doc
Case ".xls".ToUpper
oNewRow.Item(0) = My.Resources.xls
Case ".xlsx".ToUpper
oNewRow.Item(0) = My.Resources.xls
Case ".xlsm".ToUpper
oNewRow.Item(0) = My.Resources.xls
Case ".ppt".ToUpper
oNewRow.Item(0) = My.Resources.ppt
Case ".pptx".ToUpper
oNewRow.Item(0) = My.Resources.ppt
Case ".dwg".ToUpper
oNewRow.Item(0) = My.Resources.dwg
Case ".dxf".ToUpper
oNewRow.Item(0) = My.Resources.dxf
Case ".msg".ToUpper
oNewRow.Item(0) = My.Resources.email_go
Case ".msg".ToUpper
oNewRow.Item(0) = My.Resources.email_go
Case ".tif".ToUpper
oNewRow.Item(0) = My.Resources.tiff
Case ".tiff".ToUpper
oNewRow.Item(0) = My.Resources.tiff
Case ".jpg".ToUpper
oNewRow.Item(0) = My.Resources.jpg
Case Else
oNewRow.Item(0) = My.Resources._blank
End Select
'Den Filepath mitgeben
oNewRow.Item(1) = oFullpath
oNewRow.Item(2) = oDocID
Dim i = 3 'Fängt bei 3 an, um die definierten Spalten zu überspringen
For Each Colname As String In oRestColArray
Dim oRowValue
oRowValue = FILE_ROW.Item(Colname)
oNewRow.Item(i) = oRowValue.ToString
i += 1
Next
oMyDocDatatable.Rows.Add(oNewRow)
Next
Dim oGridControl As GridControl = MyGridView.GridControl
oGridControl.DataSource = oMyDocDatatable
oGridControl.ForceInitialize()
Try
MyGridView.Columns.Item("DocID").Visible = False
Catch ex As Exception
End Try
Try
MyGridView.Columns.Item("FULL_FILENAME").Visible = False
Catch ex As Exception
End Try
Dim created, changed As String
If USER_LANGUAGE <> "de-DE" Then
changed = "Changed"
created = "Created"
Else
changed = "Geändert"
created = "Erstellt"
End If
Dim createdColumn = MyGridView.Columns(created)
If Not IsNothing(createdColumn) Then
createdColumn.DisplayFormat.FormatType = FormatType.DateTime
createdColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
End If
Dim changedColumn = MyGridView.Columns(changed)
If Not IsNothing(changedColumn) Then
changedColumn.DisplayFormat.FormatType = FormatType.DateTime
changedColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
End If
' Alle Spalten aus ReadOnly setzen, danach werden alle passenden auf nicht ReadOnly gesetzt
For Each column As GridColumn In MyGridView.Columns
column.OptionsColumn.AllowEdit = False
Next
MyGridView.Columns.Item("ICON").MaxWidth = 24
MyGridView.Columns.Item("ICON").MinWidth = 24
MyGridView.OptionsView.BestFitMaxRowCount = -1
MyGridView.BestFitColumns(True)
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Function Get_DocGrid_Layout_Filename(oIndex As Integer)
Dim oFilename As String = String.Format("GridViewDoc_Search-{0}-{1}-UserLayout.xml", oIndex, CurrSearchID)
Dim oPath = Path.Combine(Application.UserAppDataPath(), oFilename)
Return oPath
End Function
Private Sub GridControlDocSearch_Leave(sender As Object, e As EventArgs) Handles GridControlDocSearch1.Leave, GridControlDocSearch2.Leave, GridControlDocSearch3.Leave, GridControlDocSearch4.Leave, GridControlDocSearch5.Leave
SaveDocGridLayout()
End Sub
Sub SaveDocGridLayout()
Dim oXMLPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
clsWMDocGrid.ActiveDocGrid.SaveLayoutToXml(oXMLPath)
End Sub
Private Sub EigenschaftenDateiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenDateiToolStripMenuItem.Click
Show_File_Properties()
End Sub
Sub Show_File_Properties()
If IsNothing(clsWMDocGrid.DTDocuments) Then
MsgBox("Could not read file Parameters!", MsgBoxStyle.Exclamation)
Exit Sub
End If
Cursor = Cursors.WaitCursor
For Each oRow As DataRow In clsWMDocGrid.DTDocuments.Rows
Dim oWindows As New ClassWindowsAPI(LogConfig)
oWindows.ShowFileProperties(oRow.Item("DOC_PATH"))
Next
Cursor = Cursors.Default
End Sub
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
FileShow()
End Sub
Sub FileShow()
Try
If IsNothing(clsWMDocGrid.DTDocuments) Then
MsgBox("Could not read fileparameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In clsWMDocGrid.DTDocuments.Rows
File_SYSOPEN(row.Item("DOC_PATH"), row.Item("DOC_ID"))
Next
Catch ex As Exception
End Try
End Sub
Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String)
Try
If RESULT_DOC_PATH <> Nothing Then
BW_DocPath = RESULT_DOC_PATH
BW_DocID = DocID
Dim BWFileHandler As New BackgroundWorker
AddHandler BWFileHandler.DoWork, AddressOf BWFileHandler_DoWork
BWFileHandler.RunWorkerAsync()
End If
Catch ex As Exception
MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
Logger.Error(ex)
End Try
End Sub
Private Shared Sub BWFileHandler_DoWork()
Try
Dim oMyProcess = New Process()
Dim oExtension
Dim oSql
Try
'Dim oPSI As New ProcessStartInfo(BW_DocPath)
oMyProcess.StartInfo.FileName = BW_DocPath
oMyProcess.StartInfo.UseShellExecute = True
oMyProcess.StartInfo.RedirectStandardOutput = False
oMyProcess.Start()
'oMyProcess.WaitForExit()
Catch ex As Exception
Logger.Error(ex)
Exit Sub
End Try
Catch ex As Exception
Logger.Error(ex)
Try
Process.Start(BW_DocPath)
Catch ex1 As Exception
Logger.Error(ex)
End Try
End Try
End Sub
Sub Refresh_DocID(myGrid As GridView)
Try
_activeGridView = myGrid
clsWMDocGrid.ActiveDocGrid = myGrid
clsWMDocGrid.ActiveDocGrid.EndSelection()
clsWMDocGrid.GetDocItems()
Try
ContextMenuStripWMFile.Close()
Catch ex As Exception
End Try
If ToolStripDropDownButtonFile.Visible = False Then
ToolStripDropDownButtonFile.Visible = True
End If
If clsWMDocGrid.SELECTED_DOC_ID <> 0 Then
Dim msg = "Doc-ID: " & clsWMDocGrid.SELECTED_DOC_ID.ToString
tslblDocID.Text = msg
ToolStripDropDownButtonFile.Enabled = True
Dim frmCollection As New FormCollection()
frmCollection = Application.OpenForms()
Try
If frmCollection.Item("frmDocView").IsHandleCreated Then
'MsgBox("Yes Opened")
_frmDocView.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
Else
Dim f As New frmDocView
With f
.Show()
.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
End With
End If
Catch ex As Exception
If ConfigManager.Config.LoadDocumentView = True Then
Dim newDocView As New frmDocView
With newDocView
.Show()
.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
End With
_frmDocView = newDocView
ToolStripButtonDocView.Checked = True
Else
ToolStripButtonDocView.Checked = False
End If
End Try
BringToFront()
Else
tslblDocID.Text = "DocRow not selected"
ToolStripDropDownButtonFile.Enabled = False
End If
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Sub GridViewDocSearch_FocusedRowChanged(sender As GridView, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewDocSearch1.FocusedRowChanged, GridViewDocSearch2.FocusedRowChanged, GridViewDocSearch3.FocusedRowChanged, GridViewDocSearch4.FocusedRowChanged, GridViewDocSearch5.FocusedRowChanged
_activeGridView = sender
Refresh_DocID(sender)
End Sub
Private Sub GridViewDocSearch_ColumnWidthChanged(sender As GridView, e As Views.Base.ColumnEventArgs) Handles GridViewDocSearch1.ColumnWidthChanged, GridViewDocSearch2.ColumnWidthChanged, GridViewDocSearch3.ColumnWidthChanged, GridViewDocSearch4.ColumnWidthChanged, GridViewDocSearch5.ColumnWidthChanged
_activeGridView = sender
SaveDocGridLayout()
End Sub
Private Sub GridControlDocSearch1_DoubleClick(sender As GridControl, e As EventArgs) Handles GridControlDocSearch1.DoubleClick, GridControlDocSearch2.DoubleClick, GridControlDocSearch3.DoubleClick, GridControlDocSearch4.DoubleClick, GridControlDocSearch5.DoubleClick
Refresh_DocID(sender.DefaultView)
FileShow()
End Sub
Private Sub ÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripMenuItem.Click
FileShow()
End Sub
Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenToolStripMenuItem.Click
Show_File_Properties()
End Sub
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
ReLoad_Active_DocTab()
End Sub
Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
Set_DoclayoutBack()
End Sub
Sub Set_DoclayoutBack()
Dim oXMLPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
Try
If File.Exists(oXMLPath) Then
File.Delete(oXMLPath)
ReLoad_Active_DocTab()
tslblState.Text = "Layout has been set back!"
Else
tslblState.Text = ""
End If
Catch ex As Exception
tslblState.Text = ""
End Try
End Sub
Sub ReLoad_Active_DocTab()
Try
Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex
Dim oConID = DTDocSearchDefinition.Rows(oTabIndex).Item("CONN_ID")
Dim oCommand = DTDocSearchDefinition.Rows(oTabIndex).Item("SQL_COMMAND")
Dim oProfID = DTDocSearchDefinition.Rows(oTabIndex).Item("PROFILE_ID")
Dim oTabTitle = DTDocSearchDefinition.Rows(oTabIndex).Item("TAB_TITLE")
Dim oDatatable As DataTable
oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfID)
oDatatable = Database.GetDatatable(oCommand)
RefreshTabDoc(oProfID, oDatatable, oTabIndex, oTabTitle)
Catch ex As Exception
Logger.Error(ex)
MsgBox($"Error while reloading tab data: " & vbNewLine & ex.Message)
End Try
End Sub
Private Sub XtraTabControlDocs_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControlDocs.SelectedPageChanged
Try
If IsNothing(DTDocSearchDefinition) Then
Exit Sub
End If
Dim oSearchDefinitionRow = DTDocSearchDefinition.Rows(XtraTabControlDocs.SelectedTabPageIndex)
Dim oConID = oSearchDefinitionRow.Item("CONN_ID")
Dim oCommand = oSearchDefinitionRow.Item("SQL_COMMAND")
Dim oProfileID = oSearchDefinitionRow.Item("PROFILE_ID")
Dim oTabIndex = oSearchDefinitionRow.Item("TAB_INDEX")
Dim oTabCaption = oSearchDefinitionRow.Item("TAB_TITLE")
Dim oDatatable As DataTable
oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileID)
oDatatable = Database.GetDatatable(oCommand)
RefreshTabDoc(oProfileID, oDatatable, oTabIndex, oTabCaption)
Catch ex As Exception
Logger.Error(ex)
MsgBox("Error while loading tab data: " & vbNewLine & ex.Message)
End Try
End Sub
Private Sub GridControlDocSearch2_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch2.DoubleClick
Refresh_DocID(GridViewDocSearch2)
FileShow()
End Sub
Private Sub GridControlDocSearch3_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch3.DoubleClick
Refresh_DocID(GridViewDocSearch3)
FileShow()
End Sub
Private Sub GridControlDocSearch4_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch4.DoubleClick
Refresh_DocID(GridViewDocSearch4)
FileShow()
End Sub
Private Sub GridControlDocSearch5_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch5.DoubleClick
Refresh_DocID(GridViewDocSearch5)
FileShow()
End Sub
Private Sub OrdnerÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OrdnerÖffnenToolStripMenuItem.Click
Open_Folder()
End Sub
Sub Open_Folder()
Dim oFilepath = Path.GetDirectoryName(clsWMDocGrid.SELECTED_DOC_PATH)
If Directory.Exists(oFilepath) = True Then
Process.Start(oFilepath)
Else
MsgBox("Folder '" & oFilepath & "' not existing or accessible!", MsgBoxStyle.Exclamation)
End If
End Sub
Private Sub ToolStripButtonDocView_Click(sender As Object, e As EventArgs) Handles ToolStripButtonDocView.Click
If ConfigManager.Config.LoadDocumentView = False Then
Dim newDocView As New frmDocView
With newDocView
.Show()
.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
End With
_frmDocView = newDocView
ToolStripButtonDocView.Checked = True
ConfigManager.Config.LoadDocumentView = True
Else
ToolStripButtonDocView.Checked = False
ConfigManager.Config.LoadDocumentView = False
Try
_frmDocView.Close()
Catch ex As Exception
End Try
End If
ConfigManager.Save()
End Sub
Private Sub ToolStripButtonDocView_CheckedChanged(sender As Object, e As EventArgs) Handles ToolStripButtonDocView.CheckedChanged
If ToolStripButtonDocView.Checked Then
ToolStripButtonDocView.Text = "Datei Vorschau (Aktiv)"
Else
ToolStripButtonDocView.Text = "Datei Vorschau (Inaktiv)"
End If
End Sub
Private Sub frmResultDoc_Shown(sender As Object, e As EventArgs) Handles Me.Shown
BringToFront()
CurrSearchOpen = True
End Sub
Private Sub btnBackToMatchForm_Click(sender As Object, e As EventArgs) Handles btnBackToMatchForm.Click
ShouldReturnToMatchForm = True
Close()
End Sub
Private Sub GridViewDocSearch1_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch1.ColumnFilterChanged
Filter_EventTab(GridViewDocSearch1.RowCount)
End Sub
Private Sub GridViewDocSearch2_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch2.ColumnFilterChanged
Filter_EventTab(GridViewDocSearch2.RowCount)
End Sub
Private Sub GridViewDocSearch3_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch3.ColumnFilterChanged
Filter_EventTab(GridViewDocSearch3.RowCount)
End Sub
Private Sub GridViewDocSearch4_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch4.ColumnFilterChanged
Filter_EventTab(GridViewDocSearch4.RowCount)
End Sub
Private Sub GridViewDocSearch5_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch5.ColumnFilterChanged
Filter_EventTab(GridViewDocSearch5.RowCount)
End Sub
End Class

430
app/DD_Clipboard_Searcher/frmResultSQL.Designer.vb generated
View File

@@ -1,430 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmResultSQL
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmResultSQL))
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tslblDocID = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblState = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.btnBackToMatchForm = New System.Windows.Forms.ToolStripButton()
Me.XtraTabControlData = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageDoc1 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch1 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDataSearch1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc2 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch2 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDataSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc3 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch3 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDataSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc4 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch4 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDataSearch4 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc5 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch5 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDataSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ContextMenuStripWMFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.EigenschaftenDateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OrdnerÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
CType(Me.XtraTabControlData, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControlData.SuspendLayout()
Me.XtraTabPageDoc1.SuspendLayout()
CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDataSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc2.SuspendLayout()
CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDataSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc3.SuspendLayout()
CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDataSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc4.SuspendLayout()
CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDataSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc5.SuspendLayout()
CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDataSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStripWMFile.SuspendLayout()
Me.SuspendLayout()
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblDocID, Me.tslblState})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 532)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 16, 0)
Me.StatusStrip1.Size = New System.Drawing.Size(933, 22)
Me.StatusStrip1.TabIndex = 0
Me.StatusStrip1.Text = "StatusStrip1"
'
'tslblDocID
'
Me.tslblDocID.Name = "tslblDocID"
Me.tslblDocID.Size = New System.Drawing.Size(0, 17)
'
'tslblState
'
Me.tslblState.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Alert_32xMD_color
Me.tslblState.Name = "tslblState"
Me.tslblState.Size = New System.Drawing.Size(107, 17)
Me.tslblState.Text = "No action so far"
'
'ToolStrip1
'
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnBackToMatchForm})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(933, 25)
Me.ToolStrip1.TabIndex = 1
Me.ToolStrip1.Text = "ToolStrip1"
'
'btnBackToMatchForm
'
Me.btnBackToMatchForm.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.control_start_blue
Me.btnBackToMatchForm.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnBackToMatchForm.Name = "btnBackToMatchForm"
Me.btnBackToMatchForm.Size = New System.Drawing.Size(157, 22)
Me.btnBackToMatchForm.Text = "Zurück zur Profilauswahl"
'
'XtraTabControlData
'
Me.XtraTabControlData.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControlData.Location = New System.Drawing.Point(0, 25)
Me.XtraTabControlData.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabControlData.Name = "XtraTabControlData"
Me.XtraTabControlData.SelectedTabPage = Me.XtraTabPageDoc1
Me.XtraTabControlData.Size = New System.Drawing.Size(933, 507)
Me.XtraTabControlData.TabIndex = 5
Me.XtraTabControlData.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageDoc1, Me.XtraTabPageDoc2, Me.XtraTabPageDoc3, Me.XtraTabPageDoc4, Me.XtraTabPageDoc5})
'
'XtraTabPageDoc1
'
Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
Me.XtraTabPageDoc1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
Me.XtraTabPageDoc1.Size = New System.Drawing.Size(931, 482)
Me.XtraTabPageDoc1.Text = "XtraTabPage1"
'
'GridControlDocSearch1
'
Me.GridControlDocSearch1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch1.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
GridLevelNode1.RelationName = "Level1"
Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
Me.GridControlDocSearch1.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch1.MainView = Me.GridViewDataSearch1
Me.GridControlDocSearch1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch1.Name = "GridControlDocSearch1"
Me.GridControlDocSearch1.Size = New System.Drawing.Size(931, 482)
Me.GridControlDocSearch1.TabIndex = 0
Me.GridControlDocSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch1})
'
'GridViewDataSearch1
'
Me.GridViewDataSearch1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDataSearch1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDataSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDataSearch1.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDataSearch1.DetailHeight = 431
Me.GridViewDataSearch1.GridControl = Me.GridControlDocSearch1
Me.GridViewDataSearch1.Name = "GridViewDataSearch1"
Me.GridViewDataSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDataSearch1.OptionsFind.AlwaysVisible = True
Me.GridViewDataSearch1.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDataSearch1.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDataSearch1.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDataSearch1.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc2
'
Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
Me.XtraTabPageDoc2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
Me.XtraTabPageDoc2.PageVisible = False
Me.XtraTabPageDoc2.Size = New System.Drawing.Size(927, 479)
Me.XtraTabPageDoc2.Text = "XtraTabPage2"
'
'GridControlDocSearch2
'
Me.GridControlDocSearch2.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch2.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch2.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch2.MainView = Me.GridViewDataSearch2
Me.GridControlDocSearch2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch2.Name = "GridControlDocSearch2"
Me.GridControlDocSearch2.Size = New System.Drawing.Size(927, 479)
Me.GridControlDocSearch2.TabIndex = 1
Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch2})
'
'GridViewDataSearch2
'
Me.GridViewDataSearch2.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDataSearch2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDataSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDataSearch2.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDataSearch2.DetailHeight = 431
Me.GridViewDataSearch2.GridControl = Me.GridControlDocSearch2
Me.GridViewDataSearch2.Name = "GridViewDataSearch2"
Me.GridViewDataSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDataSearch2.OptionsFind.AlwaysVisible = True
Me.GridViewDataSearch2.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDataSearch2.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDataSearch2.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDataSearch2.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc3
'
Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3)
Me.XtraTabPageDoc3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3"
Me.XtraTabPageDoc3.PageVisible = False
Me.XtraTabPageDoc3.Size = New System.Drawing.Size(927, 479)
Me.XtraTabPageDoc3.Text = "XtraTabPage1"
'
'GridControlDocSearch3
'
Me.GridControlDocSearch3.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch3.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch3.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch3.MainView = Me.GridViewDataSearch3
Me.GridControlDocSearch3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch3.Name = "GridControlDocSearch3"
Me.GridControlDocSearch3.Size = New System.Drawing.Size(927, 479)
Me.GridControlDocSearch3.TabIndex = 1
Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch3})
'
'GridViewDataSearch3
'
Me.GridViewDataSearch3.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDataSearch3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDataSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDataSearch3.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDataSearch3.DetailHeight = 431
Me.GridViewDataSearch3.GridControl = Me.GridControlDocSearch3
Me.GridViewDataSearch3.Name = "GridViewDataSearch3"
Me.GridViewDataSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDataSearch3.OptionsFind.AlwaysVisible = True
Me.GridViewDataSearch3.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDataSearch3.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDataSearch3.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDataSearch3.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc4
'
Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4)
Me.XtraTabPageDoc4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4"
Me.XtraTabPageDoc4.PageVisible = False
Me.XtraTabPageDoc4.Size = New System.Drawing.Size(927, 479)
Me.XtraTabPageDoc4.Text = "XtraTabPage2"
'
'GridControlDocSearch4
'
Me.GridControlDocSearch4.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch4.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch4.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch4.MainView = Me.GridViewDataSearch4
Me.GridControlDocSearch4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch4.Name = "GridControlDocSearch4"
Me.GridControlDocSearch4.Size = New System.Drawing.Size(927, 479)
Me.GridControlDocSearch4.TabIndex = 1
Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch4})
'
'GridViewDataSearch4
'
Me.GridViewDataSearch4.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDataSearch4.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDataSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDataSearch4.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDataSearch4.DetailHeight = 431
Me.GridViewDataSearch4.GridControl = Me.GridControlDocSearch4
Me.GridViewDataSearch4.Name = "GridViewDataSearch4"
Me.GridViewDataSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDataSearch4.OptionsFind.AlwaysVisible = True
Me.GridViewDataSearch4.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDataSearch4.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDataSearch4.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDataSearch4.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc5
'
Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5)
Me.XtraTabPageDoc5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5"
Me.XtraTabPageDoc5.PageVisible = False
Me.XtraTabPageDoc5.Size = New System.Drawing.Size(927, 479)
Me.XtraTabPageDoc5.Text = "XtraTabPage3"
'
'GridControlDocSearch5
'
Me.GridControlDocSearch5.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch5.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch5.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch5.MainView = Me.GridViewDataSearch5
Me.GridControlDocSearch5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch5.Name = "GridControlDocSearch5"
Me.GridControlDocSearch5.Size = New System.Drawing.Size(927, 479)
Me.GridControlDocSearch5.TabIndex = 1
Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch5})
'
'GridViewDataSearch5
'
Me.GridViewDataSearch5.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDataSearch5.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDataSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDataSearch5.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDataSearch5.DetailHeight = 431
Me.GridViewDataSearch5.GridControl = Me.GridControlDocSearch5
Me.GridViewDataSearch5.Name = "GridViewDataSearch5"
Me.GridViewDataSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDataSearch5.OptionsFind.AlwaysVisible = True
Me.GridViewDataSearch5.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDataSearch5.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDataSearch5.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDataSearch5.OptionsView.ShowAutoFilterRow = True
'
'ContextMenuStripWMFile
'
Me.ContextMenuStripWMFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EigenschaftenDateiToolStripMenuItem, Me.DateiÖffnenToolStripMenuItem, Me.OrdnerÖffnenToolStripMenuItem, Me.ToolStripSeparator1, Me.ToolStripMenuItem1, Me.ToolStripMenuItem2})
Me.ContextMenuStripWMFile.Name = "ContextMenuStripWMFile"
Me.ContextMenuStripWMFile.Size = New System.Drawing.Size(182, 120)
'
'EigenschaftenDateiToolStripMenuItem
'
Me.EigenschaftenDateiToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.properties_16xMD
Me.EigenschaftenDateiToolStripMenuItem.Name = "EigenschaftenDateiToolStripMenuItem"
Me.EigenschaftenDateiToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
Me.EigenschaftenDateiToolStripMenuItem.Text = "Eigenschaften Datei"
'
'DateiÖffnenToolStripMenuItem
'
Me.DateiÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.OpenFile
Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
Me.DateiÖffnenToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
Me.DateiÖffnenToolStripMenuItem.Text = "Datei öffnen"
'
'OrdnerÖffnenToolStripMenuItem
'
Me.OrdnerÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.folder_Open_16xLG
Me.OrdnerÖffnenToolStripMenuItem.Name = "OrdnerÖffnenToolStripMenuItem"
Me.OrdnerÖffnenToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
Me.OrdnerÖffnenToolStripMenuItem.Text = "Ordner öffnen"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(178, 6)
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.refresh_16xLG
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(181, 22)
Me.ToolStripMenuItem1.Text = "Aktualisieren"
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(181, 22)
Me.ToolStripMenuItem2.Text = "Layout zurücksetzen"
'
'frmResultSQL
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(933, 554)
Me.Controls.Add(Me.XtraTabControlData)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmResultSQL"
Me.Text = "Clipboard-Watcher SQL-Result"
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.XtraTabControlData, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControlData.ResumeLayout(False)
Me.XtraTabPageDoc1.ResumeLayout(False)
CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDataSearch1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc2.ResumeLayout(False)
CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDataSearch2, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc3.ResumeLayout(False)
CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDataSearch3, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc4.ResumeLayout(False)
CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDataSearch4, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc5.ResumeLayout(False)
CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDataSearch5, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStripWMFile.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents XtraTabControlData As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPageDoc1 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlDocSearch1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDataSearch1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabPageDoc2 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlDocSearch2 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDataSearch2 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabPageDoc3 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlDocSearch3 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDataSearch3 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabPageDoc4 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlDocSearch4 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDataSearch4 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabPageDoc5 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlDocSearch5 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDataSearch5 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents ContextMenuStripWMFile As ContextMenuStrip
Friend WithEvents EigenschaftenDateiToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DateiÖffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
Friend WithEvents tslblDocID As ToolStripStatusLabel
Friend WithEvents tslblState As ToolStripStatusLabel
Friend WithEvents OrdnerÖffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnBackToMatchForm As ToolStripButton
End Class

163
app/DD_Clipboard_Searcher/frmResultSQL.resx
View File

@@ -1,163 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>134, 17</value>
</metadata>
<metadata name="ContextMenuStripWMFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>241, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAIAEBAQAAEABAAoAQAAJgAAABAQAAABAAgAaAUAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAIAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
AAAA//8A/wAAAP8A/wD//wAA////AAAA/////wAAAP93d3d3/wAPh3d3d3d48A93d3d3d3fwD3d3d3d3
d/APd3d3d3d38A93d3d3d3fwD3d3d3d3d/APd3d3d3d38A93d3d3d3fwD3eI//+Id/APf//////38A9/
//////fwD4eI//+IePAA/3d3d3f/AAAA/////wAA8A8AAMADAACAAQAAgAEAAIABAACAAQAAgAEAAIAB
AACAAQAAgAEAAIABAACAAQAAgAEAAIABAADAAwAA8A8AACgAAAAQAAAAIAAAAAEACAAAAAAAAAEAAAAA
AAAAAAAAAAEAAAABAAAAAAAAQkJCAE1NTQBZWVkAhoaGAKSjpACzs7MA29naAODg4ADm5OUA6+vrAPHv
8AD29vYA+Pj4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8AAAAAAA0MDAwMDAwNAAAAAAAADQgEAwEBAQEDBAgNAAAADQYBAQEBAQEB
AQEBBg0AAAwBAQEBAQEBAQEBAQEMAAAMAQEBAQEBAQEBAQEBDAAADAEBAQEBAQEBAQEBAQwAAAwBAQEB
AQEBAQEBAQEMAAAMAQEBAQEBAQEBAQEBDAAADAEBAQEBAQEBAQEBAQwAAAwBAQEBAQICAQEBAQEMAAAM
AQIFBwsLCwsHBQIBDAAACgIICwsLCwsLCwsIAQwAAAoCCAsLCwsLCwsLCAEMAAANBgIFBwsLCwsHBQIG
DQAAAA0IBAMBAQEBAwQIDQAAAAAAAA0MDAwMDAwNAAAAAPAPAADAAwAAgAEAAIABAACAAQAAgAEAAIAB
AACAAQAAgAEAAIABAACAAQAAgAEAAIABAACAAQAAwAMAAPAPAAA=
</value>
</data>
</root>

238
app/DD_Clipboard_Searcher/frmResultSQL.vb
View File

@@ -1,238 +0,0 @@
Imports System.IO
Imports DevExpress.XtraTab
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.Base
Imports DD_LIB_Standards
Imports DD_Clipboard_Watcher.ClassProfileFilter
Public Class frmResultSQL
Implements IResultForm
Private Shared BW_DocPath As String
Private Shared BW_DocID As Integer
Private Shared CurrSearchID As Integer
Private DTDataSearchDefinition As DataTable
Private _activeGridView As GridView
Private _frmProfileMatch As frmProfileMatch
Private Current_MatchingProfiles As List(Of ProfileData)
Public Property ShouldReturnToMatchForm As Boolean = False Implements IResultForm.ShouldReturnToMatchForm
Private Class SQLSearch
Public DataTable As DataTable
Public TabIndex As Integer
Public TabCaption As String
Public ProfileId As Integer
End Class
Public Sub New(ProfileMatchForm As frmProfileMatch, MatchingProfiles As List(Of ProfileData))
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Current_MatchingProfiles = MatchingProfiles
_frmProfileMatch = ProfileMatchForm
End Sub
Private Async Sub frmResultSQL_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not ConfigManager.Config.ResultDataWindowSize.IsEmpty Then
Size = ConfigManager.Config.ResultDataWindowSize
End If
If Not ConfigManager.Config.ResultDataWindowLocation.IsEmpty Then
Location = ConfigManager.Config.ResultDataWindowLocation
End If
'Load_Searches()
GridViewDataSearch1.ShowLoadingPanel()
Dim oSearches = Await LoadSearchesAsync()
If oSearches.Count = 0 Then
Me.Close()
End If
For Each oSearch In oSearches
RefreshTabData(oSearch.ProfileId, oSearch.DataTable, oSearch.TabIndex, oSearch.TabCaption)
Next
GridViewDataSearch1.HideLoadingPanel()
End Sub
Private Sub frmResultSQL_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
ConfigManager.Config.ResultDataWindowSize = Size
ConfigManager.Config.ResultDataWindowLocation = Location
ConfigManager.Save()
Catch ex As Exception
Logger.Error(ex)
Logger.Info("Error in Save FormLayout: " & ex.Message)
End Try
End Sub
Sub RefreshTabData(PROFILE_ID As Integer, DataTable As DataTable, TabIndex As Integer, TabCaption As String)
Try
Dim myGridControl As GridControl
Dim myGridview As GridView
Select Case TabIndex
Case 0
GridControlDocSearch1.DataSource = Nothing
GridViewDataSearch1.Columns.Clear()
myGridview = GridViewDataSearch1
myGridControl = GridControlDocSearch1
Case 1
GridControlDocSearch2.DataSource = Nothing
GridViewDataSearch2.Columns.Clear()
myGridview = GridViewDataSearch2
myGridControl = GridControlDocSearch2
Case 2
GridControlDocSearch3.DataSource = Nothing
GridViewDataSearch3.Columns.Clear()
myGridview = GridViewDataSearch3
myGridControl = GridControlDocSearch3
Case 3
GridControlDocSearch4.DataSource = Nothing
GridViewDataSearch4.Columns.Clear()
myGridControl = GridControlDocSearch4
myGridview = GridViewDataSearch4
Case 4
GridControlDocSearch5.DataSource = Nothing
GridViewDataSearch5.Columns.Clear()
myGridControl = GridControlDocSearch5
myGridview = GridViewDataSearch5
End Select
myGridControl.ContextMenuStrip = ContextMenuStripWMFile
If Not IsNothing(DataTable) Then
XtraTabControlData.TabPages(TabIndex).Text = $"{TabCaption} ({DataTable.Rows.Count})"
clsWMDocGrid.DTDocuments = DataTable
myGridControl.DataSource = DataTable
myGridControl.ForceInitialize()
Dim oxmlPath As String = ""
oxmlPath = Get_Grid_Layout_Filename(XtraTabControlData.SelectedTabPageIndex)
If File.Exists(oxmlPath) Then
myGridview.RestoreLayoutFromXml(oxmlPath)
myGridview.GuessAutoFilterRowValuesFromFilter()
End If
tslblState.Text = $"Tab [{TabCaption}] refreshed - {Now}"
XtraTabControlData.TabPages(TabIndex).PageVisible = True
Else
clsWMDocGrid.DTDocuments = Nothing
End If
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Function Get_Grid_Layout_Filename(oIndex As Integer)
Dim oFilename As String = String.Format("GridViewData_Search-{0}-{1}-UserLayout.xml", oIndex, CurrSearchID)
Dim oPath = Path.Combine(Application.UserAppDataPath(), oFilename)
Return oPath
End Function
Private Sub GridControlDocSearch_Leave(sender As Object, e As EventArgs) Handles GridControlDocSearch1.Leave, GridControlDocSearch2.Leave, GridControlDocSearch3.Leave, GridControlDocSearch4.Leave, GridControlDocSearch5.Leave
SaveDocGridLayout()
End Sub
Private Sub GridViewDocSearch1_FocusedRowChanged(sender As GridView, e As FocusedRowChangedEventArgs) Handles GridViewDataSearch1.FocusedRowChanged, GridViewDataSearch2.FocusedRowChanged, GridViewDataSearch3.FocusedRowChanged, GridViewDataSearch4.FocusedRowChanged, GridViewDataSearch5.FocusedRowChanged
_activeGridView = sender
End Sub
Private Sub GridViewDocSearch1_ColumnWidthChanged(sender As GridView, e As Views.Base.ColumnEventArgs) Handles GridViewDataSearch1.ColumnWidthChanged, GridViewDataSearch2.ColumnWidthChanged, GridViewDataSearch3.ColumnWidthChanged, GridViewDataSearch4.ColumnWidthChanged, GridViewDataSearch5.ColumnWidthChanged
_activeGridView = sender
SaveDocGridLayout()
End Sub
Sub SaveDocGridLayout()
Dim oXMLPath = Get_Grid_Layout_Filename(XtraTabControlData.SelectedTabPageIndex)
_activeGridView.SaveLayoutToXml(oXMLPath)
End Sub
Private Async Function LoadSearchesAsync() As Task(Of List(Of SQLSearch))
Return Await Task.Run(AddressOf DoLoadSearches)
End Function
Private Function DoLoadSearches() As List(Of SQLSearch)
Dim oMatchingIds = String.Join(",", Current_MatchingProfiles.Select(Function(p) p.Guid).ToArray())
Dim oSQL = $"SELECT * FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID in ({oMatchingIds}) ORDER BY TAB_INDEX"
Dim oSearchesDataTable = Database.GetDatatable(oSQL)
Dim oSearches As New List(Of SQLSearch)
Dim oCounter As Integer = 0
DTDataSearchDefinition = oSearchesDataTable
For Each oRow As DataRow In oSearchesDataTable.Rows
Dim oProfileId As Integer = oRow.Item("PROFILE_ID")
Dim oTabTitle As String = oRow.Item("TAB_TITLE")
oSQL = oRow.Item("SQL_COMMAND")
oSQL = clsPatterns.ReplaceAllValues(oSQL, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileId)
Dim oDatatable As DataTable = Database.GetDatatable(oSQL)
oSearches.Add(New SQLSearch() With {
.DataTable = oDatatable,
.ProfileId = oProfileId,
.TabCaption = oTabTitle,
.TabIndex = oCounter
})
oCounter += 1
Next
Return oSearches
End Function
Private Sub MenuItemReload_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
Reload_Active_DocumentTab()
End Sub
Private Sub MenuItemResetLayout_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
Reset_Layout()
End Sub
Sub Reset_Layout()
Dim oXMLPath = Get_Grid_Layout_Filename(XtraTabControlData.SelectedTabPageIndex)
Try
If File.Exists(oXMLPath) Then
File.Delete(oXMLPath)
Reload_Active_DocumentTab()
tslblState.Text = "Layout has been set back!"
Else
tslblState.Text = ""
End If
Catch ex As Exception
tslblState.Text = ""
End Try
End Sub
Sub Reload_Active_DocumentTab()
If IsNothing(DTDataSearchDefinition) Then Exit Sub
Dim oTabIndex = XtraTabControlData.SelectedTabPageIndex
Dim oTabTitle = DTDataSearchDefinition.Rows(oTabIndex).Item("TAB_TITLE")
Dim oConID = DTDataSearchDefinition.Rows(oTabIndex).Item("CONN_ID")
Dim oCommand = DTDataSearchDefinition.Rows(oTabIndex).Item("SQL_COMMAND")
Dim oProfID = DTDataSearchDefinition.Rows(oTabIndex).Item("PROFILE_ID")
Dim oDatatable As DataTable
oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfID)
oDatatable = Database.GetDatatable(oCommand)
RefreshTabData(oProfID, oDatatable, oTabIndex, oTabTitle)
End Sub
Private Sub XtraTabControlDocs_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControlData.SelectedPageChanged
'If IsNothing(DTDataSearchDefinition) Then Exit Sub
'Dim oConID = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("CONN_ID")
'Dim oCommand = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("SQL_COMMAND")
'Dim oProfileID = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("PROFILE_ID")
'oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileID)
'Dim oTabIndex = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("TAB_INDEX")
'Dim oTabCaption = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("TAB_TITLE")
'RefreshTabData(oProfileID, oConID, oCommand, oTabIndex, oTabCaption)
Reload_Active_DocumentTab()
End Sub
Private Sub btnBackToMatchForm_Click(sender As Object, e As EventArgs) Handles btnBackToMatchForm.Click
ShouldReturnToMatchForm = True
Close()
End Sub
End Class

38
app/DD_Clipboard_Searcher/frmStart.Designer.vb generated
View File

@@ -26,6 +26,8 @@ Partial Class frmStart
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart))
Me.NotifyIconMain = New System.Windows.Forms.NotifyIcon(Me.components)
Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.AblaufAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BisherigenAblaufAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem()
Me.ClientÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ClientBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -43,8 +45,7 @@ Partial Class frmStart
Me.btnAdminConfig = New System.Windows.Forms.Button()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components)
Me.AblaufAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BisherigenAblaufAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.labelVersion = New System.Windows.Forms.ToolStripStatusLabel()
Me.cmstrpNotifyIcon.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
Me.ContextMenuStripForm.SuspendLayout()
@@ -65,7 +66,20 @@ Partial Class frmStart
'
Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AblaufAnzeigenToolStripMenuItem, Me.tsmiChangeState, Me.ClientÖffnenToolStripMenuItem, Me.ClientBeendenToolStripMenuItem})
Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon"
Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(250, 114)
Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(250, 92)
'
'AblaufAnzeigenToolStripMenuItem
'
Me.AblaufAnzeigenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BisherigenAblaufAnzeigenToolStripMenuItem})
Me.AblaufAnzeigenToolStripMenuItem.Name = "AblaufAnzeigenToolStripMenuItem"
Me.AblaufAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.AblaufAnzeigenToolStripMenuItem.Text = "Funktionen"
'
'BisherigenAblaufAnzeigenToolStripMenuItem
'
Me.BisherigenAblaufAnzeigenToolStripMenuItem.Name = "BisherigenAblaufAnzeigenToolStripMenuItem"
Me.BisherigenAblaufAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.BisherigenAblaufAnzeigenToolStripMenuItem.Text = "Bisherigen Ablauf anzeigen"
'
'tsmiChangeState
'
@@ -91,7 +105,7 @@ Partial Class frmStart
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.labelUser, Me.lblrefresh})
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.labelUser, Me.lblrefresh, Me.labelVersion})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 154)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(345, 22)
@@ -213,18 +227,11 @@ Partial Class frmStart
'
Me.TimerRefresh.Interval = 120000
'
'AblaufAnzeigenToolStripMenuItem
'labelVersion
'
Me.AblaufAnzeigenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BisherigenAblaufAnzeigenToolStripMenuItem})
Me.AblaufAnzeigenToolStripMenuItem.Name = "AblaufAnzeigenToolStripMenuItem"
Me.AblaufAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.AblaufAnzeigenToolStripMenuItem.Text = "Funktionen"
'
'BisherigenAblaufAnzeigenToolStripMenuItem
'
Me.BisherigenAblaufAnzeigenToolStripMenuItem.Name = "BisherigenAblaufAnzeigenToolStripMenuItem"
Me.BisherigenAblaufAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.BisherigenAblaufAnzeigenToolStripMenuItem.Text = "Bisherigen Ablauf anzeigen"
Me.labelVersion.Name = "labelVersion"
Me.labelVersion.Size = New System.Drawing.Size(62, 17)
Me.labelVersion.Text = "Version {0}"
'
'frmStart
'
@@ -277,4 +284,5 @@ Partial Class frmStart
Friend WithEvents lblrefresh As ToolStripStatusLabel
Friend WithEvents AblaufAnzeigenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BisherigenAblaufAnzeigenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents labelVersion As ToolStripStatusLabel
End Class

2
app/DD_Clipboard_Searcher/frmStart.resx
View File

@@ -4663,7 +4663,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABU
CwAAAk1TRnQBSQFMAgEBBQEAASABAAEgAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CwAAAk1TRnQBSQFMAgEBBQEAASgBAAEoAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

58
app/DD_Clipboard_Searcher/frmStart.vb
View File

@@ -3,10 +3,13 @@ Imports System.IO
Imports System.Globalization
Imports DD_Clipboard_Watcher.ClassConstants
Imports DD_Clipboard_Watcher.ClassWindowAPI
Imports DigitalData.Modules.ZooFlow
Imports DigitalData.Modules.ClipboardWatcher
Public Class frmStart
Dim WithEvents Hotkey As New ClassHotkey(Me)
Private WithEvents Hotkey As New ClassHotkey(Me)
Private WithEvents _Watcher As ClipboardWatcher = ClipboardWatcher.Singleton
Private _MatchForm As frmMatch = Nothing
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
@@ -55,6 +58,8 @@ Public Class frmStart
End If
End If
labelVersion.Text = String.Format(labelVersion.Text, My.Application.Info.Version.ToString)
labelUser.Text = String.Format(labelUser.Text, USER_USERNAME)
labelHotkey.Text = String.Format(labelHotkey.Text, $"{HotkeyFunctionKey.ToUpper}+{HotkeySearchKey.ToUpper}")
End Sub
@@ -123,19 +128,21 @@ Public Class frmStart
Dim oWindowInfo = GetWindowInfo()
Dim ClipboardContents As String = Clipboard.GetText()
Dim oProfileFilter As ClassProfileFilter
Dim oProfileFilter As ProfileFilter
Dim oFocusedControl As IntPtr = FocusedControlinActiveWindow(Handle)
Try
CurrMatchTreeView.Nodes.Clear()
CurrMatchTreeView.ImageList = ImageList1
CurrMatchTreeView.SelectedImageIndex = 0
oProfileFilter = New ClassProfileFilter(
oProfileFilter = New ProfileFilter(
LogConfig,
DT_USER_PROFILES,
DTPROFILE_REL_PROCESS,
DTPROFILE_REL_WINDOW,
DTPROFILE_REL_CONTROL,
CurrMatchTreeView)
CurrMatchTreeView
)
Catch ex As Exception
Logger.Error(ex)
MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
@@ -227,9 +234,45 @@ Public Class frmStart
Exit Sub
End If
Dim oForm As New frmProfileMatch()
Dim oEnv = GetEnvironment()
Dim oParams = New ClipboardWatcherParams() With {
.ClipboardContents = CURRENT_CLIPBOARD_CONTENTS,
.MatchingProfiles = oProfiles,
.MatchTreeView = CurrMatchTreeView
}
Dim oForm As New frmMatch(LogConfig, oEnv, oParams)
_MatchForm = oForm
oForm.ShowDialog()
End Sub
Private Function GetEnvironment() As Environment
Dim oUser As New State.UserState() With {
.DateFormat = USER_DATE_FORMAT,
.Email = USER_EMAIL,
.GivenName = USER_PRENAME,
.Language = USER_LANGUAGE,
.MachineName = System.Environment.MachineName,
.ShortName = USER_SHORTNAME,
.Surname = USER_SURNAME,
.UserId = USER_ID,
.UserName = USER_USERNAME
}
Dim oSettings As New State.SettingsState() With {
.GdPictureKey = GDPICTURE_LICENSE
}
Dim oEnvironment As New Environment() With {
.Database = Database,
.Modules = Nothing,
.User = oUser,
.Settings = oSettings
}
Return oEnvironment
End Function
Sub Change_Monitoring_State()
If MONITORING_ACTIVE = True Then
NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde deaktiviert!", ToolTipIcon.Info)
@@ -340,10 +383,11 @@ Public Class frmStart
lblrefresh.Text =
ClassInit.CheckModuleData()
lblrefresh.Text = $"Refreshed: {Now.ToShortTimeString} - UserLoggedIn: {USERCOUNT_LOGGED_IN}"
End Sub
Private Sub BisherigenAblaufAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BisherigenAblaufAnzeigenToolStripMenuItem.Click
frmTreeView.ShowDialog()
If _MatchForm IsNot Nothing Then
_MatchForm.ShowTreeView()
End If
End Sub
End Class

84
app/DD_Clipboard_Searcher/frmTreeView.Designer.vb generated
View File

@@ -1,84 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmTreeView
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTreeView))
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.SuspendLayout()
'
'StatusStrip1
'
Me.StatusStrip1.Location = New System.Drawing.Point(0, 463)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 16, 0)
Me.StatusStrip1.Size = New System.Drawing.Size(933, 22)
Me.StatusStrip1.TabIndex = 1
Me.StatusStrip1.Text = "StatusStrip1"
'
'TreeView1
'
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeView1.ImageIndex = 0
Me.TreeView1.ImageList = Me.ImageList1
Me.TreeView1.Location = New System.Drawing.Point(0, 0)
Me.TreeView1.Name = "TreeView1"
Me.TreeView1.SelectedImageIndex = 0
Me.TreeView1.Size = New System.Drawing.Size(933, 463)
Me.TreeView1.TabIndex = 2
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "WorkItem_32xMD.png")
Me.ImageList1.Images.SetKeyName(1, "key_16xLG.png")
Me.ImageList1.Images.SetKeyName(2, "ResultstoFile_9946.png")
Me.ImageList1.Images.SetKeyName(3, "WindowsForm_817.ico")
Me.ImageList1.Images.SetKeyName(4, "process_16xMD.png")
'
'frmTreeView
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(933, 485)
Me.Controls.Add(Me.TreeView1)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmTreeView"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Ablauf Suchalgorithmus"
Me.TopMost = True
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents TreeView1 As TreeView
Friend WithEvents ImageList1 As ImageList
End Class

216
app/DD_Clipboard_Searcher/frmTreeView.resx
View File

@@ -1,216 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>134, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABU
CwAAAk1TRnQBSQFMAgEBBQEAASgBAAEoAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/4UABvQ5AAH0AfAB9AJt
AfQB8AH0NwAB9AHwARQBbQITAW0BFAHwAfQ2AAL0AW0BkgL0AZIBbQP0NQAB9AFtAeoB9AKSAfQBEwFt
AfQB8AH0NAAB9AFtAeoB9AKSAfQBEwFtAbwBFAHwAfQzAAL0AW0BkgL0AZIBbQH0AQcBbQL0MwAB9AHw
ARQBbQITAW0BFAHwAfQBEwFtAfQ0AAH0AfAB9AJtAfQB8AHxAfQBEwFtAfQ1AAP0AbwBBwL0AZIBbQL0
NgAB9AHwARQBbQITAW0BFAHwAfQ3AAH0AfAB9AJtAfQB8AH0OQAG9JcADPQZAAH0GgAB9AoUAfQUAAL0
AgAD9BkAAfQKFAH0AQAP9AMAAfQBvAHtAvQB8AEUAfQZAAH0AhQG9AIUAfQBAAH0DRQB9AQAAfQB6gEU
AbwCFAH0BwAF9AEABvQGAAH0AhQG9AIUAfQBAAH0ARQL9AEUAfQEAAH/AfQEFAH0Af8GAAH0ARQB9AEU
AvQB8wFtAhQBbQHzAfQFAAH0AhQG9AIUAfQBAAH0ARQB9AMUBfQBFAH0ARQB9AQAAfQB8AQUARMB9AH/
BAAC9AEUAfQBFAL0AW0EFAFtAfQFAAH0AhQG9AIUAfQBAAH0ARQF9AUUAfQBFAH0AwAB9AHwBhQBEwP0
AgAB9AcUARMC8gIUAfIFAAH0AhQG9AIUAfQBAAH0ARQL9AEUAfQDAAH0AQcCFAETBhQB8wH0AQAB9AcU
ARMC8gIUAfQDAAP0Ae8BFAb0AhQB9AEAAfQBFAH0AxQF9AEUAfQBFAH0BAAE9AETBBQBbQH0AgAH9AFt
BBQBbQH0AwAB9AG0AYoBtAHvBPQDFAHsAfQBAAH0ARQF9AUUAfQBFAH0BwAB/wH0ARMCFAHsAfQJAAH0
AfMBbQIUAW0B8wH0AQAE9AG0AYoBtAT0AhQB7AH0Af8BAAH0ARQL9AEUAfQIAAH0AbwBFAHsAfQLAAb0
AgAB9AaKAbQB7wMUAewB9AH/AgAB9A0UAfQJAAH0AewB9BQAAfQGigG0Ae8CFAHsAfQB/wMAAfQNFAH0
CQAC9BUABPQBtAGKAbQF9AH/BAAP9CIAAfQBtAGKAbQB9AH/OgAE9AH/GQABQgFNAT4HAAE+AwABKAMA
AUADAAEgAwABAQEAAQEGAAEBFgAD/wEAAv8GAAL/BgAB8AE/BgAB4AEfBgABwAEPBgABwAEHBgABwAED
BgABwAEBBgABwAEBBgABwAEBBgAB4AEBBgAB8AEBBgAB+AEBBgAB/AEDBgAB/gEHBgAC/wYABP8B8AEA
A/8BvwL/AfABAAL/AfMBHwL/AfABAAGAAQAB4AEfAv8B8AEAAYABAAHwAR8BwQEDAfABAAGAAQAB8AEP
AcABAQHwAQABgAEAAfABBwGAAQEB8AEAAYABAAHgAQEBgAEBAfABAAGAAQAB4AEAAYABAQHAAQABgAEA
AfABAQGAAQEBwAEAAYABAAH+AQMB/gEBAgABgAEAAf8BBwH/AQMBAAEBAYABAAH/AY8C/wEAAQMBgAEA
Af8BnwL/AQABBwGAAQAE/wHAB/8BwQP/Cw==
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAIAEBAQAAEABAAoAQAAJgAAABAQAAABAAgAaAUAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAIAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
AAAA//8A/wAAAP8A/wD//wAA////AAD///8AAAAAD493+PAAAAD4d3d3jwAAAP93/3f/AAAA9393938A
AAD3f3f3fwAAAP93/3f///8A+Hd3d493+PAPj3f4d3d3jwD///93/3f/AAAA9393938AAAD3f3f3fwAA
AP93/3f/AAAA+Hd3d48AAAAPj3f48AAAAAD///8AwP8AAIB/AAAAPwAAAD8AAAA/AAAAPwAAAAMAAAAB
AACAAAAAwAAAAPwAAAD8AAAA/AAAAPwAAAD+AQAA/wMAACgAAAAQAAAAIAAAAAEACAAAAAAAAAEAAAAA
AAAAAAAAAAEAAAABAAAAAAAAQkJCAE1NTQBYWFgAb29vAJqZmQCzs7MA1NTUAPHv8AD29vYA+vr6AAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8AAAAKCQkJCQoAAAAAAAAAAAAJBwkEBAkHCQAAAAAAAAAKBwEEAgIEAQcK
AAAAAAAACQkEBQgIBQQJCQAAAAAAAAkEAwgFBQgCBAkAAAAAAAAJBAMIBQUIAgQJAAAAAAAACQkEBQgI
BQQJCQkJCQoAAAoHAQQCAgQBBgkEBAkHCQAACQcJBAQJBgEEAwMEAQcKAAAKCQkJCQkEBQgIBQQJCQAA
AAAAAAkEAwgFBQgCBAkAAAAAAAAJBAMIBQUIAgQJAAAAAAAACQkEBQgIBQQJCQAAAAAAAAoHAQQCAgQB
BwoAAAAAAAAACQcJBAQJBwkAAAAAAAAAAAAKCQkJCQoAAMD/AACAfwAAAD8AAAA/AAAAPwAAAD8AAAAD
AAAAAQAAgAAAAMAAAAD8AAAA/AAAAPwAAAD8AAAA/gEAAP8DAAA=
</value>
</data>
</root>

21
app/DD_Clipboard_Searcher/frmTreeView.vb
View File

@@ -1,21 +0,0 @@
Public Class frmTreeView
Private Sub frmTreeView_Load(sender As Object, e As EventArgs) Handles Me.Load
TreeView1.Nodes.Clear()
TreeView1.ImageList = ImageList1
If Not IsNothing(CurrMatchTreeView) Then
CurrMatchTreeView.BeginUpdate()
For Each node As TreeNode In CurrMatchTreeView.Nodes
If IsNothing(node.Tag) Then
node.ImageIndex = 0
Else
node.ImageIndex = 2
End If
TreeView1.Nodes.Add(node.Clone)
Next
CurrMatchTreeView.EndUpdate()
End If
TreeView1.ExpandAll()
End Sub
End Class

5
app/DD_Clipboard_Searcher/modCurrent.vb
View File

@@ -1,6 +1,7 @@
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.ZooFlow.Params
Module modCurrent
Public LogConfig As LogConfig
@@ -12,7 +13,7 @@ Module modCurrent
Public MyConnectionString As String = ""
Public HotkeyFunctionKey As String = ClassConstants.HOTKEY_CTRL
Public HotkeySearchKey As String = "f"
Public HotkeySearchKey As String = "d"
Public LogErrorsOnly As Boolean = True
Public CURRENT_WINDOW_NAME As String
@@ -51,7 +52,7 @@ Module modCurrent
Public DT_USER_PROFILES As DataTable
Public DT_CONNECTIONS As MyDataset.TBDD_CONNECTIONDataTable
Public CURRENT_MATCHING_PROFILES As New List(Of ClassProfileFilter.ProfileData)
Public CURRENT_MATCHING_PROFILES As New List(Of ProfileData)
Public CURRENT_CLIPBOARD_CONTENTS
'Public CURR_MATCH_WM_SEARCH