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

merge

Browse Source
This commit is contained in:
Jonathan Jenne 2019-07-11 14:34:09 +02:00
commit d513a7cfc2
8 changed files with 320 additions and 244 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD_Clipboard_Searcher/App.config
View File

@ -33,6 +33,12 @@
<setting name="frmViewerSize" serializeAs="String"> <setting name="frmViewerSize" serializeAs="String">
<value>0, 0</value> <value>0, 0</value>
</setting> </setting>
<setting name="frmProfileMatchPosition" serializeAs="String">
<value>0, 0</value>
</setting>
<setting name="frmProfileMatchSize" serializeAs="String">
<value>0, 0</value>
</setting>
</DD_Clipboard_Watcher.My.MySettings> </DD_Clipboard_Watcher.My.MySettings>
</userSettings> </userSettings>
</configuration> </configuration>

24
app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb generated
View File

@ -136,6 +136,30 @@ Namespace My
Me("frmViewerSize") = value Me("frmViewerSize") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0, 0")> _
Public Property frmProfileMatchPosition() As Global.System.Drawing.Point
Get
Return CType(Me("frmProfileMatchPosition"),Global.System.Drawing.Point)
End Get
Set
Me("frmProfileMatchPosition") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0, 0")> _
Public Property frmProfileMatchSize() As Global.System.Drawing.Size
Get
Return CType(Me("frmProfileMatchSize"),Global.System.Drawing.Size)
End Get
Set
Me("frmProfileMatchSize") = value
End Set
End Property
End Class End Class
End Namespace End Namespace

6
app/DD_Clipboard_Searcher/My Project/Settings.settings
View File

@ -28,5 +28,11 @@
<Setting Name="frmViewerSize" Type="System.Drawing.Size" Scope="User"> <Setting Name="frmViewerSize" Type="System.Drawing.Size" Scope="User">
<Value Profile="(Default)">0, 0</Value> <Value Profile="(Default)">0, 0</Value>
</Setting> </Setting>
<Setting Name="frmProfileMatchPosition" Type="System.Drawing.Point" Scope="User">
<Value Profile="(Default)">0, 0</Value>
</Setting>
<Setting Name="frmProfileMatchSize" Type="System.Drawing.Size" Scope="User">
<Value Profile="(Default)">0, 0</Value>
</Setting>
</Settings> </Settings>
</SettingsFile> </SettingsFile>

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

@ -73,6 +73,7 @@ Partial Class frmDocView
Me.GdViewer1 = New GdPicture14.GdViewer() Me.GdViewer1 = New GdPicture14.GdViewer()
Me.statusbar = New System.Windows.Forms.StatusStrip() Me.statusbar = New System.Windows.Forms.StatusStrip()
Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel() Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
Me.mainToolStrip = New System.Windows.Forms.ToolStrip() Me.mainToolStrip = New System.Windows.Forms.ToolStrip()
Me.btnOpen = New System.Windows.Forms.ToolStripButton() Me.btnOpen = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
@ -83,8 +84,8 @@ Partial Class frmDocView
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.btnMouseMode = New System.Windows.Forms.ToolStripDropDownButton() Me.btnMouseMode = New System.Windows.Forms.ToolStripDropDownButton()
Me.DefaultToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DefaultToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AreaSelectionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PanToolStripMenuItem = 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.AreaZoomingToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MagnifierToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MagnifierToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
@ -111,7 +112,6 @@ Partial Class frmDocView
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.btnAbout = New System.Windows.Forms.ToolStripButton() Me.btnAbout = New System.Windows.Forms.ToolStripButton()
Me.pMain = New System.Windows.Forms.Panel() Me.pMain = New System.Windows.Forms.Panel()
Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
Me.tcLeftPanel.SuspendLayout() Me.tcLeftPanel.SuspendLayout()
Me.tpThumbnails.SuspendLayout() Me.tpThumbnails.SuspendLayout()
Me.ToolStripContainer1.BottomToolStripPanel.SuspendLayout() Me.ToolStripContainer1.BottomToolStripPanel.SuspendLayout()
@ -747,8 +747,14 @@ Partial Class frmDocView
Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1" Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(0, 17) Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(0, 17)
' '
'ToolStripStatusLabel2
'
Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(0, 17)
'
'mainToolStrip '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.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.mainToolStrip.ImageScalingSize = New System.Drawing.Size(24, 24) Me.mainToolStrip.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.mainToolStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnOpen, Me.ToolStripSeparator9, Me.btnClose, Me.btnPrint, Me.ToolStripSeparator3, Me.btnSettings, Me.ToolStripSeparator8, 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.ToolStripSeparator2, Me.btnFitWidth, Me.btnFitPage, Me.ToolStripSeparator5, Me.btnAdjustGamma, Me.ToolStripSeparator10, Me.btnRotateLeft, Me.btnRotateRight, Me.btnFlipX, Me.btnFlipY, Me.ToolStripSeparator4, Me.btnAbout}) Me.mainToolStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnOpen, Me.ToolStripSeparator9, Me.btnClose, Me.btnPrint, Me.ToolStripSeparator3, Me.btnSettings, Me.ToolStripSeparator8, 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.ToolStripSeparator2, Me.btnFitWidth, Me.btnFitPage, Me.ToolStripSeparator5, Me.btnAdjustGamma, Me.ToolStripSeparator10, Me.btnRotateLeft, Me.btnRotateRight, Me.btnFlipX, Me.btnFlipY, Me.ToolStripSeparator4, Me.btnAbout})
@ -760,13 +766,13 @@ Partial Class frmDocView
' '
'btnOpen 'btnOpen
' '
Me.btnOpen.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 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.Image = CType(resources.GetObject("btnOpen.Image"), System.Drawing.Image)
Me.btnOpen.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None Me.btnOpen.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnOpen.ImageTransparentColor = System.Drawing.Color.Magenta Me.btnOpen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnOpen.Margin = New System.Windows.Forms.Padding(10, 1, 0, 2) Me.btnOpen.Margin = New System.Windows.Forms.Padding(10, 1, 0, 2)
Me.btnOpen.Name = "btnOpen" Me.btnOpen.Name = "btnOpen"
Me.btnOpen.Size = New System.Drawing.Size(130, 28) Me.btnOpen.Size = New System.Drawing.Size(126, 28)
Me.btnOpen.Text = "Open document" Me.btnOpen.Text = "Open document"
' '
'ToolStripSeparator9 'ToolStripSeparator9
@ -820,7 +826,7 @@ Partial Class frmDocView
'btnMouseMode 'btnMouseMode
' '
Me.btnMouseMode.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.btnMouseMode.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnMouseMode.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DefaultToolStripMenuItem, Me.AreaSelectionToolStripMenuItem, Me.PanToolStripMenuItem, Me.AreaZoomingToolStripMenuItem, Me.MagnifierToolStripMenuItem}) 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.Image = CType(resources.GetObject("btnMouseMode.Image"), System.Drawing.Image)
Me.btnMouseMode.ImageTransparentColor = System.Drawing.Color.Magenta Me.btnMouseMode.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnMouseMode.Name = "btnMouseMode" Me.btnMouseMode.Name = "btnMouseMode"
@ -831,37 +837,37 @@ Partial Class frmDocView
' '
Me.DefaultToolStripMenuItem.CheckOnClick = True Me.DefaultToolStripMenuItem.CheckOnClick = True
Me.DefaultToolStripMenuItem.Name = "DefaultToolStripMenuItem" Me.DefaultToolStripMenuItem.Name = "DefaultToolStripMenuItem"
Me.DefaultToolStripMenuItem.Size = New System.Drawing.Size(148, 22) Me.DefaultToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.DefaultToolStripMenuItem.Text = "Default" Me.DefaultToolStripMenuItem.Text = "Default"
' '
'AreaSelectionToolStripMenuItem
'
Me.AreaSelectionToolStripMenuItem.CheckOnClick = True
Me.AreaSelectionToolStripMenuItem.Name = "AreaSelectionToolStripMenuItem"
Me.AreaSelectionToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
Me.AreaSelectionToolStripMenuItem.Text = "Area selection"
'
'PanToolStripMenuItem 'PanToolStripMenuItem
' '
Me.PanToolStripMenuItem.Checked = True Me.PanToolStripMenuItem.Checked = True
Me.PanToolStripMenuItem.CheckOnClick = True Me.PanToolStripMenuItem.CheckOnClick = True
Me.PanToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked Me.PanToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked
Me.PanToolStripMenuItem.Name = "PanToolStripMenuItem" Me.PanToolStripMenuItem.Name = "PanToolStripMenuItem"
Me.PanToolStripMenuItem.Size = New System.Drawing.Size(148, 22) Me.PanToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.PanToolStripMenuItem.Text = "Pan" 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 'AreaZoomingToolStripMenuItem
' '
Me.AreaZoomingToolStripMenuItem.CheckOnClick = True Me.AreaZoomingToolStripMenuItem.CheckOnClick = True
Me.AreaZoomingToolStripMenuItem.Name = "AreaZoomingToolStripMenuItem" Me.AreaZoomingToolStripMenuItem.Name = "AreaZoomingToolStripMenuItem"
Me.AreaZoomingToolStripMenuItem.Size = New System.Drawing.Size(148, 22) Me.AreaZoomingToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.AreaZoomingToolStripMenuItem.Text = "Area zooming" Me.AreaZoomingToolStripMenuItem.Text = "Area zooming"
' '
'MagnifierToolStripMenuItem 'MagnifierToolStripMenuItem
' '
Me.MagnifierToolStripMenuItem.CheckOnClick = True Me.MagnifierToolStripMenuItem.CheckOnClick = True
Me.MagnifierToolStripMenuItem.Name = "MagnifierToolStripMenuItem" Me.MagnifierToolStripMenuItem.Name = "MagnifierToolStripMenuItem"
Me.MagnifierToolStripMenuItem.Size = New System.Drawing.Size(148, 22) Me.MagnifierToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.MagnifierToolStripMenuItem.Text = "Magnifier" Me.MagnifierToolStripMenuItem.Text = "Magnifier"
' '
'ToolStripSeparator6 'ToolStripSeparator6
@ -892,14 +898,14 @@ Partial Class frmDocView
' '
'tbCurrentPage 'tbCurrentPage
' '
Me.tbCurrentPage.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 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.Name = "tbCurrentPage"
Me.tbCurrentPage.Size = New System.Drawing.Size(40, 31) Me.tbCurrentPage.Size = New System.Drawing.Size(40, 31)
Me.tbCurrentPage.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.tbCurrentPage.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Right
' '
'lblPageCount 'lblPageCount
' '
Me.lblPageCount.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 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.Name = "lblPageCount"
Me.lblPageCount.Size = New System.Drawing.Size(25, 28) Me.lblPageCount.Size = New System.Drawing.Size(25, 28)
Me.lblPageCount.Text = "/ X" Me.lblPageCount.Text = "/ X"
@ -1069,11 +1075,6 @@ Partial Class frmDocView
Me.pMain.Size = New System.Drawing.Size(1264, 676) Me.pMain.Size = New System.Drawing.Size(1264, 676)
Me.pMain.TabIndex = 6 Me.pMain.TabIndex = 6
' '
'ToolStripStatusLabel2
'
Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(0, 17)
'
'frmDocView 'frmDocView
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

