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

Compare commits

base: AppStd:4534f2529b5e1610d87aee95c9b4f07f278bf110
Branches Tags
AppStd:master
...
compare: AppStd:8fcf623e08e5c075f41474f4259574e3ee57f820
Branches Tags
AppStd:master

5 Commits
4534f2529b ... 8fcf623e08

Author SHA1 Message Date
Jonathan Jenne
8fcf623e08 remove iresultform 2019-10-16 17:30:41 +02:00
Developer02 Digital Data
80029dcb99 prepare release and fix marvman's bugs 2019-10-15 16:16:50 +02:00
Developer02 Digital Data
341c719777 switch to monorepo for match & result forms 2019-10-14 15:15:38 +02:00
Developer02 Digital Data
8b1cfae8d5 change default hotkey to ctrl+d 2019-10-11 11:56:14 +02:00
Jonathan Jenne
f0e4dfcbd4 WIP: add new doc result form 2019-10-08 16:04:35 +02:00
40 changed files with 744 additions and 15087 deletions
Expand all files Collapse all files

2
app/DD_Clipboard_Searcher/ClassConfig.vb
View File

@@ -5,7 +5,7 @@ Public Class ClassConfig
Public Property ConnectionString As String = ""
Public Property LogErrorsOnly As Boolean = True
Public Property HotkeyFunctionKey As String = ClassConstants.HOTKEY_CTRL
Public Property HotkeySearchKey As String = "f"
Public Property HotkeySearchKey As String = "d"
Public Property LoadDocumentView As Boolean = False

4
app/DD_Clipboard_Searcher/ClassConstants.vb
View File

@@ -11,4 +11,8 @@
Public Const PROFILE_TYPE_DATA_DOCS As Integer = 0
Public Const PROFILE_TYPE_DOCS_ONLY As Integer = 1
Public Const PROFILE_TYPE_DATA_ONLY As Integer = 2
Public Const SEARCH_POSITION_PRIMARY As Integer = 0
Public Const SEARCH_POSITION_SECONDARY As Integer = 1
Public Const SEARCH_POSITION_TERTIARY As Integer = 2
End Class

4
app/DD_Clipboard_Searcher/ClassInit.vb
View File

@@ -187,8 +187,8 @@ Public Class ClassInit
' pageAdmin.Visible = True
End If
WD_UNICODE = Database.NewExecuteScalar("SELECT WD_UNICODE FROM TBCW_CONFIGURATION WHERE GUID = 1")
GDPICTURE_LICENSE = Database.NewExecuteScalar("SELECT GDPICTURE_LICENSE FROM TBCW_CONFIGURATION WHERE GUID = 1")
WD_UNICODE = Database.GetScalarValue("SELECT WD_UNICODE FROM TBCW_CONFIGURATION WHERE GUID = 1")
GDPICTURE_LICENSE = Database.GetScalarValue("SELECT GDPICTURE_LICENSE FROM TBCW_CONFIGURATION WHERE GUID = 1")
Logger.Debug(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False)
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then

2
app/DD_Clipboard_Searcher/ClassLicense.vb
View File

@@ -4,7 +4,7 @@ Public Class ClassLicense
Private Shared Sub Get_License(CLIENT_ID As Integer)
Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
lic_string = Database.NewExecuteScalar(sql)
lic_string = Database.GetScalarValue(sql)
End Sub
Public Shared Sub Refresh_Licence(CLIENT_ID As Integer)
Try

77
app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj
View File

@@ -71,6 +71,12 @@
<Reference Include="DigitalData.Controls.RegexEditor">
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Digital Data\Controls\DigitalData.Controls.RegexEditor.dll</HintPath>
</Reference>
<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>
@@ -82,8 +88,9 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Language">
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Digital Data\DigitalData.Modules.Language.dll</HintPath>
<Reference Include="DigitalData.Modules.Language, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
@@ -91,6 +98,9 @@
<Reference Include="DigitalData.Modules.Windows">
<HintPath>..\..\..\DDMonorepo\Windows\bin\Debug\DigitalData.Modules.Windows.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.ZooFlow">
<HintPath>..\..\..\DDMonorepo\Modules.ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14">
<HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET\GdPicture.NET.14.dll</HintPath>
</Reference>
@@ -168,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>
@@ -192,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>
@@ -222,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>
@@ -247,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" />
@@ -309,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>
@@ -325,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>
@@ -340,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>
@@ -352,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>

3
app/DD_Clipboard_Searcher/IResultForm.vb
View File

@@ -1,3 +0,0 @@
Public Interface IResultForm
Property ShouldReturnToMatchForm As Boolean
End Interface

406
app/DD_Clipboard_Searcher/MyDataset.Designer.vb generated
View File