226
app/DD_Clipboard_Searcher/frmDocView.resx
View File

@ -185,164 +185,164 @@
<data name="btnOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALYSURBVEhLzVTdSxRRFN/Syh6EqP6C/oDoLXxJiT7WnTUl YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALYSURBVEhLzVTfSxRRFN7Syh6EqP6C/oDoLYTIiH6sO2tK
kkKJsHamD5ZSc92ttW4xM1vCGvRS+BA+hA/uzqxp7h2KyJegtwIR8qFc+1jc2UAo0HTd3eme68w0Xlwx pNZDhLUz1T6Umutuad1iZraENeil8CF8CAl3Z3bT9A5F5EvQW4EILVrZr8WdDYQCTdfdne65zkzjxRVj
1qADP+455879/c45d2Zc/7UhhLbWq+JhryJ2cop8vV6VjzbHYhXmdnnmTURqOFWeIjBWIS5/9CjiIfMx DTrwcc85d+73nXPuzLj+a0MIbaxRxYNeRWzjFPlKjSofbohGy8zt0swbD1dxqpwkMJYhJr/3KOJ+8zGX
lysUCg0Gg8GiCYPEhhWDb2LQfJwakB9T0ULj8H2jIRGxyc88f7DiP0WLXFysow87CUsJmHkqAmMhJFNA KxQK9QeDwYIJg8SGFYNvot98nBqQH1HRXF3ijlEbD9vkJ5/eXfIfoXkuJh6gDzsJiwmYeSoCYyEkSSAH
DmRvvn0wGhP3bBEbcTFVO44qqcAGAYJRmDkQnCCkQA72LvPJaDIFl/LLtohHlbhVHZTwrQ4AUbhMi4AV slff3hl18du2iI2YOFU9isqpwBoBghGYORAcI6RADvYm/cGoNwUXcou2iEeVuGUdFPGtDgARuEyLgBWB
gVyxWPwjoMg9GxGwfRDwKFLAIgA4RfKFAl299r50629GBMCcIh2Hw80jUVsEsLC8RMnBrIv3KnIT00Hg XKFQ+COgyF1rEbB9EPAoUsAiADhFcvk8Xb32vnT9b0YEwJwiHYXDDYMRWwQwt7hAycGsi/cqcj3TQeB+
UW8gUN3X17FzaA0MIFQl9Pdvgwu0iOdzi0aukLexTACXXh+X0m78cIdT4Cd5QyonY1cOTOOWQlYTjOk4 dyBQ2dPTunVgBfQhVCH09m6CC7SIZ7PzRjafs7FIAJdeE5NSbnxvi1PgJ3lDysej/j0TuDGf0QRj4jFf
XwRYPqwZ7OvlFPEIp6KcJcKiTkV5uGA9yd9xjCj4El7DmVH+KhCVQkprLeiacBJGBVWy5O44yngVqSGL AFg+rGns6+YU8RCnoqwlwmKfinJwwfoIf9MxouBzeA0/DfGXgKgYJrWmvK4Jx2FUUCVL7o6htFeRajP4
L3q+ar4fdgc3Q913QSCdFIacVbMd0Bzm86Q6sSkR2UNIT5GLlwHkl3EaclksoPRoS252zPfC7gCFu9yx vOer5vthd3At1HELBFIjwoCzarYDmsN8jlQn1sfDOwjpCXLxMoD8Mpogl8ECSg01ZqeHfc/sDlBnuzsa
WHOFjts+W9WWCx0LISrg9/uXoqhz74RyeR9btdN35th4LX92jD9odhCcNAzXlunhS2fXO+DMsTHrZ3Db bSjTcfNnq9pSoWMhRAX8fv9CBLXtHFMu7mKrdvrOHBuv5E8P83vNDoLjhuHa8DFx4fRqB5w5Nmb9NG6e
XGr8XJUp0P2Ezn+MfwybmwMyfzAQuB3u5sHX8YWJUhWxOTZm/Yzm67EEijLq2v9+4NqulCbkSx1gc2zM mRo9U2EKdDyk8x/mH8Dm+oDMHwwEbnR28ODr+NxYsYrYHBuzflrzdVkCBRm1737bd3nbpCbkih1gc2zM
+lnM11KB9vb2OfKBbZ9SBTfd2BS0zn9/dr6aCpBv4BWsX0YECTZLVcTm2Jjx31JysPCNoARrOul7vc4B +hnMV1OBlpaWGfKBbU6qgpturAtOzX5/craSCpBv4AWsXwYFCTaLVcTm2JjxX1NysM6rQQnW1Ijv5SoH
6jtzbOz0dcz3UXIwhDp2w6rjFYGyMSz8ymhCDSX/9+Zy/QZ80uQPbbbcHgAAAABJRU5ErkJggg== qO/MsbHT1zHfQ8nBEGrdDquOlwRKRkL4ldaEKkr+783l+g1xweFfKtch/wAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="btnClose.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnClose.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADZSURBVEhLYyAX2FXM+mdXsfk/CEOFqAfoZjhWXLbJE6qU YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADZSURBVEhLYyAX2FVM+2dXsfk/CEOFqAfoZjhWXLbJE6qU
PACxgC6WQAyDCoGBTdnGCXS1BCxQUVHRBcR/gPg/DtwFVkgCgFkC5gAN+IZmIDZ8PDQ0lBmsgUgAsgTM PACxgC6WQAyDCoGBTdnGCXS1BCxQUVHRBcR/gPg/DtwFVkgCgFkC5gAN+IZmIDZ8PDQ0lBmsgUgAsgTM
iI+P/43FQEowqo9pYAH18wZecGFu6r+X21L/v9qeBsYgNgiDxGFiIAzjI4vD1KLrhxoNAciKKMEwC0AO iI+P/43FQEowqo9pYAH18wZecGZm6r+X21L/v9qeBsYgNgiDxGFiIAzjI4vD1KLrhxoNAciKKMEwC0AO
gBoNATAfUAvTzAKa+2DoWwDDGBZgU0QOhvkAxIYaDQHoCinFNPfB0A0inBY825Tciq6YVIxsOMg8qNFA gBoNATAfUAvTzAKa+2DoWwDDGBZgU0QOhvkAxIYaDQHoCinFNPfB0A0inBY825Tciq6YVIxsOMg8qNFA
wMAAALzzIZoHXNFfAAAAAElFTkSuQmCC wMAAAAm1IPYi8wi5AAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="btnPrint.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnPrint.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFfSURBVEhLvVVBTsMwEAwgLvwJfpEv5JRTpCi5IH+jXEBC YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFeSURBVEhLvVVBboMwEKSteumf2l/wBcQZCcGl8jfSS3qo
QijX9Ig48QoeEUVqQDk02Oy4Xuo4WHFbwkgjz652d7xtokQ+FEUhiQpnWZajk4mYadrCIIQ4pwEqFAcb +AA5VlXf0ScgDkhRKw6hdnccb2NMkZ2kZKSRZ1e7O94ERDSHoigkUeEsy3J0MhEzTVsYhBDXNECF4miD
JElyuayBEFcLb3CnN5BS6gH2yeQYOMjgplyrU2jG7EHur2mafuGpGIZBXRc18VmiGKet7ZwbQ4Nd1+mn JElulzUQ4m7hDZ70BlJKPcA+mRwDRxk8lBt1Ds2YA8j9LU3TbzwVwzCo+6ImvkgU47S1nXNjaLDrOv10
i2Zu8zx/gsHPo/eXBmbmoA2YMODCY8n/CXPpDeTIoO97JR7fqKHWxTuzvbZzbgyN3rZt/QZ1XaumaSRu 0cxdnucVDH4fvf80MDMHbcCEAReeSv5PmEtvIEcGfd8rsX6nhloX780O2s65MTR627adN6jrWjVNI3EL
gVVx2trOuTE0equqmhosydEGc9rOubFP/88GWhhA+25k59zYpzFQJ2xyUSjcoazxNuPDsqbExAQMxW+9 rIrT1nbOjaHRW1XV1GBJjjbwaTvnxnP6MhtoYQA9dyM758ZzGgN1wiYXhcIdyhpvMz4sG0pMTMBQ/NVL
xIG4Mj/MFChiPLy8q3uHyDFwW3ykTGsYbIM5nGwwtwFq4zi+MK1hcDdw31yOgWM32Jj+WWRZ9kktZ7vO HIgr88NMgSLG8+uHWjtEjoHb4iNlWsNgG/hwtoFvA9TGcXxjWsPgbuC+uRwDp26wNf1eZFn2RS1X+85A
QNCtyKPcYJMZfhBvTZuDKPoGy4flC2dE9P8AAAAASUVORK5CYII= 0K3Io9xiEw8/iY+mzUEU/QA62uN7tDI4aAAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="btnSettings.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnSettings.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK7SURBVEhLpVY9iBNBFA6ihY0WilqJ1SkKubtsgs1hGsXG YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALBSURBVEhLpVY9iBNBFA6ihY0WilqJ1SlR7iebYHOYRrGx
QtDGH7TLKbndnZkNaiEELbQSwRNErA4V7jSb3ZxoKzZeY+GdFhYH14iNjQp3whmzvm/yJo75M+Q+eMx7 ELTxB+0SJcnuzGxQCyFooZUIniBidXiHnGSzmxNtxcZrLLzTwuLgGrGxUeFOOGPW903exDG5xJD74DHv
37z3vTezuyEpg4xfOc6uRk5GQbo4+4v4y0wND8erPHFEmDgqnkM8JsPRnIoTcGkR1nXSRjDuPv8BwW6W ffPe997MbCAJg5RXPcmuRkaGfjI/84v4q0wND8etzjgiiB0VzSEel8FYRkUxuKQIGjppM5goPPsBwY0s
lfEjThseh73abkwLQawZN/zY8kU4zWkbg2kw5s4d1PHVZ9vBNfnIzZdfb9aJw8Dx5vdqcRWvMaVBz+Q9 LaMnnDY8jrr1vZgWglhTpeBj2xfBFKdtDqbBeGkuqePrz3eCa/FhKVt5vVUnDgPHnd8P8SMqWmNKg97k
eGNZER/lrcHhyGjy76RxkvGqJ8DnRO1Qk4+SrKrRVUXJeBAfwV7geTkhRKKUSmi9Aa4naMoVuwHWtJhd PXhjaREd563B4cgw/3fSKE65tVPgM6J+uMWHcVrV6arCeMKPjmHPd92MECJWSsW03gLXEzTlit0Aa1LM
bfpRkvPDl3n1eGZCPL2VVw93okb6/qTV4IUW6gVH1Y7p46vqDL379+E3Y31lS8i5oqbqUso3uoBAwjHE rrb8MM54wcusejo9KWbvZNXj3aiRnpe3GrzQQr3gqPoJfXxVm6Zv/yH8VkzvoaIl5FxTxYaU8o0uIJBw
Ya7rfmUa/BlwlDvKVCfwDeAUaJATlVdKTK0qJROpJ5Z1rJi+WCz+hhh8Ps2C5Se+7+9nyU7g40IDx48W BHFYsVj8yjT4c+Aod4ypbuA3gFOgQUZUXylRXFVKxlJPLBtYMX0+n/8NMfh8mgXLjz3PO8iS3cCPCw0c
LolrFwNqYAvShA0TYyWuYflo8JmluiOtqiPpINzFYYoEF81kRsTEWK3mDY53cOlgwBVBoM2mSewOrett L1y4Im5c9qmBLUgTNk2Mlbim5aPBZ5baGKOqNjLqB3s4TJDgopnMiJgYq9W8ibhQKOzi0sGAK4JAh02R
fMJl/SGld54E7pItosiacr1cLm/iNA3P876ZHJyA/Lf0DATxE5zSCRT0sI73nrhiW07LOKUT2MQ0PJF9 2D1a1zv4mMv6Q0r3IgncJ1tEkTXleqVS2cJpGq7rfjM5OAH5b+kNBPGTnNINFPSwru+euEJHTts4pRvY
ghKntEDTXjA5Vp42TukEPdhTVHibjrlkN6D1C6e0QEKfTA5EcWVk81R/nVN6A/eNYttIZDkIgtPkn6RB xDQ8kX2CMqe0QdNeMjlWnjZO6QY97BkqvEvHXLIb0AN+4ZQ2SOiTyYEoroxsnupvckpv4L5RbBuJLPu+
PrTv017rDRwINMlPTIZiM6WJsbZdy3cuGwxUUDPCZjVmx8ZHEzrVTS7vD/qd2YZCy9ba4p5GTbayTH9Q f5b80zTIh8592mt/gQOBJvmJyVBspjQx1o5r+c5lg4EK6kbYrMbs2PhoQqe6zeX9USqVdqDQsrWOuKdR
8ggK6JoeIC6VSntoymVMCp7WFdrbhz3y3zH/zx+I/6JQKGxhV4NE8AHqBiR+j2kN4g6wOzzo+GchznaO k+0s0x+UPIICuqZHiMvl8j6achmTgqd1hfYOYI/8d8z/8wfiv8jlctvY1SAR/AB1AxJ/wLQGcYfYHR50
6S5Ipf4AS9JpZnDMydwAAAAASUVORK5CYII= /PMQZ7vA9AZIJP4Ap6NoKkQX6Q4AAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="btnMouseMode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnMouseMode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAG/SURBVEhLnZM9LwRRGIU38VVp/AG9dhtkZoTKD6CTUGlk YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHBSURBVEhLnZM9LwRRGIU38VVp/AG9RqFBZkao/AA6CZVE
I8TujCgUhEYi4gdQriXB3I34KGhIiCyFWoKSjpAQrnvGu8nEPWtmPcmTm7nvPWd2Z3cytRgcLDU4fnnI RISwM6JQEBqJiB9AsQVLgrkb8VHQkBBZCrUEJR0hIVz3jHeTiXvWzHqSJzdz33vO7M7uZMrR25uvcvxC
DVToFdR9Nlf88AKlF0pXGmt0bfYxxzmcl2gynRP7bU5BnaHot1unt9YexHnkpOJvzKfaYyUDi0d6fqMS nxuo0Muq++ah3IcXKD2fv9JYo2uzjznO4bxEk2kd229wsuoMRb/dOr219iDOIycVf2M+1R4r6Vk40nMb
rWyOnFTUxptWLgvD57d3DbCyeaTJSxXH88NVGjTGYfNIk5cqjpNXFzRojMPmEHmp4jiT6okFYRw2h8hL xWhlc+SkojzelHJZGD6/vWuAlc0jTV6qOJ4frtCgMQ6bR5q8VHGcSXVBg8Y4bA6RlyqOM66eWBDGYXOI
FcfLqU8WhHHYPNLkpcqmZ/a4kYaMfTNlfX37pF/MD4wV1+wclDqb7OhlEwvELayd0/2qPUaps6ne4KDy vFRxvCH1yYIwDptHmrxU2XTMHFfTkLFruqCvb5/0i/mBseKanYNSZ9MyeFnDAnGzq+d0v2SHUepsSjc4
8C/LF3fRTaTOhn0DPIrh5RPtr5/ruWJFL25eRSuusc8eldTZpHlEaZQ6m47ZUjML1KvU2fTn9lpYoF6l KD78y8LFXXQTqbNh3wCPon/pRPtr53p2vagXNq+iFdfYZ49K6mzSPKI0Sp1N00y+lgUqVepsukf26lig
zubnb1r8YqH0Fr+kjvPXm5zGxDfZCdQhC6YVeaniuH44xoJpRV6qON35ndauQD2ycJLIIS9VtXH93RFW UqXO5udvmvtiofTmvqSO89ebnMbEN9kJ1CELphV5qeK4fjjMgmlFXqo47ZM79W2BemThJJFDXqrK4/q7
kCRyUpGM66sVVlJLnJdoetwgnMqOb7+xwqqY45xE6qd3ptzuBOGSKbsxvsa8wT7mcpSQyXwDtwi5IK1K A6wgSeSkIhnXV8uspJw4L9H0uEE40Ty6/cYKS2KOcxKpnM7pQqMThIum7Mb4GvMG+5jLUUIm8w2RObjw
4ZIAAAAASUVORK5CYII= JX2JXAAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="btnFirstPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnFirstPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGjSURBVEhLxVQ7S8RAEF7Uq0VRLO1tr1BINgHxD4iciiJ2 YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGjSURBVEhLxVQ7S8RAEF7Uq0VRLO1tr1BINgHxD6gERRG7
V/tKdg+RIIhoqZ2VvShedg8RLPwDoqCo/0Hw2frM5Ca67OXO5LjoB0Mm8/i+nSFZkgWGS34fuq0FEFMm q31ddg+RIIhoob2VvShedg8RLPwDoqCo/0Hw2frM5Ca67OXO5LjoB0Mm8/i+nSFZkgWGS34fuq0FEFMm
Nql78IwhQiwuP1Xrn919xVRi2Auih3KxYXDxFPFgihDKtj7AIAjPNAJm6ajXZGI96H3RebCkOQEgpkyu Nql78IwhQiwuP1Xrn919xVRi2Auih3KxYXDxFPFgihDKtj7AIAjPNAJm6ajXZGI96H3RebCkOQEgpkyu
DTLxqPaqPpamW5HJK11AbM3tP+h9umFLsgmG5o+7qeuvGqy6Y7W+no+tjQXCE3O5Qpl/r9clFoCAapGA DTLxqPaqPpamW5HJK11AbM3tP+h9umFLsgmG5o+7qeuvGqy6Y7W+no+tjQXCE3O5Qpl/r9clFoCAapGA
xcWytVi+0/NJLSQH1JxiXLzDjmvi2rsaj/ORPkagga++/1aP9H8gAIEsDOn/YYIBLt+CO+VSj6c1pI// xcWytVi+0/NJLSQH1JxiTLzDjmvi2rsaj/ORPkagga++/1aP9H8gAIEsDOn/YYIBLt+CO+VSj6c1pI//
D0bYSafB5KjhiHOLb3+fXq2LnvV8pI8XwBQpFPbag+t3LPjRLvS6xAIQUC3uqrC90w6bVwppVoetjSeo D0bYSafB5KhRFOcW3/4+vVoXPev5SB8vgCniOHvtwfU7HvxoF3pdYgEIqBZ3VdjeaYfNK06a1WFr4wlq
gee1Bff+hLEEQj+ri3pVHztSCiBgItOVk6ZbvlJ7VR9Lk62oHvLFs5zliimD+zc6D5Y0N4GO8GNw5DR1 4Hltwb0/YSyB0M/qol7Vx46UAgiYyHTlpOmWr9Re1cfSZCuqh3zhLGe5Ysrg/o3OgyXNTaAj/BiKcpq6
xXW0Oky1FvniTs7mYsZ0Dm8xlA1gdVWPkC/kLzShX9EmngAAAABJRU5ErkJggg== 4jpaHaZai3xhJ2dzMWMWD28xlA1gdVWPkC8ZoDJ5AYCZmAAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="btnPreviousPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnPreviousPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHLSURBVEhLY6AZqK9ngrKoC4zTzrDalG0OsS3bdAIqRB1g YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHLSURBVEhLY6AZqK9ngrKoC4zTzrDalG0OsS3bdAIqRB1g
X7+fw7Z8U4pdxeYbQPwfhKFSlAH7/PUCduWbyy1KNz2zLZ/4D2QwiAZhqBLygFPVZmmgizttija9QTaU X7+fw7Z8U4pdxeYbQPwfhKFSlAH7/PUCduWbyy1KNz2zLe/9BzIYRIMwVAl5wKlqszTQxZ02RZveIBtK
YgtsKraq2ZVtnm5ZsfYLLChwYagWYsB/RqvSDSY25ZtWalVs/oPuUlxsqGY8AJjU7Cu2uNiWb9hjG7bp sQU2FVvV7Mo2T7esWPsFFhS4MFQLMeA/o1XpBhOb8k0rtSo2/0F3KS42VDMeAExq9hVbXGzLN+yxDdr0
L7IBFFkQGrqK2bZiU7hN6eZTduGb/4I0kYOhxiGAa/FObmD6Tbcr3XgTm4uQ+cjiuNhQYxkYLAp3CAFT F9kAiiwIDV3FbFuxKdymdPMpu+DNf0GayMFQ4xDAtXgnNzD9ptuVbryJzUXIfGRxXGyosQwMFoU7hIAp
RCkQP8WnAZmPSw0yG2y4bfnGBtuCNe+I0YDMJ0Y92AK7ii1p1hWb79tVTAJLUhODLQABj9xt7PYVm2Jt ohSIn+LTgMzHpQaZDTbctnxjg23BmnfEaEDmE6MebIFdxZY064rN9+0q+sCS1MRgC0DAI3cbu33Fplib
yjZcxuciZD4uNchsqPEIACxPWGwqNwUAM9IRkEJKMdRY7MCudIOjdfnGHfLx83/DXITsQhiNjw01Cj+w sg2X8bkImY9LDTIbajwCAMsTFpvKTQHAjHQEpJBSDDUWO7Ar3eBoXb5xh3z8/N8wFyG7EEbjY0ONwg/s
K99gaFO2cYVt1qafyAZQzQIYABYV6rblm6fq56//DjKEGAzVShqwrdouCSpF7So2vsXmamQ2VAt5wKZi yjcY2pRtXGGbteknsgFUswAGgEWFum355qn6+eu/gwwhBkO1kgZsq7ZLgkpRu4qNb7G5GpkN1UIesKnY
i6Bt2cZKUD1AEwtgAFS8gPKSXcmGuyDDkTFUCXUAKInblm6OBtZuZ6nqAwwALOKBrveyLt10ECpCK/Cf ImhbtrESVA/QxAIYABUvoLxkV7LhLshwZAxVQh0ASuK2pZujgbXbWar6AAMAi3ig672sSzcdhIrQCvxn
kYGBgQEAkPePYFdkTIgAAAAASUVORK5CYII= ZGBgYAAA+IeNtEQs0ocAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="btnNextPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnNextPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHCSURBVEhLYwCD+nomCINGwLZs0wmbss0hxmlnWKFC1AV2 YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHCSURBVEhLYwCD+nomCINGwLZs0wmbss0hxmlnWKFC1AV2
FZv/Q/EN2/JNKfb1+zmgUtQBtuUT/4EwyBIQbVG66Zld+eZy+/z1AlAllAF0C2Bsm6JNb4A+6nSq2iwN FZv/Q/EN2/JNKfb1+zmgUtQBtuW9/0AYZAmItijd9MyufHO5ff56AagSygC6BTC2TdGmN0AfdTpVbZaG
VUoegAYPTmxZsfaLXdnm6TYVW9WgWkgDuHyAztaq2PzHpnzTSqvSDSYMDP8ZodoJA3yGIrPhYmGb/tqW KiUPQIMHJ7asWPvFrmzzdJuKrWpQLaQBXD5AZ2tVbP5jU75ppVXpBhMGhv+MUO2EAT5DkdlwsaBNf23L
b9hjX7HFhagkDtJIFg7f/NemdPMp24pN4aGhq5ihxmECdJfiYiOLofPtSjfeBOandNfindxQYxEAqwZS N+yxr9jiQlQSB2kkCwdv/mtTuvmUbcWm8NDQVcxQ4zABuktxsZHF0Pl2pRtvAvNTumvxTm6osQiAVQOp
LYCzNz0F4lKLwh1CUOOpbQGUXbDmnW35xgawBSAB6uJJ/6wrNt+3q9iSBrYApyvQ2Mhi6HwY26Zsw2X7 FsDZm54CcalF4Q4hqPHUtgDKLljzzrZ8YwPYApAAdXHfP+uKzfftKrakgS3A6Qo0NrIYOh/GtinbcNm+
ik2xHrnb2MGGgwBIkmJctvmITeWmAGA5xgI1FgHwuQiZjSwGwvLx839bl2/cYVe6wRFqFHYA00C0BVmb YlOsR+42drDhIACSpBiXbT5iU7kpAFiOsUCNRQB8LkJmI4uBsHz8/N/W5Rt32JVucIQahR3ANBBtQdam
ftqUbVxhV77BEGoEfgDSSAzWz1//3bZ881RgUaEO1UocQHcpJnvjW1Cpalu1XRKqhTSA3dDN/0H1gm3Z nzZlG1fYlW8whBqBH4A0EoP189d/ty3fPBVYVKhDtRIH0F2Kyd74FlSq2lZtl4RqIQ1gN3Tzf1C9YFu2
xkqbii2CUKXkAZBhKLhkw11QGsaa7ckBcFeXbz5rW7o5GmtSowRYl246CHS5Fw1bFyRUHiQBBgYAAr+P sdKmYosgVCl5AGQYCi7ZcBeUhrFme3IA3NXlm8/alm6OxprUKAHWpZsOAl3uRcPWBQmVB0mAgQEAOL+N
YJgx9a0AAAAASUVORK5CYII= tDkCuiEAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="btnLastPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnLastPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFxSURBVEhLY4ABp8qN4lAmbYBt2dqPtuWbOmlmkV3F5v8g YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFxSURBVEhLY4ABp8qN4lAmbYBt2dqPtuWbOmlmkV3F5v8g
bF2x6YNtxaYO+6JNIlApooF8/PzfMHNgGCoF9EH5xH8gARANZX+yKd/UZlO5TRSqhCAAWYBuDlQKqwVg bF2x6YNtxaYO+6JNIlApooF8/PzfMHNgGCoF9EF57z+QAIiGsj/ZlG9qs6ncJgpVQhCALEA3ByqF1QIw
tnn5pve25ZtbiLEIrwUgQby4YM07sEUVWwShWjAAqUGEwQbR1uXAOCrb2GhRuEMIqhUOyAoiZDaymG35 27x803vb8s0txFiE1wKQIF5csOYd2KKKLYJQLRiA1CDCYINo63JgHJVtbLQo3CEE1QoHZAURMhtZzLZ8
xre2FZtrkX1EWRDhwsUbXtlVbKoGmUGVIIKJofPBcRS26S+6ONR4KliAgw01ng4WgARpgaHGDwEfAMuw 41vbis21yD6iLIhw4eINr+wqNlWDzKBKEMHE0PngOAra9BddHGo8FSzAwYYaTwcLQIK0wFDjh4APgGXY
S1oVm/+gi0ONJ9cHk/5Zl246Z12+OdClfDc/tTPaeWDxHhwauooZagR1MhooKOwrtoTa1+9ngWqFAwoy Ja2KzX/QxaHGk+uDvn/WpZvOWZdvDnQp381P7Yx2Hli8B4eGrmKGGkGdjAYKCvuKLaH29ftZoFrhgIKM
GjAoSjZdAtYT4Qz19UxQLRiArCCyKdtw2aZscwQ2F6MDkoLIumLjNbuyTVHGaWdYoUoIAiKCaNI/27JN BgyKkk2XgPVEOEN9PRNUCwYgK4hsyjZctinbHIHNxeiApCCyrth4za5sU5Rx2hlWqBKCgIgg6vtnW7bp
V21LN0cjRx6xAK8PbErXX7ev2BRrnDaTaBeTBEgJCuIBAwMAXxU0oaPR8ToAAAAASUVORK5CYII= qm3p5mjkyCMW4PWBTen66/YVm2KN02YS7WKSAClBQTxgYAAAoRcyeTnPBtoAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="btnZoomOut.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnZoomOut.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMISURBVEhLtVXfS5NRGA6KLuqiKCSCqIsi6Da69qL+Bm/C YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMHSURBVEhLtVXfS5NRGA6KLuqiKCSCqIsi6Da69qL+Bm/S
IerUObWJ20DL7bOEwLAwKbFQK60M6qIfhBJlSRAIZhSmkDXWzMhtbtNJLVvf6Xn3vefzfE5Rix54fc+P EHXqnNrEOdBy+ywhMCxMSizUSiuDuugHoURZEgSCGYUpzDValtPP2dSklq3v9Lz73vN5PqeoSQ+8e8+P
5zzP+x79jhtWgtPp3FdaWuotKSl5jDxRVlYWxvgT4gnm9Xa7/SBT14fCwsIcCFy12WwpiOoUDodDqJlj 5zzPec92zjYsB5fLta+goMCbn5//BHmksLBQR/sj4in61Q6H4yBT14acnJw0CFzLzMyMQ9SgcDqdQs0c
AXELRnv46OqA8BGIfCahtUZRUdE08lGWWBlo/TCqmZUV0mHO85p2Nnj+UttkU1PLV5ov5eTn56dQ3DGW 84jbMNrDS1cGhI9AJExCq43c3NwJ5KMssTxQ+mHsZkbukBZzntO0c58uXG4aratrGKP+Yg5Vi80dY6lU
ykZxcfEOEAPyAEVlZWX0xeDgt+jMjC4UJBKz+uj7MeHxeH6ofEQYJntZ0goQW4gsw+v1fpmamkqTYDKZ 5OXl7QAxJBdQlJSURF/29o6PT0wYQkE0OmUMfhgSZWVlP1U+QofJXpa0A8QGIsvwer1fwuFwggRjsZjN
tBjIeSwW09vb23+r5xB3WHIRVVVVOXDPtE2kioqKRCgUSpPQahGPx3VN08zrKigo+FVeXn6IpQ1gw84t QPZ1XTeam5v/qOsQd1lyAaWlpWlwT5ZNpOLi4ulQKJQgoZVicnLS0DTNOq7s7OzfRUVFh1jaBCYcXGKS
Zkj3+/rDdDhTLqCOCXIu84eJj2YHpIFr0ljaABa6JQHuP+eS8xbR1Qx0/Gw4fcY0gd4zljaAxVeyg5qa 9KCrW6fFye0Capsg+zIHRoJWBaSBY9JY2gQG2iUB7r9mv8/ZRFcyMPBZc+asZQK95yxtAoOvZQXl5VVR
uigdzK19KHJrHyEoq2N1zZgTv+vGTbMDxCRLG4DjW2mA+4xSVdliKxsQeu89UA3iLG0AGy+lQd3JU3N/ Wphe+UikVz5GUFbb6pjZJ37bzVtWBYhRljYBx3fSAOcZpV2lii1vQOi8/1A1iLG0CUy8kgZVp07P/ksF
00Hn9W7TAN9TiKUNYKODNinw/qQTs3OWe1fHBDmXWccvwefXMuc5nrK0ASwclx0Qoa+/f10GY+Pjpjhp rTfaLQPcp88sbQITLTRJgfcnMT0zazt3tU2QfZkNfAk+v5Zcz/GMpU1g4LisgAhd3d1rMhgaHrbESQNH
4MrrWdoAFrZhc0aSqqur04FAYE0GqVRKNDY2mgaIBdzCAZZeBJz9sgPKPp9PDwaDy35cMiKRiN7a2mpW Xs3SJjCwDZNTkoQbmggEAqsyiMfjora21jJAzOMUDrD0AuDslxVQ9vl8RjAYXPJyyYhEIkZjY6O1c84d
zrmHJa1AF1vor0mSKdxutxgYeC6mwxFLBzF8vcOvR4Tf7zfFpQF+wUN4CXayrBXY3A8SvZZqy+KEyyWa LGkHqthCvyZJpvB4PKKn54X4OhaxVaDj9va/GRB+v98Slwb4gvvwEuxkWTswuR8kei3VksVJt1vUna8X
zjWLy1c6RPOFi8Lt8dAHaeGogUKH6fFkWSvIhDqRFanVyZBry3HkGDoj9I+LZa3A274VpAYQYksPqyKo V662iPqLl4SnooIupI2jBjbaT48ny9pBJlSJ3JG6OxlybCmObENngP64WNaOrKysrSDVgPBt8WJVBLv8
8jtyG8TuLt3j8RtwdrFsNlwu13YQbSB2IdNzMoo8hA57MXZCeDfx8vLyNmP9NokuE+8yYv8KmGyEaQ8i gdwEsXuL57j9FpxdLJsKt9u9HcQTILYh03MyiNyHCjvRdkF4N/EyMjI2Y/wOiS4R75Ni6wVMNsK0A5Fy
67qY8u/AO7YJ3V37bwYENulcvCKH+ANdhjEQZi0cZwAAAABJRU5ErkJggg== XExZP/CObUJ11/+bAYFNWheOyCn+AiN8Lour/FuLAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="btnZoomIn.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnZoomIn.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMMSURBVEhLtZXLa1NREMYFxYUuFKWIILpQBLfiWkG76D/Q YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMLSURBVEhLtZXfS5NhFMeDoou6KAqJIOqiCLqNrkvKf2E3
ja2UpkmaJsSEUttIqnFloYrtomlR6gOrVtCNilikjQuxUqgVpbZgVVBBMKF5tU3Sm8fxm5w53pubxFfx acjm1LmxJmK62GpdJVg0L5xS2A+yMqibikhC10VkCGYUppAVVBA0cb/U/Xjn9vQ9e87T++7d1i/pC4fn
g+Gce87Mb2bu49x11eR0OvfY7fZTNpvtMcaF1tbWMOYfYU9x3W21Wvez69+pubm5BoArDQ0NGUALZA6H eZ/nnM855/3xvOuqyel07mlpaTnV3Nz8GON8a2trBPOPsKe49tvt9v3s+neyWq01AFypr6/PAFogczgc
QxhHNg12G4l2cejvBfAhQD4T6E/NYrF8x3iUEdWF1g+imoSqkIJpPOnxaD09PbHhG7fE+f6BRY/Hkzb7 wjiyabDbSLSLQ38vgA8B8plAf2o2m+07xqOMqC60fhDVJFSFFEzjSY9H6+npiQ3duCXO9/UvejyetNmH
ULco7hijytXS0rINjp9UAFl7e3vqxeRLkVldFUblcnkx+25OdHV1xYz+sDCS7GZkqeDYT87KAoGAFo/H ukVxxxhVrqampm1w/KQCyDo6OlIvJl6KTDYrjFpdzYuZd7Oiu7s7ZvSHRZBkNyNLBcc+clYWCAS0eDzO
GSnEYd+jn6akaZoIBoMpYxzsLiN1ud3uGmRfpirIyev1ZqLRKGOkJPyhOHJaT0DKZrPC5/MtqtimpqZs SCEOex/9NCVN00QoFEoZ42B3GanL7XbXIPsyVUFO7e3tmWg0yhgpCX8ojpzWE5ByuZzwer2LKraxsTHX
W1vbAUZLYcPKLRadxidCHK6rWgLS+4UPora2Nk+xxMBtCjBaCgs3aZPM5XLlkkvLHKqr0i1SKhSE6Ozs 1tZ2gNFS2LBzi0WnsfEwh+uqloD0fv6DqK2tzVMsMXCbAoyWwsJN2iRzuVyryaVlDtVV6RYpFQpCdHV1
TCgGeBOMlsLipOoAD3aFgqhaVXXp3Lgmr0mDQ0NhgjPnK6OlkPGNSnDh4qViQDns1wlG7z8oVs+cGKOl JRQDvHFGS2FxQnWAB7tCQVStqrp0blyT16SBwcEIwZnzldFSyPhGJbhw8VIxoBz26wQj9x8Uq2dOjNFS
sPFcJfB3n0n9S4IBQwf4nr4wWgobw7RJVldXl48nksUgoyRYmlkFPISOjo4lxYCNM1oKC8dVB+TwZGyM 2HiuEvj8Z1L/kqDf0AG+py+MlsLGEG2S1dXV5eOJZDHIKAmWZlYBD6Gzs3NJMWBjjJbCwnHVATk8GR3l
Q3Wpyiu9RXPz8+a3qJvRUljYgs1FciDDKboaDoc5XKpaB5lMRvj9/riKhWmI38doXch8VnVAI30wkUiE UF2q8kpv0ezcnPkt8jNaCgtbsLlIDmQ4RbORSITDpap1kMlkhM/ni6tYmIb4fYzWhcxnVQc00gezsLDA
MZU7SKfToq+vz3wujTCyVOhiE71NKgEZdRIKPRMrqTQjpTR8vdOvZugsShr9aY4HPIVvaTtjS4XNvXD6 mModpNNpEQwGzefSMCNLhS420dukEpBRJ+HwM7GSSjNSSsPXO/Vqms6ipNGf5njAk/iWtjO2VNjcC6dv
Ro5Go25wNiWDl4dxRvXGPThKsF4EVjIUOk2HJ2NLRUmoE1WRsTrzmvnaOAdnhn5cjC1VY2PjZjidg0PU 5Gg06gZnUzJ0eQhnVG/cg6ME60VgJUOhU3R4MrZUlIQ6URUZqzOvma+Nc3Cm6cfF2FI1NDRshtM5OETN
HGyEoMoUxkHA7pn3eP4aPjsYWy78WLbC8QQcr2Gk42QW4xQ6HMXcCfBO8quvr9+I9TsErWBvi7C1CknW wUYIqkxhHADsnnmP56/hs4Ox5cKPZSscT8DxGkY6TmYwTqLDEcydAO8kP4vFshHrdwhawd4WYWsVkqxH
I+kIrOx2scvahRdhA7q7/t8SkDjJVf0WOcQP/v4QiRXulcEAAAAASUVORK5CYII= 0mFY2e1il7ULL8IGdHf9vyUgcZKr+i1yiB9QVhBlbWU40wAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="btnFitWidth.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnFitWidth.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -428,18 +428,18 @@
<data name="btnAbout.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnAbout.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKdSURBVEhLtVZbaxNBGN1nRe2TIuifaGigyc4uatUHQamC YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKeSURBVEhLtVZbaxNBGN1nRe2TIuhfsGBpoMnOLmrVB0Gp
CEofBaFQTbI7m6oE1IpYQ1+q1jfFS0o07s7MGlHwRhFFHwJV0uqDN9SqqKjBGya7zmwmYRv30gY8cMi3 gghKHwVFqCbZnU1V1hdrRUpfqta31nitxt2ZiREFb8TLY6BKWn3whloVNWrxhsmuM5tJ2Ma9tAEPHPLt
s+c73zeTnZ0VggD26itFiPdIGjYBNF5IGvkG1MLXboif0XEENNIPBgvLuXzukNXiCgni01GY+wVgzqLG 7PnO981kZ2eFIID9xnIR4n2ShrMAmi8kjXwDauZrB8TP6DgCGtkDejNLuXz2kNXcMgnikQhM/wIwbVFj
tvu3wfo1/iFCNLY6jZbx9GBIkPSKCfKRJbeyZ98Vew2l172Yps8ADa/jNt6QVbKrE+Jqa7cNE3cBLw3o 2/1bY/Ua/xAhGl6dQkt4ejAkSLrEOPnIkhvZeeCqvYbS615UM6aAhtdxG2/IKtm1AuJyY7c1E3cBLw3Y
x7+BQrZzu9mQFGNjRCOOuVdyVp+0q7Wa/adasw/nS94FWEyLSGlzFbetg62flDQ+MJEf7069sxksy7Kv jX8DhWzndjMhKebGVo045l7JA8a4Xa5U7D/lit03VvAuwGJaREplV3HbKtj6SQnzAxP58f7EO5vBsiz7
l157appUySs5o3dwe0EQVXTStyMen7nxtFlg1HzsP4NGrOIjjnl3srAUJHLfwxJkyr6RW/aO7E2nyzA9 RuG1p6ZOlbySdaOF2wuCqKKTvh3xePTm03qBoexj/xnUYhX3O+YdicxiED/7PSxBpuwevG3vGLjldBmm
2H3pcw/MLxEkzdzJBv4HRZVsE+h6jft24YqPXXxosSWqVCrWwfP3QvVOrOJTQlzDk4EiHmddBQ5duB+q B3svf+6EY4sEScvuZAP/g6JKtgl0vS74duGK+88/tNgSlUolSx/Nh+qdWMWnhJiGxwNFPD7qKnDo9L1Q
d+KUMUEfT/w2UMTjdgqIij5F/wPyhg2Ecexqmfk7GEGPPDWtjGuoLACISkFdNOK2lggat+kM8Fk2EMZ2 vRMnzTx9PPHbQBGPmykgKsYE/Q/IGzYQxuFrRebvYBA98tQ0MqahogAgKgR1UYubWiJo3qEzwGk2EMZm
ZkA5yl5ufcFd1OP2ZoA2CWxLxyH+4i+qx/MtEIP6TCSDFzi7mc5imA0Gcd5LBMmgY84gD+gdIHH5Jbvh ZkA5xF5u3cFdVOPmZoA2CWxLxyD+4i+qxnMtEIXGVJuO5zm7mc7iGBsM4pyXCJJex5xB7jFaQPzKS3bD
19Fw/kFzBgfOhW606Wb3DYgKlqPauHOCeSTYvRndOlEs20dpoQ2Zgm+BrhSuiJoZ4bazQY+/LZEB/ScT r6Mj5x7UZ6CPhG60yXr3NYgKliPaGecE80iwu/RL1olc0e6jhTboF30LtCfxtKhl27jtTNDjb0trj/GT
t8OuFKkAlazndt4Q0ygeT+LnLKG1O/dY6zWNp4GCO7lNMKKZ4mJ6vg7Rx+yT28i7AH4PVLT/nzWfC2KK iZthe5JMA5Ws53beEFMoFkvg5yyhsTv3WOM1jSeBgldym2BE9NxCer4epo/ZJ7eRdwH8Hqjo4D9rPhtE
sUhS0Vb2VqSfKBOSgp6wTunmvAMgOU6Pxs1rk9cWcrkHBOEvPJeW3gGqnWsAAAAASUVORK5CYII= FXOBpKKt7K1IP1HykoKesE7p5rwLIDlOj8bNaxPX53O5BwThL/s9k4krRj1IAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

172
app/DD_Clipboard_Searcher/frmProfileMatch.vb
View File

@ -4,73 +4,68 @@ Imports DevExpress.XtraGrid.Views.Tile.ViewInfo
Public Class frmProfileMatch Public Class frmProfileMatch
Private Sub frmProfileMatch_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmProfileMatch_Load(sender As Object, e As EventArgs) Handles Me.Load
If My.Settings.frmProfileMatchPosition.IsEmpty = False Then
If My.Settings.frmProfileMatchPosition.X > 0 And My.Settings.frmProfileMatchPosition.Y > 0 Then
Location = My.Settings.frmProfileMatchPosition
End If
End If
If My.Settings.frmProfileMatchSize.IsEmpty = False Then
Size = My.Settings.frmProfileMatchSize
End If
CreateTiles() CreateTiles()
CurrSearch2Load = Nothing CurrSearch2Load = Nothing
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
Sub CreateTiles() Sub CreateTiles()
Try Try
Dim oPrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold) Dim ImageIndex As Integer = -1
Dim i As Integer = 0
Dim j As Integer = 0
Dim PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
Dim SecondaryFont As New Font("Segoe UI", 10) Dim SecondaryFont As New Font("Segoe UI", 10)
Dim oGroup = TileControl1.Groups.Item("TileGroupProfiles") Dim WhiteBackground As Color = System.Drawing.Color.FromArgb(230, Color.White)
For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows
Dim oItem As New TileItem() With {.Tag = oRow.Item("GUID")}
oItem.Elements.Clear()
Dim oNameElement = New TileItemElement()
oNameElement.Text = oRow.Item("NAME")
oNameElement.TextAlignment = TileItemContentAlignment.TopLeft
oNameElement.Appearance.Normal.Font = oPrimaryFont
oItem.Elements.Add(oNameElement)
Dim oCommentElement = New TileItemElement()
oCommentElement.Text = oRow.Item("COMMENT")
oCommentElement.TextAlignment = TileItemContentAlignment.BottomLeft
oCommentElement.Appearance.Normal.Font = SecondaryFont
oItem.Elements.Add(oCommentElement)
oGroup.Items.Add(oItem)
Next
' Datatable laden ' Datatable laden
'GridControl1.DataSource = CurrDT_PROFILE_MATCH GridControl1.DataSource = CurrDT_PROFILE_MATCH
'TileView1.TileTemplate.Clear() TileView1.TileTemplate.Clear()
'Dim ImageColumn As TileViewItemElement
'Dim HeadlineColumn As TileViewItemElement
'Dim IDColumn As TileViewItemElement
'Dim TextColumn As TileViewItemElement
'Dim TextHeaderColumn As TileViewItemElement
'HeadlineColumn = New TileViewItemElement()
'With HeadlineColumn
' .Column = TileView1.Columns(1)
' .TextAlignment = TileItemContentAlignment.TopRight
' .Appearance.Normal.Font = PrimaryFont
' .Appearance.Normal.ForeColor = Color.DodgerBlue
' .Column.OptionsFilter.AllowFilter = True
'End With
'TileView1.TileTemplate.Add(HeadlineColumn)
'IDColumn = New TileViewItemElement()
'With IDColumn
' .Column = TileView1.Columns(0)
' .Column.OptionsFilter.AllowFilter = True
' .TextAlignment = TileItemContentAlignment.TopLeft
'End With
'TileView1.TileTemplate.Add(IDColumn)
'ImageColumn = New TileViewItemElement()
'With ImageColumn
' .Image = My.Resources.build_Selection_32xLG
' '
' ' '.ImageSize = New Size(186, 90)
' .ImageSize = New Size(186, 118)
' .ImageScaleMode = TileItemImageScaleMode.ZoomInside
' .ImageAlignment = TileItemContentAlignment.BottomLeft
' ' .ImageLocation = New Point(-10, -10)
'End With
Dim ImageColumn As TileViewItemElement
Dim HeadlineColumn As TileViewItemElement
Dim IDColumn As TileViewItemElement
Dim TextColumn As TileViewItemElement
Dim TextHeaderColumn As TileViewItemElement
HeadlineColumn = New TileViewItemElement()
With HeadlineColumn
.Column = TileView1.Columns(1)
.TextAlignment = TileItemContentAlignment.TopRight
.Appearance.Normal.Font = PrimaryFont
.Appearance.Normal.ForeColor = Color.DodgerBlue
.Column.OptionsFilter.AllowFilter = True
End With
TileView1.TileTemplate.Add(HeadlineColumn)
IDColumn = New TileViewItemElement()
With IDColumn
.Column = TileView1.Columns(0)
.Column.OptionsFilter.AllowFilter = True
.TextAlignment = TileItemContentAlignment.TopLeft
End With
TileView1.TileTemplate.Add(IDColumn)
ImageColumn = New TileViewItemElement()
With ImageColumn
.Image = My.Resources.build_Selection_32xLG
'
' '.ImageSize = New Size(186, 90)
.ImageSize = New Size(186, 118)
.ImageScaleMode = TileItemImageScaleMode.ZoomInside
.ImageAlignment = TileItemContentAlignment.BottomLeft
' .ImageLocation = New Point(-10, -10)
End With
' TileView1.TileTemplate.Add(ImageColumn) ' TileView1.TileTemplate.Add(ImageColumn)
'For Each oProfileColumn As DataColumn In CurrDT_PROFILE_MATCH.Columns 'For Each oProfileColumn As DataColumn In CurrDT_PROFILE_MATCH.Columns
' Dim index As Integer = CurrDT_PROFILE_MATCH.Columns.IndexOf(oProfileColumn) ' Dim index As Integer = CurrDT_PROFILE_MATCH.Columns.IndexOf(oProfileColumn)
@ -147,27 +142,27 @@ Public Class frmProfileMatch
End Sub End Sub
'Private Sub TileView1_ItemClick(sender As Object, e As TileViewItemClickEventArgs) Private Sub TileView1_ItemClick(sender As Object, e As TileViewItemClickEventArgs) Handles TileView1.ItemClick
' Dim oPROFILE_ID = TileView1.GetFocusedRowCellValue(TileView1.Columns("GUID")) Dim oPROFILE_ID = TileView1.GetFocusedRowCellValue(TileView1.Columns("GUID"))
' CurrSearch2Load = oPROFILE_ID CurrSearch2Load = oPROFILE_ID
' Dim view As TileView = TryCast(sender, TileView) Dim view As TileView = TryCast(sender, TileView)
' Dim pt As Point = view.GridControl.PointToClient(Control.MousePosition) Dim pt As Point = view.GridControl.PointToClient(Control.MousePosition)
' Dim hitInfo As TileViewHitInfo = view.CalcHitInfo(pt) Dim hitInfo As TileViewHitInfo = view.CalcHitInfo(pt)
' If hitInfo.ItemInfo IsNot Nothing Then If hitInfo.ItemInfo IsNot Nothing Then
' Dim elementInfo As TileItemElementViewInfo = hitInfo.ItemInfo.Elements.FirstOrDefault(Function(t) t.EntireElementBounds.Contains(pt)) Dim elementInfo As TileItemElementViewInfo = hitInfo.ItemInfo.Elements.FirstOrDefault(Function(t) t.EntireElementBounds.Contains(pt))
' If elementInfo IsNot Nothing Then If elementInfo IsNot Nothing Then
' Dim text As String = elementInfo.Element.Text Dim text As String = elementInfo.Element.Text
' End If
' End If End If
' OpenResults_Doc() End If
'End Sub OpenResults_Doc
End Sub
Sub OpenResults_Doc() Sub OpenResults_Doc()
Me.Hide() Me.Hide()
Dim ofrmresult As Form = New frmResultDoc Dim ofrmresult As Form = New frmResultDoc
ofrmresult.ShowDialog() ofrmresult.ShowDialog()
Me.Show()
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim oResult As String = "" Dim oResult As String = ""
For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows
If oResult = "" Then If oResult = "" Then
@ -181,28 +176,15 @@ Public Class frmProfileMatch
End Sub End Sub
Private Sub TileControl1_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControl1.ItemClick Private Sub frmProfileMatch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Dim oItem As TileItem = e.Item Try
Dim oProfileId = oItem.Tag ' Position und Größe speichern
My.Settings.frmProfileMatchSize = Me.Size
If oProfileId Is Nothing Then My.Settings.frmProfileMatchPosition = Me.Location
Dim oResult As String = "" My.Settings.Save()
For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows Catch ex As Exception
If oResult = "" Then Logger.Error(ex)
oResult = oRow.Item("GUID") Logger.Info("Error in Save FormLayout: " & ex.Message)
Else End Try
oResult &= "," & oRow.Item("GUID")
End If
Next
CurrSearch2Load = oResult
Else
CurrSearch2Load = oProfileId
End If
OpenResults_Doc()
End Sub
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
Close()
End Sub End Sub
End Class End Class

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