@@ -53,6 +53,8 @@ Partial Public Class MyDataset
Private tableTBWH_PROFILE_TYPE As TBWH_PROFILE_TYPEDataTable
Private tableTBWH_SEARCH_POSITION As TBWH_SEARCH_POSITIONDataTable
Private relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF As Global.System.Data.DataRelation
Private relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF As Global.System.Data.DataRelation
@@ -132,6 +134,9 @@ Partial Public Class MyDataset
If (Not (ds.Tables("TBWH_PROFILE_TYPE")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_PROFILE_TYPEDataTable(ds.Tables("TBWH_PROFILE_TYPE")))
End If
If (Not (ds.Tables("TBWH_SEARCH_POSITION")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_SEARCH_POSITIONDataTable(ds.Tables("TBWH_SEARCH_POSITION")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
@@ -289,6 +294,16 @@ Partial Public Class MyDataset
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBWH_SEARCH_POSITION() As TBWH_SEARCH_POSITIONDataTable
Get
Return Me.tableTBWH_SEARCH_POSITION
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.BrowsableAttribute(true), _
@@ -398,6 +413,9 @@ Partial Public Class MyDataset
If (Not (ds.Tables("TBWH_PROFILE_TYPE")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_PROFILE_TYPEDataTable(ds.Tables("TBWH_PROFILE_TYPE")))
End If
If (Not (ds.Tables("TBWH_SEARCH_POSITION")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_SEARCH_POSITIONDataTable(ds.Tables("TBWH_SEARCH_POSITION")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
@@ -514,6 +532,12 @@ Partial Public Class MyDataset
Me.tableTBWH_PROFILE_TYPE.InitVars
End If
End If
Me.tableTBWH_SEARCH_POSITION = CType(MyBase.Tables("TBWH_SEARCH_POSITION"),TBWH_SEARCH_POSITIONDataTable)
If (initTable = true) Then
If (Not (Me.tableTBWH_SEARCH_POSITION) Is Nothing) Then
Me.tableTBWH_SEARCH_POSITION.InitVars
End If
End If
Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")
Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")
Me.relationFK_WINDOW_ID = Me.Relations("FK_WINDOW_ID")
@@ -556,6 +580,8 @@ Partial Public Class MyDataset
MyBase.Tables.Add(Me.tableTBWH_GROUP)
Me.tableTBWH_PROFILE_TYPE = New TBWH_PROFILE_TYPEDataTable()
MyBase.Tables.Add(Me.tableTBWH_PROFILE_TYPE)
Me.tableTBWH_SEARCH_POSITION = New TBWH_SEARCH_POSITIONDataTable()
MyBase.Tables.Add(Me.tableTBWH_SEARCH_POSITION)
Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF = New Global.System.Data.DataRelation("FK_TBCW_PROF_DATA_SEARCH_PROF_IF", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn}, false)
Me.Relations.Add(Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF)
Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF = New Global.System.Data.DataRelation("FK_TBCW_PROF_DOC_SEARCH_PROF_IF", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn}, false)
@@ -650,6 +676,12 @@ Partial Public Class MyDataset
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Function ShouldSerializeTBWH_SEARCH_POSITION() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
@@ -750,6 +782,9 @@ Partial Public Class MyDataset
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Delegate Sub TBWH_PROFILE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_PROFILE_TYPERowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Delegate Sub TBWH_SEARCH_POSITIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_SEARCH_POSITIONRowChangeEvent)
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
@@ -5817,6 +5852,271 @@ Partial Public Class MyDataset
End Function
End Class
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class TBWH_SEARCH_POSITIONDataTable
Inherits Global.System.Data.TypedTableBase(Of TBWH_SEARCH_POSITIONRow)
Private columnPOSITION_INDEX As Global.System.Data.DataColumn
Private columnPOSITION_NAME As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBWH_SEARCH_POSITION"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property POSITION_INDEXColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPOSITION_INDEX
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property POSITION_NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPOSITION_NAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_SEARCH_POSITIONRow
Get
Return CType(Me.Rows(index),TBWH_SEARCH_POSITIONRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBWH_SEARCH_POSITIONRowChanging As TBWH_SEARCH_POSITIONRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBWH_SEARCH_POSITIONRowChanged As TBWH_SEARCH_POSITIONRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBWH_SEARCH_POSITIONRowDeleting As TBWH_SEARCH_POSITIONRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBWH_SEARCH_POSITIONRowDeleted As TBWH_SEARCH_POSITIONRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Sub AddTBWH_SEARCH_POSITIONRow(ByVal row As TBWH_SEARCH_POSITIONRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Function AddTBWH_SEARCH_POSITIONRow(ByVal POSITION_INDEX As String, ByVal POSITION_NAME As String) As TBWH_SEARCH_POSITIONRow
Dim rowTBWH_SEARCH_POSITIONRow As TBWH_SEARCH_POSITIONRow = CType(Me.NewRow,TBWH_SEARCH_POSITIONRow)
Dim columnValuesArray() As Object = New Object() {POSITION_INDEX, POSITION_NAME}
rowTBWH_SEARCH_POSITIONRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBWH_SEARCH_POSITIONRow)
Return rowTBWH_SEARCH_POSITIONRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBWH_SEARCH_POSITIONDataTable = CType(MyBase.Clone,TBWH_SEARCH_POSITIONDataTable)
cln.InitVars
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBWH_SEARCH_POSITIONDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub InitVars()
Me.columnPOSITION_INDEX = MyBase.Columns("POSITION_INDEX")
Me.columnPOSITION_NAME = MyBase.Columns("POSITION_NAME")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitClass()
Me.columnPOSITION_INDEX = New Global.System.Data.DataColumn("POSITION_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPOSITION_INDEX)
Me.columnPOSITION_NAME = New Global.System.Data.DataColumn("POSITION_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPOSITION_NAME)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function NewTBWH_SEARCH_POSITIONRow() As TBWH_SEARCH_POSITIONRow
Return CType(Me.NewRow,TBWH_SEARCH_POSITIONRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBWH_SEARCH_POSITIONRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBWH_SEARCH_POSITIONRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBWH_SEARCH_POSITIONRowChangedEvent) Is Nothing) Then
RaiseEvent TBWH_SEARCH_POSITIONRowChanged(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBWH_SEARCH_POSITIONRowChangingEvent) Is Nothing) Then
RaiseEvent TBWH_SEARCH_POSITIONRowChanging(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBWH_SEARCH_POSITIONRowDeletedEvent) Is Nothing) Then
RaiseEvent TBWH_SEARCH_POSITIONRowDeleted(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBWH_SEARCH_POSITIONRowDeletingEvent) Is Nothing) Then
RaiseEvent TBWH_SEARCH_POSITIONRowDeleting(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub RemoveTBWH_SEARCH_POSITIONRow(ByVal row As TBWH_SEARCH_POSITIONRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As MyDataset = New MyDataset()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "TBWH_SEARCH_POSITIONDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
@@ -8013,6 +8313,76 @@ Partial Public Class MyDataset
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBWH_SEARCH_POSITIONRow
Inherits Global.System.Data.DataRow
Private tableTBWH_SEARCH_POSITION As TBWH_SEARCH_POSITIONDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBWH_SEARCH_POSITION = CType(Me.Table,TBWH_SEARCH_POSITIONDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property POSITION_INDEX() As String
Get
Try
Return CType(Me(Me.tableTBWH_SEARCH_POSITION.POSITION_INDEXColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte POSITION_INDEX in Tabelle TBWH_SEARCH_POSITION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWH_SEARCH_POSITION.POSITION_INDEXColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property POSITION_NAME() As String
Get
Try
Return CType(Me(Me.tableTBWH_SEARCH_POSITION.POSITION_NAMEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte POSITION_NAME in Tabelle TBWH_SEARCH_POSITION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWH_SEARCH_POSITION.POSITION_NAMEColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsPOSITION_INDEXNull() As Boolean
Return Me.IsNull(Me.tableTBWH_SEARCH_POSITION.POSITION_INDEXColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetPOSITION_INDEXNull()
Me(Me.tableTBWH_SEARCH_POSITION.POSITION_INDEXColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsPOSITION_NAMENull() As Boolean
Return Me.IsNull(Me.tableTBWH_SEARCH_POSITION.POSITION_NAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetPOSITION_NAMENull()
Me(Me.tableTBWH_SEARCH_POSITION.POSITION_NAMEColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Row event argument class
'''</summary>
@@ -8516,6 +8886,42 @@ Partial Public Class MyDataset
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Class TBWH_SEARCH_POSITIONRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBWH_SEARCH_POSITIONRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New(ByVal row As TBWH_SEARCH_POSITIONRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property Row() As TBWH_SEARCH_POSITIONRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
End Class
Namespace MyDatasetTableAdapters

44
app/DD_Clipboard_Searcher/MyDataset.xsd
View File

@@ -826,7 +826,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
<xs:element name="MyDataset" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="MyDataset" msprop:Generator_UserDSName="MyDataset">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="TBCW_PROFILES" msprop:Generator_TableClassName="TBCW_PROFILESDataTable" msprop:Generator_TableVarName="tableTBCW_PROFILES" msprop:Generator_RowChangedName="TBCW_PROFILESRowChanged" msprop:Generator_TablePropName="TBCW_PROFILES" msprop:Generator_RowDeletingName="TBCW_PROFILESRowDeleting" msprop:Generator_RowChangingName="TBCW_PROFILESRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROFILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROFILESRowDeleted" msprop:Generator_RowClassName="TBCW_PROFILESRow" msprop:Generator_UserTableName="TBCW_PROFILES" msprop:Generator_RowEvArgName="TBCW_PROFILESRowChangeEvent">
<xs:element name="TBCW_PROFILES" msprop:Generator_TableClassName="TBCW_PROFILESDataTable" msprop:Generator_TableVarName="tableTBCW_PROFILES" msprop:Generator_TablePropName="TBCW_PROFILES" msprop:Generator_RowDeletingName="TBCW_PROFILESRowDeleting" msprop:Generator_RowChangingName="TBCW_PROFILESRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROFILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROFILESRowDeleted" msprop:Generator_UserTableName="TBCW_PROFILES" msprop:Generator_RowChangedName="TBCW_PROFILESRowChanged" msprop:Generator_RowEvArgName="TBCW_PROFILESRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROFILESRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -872,7 +872,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_USER_PROFILE" msprop:Generator_TableClassName="TBCW_USER_PROFILEDataTable" msprop:Generator_TableVarName="tableTBCW_USER_PROFILE" msprop:Generator_RowChangedName="TBCW_USER_PROFILERowChanged" msprop:Generator_TablePropName="TBCW_USER_PROFILE" msprop:Generator_RowDeletingName="TBCW_USER_PROFILERowDeleting" msprop:Generator_RowChangingName="TBCW_USER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBCW_USER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_USER_PROFILERowDeleted" msprop:Generator_RowClassName="TBCW_USER_PROFILERow" msprop:Generator_UserTableName="TBCW_USER_PROFILE" msprop:Generator_RowEvArgName="TBCW_USER_PROFILERowChangeEvent">
<xs:element name="TBCW_USER_PROFILE" msprop:Generator_TableClassName="TBCW_USER_PROFILEDataTable" msprop:Generator_TableVarName="tableTBCW_USER_PROFILE" msprop:Generator_TablePropName="TBCW_USER_PROFILE" msprop:Generator_RowDeletingName="TBCW_USER_PROFILERowDeleting" msprop:Generator_RowChangingName="TBCW_USER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBCW_USER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_USER_PROFILERowDeleted" msprop:Generator_UserTableName="TBCW_USER_PROFILE" msprop:Generator_RowChangedName="TBCW_USER_PROFILERowChanged" msprop:Generator_RowEvArgName="TBCW_USER_PROFILERowChangeEvent" msprop:Generator_RowClassName="TBCW_USER_PROFILERow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -889,7 +889,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWUSER_PROFILE" msprop:Generator_TableClassName="VWUSER_PROFILEDataTable" msprop:Generator_TableVarName="tableVWUSER_PROFILE" msprop:Generator_TablePropName="VWUSER_PROFILE" msprop:Generator_RowDeletingName="VWUSER_PROFILERowDeleting" msprop:Generator_RowChangingName="VWUSER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="VWUSER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="VWUSER_PROFILERowDeleted" msprop:Generator_UserTableName="VWUSER_PROFILE" msprop:Generator_RowChangedName="VWUSER_PROFILERowChanged" msprop:Generator_RowEvArgName="VWUSER_PROFILERowChangeEvent" msprop:Generator_RowClassName="VWUSER_PROFILERow">
<xs:element name="VWUSER_PROFILE" msprop:Generator_TableClassName="VWUSER_PROFILEDataTable" msprop:Generator_TableVarName="tableVWUSER_PROFILE" msprop:Generator_RowChangedName="VWUSER_PROFILERowChanged" msprop:Generator_TablePropName="VWUSER_PROFILE" msprop:Generator_RowDeletingName="VWUSER_PROFILERowDeleting" msprop:Generator_RowChangingName="VWUSER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="VWUSER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="VWUSER_PROFILERowDeleted" msprop:Generator_RowClassName="VWUSER_PROFILERow" msprop:Generator_UserTableName="VWUSER_PROFILE" msprop:Generator_RowEvArgName="VWUSER_PROFILERowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -918,7 +918,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_User" msprop:Generator_TableClassName="TBWH_UserDataTable" msprop:Generator_TableVarName="tableTBWH_User" msprop:Generator_RowChangedName="TBWH_UserRowChanged" msprop:Generator_TablePropName="TBWH_User" msprop:Generator_RowDeletingName="TBWH_UserRowDeleting" msprop:Generator_RowChangingName="TBWH_UserRowChanging" msprop:Generator_RowEvHandlerName="TBWH_UserRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_UserRowDeleted" msprop:Generator_RowClassName="TBWH_UserRow" msprop:Generator_UserTableName="TBWH_User" msprop:Generator_RowEvArgName="TBWH_UserRowChangeEvent">
<xs:element name="TBWH_User" msprop:Generator_TableClassName="TBWH_UserDataTable" msprop:Generator_TableVarName="tableTBWH_User" msprop:Generator_TablePropName="TBWH_User" msprop:Generator_RowDeletingName="TBWH_UserRowDeleting" msprop:Generator_RowChangingName="TBWH_UserRowChanging" msprop:Generator_RowEvHandlerName="TBWH_UserRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_UserRowDeleted" msprop:Generator_UserTableName="TBWH_User" msprop:Generator_RowChangedName="TBWH_UserRowChanged" msprop:Generator_RowEvArgName="TBWH_UserRowChangeEvent" msprop:Generator_RowClassName="TBWH_UserRow">
<xs:complexType>
<xs:sequence>
<xs:element name="Username" msprop:Generator_ColumnVarNameInTable="columnUsername" msprop:Generator_ColumnPropNameInRow="Username" msprop:Generator_ColumnPropNameInTable="UsernameColumn" msprop:Generator_UserColumnName="Username" type="xs:string" minOccurs="0" />
@@ -929,7 +929,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_PROFILE_PROCESS" msprop:Generator_TableClassName="TBCW_PROFILE_PROCESSDataTable" msprop:Generator_TableVarName="tableTBCW_PROFILE_PROCESS" msprop:Generator_TablePropName="TBCW_PROFILE_PROCESS" msprop:Generator_RowDeletingName="TBCW_PROFILE_PROCESSRowDeleting" msprop:Generator_RowChangingName="TBCW_PROFILE_PROCESSRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROFILE_PROCESSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROFILE_PROCESSRowDeleted" msprop:Generator_UserTableName="TBCW_PROFILE_PROCESS" msprop:Generator_RowChangedName="TBCW_PROFILE_PROCESSRowChanged" msprop:Generator_RowEvArgName="TBCW_PROFILE_PROCESSRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROFILE_PROCESSRow">
<xs:element name="TBCW_PROFILE_PROCESS" msprop:Generator_TableClassName="TBCW_PROFILE_PROCESSDataTable" msprop:Generator_TableVarName="tableTBCW_PROFILE_PROCESS" msprop:Generator_RowChangedName="TBCW_PROFILE_PROCESSRowChanged" msprop:Generator_TablePropName="TBCW_PROFILE_PROCESS" msprop:Generator_RowDeletingName="TBCW_PROFILE_PROCESSRowDeleting" msprop:Generator_RowChangingName="TBCW_PROFILE_PROCESSRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROFILE_PROCESSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROFILE_PROCESSRowDeleted" msprop:Generator_RowClassName="TBCW_PROFILE_PROCESSRow" msprop:Generator_UserTableName="TBCW_PROFILE_PROCESS" msprop:Generator_RowEvArgName="TBCW_PROFILE_PROCESSRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -952,7 +952,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_PROF_DATA_SEARCH" msprop:Generator_TableClassName="TBCW_PROF_DATA_SEARCHDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_DATA_SEARCH" msprop:Generator_RowChangedName="TBCW_PROF_DATA_SEARCHRowChanged" msprop:Generator_TablePropName="TBCW_PROF_DATA_SEARCH" msprop:Generator_RowDeletingName="TBCW_PROF_DATA_SEARCHRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_DATA_SEARCHRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_DATA_SEARCHRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_DATA_SEARCHRowDeleted" msprop:Generator_RowClassName="TBCW_PROF_DATA_SEARCHRow" msprop:Generator_UserTableName="TBCW_PROF_DATA_SEARCH" msprop:Generator_RowEvArgName="TBCW_PROF_DATA_SEARCHRowChangeEvent">
<xs:element name="TBCW_PROF_DATA_SEARCH" msprop:Generator_TableClassName="TBCW_PROF_DATA_SEARCHDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_DATA_SEARCH" msprop:Generator_TablePropName="TBCW_PROF_DATA_SEARCH" msprop:Generator_RowDeletingName="TBCW_PROF_DATA_SEARCHRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_DATA_SEARCHRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_DATA_SEARCHRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_DATA_SEARCHRowDeleted" msprop:Generator_UserTableName="TBCW_PROF_DATA_SEARCH" msprop:Generator_RowChangedName="TBCW_PROF_DATA_SEARCHRowChanged" msprop:Generator_RowEvArgName="TBCW_PROF_DATA_SEARCHRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROF_DATA_SEARCHRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1000,7 +1000,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_PROF_DOC_SEARCH" msprop:Generator_TableClassName="TBCW_PROF_DOC_SEARCHDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_DOC_SEARCH" msprop:Generator_RowChangedName="TBCW_PROF_DOC_SEARCHRowChanged" msprop:Generator_TablePropName="TBCW_PROF_DOC_SEARCH" msprop:Generator_RowDeletingName="TBCW_PROF_DOC_SEARCHRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_DOC_SEARCHRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_DOC_SEARCHRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_DOC_SEARCHRowDeleted" msprop:Generator_RowClassName="TBCW_PROF_DOC_SEARCHRow" msprop:Generator_UserTableName="TBCW_PROF_DOC_SEARCH" msprop:Generator_RowEvArgName="TBCW_PROF_DOC_SEARCHRowChangeEvent">
<xs:element name="TBCW_PROF_DOC_SEARCH" msprop:Generator_TableClassName="TBCW_PROF_DOC_SEARCHDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_DOC_SEARCH" msprop:Generator_TablePropName="TBCW_PROF_DOC_SEARCH" msprop:Generator_RowDeletingName="TBCW_PROF_DOC_SEARCHRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_DOC_SEARCHRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_DOC_SEARCHRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_DOC_SEARCHRowDeleted" msprop:Generator_UserTableName="TBCW_PROF_DOC_SEARCH" msprop:Generator_RowChangedName="TBCW_PROF_DOC_SEARCHRowChanged" msprop:Generator_RowEvArgName="TBCW_PROF_DOC_SEARCHRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROF_DOC_SEARCHRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1048,7 +1048,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_GROUP_PROFILE" msprop:Generator_TableClassName="TBCW_GROUP_PROFILEDataTable" msprop:Generator_TableVarName="tableTBCW_GROUP_PROFILE" msprop:Generator_RowChangedName="TBCW_GROUP_PROFILERowChanged" msprop:Generator_TablePropName="TBCW_GROUP_PROFILE" msprop:Generator_RowDeletingName="TBCW_GROUP_PROFILERowDeleting" msprop:Generator_RowChangingName="TBCW_GROUP_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBCW_GROUP_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_GROUP_PROFILERowDeleted" msprop:Generator_RowClassName="TBCW_GROUP_PROFILERow" msprop:Generator_UserTableName="TBCW_GROUP_PROFILE" msprop:Generator_RowEvArgName="TBCW_GROUP_PROFILERowChangeEvent">
<xs:element name="TBCW_GROUP_PROFILE" msprop:Generator_TableClassName="TBCW_GROUP_PROFILEDataTable" msprop:Generator_TableVarName="tableTBCW_GROUP_PROFILE" msprop:Generator_TablePropName="TBCW_GROUP_PROFILE" msprop:Generator_RowDeletingName="TBCW_GROUP_PROFILERowDeleting" msprop:Generator_RowChangingName="TBCW_GROUP_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBCW_GROUP_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_GROUP_PROFILERowDeleted" msprop:Generator_UserTableName="TBCW_GROUP_PROFILE" msprop:Generator_RowChangedName="TBCW_GROUP_PROFILERowChanged" msprop:Generator_RowEvArgName="TBCW_GROUP_PROFILERowChangeEvent" msprop:Generator_RowClassName="TBCW_GROUP_PROFILERow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1065,7 +1065,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_GROUP" msprop:Generator_TableClassName="TBWH_GROUPDataTable" msprop:Generator_TableVarName="tableTBWH_GROUP" msprop:Generator_RowChangedName="TBWH_GROUPRowChanged" msprop:Generator_TablePropName="TBWH_GROUP" msprop:Generator_RowDeletingName="TBWH_GROUPRowDeleting" msprop:Generator_RowChangingName="TBWH_GROUPRowChanging" msprop:Generator_RowEvHandlerName="TBWH_GROUPRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_GROUPRowDeleted" msprop:Generator_RowClassName="TBWH_GROUPRow" msprop:Generator_UserTableName="TBWH_GROUP" msprop:Generator_RowEvArgName="TBWH_GROUPRowChangeEvent">
<xs:element name="TBWH_GROUP" msprop:Generator_TableClassName="TBWH_GROUPDataTable" msprop:Generator_TableVarName="tableTBWH_GROUP" msprop:Generator_TablePropName="TBWH_GROUP" msprop:Generator_RowDeletingName="TBWH_GROUPRowDeleting" msprop:Generator_RowChangingName="TBWH_GROUPRowChanging" msprop:Generator_RowEvHandlerName="TBWH_GROUPRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_GROUPRowDeleted" msprop:Generator_UserTableName="TBWH_GROUP" msprop:Generator_RowChangedName="TBWH_GROUPRowChanged" msprop:Generator_RowEvArgName="TBWH_GROUPRowChangeEvent" msprop:Generator_RowClassName="TBWH_GROUPRow">
<xs:complexType>
<xs:sequence>
<xs:element name="ID" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:string" minOccurs="0" />
@@ -1073,7 +1073,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWCW_GROUP_PROFILE" msprop:Generator_TableClassName="VWCW_GROUP_PROFILEDataTable" msprop:Generator_TableVarName="tableVWCW_GROUP_PROFILE" msprop:Generator_RowChangedName="VWCW_GROUP_PROFILERowChanged" msprop:Generator_TablePropName="VWCW_GROUP_PROFILE" msprop:Generator_RowDeletingName="VWCW_GROUP_PROFILERowDeleting" msprop:Generator_RowChangingName="VWCW_GROUP_PROFILERowChanging" msprop:Generator_RowEvHandlerName="VWCW_GROUP_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="VWCW_GROUP_PROFILERowDeleted" msprop:Generator_RowClassName="VWCW_GROUP_PROFILERow" msprop:Generator_UserTableName="VWCW_GROUP_PROFILE" msprop:Generator_RowEvArgName="VWCW_GROUP_PROFILERowChangeEvent">
<xs:element name="VWCW_GROUP_PROFILE" msprop:Generator_TableClassName="VWCW_GROUP_PROFILEDataTable" msprop:Generator_TableVarName="tableVWCW_GROUP_PROFILE" msprop:Generator_TablePropName="VWCW_GROUP_PROFILE" msprop:Generator_RowDeletingName="VWCW_GROUP_PROFILERowDeleting" msprop:Generator_RowChangingName="VWCW_GROUP_PROFILERowChanging" msprop:Generator_RowEvHandlerName="VWCW_GROUP_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="VWCW_GROUP_PROFILERowDeleted" msprop:Generator_UserTableName="VWCW_GROUP_PROFILE" msprop:Generator_RowChangedName="VWCW_GROUP_PROFILERowChanged" msprop:Generator_RowEvArgName="VWCW_GROUP_PROFILERowChangeEvent" msprop:Generator_RowClassName="VWCW_GROUP_PROFILERow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1087,7 +1087,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_PROFILE_TYPE" msprop:Generator_TableClassName="TBWH_PROFILE_TYPEDataTable" msprop:Generator_TableVarName="tableTBWH_PROFILE_TYPE" msprop:Generator_TablePropName="TBWH_PROFILE_TYPE" msprop:Generator_RowDeletingName="TBWH_PROFILE_TYPERowDeleting" msprop:Generator_RowChangingName="TBWH_PROFILE_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBWH_PROFILE_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_PROFILE_TYPERowDeleted" msprop:Generator_UserTableName="TBWH_PROFILE_TYPE" msprop:Generator_RowChangedName="TBWH_PROFILE_TYPERowChanged" msprop:Generator_RowEvArgName="TBWH_PROFILE_TYPERowChangeEvent" msprop:Generator_RowClassName="TBWH_PROFILE_TYPERow">
<xs:element name="TBWH_PROFILE_TYPE" msprop:Generator_TableClassName="TBWH_PROFILE_TYPEDataTable" msprop:Generator_TableVarName="tableTBWH_PROFILE_TYPE" msprop:Generator_RowChangedName="TBWH_PROFILE_TYPERowChanged" msprop:Generator_TablePropName="TBWH_PROFILE_TYPE" msprop:Generator_RowDeletingName="TBWH_PROFILE_TYPERowDeleting" msprop:Generator_RowChangingName="TBWH_PROFILE_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBWH_PROFILE_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_PROFILE_TYPERowDeleted" msprop:Generator_RowClassName="TBWH_PROFILE_TYPERow" msprop:Generator_UserTableName="TBWH_PROFILE_TYPE" msprop:Generator_RowEvArgName="TBWH_PROFILE_TYPERowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="TYPE_ID" msprop:Generator_ColumnVarNameInTable="columnTYPE_ID" msprop:Generator_ColumnPropNameInRow="TYPE_ID" msprop:Generator_ColumnPropNameInTable="TYPE_IDColumn" msprop:Generator_UserColumnName="TYPE_ID" type="xs:short" default="0" />
@@ -1095,7 +1095,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_PROF_REL_WINDOW" msprop:Generator_TableClassName="TBCW_PROF_REL_WINDOWDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_REL_WINDOW" msprop:Generator_TablePropName="TBCW_PROF_REL_WINDOW" msprop:Generator_RowDeletingName="TBCW_PROF_REL_WINDOWRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_REL_WINDOWRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_REL_WINDOWRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_REL_WINDOWRowDeleted" msprop:Generator_UserTableName="TBCW_PROF_REL_WINDOW" msprop:Generator_RowChangedName="TBCW_PROF_REL_WINDOWRowChanged" msprop:Generator_RowEvArgName="TBCW_PROF_REL_WINDOWRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROF_REL_WINDOWRow">
<xs:element name="TBCW_PROF_REL_WINDOW" msprop:Generator_TableClassName="TBCW_PROF_REL_WINDOWDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_REL_WINDOW" msprop:Generator_RowChangedName="TBCW_PROF_REL_WINDOWRowChanged" msprop:Generator_TablePropName="TBCW_PROF_REL_WINDOW" msprop:Generator_RowDeletingName="TBCW_PROF_REL_WINDOWRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_REL_WINDOWRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_REL_WINDOWRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_REL_WINDOWRowDeleted" msprop:Generator_RowClassName="TBCW_PROF_REL_WINDOWRow" msprop:Generator_UserTableName="TBCW_PROF_REL_WINDOW" msprop:Generator_RowEvArgName="TBCW_PROF_REL_WINDOWRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1134,7 +1134,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBDD_CONNECTIONRow">
<xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBDD_CONNECTIONRow" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@@ -1207,7 +1207,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_PROF_REL_CONTROL" msprop:Generator_TableClassName="TBCW_PROF_REL_CONTROLDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_REL_CONTROL" msprop:Generator_RowChangedName="TBCW_PROF_REL_CONTROLRowChanged" msprop:Generator_TablePropName="TBCW_PROF_REL_CONTROL" msprop:Generator_RowDeletingName="TBCW_PROF_REL_CONTROLRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_REL_CONTROLRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_REL_CONTROLRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_REL_CONTROLRowDeleted" msprop:Generator_RowClassName="TBCW_PROF_REL_CONTROLRow" msprop:Generator_UserTableName="TBCW_PROF_REL_CONTROL" msprop:Generator_RowEvArgName="TBCW_PROF_REL_CONTROLRowChangeEvent">
<xs:element name="TBCW_PROF_REL_CONTROL" msprop:Generator_TableClassName="TBCW_PROF_REL_CONTROLDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_REL_CONTROL" msprop:Generator_TablePropName="TBCW_PROF_REL_CONTROL" msprop:Generator_RowDeletingName="TBCW_PROF_REL_CONTROLRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_REL_CONTROLRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_REL_CONTROLRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_REL_CONTROLRowDeleted" msprop:Generator_UserTableName="TBCW_PROF_REL_CONTROL" msprop:Generator_RowChangedName="TBCW_PROF_REL_CONTROLRowChanged" msprop:Generator_RowEvArgName="TBCW_PROF_REL_CONTROLRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROF_REL_CONTROLRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -1262,6 +1262,14 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_SEARCH_POSITION" msprop:Generator_TableClassName="TBWH_SEARCH_POSITIONDataTable" msprop:Generator_TableVarName="tableTBWH_SEARCH_POSITION" msprop:Generator_TablePropName="TBWH_SEARCH_POSITION" msprop:Generator_RowDeletingName="TBWH_SEARCH_POSITIONRowDeleting" msprop:Generator_RowChangingName="TBWH_SEARCH_POSITIONRowChanging" msprop:Generator_RowEvHandlerName="TBWH_SEARCH_POSITIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_SEARCH_POSITIONRowDeleted" msprop:Generator_UserTableName="TBWH_SEARCH_POSITION" msprop:Generator_RowChangedName="TBWH_SEARCH_POSITIONRowChanged" msprop:Generator_RowEvArgName="TBWH_SEARCH_POSITIONRowChangeEvent" msprop:Generator_RowClassName="TBWH_SEARCH_POSITIONRow">
<xs:complexType>
<xs:sequence>
<xs:element name="POSITION_INDEX" msprop:Generator_ColumnVarNameInTable="columnPOSITION_INDEX" msprop:Generator_ColumnPropNameInRow="POSITION_INDEX" msprop:Generator_ColumnPropNameInTable="POSITION_INDEXColumn" msprop:Generator_UserColumnName="POSITION_INDEX" type="xs:string" minOccurs="0" />
<xs:element name="POSITION_NAME" msprop:Generator_ColumnVarNameInTable="columnPOSITION_NAME" msprop:Generator_ColumnPropNameInRow="POSITION_NAME" msprop:Generator_ColumnPropNameInTable="POSITION_NAMEColumn" msprop:Generator_UserColumnName="POSITION_NAME" type="xs:string" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true">
@@ -1311,10 +1319,10 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WH
</xs:element>
<xs:annotation>
<xs:appinfo>
<msdata:Relationship name="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DATA_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DATA_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DATA_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" msprop:Generator_ParentPropName="TBCW_PROFILESRow" />
<msdata:Relationship name="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DOC_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DOC_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DOC_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" msprop:Generator_ParentPropName="TBCW_PROFILESRow" />
<msdata:Relationship name="FK_WINDOW_ID" msdata:parent="TBCW_PROF_REL_WINDOW" msdata:child="TBCW_PROF_REL_CONTROL" msdata:parentkey="GUID" msdata:childkey="WINDOW_ID" msprop:Generator_UserChildTable="TBCW_PROF_REL_CONTROL" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_CONTROLRows" msprop:Generator_UserRelationName="FK_WINDOW_ID" msprop:Generator_ParentPropName="TBCW_PROF_REL_WINDOWRow" msprop:Generator_RelationVarName="relationFK_WINDOW_ID" msprop:Generator_UserParentTable="TBCW_PROF_REL_WINDOW" />
<msdata:Relationship name="FK_PROCESS_ID" msdata:parent="TBCW_PROFILE_PROCESS" msdata:child="TBCW_PROF_REL_WINDOW" msdata:parentkey="GUID" msdata:childkey="PROCESS_ID" msprop:Generator_UserChildTable="TBCW_PROF_REL_WINDOW" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_WINDOWRows" msprop:Generator_UserRelationName="FK_PROCESS_ID" msprop:Generator_ParentPropName="TBCW_PROFILE_PROCESSRow" msprop:Generator_RelationVarName="relationFK_PROCESS_ID" msprop:Generator_UserParentTable="TBCW_PROFILE_PROCESS" />
<msdata:Relationship name="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DATA_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DATA_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DATA_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_ParentPropName="TBCW_PROFILESRow" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" />
<msdata:Relationship name="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DOC_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DOC_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DOC_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_ParentPropName="TBCW_PROFILESRow" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" />
<msdata:Relationship name="FK_WINDOW_ID" msdata:parent="TBCW_PROF_REL_WINDOW" msdata:child="TBCW_PROF_REL_CONTROL" msdata:parentkey="GUID" msdata:childkey="WINDOW_ID" msprop:Generator_UserChildTable="TBCW_PROF_REL_CONTROL" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_CONTROLRows" msprop:Generator_UserRelationName="FK_WINDOW_ID" msprop:Generator_RelationVarName="relationFK_WINDOW_ID" msprop:Generator_UserParentTable="TBCW_PROF_REL_WINDOW" msprop:Generator_ParentPropName="TBCW_PROF_REL_WINDOWRow" />
<msdata:Relationship name="FK_PROCESS_ID" msdata:parent="TBCW_PROFILE_PROCESS" msdata:child="TBCW_PROF_REL_WINDOW" msdata:parentkey="GUID" msdata:childkey="PROCESS_ID" msprop:Generator_UserChildTable="TBCW_PROF_REL_WINDOW" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_WINDOWRows" msprop:Generator_UserRelationName="FK_PROCESS_ID" msprop:Generator_RelationVarName="relationFK_PROCESS_ID" msprop:Generator_UserParentTable="TBCW_PROFILE_PROCESS" msprop:Generator_ParentPropName="TBCW_PROFILE_PROCESSRow" />
</xs:appinfo>
</xs:annotation>
</xs:schema>

39
app/DD_Clipboard_Searcher/MyDataset.xss
View File

@@ -4,25 +4,26 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-45" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="301" ViewPortY="-45" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBCW_PROFILES" ZOrder="18" X="14" Y="-44" Height="286" Width="240" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBCW_USER_PROFILE" ZOrder="7" X="680" Y="299" Height="172" Width="271" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWUSER_PROFILE" ZOrder="17" X="1049" Y="11" Height="250" Width="191" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="142" />
<Shape ID="DesignTable:TBCW_PROFILE_PROCESS" ZOrder="15" X="20" Y="585" Height="172" Width="294" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:TBCW_PROF_DATA_SEARCH" ZOrder="14" X="630" Y="-32" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_DOC_SEARCH" ZOrder="12" X="321" Y="20" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_GROUP_PROFILE" ZOrder="5" X="336" Y="635" Height="172" Width="281" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWCW_GROUP_PROFILE" ZOrder="9" X="1252" Y="5" Height="248" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBCW_PROF_REL_WINDOW" ZOrder="4" X="10" Y="259" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="197" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="6" X="675" Y="483" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_REL_CONTROL" ZOrder="1" X="330" Y="327" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_User" ZOrder="16" X="1221" Y="436" Height="124" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
<Shape ID="DesignTable:TBWH_GROUP" ZOrder="10" X="1240" Y="329" Height="67" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBWH_PROFILE_TYPE" ZOrder="8" X="1204" Y="609" Height="67" Width="190" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBCW_PROFILES" ZOrder="19" X="14" Y="-44" Height="286" Width="240" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBCW_USER_PROFILE" ZOrder="8" X="680" Y="299" Height="172" Width="271" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWUSER_PROFILE" ZOrder="18" X="1049" Y="11" Height="250" Width="191" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="142" />
<Shape ID="DesignTable:TBCW_PROFILE_PROCESS" ZOrder="16" X="20" Y="585" Height="172" Width="294" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:TBCW_PROF_DATA_SEARCH" ZOrder="15" X="630" Y="-32" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_DOC_SEARCH" ZOrder="13" X="321" Y="20" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_GROUP_PROFILE" ZOrder="6" X="336" Y="635" Height="172" Width="281" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWCW_GROUP_PROFILE" ZOrder="10" X="1252" Y="5" Height="248" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBCW_PROF_REL_WINDOW" ZOrder="5" X="10" Y="259" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="197" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="7" X="675" Y="483" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_REL_CONTROL" ZOrder="2" X="330" Y="327" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_User" ZOrder="17" X="1221" Y="436" Height="124" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
<Shape ID="DesignTable:TBWH_GROUP" ZOrder="11" X="1240" Y="329" Height="67" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBWH_PROFILE_TYPE" ZOrder="9" X="1204" Y="609" Height="67" Width="190" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBWH_SEARCH_POSITION" ZOrder="1" X="990" Y="605" Height="67" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TBCW_PROF_DATA_SEARCH_PROF_IF" ZOrder="13" LineWidth="11">
<Connector ID="DesignRelation:FK_TBCW_PROF_DATA_SEARCH_PROF_IF" ZOrder="14" LineWidth="11">
<RoutePoints>
<Point>
<X>254</X>
@@ -34,7 +35,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBCW_PROF_DOC_SEARCH_PROF_IF" ZOrder="11" LineWidth="11">
<Connector ID="DesignRelation:FK_TBCW_PROF_DOC_SEARCH_PROF_IF" ZOrder="12" LineWidth="11">
<RoutePoints>
<Point>
<X>254</X>
@@ -46,7 +47,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_WINDOW_ID" ZOrder="3" LineWidth="11">
<Connector ID="DesignRelation:FK_WINDOW_ID" ZOrder="4" LineWidth="11">
<RoutePoints>
<Point>
<X>310</X>
@@ -58,7 +59,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_PROCESS_ID" ZOrder="2" LineWidth="11">
<Connector ID="DesignRelation:FK_PROCESS_ID" ZOrder="3" LineWidth="11">
<RoutePoints>
<Point>
<X>165</X>

53
app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb
View File

@@ -4,6 +4,7 @@ Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Imports DigitalData.Controls.RegexEditor
Imports DigitalData.Modules.Windows.Window
Public Class ctrlApplicationAssignment
Public AppSelectionString As String
@@ -164,6 +165,8 @@ Public Class ctrlApplicationAssignment
TBCW_PROF_REL_WINDOWTableAdapter.Update(MyDataset.TBCW_PROF_REL_WINDOW)
Return True
End If
Return True
Catch ex As Exception
Logger.Error(ex)
Return False
@@ -219,9 +222,50 @@ Public Class ctrlApplicationAssignment
End Function
Public Function Control_EditAssignment() As Boolean
Dim oForm As New frmControlCapture(EditMode:=True)
Dim oHandles As List(Of Integer) = GridView_Control.
GetSelectedRows().
ToList()
If oHandles.Count <> 1 Then
Return False
End If
Dim oHandle As Integer = oHandles.FirstOrDefault()
Dim oRow = GridView_Control.GetDataRow(oHandle)
Dim oControlName As String = oRow.Item("CONTROL_NAME")
Dim oTopLeft As New RectangleInfo() With {
.Top = oRow.Item("TOPLEFT_TOP"),
.Left = oRow.Item("TOPLEFT_LEFT"),
.Right = oRow.Item("TOPLEFT_RIGHT"),
.Bottom = oRow.Item("TOPLEFT_BOTTOM")
}
Dim oTopRight As New RectangleInfo() With {
.Top = oRow.Item("TOPRIGHT_TOP"),
.Left = oRow.Item("TOPRIGHT_LEFT"),
.Right = oRow.Item("TOPRIGHT_RIGHT"),
.Bottom = oRow.Item("TOPRIGHT_BOTTOM")
}
Dim oBottomLeft As New RectangleInfo() With {
.Top = oRow.Item("BOTTOMLEFT_TOP"),
.Left = oRow.Item("BOTTOMLEFT_LEFT"),
.Right = oRow.Item("BOTTOMLEFT_RIGHT"),
.Bottom = oRow.Item("BOTTOMLEFT_BOTTOM")
}
Dim oBottomRight As New RectangleInfo() With {
.Top = oRow.Item("BOTTOMRIGHT_TOP"),
.Left = oRow.Item("BOTTOMRIGHT_LEFT"),
.Right = oRow.Item("BOTTOMRIGHT_RIGHT"),
.Bottom = oRow.Item("BOTTOMRIGHT_BOTTOM")
}
Dim oBounds As String = frmControlCapture.GetBoundsString(oTopLeft, oTopRight, oBottomLeft, oBottomRight)
Dim oForm As New frmControlCapture(EditMode:=True, ControlBounds:=oBounds, ControlName:=oControlName)
Dim oResult = oForm.ShowDialog()
Dim oControlId As Integer() = GridView_Control.GetSelectedRows()
If oResult = DialogResult.OK Then
Try
@@ -296,6 +340,9 @@ Public Class ctrlApplicationAssignment
End Function
Private Sub GridViewProcessProfile_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewProcessProfile.FocusedRowChanged
MyDataset.TBCW_PROF_REL_CONTROL.Clear()
MyDataset.TBCW_PROF_REL_WINDOW.Clear()
If e.FocusedRowHandle < 0 Then
Exit Sub
End If
@@ -306,8 +353,6 @@ Public Class ctrlApplicationAssignment
AppSelectionString = $"Selected Profile: {oPRocessGUID}-{oProcessName}"
CURRENT_PROCESSID = oPRocessGUID
CURRENT_PROCESSNAME = oProcessName
MyDataset.TBCW_PROF_REL_CONTROL.Clear()
MyDataset.TBCW_PROF_REL_WINDOW.Clear()
If Window_Load() = False Then
MsgBox($"Error while loading windows for process {oProcessName}", vbCritical, "")

52
app/DD_Clipboard_Searcher/frmAdministration.Designer.vb generated
View File

@@ -78,6 +78,7 @@ Partial Class frmAdministration
Me.BarButtonItem25 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem()
Me.labelSelection = New DevExpress.XtraBars.BarStaticItem()
Me.BarButtonItem27 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonGroup_Profile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonGroup_DocSearch = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -120,7 +121,8 @@ Partial Class frmAdministration
Me.MemoEdit5 = New DevExpress.XtraEditors.MemoEdit()
Me.MemoEdit6 = New DevExpress.XtraEditors.MemoEdit()
Me.txtDOC_GUID = New DevExpress.XtraEditors.TextEdit()
Me.TextEdit19 = New DevExpress.XtraEditors.ComboBoxEdit()
Me.TextEdit19 = New DevExpress.XtraEditors.LookUpEdit()
Me.TBWHSEARCHPOSITIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem29 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem30 = New DevExpress.XtraLayout.LayoutControlItem()
@@ -149,7 +151,7 @@ Partial Class frmAdministration
Me.MemoEdit3 = New DevExpress.XtraEditors.MemoEdit()
Me.MemoEdit4 = New DevExpress.XtraEditors.MemoEdit()
Me.txtDATAGUID = New DevExpress.XtraEditors.TextEdit()
Me.TextEdit10 = New DevExpress.XtraEditors.ComboBoxEdit()
Me.TextEdit10 = New DevExpress.XtraEditors.LookUpEdit()
Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem()
@@ -211,7 +213,6 @@ Partial Class frmAdministration
Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem()
Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit()
Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator()
Me.BarButtonItem27 = New DevExpress.XtraBars.BarButtonItem()
CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -265,6 +266,7 @@ Partial Class frmAdministration
CType(Me.MemoEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDOC_GUID.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit19.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWHSEARCHPOSITIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -537,6 +539,7 @@ Partial Class frmAdministration
Me.RibbonControl2.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl2.Size = New System.Drawing.Size(1365, 146)
Me.RibbonControl2.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl2.ToolbarLocation = DevExpress.XtraBars.Ribbon.RibbonQuickAccessToolbarLocation.Hidden
'
'ApplicationMenu1
'
@@ -764,6 +767,14 @@ Partial Class frmAdministration
Me.labelSelection.Id = 12
Me.labelSelection.Name = "labelSelection"
'
'BarButtonItem27
'
Me.BarButtonItem27.Caption = "Zuordnung bearbeiten"
Me.BarButtonItem27.Id = 13
Me.BarButtonItem27.ImageOptions.Image = CType(resources.GetObject("BarButtonItem27.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem27.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem27.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem27.Name = "BarButtonItem27"
'
'RibbonPage2
'
Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonGroup_Profile, Me.RibbonGroup_DocSearch, Me.RibbonGroup_DataSearch, Me.RibbonGroup_Process, Me.RibbonGroup_Window, Me.RibbonGroup_Control, Me.RibbonGroup_User, Me.RibbonGroup_Group})
@@ -1208,11 +1219,22 @@ Partial Class frmAdministration
Me.TextEdit19.Name = "TextEdit19"
Me.TextEdit19.Properties.AutoHeight = False
Me.TextEdit19.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.TextEdit19.Properties.Items.AddRange(New Object() {"0", "1", "2", "3", "4"})
Me.TextEdit19.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("POSITION_NAME", "Position", 93, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near, DevExpress.Data.ColumnSortOrder.None, DevExpress.Utils.DefaultBoolean.[Default])})
Me.TextEdit19.Properties.DataSource = Me.TBWHSEARCHPOSITIONBindingSource
Me.TextEdit19.Properties.DisplayMember = "POSITION_NAME"
Me.TextEdit19.Properties.NullText = ""
Me.TextEdit19.Properties.PopupSizeable = False
Me.TextEdit19.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard
Me.TextEdit19.Properties.ValueMember = "POSITION_INDEX"
Me.TextEdit19.Size = New System.Drawing.Size(200, 20)
Me.TextEdit19.StyleController = Me.LayoutControlDocs
Me.TextEdit19.TabIndex = 10
'
'TBWHSEARCHPOSITIONBindingSource
'
Me.TBWHSEARCHPOSITIONBindingSource.DataMember = "TBWH_SEARCH_POSITION"
Me.TBWHSEARCHPOSITIONBindingSource.DataSource = Me.MyDataset
'
'LayoutControlGroup2
'
Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
@@ -1534,7 +1556,13 @@ Partial Class frmAdministration
Me.TextEdit10.Name = "TextEdit10"
Me.TextEdit10.Properties.AutoHeight = False
Me.TextEdit10.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.TextEdit10.Properties.Items.AddRange(New Object() {"0", "1", "2", "3", "4"})
Me.TextEdit10.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("POSITION_NAME", "Position", 93, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near, DevExpress.Data.ColumnSortOrder.None, DevExpress.Utils.DefaultBoolean.[Default])})
Me.TextEdit10.Properties.DataSource = Me.TBWHSEARCHPOSITIONBindingSource
Me.TextEdit10.Properties.DisplayMember = "POSITION_NAME"
Me.TextEdit10.Properties.NullText = ""
Me.TextEdit10.Properties.PopupSizeable = False
Me.TextEdit10.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard
Me.TextEdit10.Properties.ValueMember = "POSITION_INDEX"
Me.TextEdit10.Size = New System.Drawing.Size(200, 20)
Me.TextEdit10.StyleController = Me.LayoutControlData
Me.TextEdit10.TabIndex = 10
@@ -2137,14 +2165,6 @@ Partial Class frmAdministration
Me.SimpleSeparator1.Name = "SimpleSeparator1"
Me.SimpleSeparator1.Size = New System.Drawing.Size(280, 2)
'
'BarButtonItem27
'
Me.BarButtonItem27.Caption = "Zuordnung bearbeiten"
Me.BarButtonItem27.Id = 13
Me.BarButtonItem27.ImageOptions.Image = CType(resources.GetObject("BarButtonItem27.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem27.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem27.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem27.Name = "BarButtonItem27"
'
'frmAdministration
'
Me.Appearance.Options.UseFont = True
@@ -2214,6 +2234,7 @@ Partial Class frmAdministration
CType(Me.MemoEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDOC_GUID.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit19.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBWHSEARCHPOSITIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2470,8 +2491,6 @@ Partial Class frmAdministration
Friend WithEvents LayoutControlItem34 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents EmptySpaceItem2 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents EmptySpaceItem3 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents TextEdit19 As DevExpress.XtraEditors.ComboBoxEdit
Friend WithEvents TextEdit10 As DevExpress.XtraEditors.ComboBoxEdit
Friend WithEvents BarButtonItem23 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonGroup_Control As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarButtonItem24 As DevExpress.XtraBars.BarButtonItem
@@ -2479,4 +2498,7 @@ Partial Class frmAdministration
Friend WithEvents BarButtonItem26 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents labelSelection As DevExpress.XtraBars.BarStaticItem
Friend WithEvents BarButtonItem27 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents TextEdit19 As DevExpress.XtraEditors.LookUpEdit
Friend WithEvents TBWHSEARCHPOSITIONBindingSource As BindingSource
Friend WithEvents TextEdit10 As DevExpress.XtraEditors.LookUpEdit
End Class

30
app/DD_Clipboard_Searcher/frmAdministration.resx
View File

@@ -750,24 +750,23 @@
</data>
<data name="BarButtonItem27.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAIHRFWHRUaXRsZQBFZGl0O0Jh
cnM7UmliYm9uO1N0YW5kYXJkOzATw9sAAACMSURBVDhPrZJLDoAgDAW5E+fwUoY15+Euxq17ty6srbFY
GsJPXzLBpLxBDQYAPhEfnHNQ4HxWK8tEIiiF5t77VUu6BJhDS7oEEkyfQOYXATIuoAwLlm2HaQ6M7RJw
WUqaBepkwjYLMmWm/gmlMlL/ibQ59/o4MrimAg2FS0ISr3Ei0KDghgVcptJLMBcAmyZSCH4lCAAAAABJ
RU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAgdEVYdFRpdGxlAEVkaXQ7QmFycztSaWJib247U3Rh
bmRhcmQ7MBPD2wAAAIxJREFUOE+tkksOgCAMBbkT5/BShjXn4S7GrXu3LqytsVgawk9fMsGkvEENBgA+
ER+cc1DgfFYry0QiKIXm3vtVS7oEmENLugQSTJ9A5hcBMi6gDAuWbYdpDoztEnBZSpoF6mTCNgsyZab+
CaUyUv+JtDn3+jgyuKYCDYVLQhKvcSLQoOCGBVym0kswFwCbJlIIfiUIAAAAAElFTkSuQmCC
</value>
</data>
<data name="BarButtonItem27.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAIHRFWHRUaXRsZQBFZGl0O0Jh
cnM7UmliYm9uO1N0YW5kYXJkOzATw9sAAAEmSURBVFhH7ZJBDoIwEEW5E7cw8VKGLUfgHt7FsDJh71YX
9X9kkraM0DZt2TDJCzAw859IY4w5FLVZE7VZE7VZE7VJuq4zkTzBBXB2hZZB1CbBEA7hxef7vv8Mw3DB
pb/LubZRmyRFYBxHVaKaAEuTqCrA8iWqC7AWiTclDhFgiQTurT5MQW2SFIENJjyi5qhNwsFctexSc9Qm
OQVOgZwCrOvt3gIe5XzOWQULOQUe00uCbVrcKi9ghdtvYAZVVkD55Y4EqpzAn9dORKLcX7ARLpT7CEPD
CR7PKxATTjCSTyAlnDihNjECseEEYzNOqA0F9mClhBPJcUJTwDIJ8YOlvwonMu8sSwHL7LCgcCLzzrIU
sMwP3Q0nMu8sSwHLbIGgcPKbN80XNOGDvft2XdIAAAAASUVORK5CYII=
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAgdEVYdFRpdGxlAEVkaXQ7QmFycztSaWJib247U3Rh
bmRhcmQ7MBPD2wAAASZJREFUWEftkkEOgjAQRbkTtzDxUoYtR+Ae3sWwMmHvVhf1f2SStozQNm3ZMMkL
MDDzn0hjjDkUtVkTtVkTtVkTtUm6rjORPMEFcHaFlkHUJsEQDuHF5/u+/wzDcMGlv8u5tlGbJEVgHEdV
opoAS5OoKsDyJaoLsBaJNyUOEWCJBO6tPkxBbZIUgQ0mPKLmqE3CwVy17FJz1CY5BU6BnAKs6+3eAh7l
fM5ZBQs5BR7TS4JtWtwqL2CF229gBlVWQPnljgSqnMCf105EotxfsBEulPsIQ8MJHs8rEBNOMJJPICWc
OKE2MQKx4QRjM06oDQX2YKWEE8lxQlPAMgnxg6W/Cicy7yxLAcvssKBwIvPOshSwzA/dDScy7yxLActs
gaBw8ps3zRc04YO9+3Zd0gAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="TBWH_PROFILE_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -786,6 +785,9 @@
<metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
<metadata name="TBWHSEARCHPOSITIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>499, 134</value>
</metadata>
<data name="TabPageDocuments.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m

26
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@@ -11,12 +11,17 @@ Public Class frmAdministration
Public Overrides Function ToString() As String
Return Name
Return Name
End Function
End Class
Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Select first tab to prevent profile textbox from being empty
XtraTabControl3.SelectedTabPageIndex = 0
Load_Profiles()
Load_ProfileTypes()
Load_SearchPositions()
Load_Connections()
End Sub
@@ -34,6 +39,22 @@ Public Class frmAdministration
End Try
End Sub
Sub Load_SearchPositions()
Dim oTypeNames As New Dictionary(Of Integer, String) From {
{ClassConstants.SEARCH_POSITION_PRIMARY, "Haupttabelle"},
{ClassConstants.SEARCH_POSITION_SECONDARY, "Erste Detailtablle"},
{ClassConstants.SEARCH_POSITION_TERTIARY, "Zweite Detailtablle"}
}
MyDataset.TBWH_SEARCH_POSITION.Rows.Clear()
For Each oTypeName As KeyValuePair(Of Integer, String) In oTypeNames
Dim oRow = MyDataset.TBWH_SEARCH_POSITION.NewTBWH_SEARCH_POSITIONRow()
oRow.POSITION_INDEX = oTypeName.Key
oRow.POSITION_NAME = oTypeName.Value
MyDataset.TBWH_SEARCH_POSITION.Rows.Add(oRow)
Next
End Sub
Sub Load_ProfileTypes()
Dim oTypeNames As New Dictionary(Of Integer, String) From {
{ClassConstants.PROFILE_TYPE_DATA_DOCS, "Dokumente und Daten"},
@@ -267,6 +288,7 @@ Public Class frmAdministration
End Sub
Private Sub TBCW_PROF_DOC_SEARCHBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROF_DOC_SEARCHBindingSource.AddingNew
MyDataset.TBCW_PROF_DOC_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBCW_PROF_DOC_SEARCH.ACTIVEColumn.DefaultValue = True
MyDataset.TBCW_PROF_DOC_SEARCH.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
@@ -697,4 +719,8 @@ Public Class frmAdministration
MsgBox("Profile has been duplicated. Please check the dependencies!", MsgBoxStyle.Information)
End If
End Sub
Private Sub GridViewProfiles_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewProfiles.FocusedRowChanged
End Sub
End Class

83
app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb generated
View File

@@ -31,11 +31,11 @@ Partial Class frmControlCapture
Me.rbControlName = New System.Windows.Forms.RadioButton()
Me.rbControlPosition = New System.Windows.Forms.RadioButton()
Me.gbControlName = New System.Windows.Forms.GroupBox()
Me.gbControlPosition = New System.Windows.Forms.GroupBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.txtControlName = New System.Windows.Forms.TextBox()
Me.gbControlPosition = New System.Windows.Forms.GroupBox()
Me.txtControlBounds = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.gbControlName.SuspendLayout()
Me.gbControlPosition.SuspendLayout()
Me.SuspendLayout()
@@ -109,7 +109,7 @@ Partial Class frmControlCapture
Me.gbControlName.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gbControlName.Controls.Add(Me.Label2)
Me.gbControlName.Controls.Add(Me.TextBox1)
Me.gbControlName.Controls.Add(Me.txtControlName)
Me.gbControlName.Location = New System.Drawing.Point(140, 12)
Me.gbControlName.Name = "gbControlName"
Me.gbControlName.Size = New System.Drawing.Size(255, 100)
@@ -117,34 +117,6 @@ Partial Class frmControlCapture
Me.gbControlName.TabStop = False
Me.gbControlName.Text = "Control Name"
'
'gbControlPosition
'
Me.gbControlPosition.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gbControlPosition.Controls.Add(Me.TextBox2)
Me.gbControlPosition.Controls.Add(Me.Label1)
Me.gbControlPosition.Location = New System.Drawing.Point(140, 118)
Me.gbControlPosition.Name = "gbControlPosition"
Me.gbControlPosition.Size = New System.Drawing.Size(255, 137)
Me.gbControlPosition.TabIndex = 15
Me.gbControlPosition.TabStop = False
Me.gbControlPosition.Text = "Control Position"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(6, 20)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(243, 21)
Me.TextBox1.TabIndex = 0
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(6, 100)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(243, 34)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Wechseln Sie durch die aktiven Anwendungen und klicken Sie in ein Feld"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(6, 49)
@@ -153,13 +125,41 @@ Partial Class frmControlCapture
Me.Label2.TabIndex = 0
Me.Label2.Text = "Markieren Sie Text in einem Feld und Kopieren Sie Text"
'
'TextBox2
'txtControlName
'
Me.TextBox2.Location = New System.Drawing.Point(9, 20)
Me.TextBox2.Multiline = True
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(240, 77)
Me.TextBox2.TabIndex = 1
Me.txtControlName.Location = New System.Drawing.Point(6, 20)
Me.txtControlName.Name = "txtControlName"
Me.txtControlName.Size = New System.Drawing.Size(243, 21)
Me.txtControlName.TabIndex = 0
'
'gbControlPosition
'
Me.gbControlPosition.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gbControlPosition.Controls.Add(Me.txtControlBounds)
Me.gbControlPosition.Controls.Add(Me.Label1)
Me.gbControlPosition.Location = New System.Drawing.Point(140, 118)
Me.gbControlPosition.Name = "gbControlPosition"
Me.gbControlPosition.Size = New System.Drawing.Size(255, 137)
Me.gbControlPosition.TabIndex = 15
Me.gbControlPosition.TabStop = False
Me.gbControlPosition.Text = "Control Position"
'
'txtControlBounds
'
Me.txtControlBounds.Location = New System.Drawing.Point(9, 20)
Me.txtControlBounds.Multiline = True
Me.txtControlBounds.Name = "txtControlBounds"
Me.txtControlBounds.Size = New System.Drawing.Size(240, 77)
Me.txtControlBounds.TabIndex = 1
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(6, 100)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(243, 34)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Wechseln Sie durch die aktiven Anwendungen und klicken Sie in ein Feld"
'
'frmControlCapture
'
@@ -176,6 +176,7 @@ Partial Class frmControlCapture
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 = "frmControlCapture"
Me.ShowIcon = False
Me.Text = "Feld Auswertung"
Me.TopMost = True
Me.gbControlName.ResumeLayout(False)
@@ -193,9 +194,9 @@ Partial Class frmControlCapture
Friend WithEvents rbControlName As RadioButton
Friend WithEvents rbControlPosition As RadioButton
Friend WithEvents gbControlName As GroupBox
Friend WithEvents TextBox1 As TextBox
Friend WithEvents txtControlName As TextBox
Friend WithEvents gbControlPosition As GroupBox
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents TextBox2 As TextBox
Friend WithEvents txtControlBounds As TextBox
End Class

29
app/DD_Clipboard_Searcher/frmControlCapture.vb
View File

@@ -8,18 +8,22 @@ Public Class frmControlCapture
Public Property BottomRight As RectangleInfo
Public Property ControlName As String
Public Property ControlBounds As String
Private WithEvents Watcher As ClipboardWatcher = ClipboardWatcher.Singleton
Private Window As Window
Private EditMode As Boolean = False
Public Sub New(EditMode As Boolean)
Public Sub New(EditMode As Boolean, Optional ControlBounds As String = "", Optional ControlName As String = "")
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
EditMode = EditMode
Me.EditMode = EditMode
Me.ControlName = ControlName
Me.ControlBounds = ControlBounds
End Sub
Private Sub frmControlCapture_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -27,6 +31,16 @@ Public Class frmControlCapture
rbControlName.Checked = True
If ControlName <> String.Empty Then
rbControlName.Checked = True
txtControlName.Text = ControlName
End If
If ControlBounds <> String.Empty Then
rbControlPosition.Checked = True
txtControlBounds.Text = ControlBounds
End If
AddHandler Watcher.Changed, AddressOf Watcher_Changed
End Sub
@@ -36,7 +50,7 @@ Public Class frmControlCapture
Dim oControl As WindowInfo = Window.GetFocusedControl(Handle)
If oControl IsNot Nothing Then
TextBox1.Text = oControl.ControlName
txtControlName.Text = oControl.ControlName
ControlName = oControl.ControlName
End If
@@ -67,11 +81,11 @@ Public Class frmControlCapture
End If
End Select
TextBox2.Text = GetBoundsString()
txtControlBounds.Text = GetBoundsString(TopLeft, TopRight, BottomLeft, BottomRight)
Next
End Sub
Private Function GetBoundsString()
Public Shared Function GetBoundsString(TopLeft As RectangleInfo, TopRight As RectangleInfo, BottomLeft As RectangleInfo, BottomRight As RectangleInfo)
Dim oResult As String = String.Empty
If TopLeft IsNot Nothing Then
@@ -90,6 +104,7 @@ Public Class frmControlCapture
Return oResult
End Function
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles rbControlName.CheckedChanged
gbControlName.Enabled = rbControlName.Checked
gbControlPosition.Enabled = Not rbControlName.Checked
@@ -101,14 +116,14 @@ Public Class frmControlCapture
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = String.Empty And TextBox2.Text = String.Empty Then
If txtControlName.Text = String.Empty And txtControlBounds.Text = String.Empty Then
MsgBox("Kein Control gefunden!")
DialogResult = DialogResult.Cancel
End If
If rbControlPosition.Checked Then
ControlName = String.Empty
Else
ElseIf rbControlName.Checked Then
TopLeft = New RectangleInfo()
TopRight = New RectangleInfo()
BottomLeft = New RectangleInfo()

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>

238
app/DD_Clipboard_Searcher/frmProfileMatch.vb
View File

@@ -1,238 +0,0 @@
Imports DD_Clipboard_Watcher.ClassProfileFilter
Imports DD_Clipboard_Watcher.ClassConstants
Imports DevExpress.XtraEditors
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
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 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)
If OpenType = ProfileType.ANY Or OpenType = ProfileType.DOCS_ONLY Then
' Show Result Document Form
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 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

62
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)
@@ -194,7 +201,7 @@ Public Class frmStart
End If
oCountCommand = clsPatterns.ReplaceAllValues(oCountCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid)
oResultData += Database.NewExecuteScalar(oCountCommand)
oResultData += Database.GetScalarValue(oCountCommand)
Catch ex As Exception
Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oCountCommand)
oInvalidDataSQL = True
@@ -211,7 +218,7 @@ Public Class frmStart
End If
oCountCommand = clsPatterns.ReplaceAllValues(oCountCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid)
oResultDocs += Database.NewExecuteScalar(oCountCommand)
oResultDocs += Database.GetScalarValue(oCountCommand)
Catch ex As Exception
Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oCountCommand)
oInvalidDocumentSQL = True
@@ -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