@ -54,6 +54,7 @@ Partial Class frmResultDoc
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.OrdnerÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).BeginInit()
@ -121,14 +122,14 @@ Partial Class frmResultDoc
' '
Me.ÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.OpenFile Me.ÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.OpenFile
Me.ÖffnenToolStripMenuItem.Name = "ÖffnenToolStripMenuItem" Me.ÖffnenToolStripMenuItem.Name = "ÖffnenToolStripMenuItem"
Me.ÖffnenToolStripMenuItem.Size = New System.Drawing.Size(148, 22) Me.ÖffnenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ÖffnenToolStripMenuItem.Text = "Öffnen" Me.ÖffnenToolStripMenuItem.Text = "Öffnen"
' '
'EigenschaftenToolStripMenuItem 'EigenschaftenToolStripMenuItem
' '
Me.EigenschaftenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.properties_16xMD Me.EigenschaftenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.properties_16xMD
Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem" Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
Me.EigenschaftenToolStripMenuItem.Size = New System.Drawing.Size(148, 22) Me.EigenschaftenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.EigenschaftenToolStripMenuItem.Text = "Eigenschaften" Me.EigenschaftenToolStripMenuItem.Text = "Eigenschaften"
' '
'XtraTabControlDocs 'XtraTabControlDocs
@ -214,8 +215,6 @@ Partial Class frmResultDoc
Me.GridViewDocSearch2.OptionsFind.AlwaysVisible = True Me.GridViewDocSearch2.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceFocusedCell = False Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceHideSelection = False Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch2.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch2.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch2.OptionsView.EnableAppearanceEvenRow = True Me.GridViewDocSearch2.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch2.OptionsView.ShowAutoFilterRow = True Me.GridViewDocSearch2.OptionsView.ShowAutoFilterRow = True
' '
@ -253,8 +252,6 @@ Partial Class frmResultDoc
Me.GridViewDocSearch3.OptionsFind.AlwaysVisible = True Me.GridViewDocSearch3.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceFocusedCell = False Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceHideSelection = False Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch3.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch3.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch3.OptionsView.EnableAppearanceEvenRow = True Me.GridViewDocSearch3.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch3.OptionsView.ShowAutoFilterRow = True Me.GridViewDocSearch3.OptionsView.ShowAutoFilterRow = True
' '
@ -292,8 +289,6 @@ Partial Class frmResultDoc
Me.GridViewDocSearch4.OptionsFind.AlwaysVisible = True Me.GridViewDocSearch4.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceFocusedCell = False Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceHideSelection = False Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch4.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch4.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch4.OptionsView.EnableAppearanceEvenRow = True Me.GridViewDocSearch4.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch4.OptionsView.ShowAutoFilterRow = True Me.GridViewDocSearch4.OptionsView.ShowAutoFilterRow = True
' '
@ -331,16 +326,14 @@ Partial Class frmResultDoc
Me.GridViewDocSearch5.OptionsFind.AlwaysVisible = True Me.GridViewDocSearch5.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceFocusedCell = False Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceHideSelection = False Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch5.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch5.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch5.OptionsView.EnableAppearanceEvenRow = True Me.GridViewDocSearch5.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch5.OptionsView.ShowAutoFilterRow = True Me.GridViewDocSearch5.OptionsView.ShowAutoFilterRow = True
' '
'ContextMenuStripWMFile 'ContextMenuStripWMFile
' '
Me.ContextMenuStripWMFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EigenschaftenDateiToolStripMenuItem, Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator1, Me.ToolStripMenuItem1, Me.ToolStripMenuItem2}) 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.Name = "ContextMenuStripWMFile"
Me.ContextMenuStripWMFile.Size = New System.Drawing.Size(182, 98) Me.ContextMenuStripWMFile.Size = New System.Drawing.Size(182, 142)
' '
'EigenschaftenDateiToolStripMenuItem 'EigenschaftenDateiToolStripMenuItem
' '
@ -374,6 +367,13 @@ Partial Class frmResultDoc
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(181, 22) Me.ToolStripMenuItem2.Size = New System.Drawing.Size(181, 22)
Me.ToolStripMenuItem2.Text = "Layout zurücksetzen" Me.ToolStripMenuItem2.Text = "Layout zurücksetzen"
' '
'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"
'
'frmResultDoc 'frmResultDoc
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@ -445,4 +445,5 @@ Partial Class frmResultDoc
Friend WithEvents ÖffnenToolStripMenuItem As ToolStripMenuItem Friend WithEvents ÖffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tslblState As ToolStripStatusLabel Friend WithEvents tslblState As ToolStripStatusLabel
Friend WithEvents OrdnerÖffnenToolStripMenuItem As ToolStripMenuItem
End Class End Class

58
app/DD_Clipboard_Searcher/frmResultDoc.vb
View File

@ -41,6 +41,7 @@ Public Class frmResultDoc
Private DTDocSearchDefinition As DataTable Private DTDocSearchDefinition As DataTable
Private _frmDocView As frmDocView 'You need a reference to Form1 Private _frmDocView As frmDocView 'You need a reference to Form1
Private _frmProfileMatch As frmDocView 'You need a reference to Form1 Private _frmProfileMatch As frmDocView 'You need a reference to Form1
Private _activeGridView As GridView
#End Region #End Region
Public Sub New() Public Sub New()
MyBase.New MyBase.New
@ -367,9 +368,18 @@ Public Class frmResultDoc
End Try End Try
End Sub End Sub
Sub Refresh_DocID(myGrid As GridView) Sub Refresh_DocID(myGrid As GridView)
_activeGridView = myGrid
clsWMDocGrid.ActiveDocGrid = myGrid clsWMDocGrid.ActiveDocGrid = myGrid
clsWMDocGrid.ActiveDocGrid.EndSelection() clsWMDocGrid.ActiveDocGrid.EndSelection()
clsWMDocGrid.GetDocItems() clsWMDocGrid.GetDocItems()
Try
ContextMenuStripWMFile.Close()
Catch ex As Exception
End Try
If ToolStripDropDownButtonFile.Visible = False Then If ToolStripDropDownButtonFile.Visible = False Then
ToolStripDropDownButtonFile.Visible = True ToolStripDropDownButtonFile.Visible = True
End If End If
@ -388,6 +398,7 @@ Public Class frmResultDoc
With f With f
.Show() .Show()
.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH) .Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
End With End With
End If End If
Catch ex As Exception Catch ex As Exception
@ -398,16 +409,18 @@ Public Class frmResultDoc
End With End With
_frmDocView = newDocView _frmDocView = newDocView
End Try End Try
Me.BringToFront()
Else Else
tslblDocID.Text = "DocRow not selected" tslblDocID.Text = "DocRow not selected"
ToolStripDropDownButtonFile.Enabled = False ToolStripDropDownButtonFile.Enabled = False
End If End If
End Sub End Sub
Private Sub GridViewDocSearch1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewDocSearch1.FocusedRowChanged Private Sub GridViewDocSearch1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewDocSearch1.FocusedRowChanged
_activeGridView = GridViewDocSearch1
Refresh_DocID(GridViewDocSearch1) Refresh_DocID(GridViewDocSearch1)
End Sub End Sub
Private Sub GridViewDocSearch1_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridViewDocSearch1.ColumnWidthChanged Private Sub GridViewDocSearch1_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridViewDocSearch1.ColumnWidthChanged
_activeGridView = GridViewDocSearch1
SaveDocGridLayout() SaveDocGridLayout()
End Sub End Sub
@ -505,38 +518,47 @@ Public Class frmResultDoc
End Sub End Sub
Private Sub GridViewDocSearch1_FocusedColumnChanged(sender As Object, e As Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDocSearch1.FocusedColumnChanged Private Sub GridViewDocSearch1_FocusedColumnChanged(sender As Object, e As Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDocSearch1.FocusedColumnChanged
_activeGridView = GridViewDocSearch1
Refresh_DocID(GridViewDocSearch1) Refresh_DocID(GridViewDocSearch1)
End Sub End Sub
Private Sub GridViewDocSearch2_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch2.FocusedColumnChanged Private Sub GridViewDocSearch2_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch2.FocusedColumnChanged
_activeGridView = GridViewDocSearch2
Refresh_DocID(GridViewDocSearch2) Refresh_DocID(GridViewDocSearch2)
End Sub End Sub
Private Sub GridViewDocSearch3_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch3.FocusedColumnChanged Private Sub GridViewDocSearch3_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch3.FocusedColumnChanged
_activeGridView = GridViewDocSearch3
Refresh_DocID(GridViewDocSearch3) Refresh_DocID(GridViewDocSearch3)
End Sub End Sub
Private Sub GridViewDocSearch4_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch4.FocusedColumnChanged Private Sub GridViewDocSearch4_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch4.FocusedColumnChanged
_activeGridView = GridViewDocSearch4
Refresh_DocID(GridViewDocSearch4) Refresh_DocID(GridViewDocSearch4)
End Sub End Sub
Private Sub GridViewDocSearch5_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch5.FocusedColumnChanged Private Sub GridViewDocSearch5_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch5.FocusedColumnChanged
_activeGridView = GridViewDocSearch5
Refresh_DocID(GridViewDocSearch5) Refresh_DocID(GridViewDocSearch5)
End Sub End Sub
Private Sub GridViewDocSearch2_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch2.FocusedRowChanged Private Sub GridViewDocSearch2_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch2.FocusedRowChanged
_activeGridView = GridViewDocSearch2
Refresh_DocID(GridViewDocSearch2) Refresh_DocID(GridViewDocSearch2)
End Sub End Sub
Private Sub GridViewDocSearch3_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch3.FocusedRowChanged Private Sub GridViewDocSearch3_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch3.FocusedRowChanged
_activeGridView = GridViewDocSearch3
Refresh_DocID(GridViewDocSearch3) Refresh_DocID(GridViewDocSearch3)
End Sub End Sub
Private Sub GridViewDocSearch4_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch4.FocusedRowChanged Private Sub GridViewDocSearch4_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch4.FocusedRowChanged
_activeGridView = GridViewDocSearch4
Refresh_DocID(GridViewDocSearch4) Refresh_DocID(GridViewDocSearch4)
End Sub End Sub
Private Sub GridViewDocSearch5_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch5.FocusedRowChanged Private Sub GridViewDocSearch5_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch5.FocusedRowChanged
_activeGridView = GridViewDocSearch5
Refresh_DocID(GridViewDocSearch5) Refresh_DocID(GridViewDocSearch5)
End Sub End Sub
@ -558,4 +580,38 @@ Public Class frmResultDoc
Dim oTabCaption = DTDocSearchDefinition.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("TAB_TITLE") Dim oTabCaption = DTDocSearchDefinition.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("TAB_TITLE")
RefreshTabDoc(oProfileID, oConID, oCommand, oTabIndex, oTabCaption) RefreshTabDoc(oProfileID, oConID, oCommand, oTabIndex, oTabCaption)
End Sub End Sub
Private Sub GridControlDocSearch1_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch1.DoubleClick
Refresh_DocID(GridViewDocSearch1)
FileShow()
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 System.IO.Directory.Exists(oFilepath) = True Then
Process.Start(oFilepath)
Else
MsgBox("Folder '" & oFilepath & "' not existing or accessible!", MsgBoxStyle.Exclamation)
End If
End Sub
End Class End Class