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">
<value>0, 0</value>
</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>
</userSettings>
</configuration>

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

@ -136,6 +136,30 @@ Namespace My
Me("frmViewerSize") = value
End Set
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 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">
<Value Profile="(Default)">0, 0</Value>
</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>
</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.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.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
@ -83,8 +84,8 @@ Partial Class frmDocView
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.btnMouseMode = New System.Windows.Forms.ToolStripDropDownButton()
Me.DefaultToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AreaSelectionToolStripMenuItem = 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()
@ -111,7 +112,6 @@ Partial Class frmDocView
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.btnAbout = New System.Windows.Forms.ToolStripButton()
Me.pMain = New System.Windows.Forms.Panel()
Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
Me.tcLeftPanel.SuspendLayout()
Me.tpThumbnails.SuspendLayout()
Me.ToolStripContainer1.BottomToolStripPanel.SuspendLayout()
@ -747,8 +747,14 @@ Partial Class frmDocView
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.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
'
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.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(130, 28)
Me.btnOpen.Size = New System.Drawing.Size(126, 28)
Me.btnOpen.Text = "Open document"
'
'ToolStripSeparator9
@ -820,7 +826,7 @@ Partial Class frmDocView
'btnMouseMode
'
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.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnMouseMode.Name = "btnMouseMode"
@ -831,37 +837,37 @@ Partial Class frmDocView
'
Me.DefaultToolStripMenuItem.CheckOnClick = True
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"
'
'AreaSelectionToolStripMenuItem
'
Me.AreaSelectionToolStripMenuItem.CheckOnClick = True
Me.AreaSelectionToolStripMenuItem.Name = "AreaSelectionToolStripMenuItem"
Me.AreaSelectionToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
Me.AreaSelectionToolStripMenuItem.Text = "Area selection"
'
'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(148, 22)
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(148, 22)
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(148, 22)
Me.MagnifierToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.MagnifierToolStripMenuItem.Text = "Magnifier"
'
'ToolStripSeparator6
@ -892,14 +898,14 @@ Partial Class frmDocView
'
'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.Size = New System.Drawing.Size(40, 31)
Me.tbCurrentPage.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'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.Size = New System.Drawing.Size(25, 28)
Me.lblPageCount.Text = "/ X"
@ -1069,11 +1075,6 @@ Partial Class frmDocView
Me.pMain.Size = New System.Drawing.Size(1264, 676)
Me.pMain.TabIndex = 6
'
'ToolStripStatusLabel2
'
Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(0, 17)
'
'frmDocView
'
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">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALYSURBVEhLzVTdSxRRFN/Syh6EqP6C/oDoLXxJiT7WnTUl
kkKJsHamD5ZSc92ttW4xM1vCGvRS+BA+hA/uzqxp7h2KyJegtwIR8qFc+1jc2UAo0HTd3eme68w0Xlwx
1qADP+455879/c45d2Zc/7UhhLbWq+JhryJ2cop8vV6VjzbHYhXmdnnmTURqOFWeIjBWIS5/9CjiIfMx
lysUCg0Gg8GiCYPEhhWDb2LQfJwakB9T0ULj8H2jIRGxyc88f7DiP0WLXFysow87CUsJmHkqAmMhJFNA
DmRvvn0wGhP3bBEbcTFVO44qqcAGAYJRmDkQnCCkQA72LvPJaDIFl/LLtohHlbhVHZTwrQ4AUbhMi4AV
gVyxWPwjoMg9GxGwfRDwKFLAIgA4RfKFAl299r50629GBMCcIh2Hw80jUVsEsLC8RMnBrIv3KnIT00Hg
UW8gUN3X17FzaA0MIFQl9Pdvgwu0iOdzi0aukLexTACXXh+X0m78cIdT4Cd5QyonY1cOTOOWQlYTjOk4
XwRYPqwZ7OvlFPEIp6KcJcKiTkV5uGA9yd9xjCj4El7DmVH+KhCVQkprLeiacBJGBVWy5O44yngVqSGL
L3q+ar4fdgc3Q913QSCdFIacVbMd0Bzm86Q6sSkR2UNIT5GLlwHkl3EaclksoPRoS252zPfC7gCFu9yx
WHOFjts+W9WWCx0LISrg9/uXoqhz74RyeR9btdN35th4LX92jD9odhCcNAzXlunhS2fXO+DMsTHrZ3Db
XGr8XJUp0P2Ezn+MfwybmwMyfzAQuB3u5sHX8YWJUhWxOTZm/Yzm67EEijLq2v9+4NqulCbkSx1gc2zM
+lnM11KB9vb2OfKBbZ9SBTfd2BS0zn9/dr6aCpBv4BWsX0YECTZLVcTm2Jjx31JysPCNoARrOul7vc4B
6jtzbOz0dcz3UXIwhDp2w6rjFYGyMSz8ymhCDSX/9+Zy/QZ80uQPbbbcHgAAAABJRU5ErkJggg==
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALYSURBVEhLzVTfSxRRFN7Syh6EqP6C/oDoLYTIiH6sO2tK
pNZDhLUz1T6Umutuad1iZraENeil8CF8CAl3Z3bT9A5F5EvQW4EILVrZr8WdDYQCTdfdne65zkzjxRVj
DTrwcc85d+73nXPuzLj+a0MIbaxRxYNeRWzjFPlKjSofbohGy8zt0swbD1dxqpwkMJYhJr/3KOJ+8zGX
KxQK9QeDwYIJg8SGFYNvot98nBqQH1HRXF3ijlEbD9vkJ5/eXfIfoXkuJh6gDzsJiwmYeSoCYyEkSSAH
slff3hl18du2iI2YOFU9isqpwBoBghGYORAcI6RADvYm/cGoNwUXcou2iEeVuGUdFPGtDgARuEyLgBWB
XKFQ+COgyF1rEbB9EPAoUsAiADhFcvk8Xb32vnT9b0YEwJwiHYXDDYMRWwQwt7hAycGsi/cqcj3TQeB+
dyBQ2dPTunVgBfQhVCH09m6CC7SIZ7PzRjafs7FIAJdeE5NSbnxvi1PgJ3lDysej/j0TuDGf0QRj4jFf
AFg+rGns6+YU8RCnoqwlwmKfinJwwfoIf9MxouBzeA0/DfGXgKgYJrWmvK4Jx2FUUCVL7o6htFeRajP4
vOer5vthd3At1HELBFIjwoCzarYDmsN8jlQn1sfDOwjpCXLxMoD8Mpogl8ECSg01ZqeHfc/sDlBnuzsa
bSjTcfNnq9pSoWMhRAX8fv9CBLXtHFMu7mKrdvrOHBuv5E8P83vNDoLjhuHa8DFx4fRqB5w5Nmb9NG6e
mRo9U2EKdDyk8x/mH8Dm+oDMHwwEbnR28ODr+NxYsYrYHBuzflrzdVkCBRm1737bd3nbpCbkih1gc2zM
+hnMV1OBlpaWGfKBbU6qgpturAtOzX5/craSCpBv4AWsXwYFCTaLVcTm2JjxX1NysM6rQQnW1Ijv5SoH
qO/MsbHT1zHfQ8nBEGrdDquOlwRKRkL4ldaEKkr+783l+g1xweFfKtch/wAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnClose.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADZSURBVEhLYyAX2FXM+mdXsfk/CEOFqAfoZjhWXLbJE6qU
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADZSURBVEhLYyAX2FVM+2dXsfk/CEOFqAfoZjhWXLbJE6qU
PACxgC6WQAyDCoGBTdnGCXS1BCxQUVHRBcR/gPg/DtwFVkgCgFkC5gAN+IZmIDZ8PDQ0lBmsgUgAsgTM
iI+P/43FQEowqo9pYAH18wZecGFu6r+X21L/v9qeBsYgNgiDxGFiIAzjI4vD1KLrhxoNAciKKMEwC0AO
iI+P/43FQEowqo9pYAH18wZecGZm6r+X21L/v9qeBsYgNgiDxGFiIAzjI4vD1KLrhxoNAciKKMEwC0AO
gBoNATAfUAvTzAKa+2DoWwDDGBZgU0QOhvkAxIYaDQHoCinFNPfB0A0inBY825Tciq6YVIxsOMg8qNFA
wMAAALzzIZoHXNFfAAAAAElFTkSuQmCC
wMAAAAm1IPYi8wi5AAAAAElFTkSuQmCC
</value>
</data>
<data name="btnPrint.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFfSURBVEhLvVVBTsMwEAwgLvwJfpEv5JRTpCi5IH+jXEBC
QijX9Ig48QoeEUVqQDk02Oy4Xuo4WHFbwkgjz652d7xtokQ+FEUhiQpnWZajk4mYadrCIIQ4pwEqFAcb
JElyuayBEFcLb3CnN5BS6gH2yeQYOMjgplyrU2jG7EHur2mafuGpGIZBXRc18VmiGKet7ZwbQ4Nd1+mn
i2Zu8zx/gsHPo/eXBmbmoA2YMODCY8n/CXPpDeTIoO97JR7fqKHWxTuzvbZzbgyN3rZt/QZ1XaumaSRu
gVVx2trOuTE0equqmhosydEGc9rOubFP/88GWhhA+25k59zYpzFQJ2xyUSjcoazxNuPDsqbExAQMxW+9
xIG4Mj/MFChiPLy8q3uHyDFwW3ykTGsYbIM5nGwwtwFq4zi+MK1hcDdw31yOgWM32Jj+WWRZ9kktZ7vO
QNCtyKPcYJMZfhBvTZuDKPoGy4flC2dE9P8AAAAASUVORK5CYII=
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFeSURBVEhLvVVBboMwEKSteumf2l/wBcQZCcGl8jfSS3qo
+AA5VlXf0ScgDkhRKw6hdnccb2NMkZ2kZKSRZ1e7O94ERDSHoigkUeEsy3J0MhEzTVsYhBDXNECF4miD
JElulzUQ4m7hDZ70BlJKPcA+mRwDRxk8lBt1Ds2YA8j9LU3TbzwVwzCo+6ImvkgU47S1nXNjaLDrOv10
0cxdnucVDH4fvf80MDMHbcCEAReeSv5PmEtvIEcGfd8rsX6nhloX780O2s65MTR627adN6jrWjVNI3EL
rIrT1nbOjaHRW1XV1GBJjjbwaTvnxnP6MhtoYQA9dyM758ZzGgN1wiYXhcIdyhpvMz4sG0pMTMBQ/NVL
HIgr88NMgSLG8+uHWjtEjoHb4iNlWsNgG/hwtoFvA9TGcXxjWsPgbuC+uRwDp26wNf1eZFn2RS1X+85A
0K3Io9xiEw8/iY+mzUEU/QA62uN7tDI4aAAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnSettings.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK7SURBVEhLpVY9iBNBFA6ihY0WilqJ1SkKubtsgs1hGsXG
QtDGH7TLKbndnZkNaiEELbQSwRNErA4V7jSb3ZxoKzZeY+GdFhYH14iNjQp3whmzvm/yJo75M+Q+eMx7
37z3vTezuyEpg4xfOc6uRk5GQbo4+4v4y0wND8erPHFEmDgqnkM8JsPRnIoTcGkR1nXSRjDuPv8BwW6W
lfEjThseh73abkwLQawZN/zY8kU4zWkbg2kw5s4d1PHVZ9vBNfnIzZdfb9aJw8Dx5vdqcRWvMaVBz+Q9
eGNZER/lrcHhyGjy76RxkvGqJ8DnRO1Qk4+SrKrRVUXJeBAfwV7geTkhRKKUSmi9Aa4naMoVuwHWtJhd
bfpRkvPDl3n1eGZCPL2VVw93okb6/qTV4IUW6gVH1Y7p46vqDL379+E3Y31lS8i5oqbqUso3uoBAwjHE
Ya7rfmUa/BlwlDvKVCfwDeAUaJATlVdKTK0qJROpJ5Z1rJi+WCz+hhh8Ps2C5Se+7+9nyU7g40IDx48W
LolrFwNqYAvShA0TYyWuYflo8JmluiOtqiPpINzFYYoEF81kRsTEWK3mDY53cOlgwBVBoM2mSewOrett
fMJl/SGld54E7pItosiacr1cLm/iNA3P876ZHJyA/Lf0DATxE5zSCRT0sI73nrhiW07LOKUT2MQ0PJF9
ghKntEDTXjA5Vp42TukEPdhTVHibjrlkN6D1C6e0QEKfTA5EcWVk81R/nVN6A/eNYttIZDkIgtPkn6RB
PrTv017rDRwINMlPTIZiM6WJsbZdy3cuGwxUUDPCZjVmx8ZHEzrVTS7vD/qd2YZCy9ba4p5GTbayTH9Q
8ggK6JoeIC6VSntoymVMCp7WFdrbhz3y3zH/zx+I/6JQKGxhV4NE8AHqBiR+j2kN4g6wOzzo+GchznaO
6S5Ipf4AS9JpZnDMydwAAAAASUVORK5CYII=
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALBSURBVEhLpVY9iBNBFA6ihY0WilqJ1SlR7iebYHOYRrGx
ELTxB+0SJcnuzGxQCyFooZUIniBidXiHnGSzmxNtxcZrLLzTwuLgGrGxUeFOOGPW903exDG5xJD74DHv
ffPe997MbCAJg5RXPcmuRkaGfjI/84v4q0wND8etzjgiiB0VzSEel8FYRkUxuKQIGjppM5goPPsBwY0s
LaMnnDY8jrr1vZgWglhTpeBj2xfBFKdtDqbBeGkuqePrz3eCa/FhKVt5vVUnDgPHnd8P8SMqWmNKg97k
PXhjaREd563B4cgw/3fSKE65tVPgM6J+uMWHcVrV6arCeMKPjmHPd92MECJWSsW03gLXEzTlit0Aa1LM
rrb8MM54wcusejo9KWbvZNXj3aiRnpe3GrzQQr3gqPoJfXxVm6Zv/yH8VkzvoaIl5FxTxYaU8o0uIJBw
BHFYsVj8yjT4c+Aod4ypbuA3gFOgQUZUXylRXFVKxlJPLBtYMX0+n/8NMfh8mgXLjz3PO8iS3cCPCw0c
L1y4Im5c9qmBLUgTNk2Mlbim5aPBZ5baGKOqNjLqB3s4TJDgopnMiJgYq9W8ibhQKOzi0sGAK4JAh02R
2D1a1zv4mMv6Q0r3IgncJ1tEkTXleqVS2cJpGq7rfjM5OAH5b+kNBPGTnNINFPSwru+euEJHTts4pRvY
xDQ8kX2CMqe0QdNeMjlWnjZO6QY97BkqvEvHXLIb0AN+4ZQ2SOiTyYEoroxsnupvckpv4L5RbBuJLPu+
f5b80zTIh8592mt/gQOBJvmJyVBspjQx1o5r+c5lg4EK6kbYrMbs2PhoQqe6zeX9USqVdqDQsrWOuKdR
k+0s0x+UPIICuqZHiMvl8j6achmTgqd1hfYOYI/8d8z/8wfiv8jlctvY1SAR/AB1AxJ/wLQGcYfYHR50
/PMQZ7vA9AZIJP4Ap6NoKkQX6Q4AAAAASUVORK5CYII=
</value>
</data>
<data name="btnMouseMode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAG/SURBVEhLnZM9LwRRGIU38VVp/AG9dhtkZoTKD6CTUGlk
I8TujCgUhEYi4gdQriXB3I34KGhIiCyFWoKSjpAQrnvGu8nEPWtmPcmTm7nvPWd2Z3cytRgcLDU4fnnI
DVToFdR9Nlf88AKlF0pXGmt0bfYxxzmcl2gynRP7bU5BnaHot1unt9YexHnkpOJvzKfaYyUDi0d6fqMS
rWyOnFTUxptWLgvD57d3DbCyeaTJSxXH88NVGjTGYfNIk5cqjpNXFzRojMPmEHmp4jiT6okFYRw2h8hL
FcfLqU8WhHHYPNLkpcqmZ/a4kYaMfTNlfX37pF/MD4wV1+wclDqb7OhlEwvELayd0/2qPUaps6ne4KDy
8C/LF3fRTaTOhn0DPIrh5RPtr5/ruWJFL25eRSuusc8eldTZpHlEaZQ6m47ZUjML1KvU2fTn9lpYoF6l
zubnb1r8YqH0Fr+kjvPXm5zGxDfZCdQhC6YVeaniuH44xoJpRV6qON35ndauQD2ycJLIIS9VtXH93RFW
kCRyUpGM66sVVlJLnJdoetwgnMqOb7+xwqqY45xE6qd3ptzuBOGSKbsxvsa8wT7mcpSQyXwDtwi5IK1K
4ZIAAAAASUVORK5CYII=
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHBSURBVEhLnZM9LwRRGIU38VVp/AG9RqFBZkao/AA6CZVE
RISwM6JQEBqJiB9AsQVLgrkb8VHQkBBZCrUEJR0hIVz3jHeTiXvWzHqSJzdz33vO7M7uZMrR25uvcvxC
nxuo0Muq++ah3IcXKD2fv9JYo2uzjznO4bxEk2kd229wsuoMRb/dOr219iDOIycVf2M+1R4r6Vk40nMb
xWhlc+SkojzelHJZGD6/vWuAlc0jTV6qOJ4frtCgMQ6bR5q8VHGcSXVBg8Y4bA6RlyqOM66eWBDGYXOI
vFRxvCH1yYIwDptHmrxU2XTMHFfTkLFruqCvb5/0i/mBseKanYNSZ9MyeFnDAnGzq+d0v2SHUepsSjc4
KD78y8LFXXQTqbNh3wCPon/pRPtr53p2vagXNq+iFdfYZ49K6mzSPKI0Sp1N00y+lgUqVepsukf26lig
UqXO5udvmvtiofTmvqSO89ebnMbEN9kJ1CELphV5qeK4fjjMgmlFXqo47ZM79W2BemThJJFDXqrK4/q7
A6wgSeSkIhnXV8uspJw4L9H0uEE40Ty6/cYKS2KOcxKpnM7pQqMThIum7Mb4GvMG+5jLUUIm8w2RObjw
JX2JXAAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnFirstPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGjSURBVEhLxVQ7S8RAEF7Uq0VRLO1tr1BINgHxD4iciiJ2
V/tKdg+RIIhoqZ2VvShedg8RLPwDoqCo/0Hw2frM5Ca67OXO5LjoB0Mm8/i+nSFZkgWGS34fuq0FEFMm
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGjSURBVEhLxVQ7S8RAEF7Uq0VRLO1tr1BINgHxD6gERRG7
q31ddg+RIIhoob2VvShedg8RLPwDoqCo/0Hw2frM5Ca67OXO5LjoB0Mm8/i+nSFZkgWGS34fuq0FEFMm
Nql78IwhQiwuP1Xrn919xVRi2Auih3KxYXDxFPFgihDKtj7AIAjPNAJm6ajXZGI96H3RebCkOQEgpkyu
DTLxqPaqPpamW5HJK11AbM3tP+h9umFLsgmG5o+7qeuvGqy6Y7W+no+tjQXCE3O5Qpl/r9clFoCAapGA
xcWytVi+0/NJLSQH1JxiXLzDjmvi2rsaj/ORPkagga++/1aP9H8gAIEsDOn/YYIBLt+CO+VSj6c1pI//
D0bYSafB5KjhiHOLb3+fXq2LnvV8pI8XwBQpFPbag+t3LPjRLvS6xAIQUC3uqrC90w6bVwppVoetjSeo
gee1Bff+hLEEQj+ri3pVHztSCiBgItOVk6ZbvlJ7VR9Lk62oHvLFs5zliimD+zc6D5Y0N4GO8GNw5DR1
xXW0Oky1FvniTs7mYsZ0Dm8xlA1gdVWPkC/kLzShX9EmngAAAABJRU5ErkJggg==
xcWytVi+0/NJLSQH1JxiTLzDjmvi2rsaj/ORPkagga++/1aP9H8gAIEsDOn/YYIBLt+CO+VSj6c1pI//
D0bYSafB5KhRFOcW3/4+vVoXPev5SB8vgCniOHvtwfU7HvxoF3pdYgEIqBZ3VdjeaYfNK06a1WFr4wlq
4Hltwb0/YSyB0M/qol7Vx46UAgiYyHTlpOmWr9Re1cfSZCuqh3zhLGe5Ysrg/o3OgyXNTaAj/BiKcpq6
4jpaHaZai3xhJ2dzMWMWD28xlA1gdVWPkC8ZoDJ5AYCZmAAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnPreviousPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHLSURBVEhLY6AZqK9ngrKoC4zTzrDalG0OsS3bdAIqRB1g
X7+fw7Z8U4pdxeYbQPwfhKFSlAH7/PUCduWbyy1KNz2zLZ/4D2QwiAZhqBLygFPVZmmgizttija9QTaU
YgtsKraq2ZVtnm5ZsfYLLChwYagWYsB/RqvSDSY25ZtWalVs/oPuUlxsqGY8AJjU7Cu2uNiWb9hjG7bp
L7IBFFkQGrqK2bZiU7hN6eZTduGb/4I0kYOhxiGAa/FObmD6Tbcr3XgTm4uQ+cjiuNhQYxkYLAp3CAFT
RCkQP8WnAZmPSw0yG2y4bfnGBtuCNe+I0YDMJ0Y92AK7ii1p1hWb79tVTAJLUhODLQABj9xt7PYVm2Jt
yjZcxuciZD4uNchsqPEIACxPWGwqNwUAM9IRkEJKMdRY7MCudIOjdfnGHfLx83/DXITsQhiNjw01Cj+w
K99gaFO2cYVt1qafyAZQzQIYABYV6rblm6fq56//DjKEGAzVShqwrdouCSpF7So2vsXmamQ2VAt5wKZi
i6Bt2cZKUD1AEwtgAFS8gPKSXcmGuyDDkTFUCXUAKInblm6OBtZuZ6nqAwwALOKBrveyLt10ECpCK/Cf
kYGBgQEAkPePYFdkTIgAAAAASUVORK5CYII=
X7+fw7Z8U4pdxeYbQPwfhKFSlAH7/PUCduWbyy1KNz2zLe/9BzIYRIMwVAl5wKlqszTQxZ02RZveIBtK
sQU2FVvV7Mo2T7esWPsFFhS4MFQLMeA/o1XpBhOb8k0rtSo2/0F3KS42VDMeAExq9hVbXGzLN+yxDdr0
F9kAiiwIDV3FbFuxKdymdPMpu+DNf0GayMFQ4xDAtXgnNzD9ptuVbryJzUXIfGRxXGyosQwMFoU7hIAp
ohSIn+LTgMzHpQaZDTbctnxjg23BmnfEaEDmE6MebIFdxZY064rN9+0q+sCS1MRgC0DAI3cbu33Fplib
sg2X8bkImY9LDTIbajwCAMsTFpvKTQHAjHQEpJBSDDUWO7Ar3eBoXb5xh3z8/N8wFyG7EEbjY0ONwg/s
yjcY2pRtXGGbteknsgFUswAGgEWFum355qn6+eu/gwwhBkO1kgZsq7ZLgkpRu4qNb7G5GpkN1UIesKnY
ImhbtrESVA/QxAIYABUvoLxkV7LhLshwZAxVQh0ASuK2pZujgbXbWar6AAMAi3ig672sSzcdhIrQCvxn
ZGBgYAAA+IeNtEQs0ocAAAAASUVORK5CYII=
</value>
</data>
<data name="btnNextPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHCSURBVEhLYwCD+nomCINGwLZs0wmbss0hxmlnWKFC1AV2
FZv/Q/EN2/JNKfb1+zmgUtQBtuUT/4EwyBIQbVG66Zld+eZy+/z1AlAllAF0C2Bsm6JNb4A+6nSq2iwN
VUoegAYPTmxZsfaLXdnm6TYVW9WgWkgDuHyAztaq2PzHpnzTSqvSDSYMDP8ZodoJA3yGIrPhYmGb/tqW
b9hjX7HFhagkDtJIFg7f/NemdPMp24pN4aGhq5ihxmECdJfiYiOLofPtSjfeBOandNfindxQYxEAqwZS
LYCzNz0F4lKLwh1CUOOpbQGUXbDmnW35xgawBSAB6uJJ/6wrNt+3q9iSBrYApyvQ2Mhi6HwY26Zsw2X7
ik2xHrnb2MGGgwBIkmJctvmITeWmAGA5xgI1FgHwuQiZjSwGwvLx839bl2/cYVe6wRFqFHYA00C0BVmb
ftqUbVxhV77BEGoEfgDSSAzWz1//3bZ881RgUaEO1UocQHcpJnvjW1Cpalu1XRKqhTSA3dDN/0H1gm3Z
xkqbii2CUKXkAZBhKLhkw11QGsaa7ckBcFeXbz5rW7o5GmtSowRYl246CHS5Fw1bFyRUHiQBBgYAAr+P
YJgx9a0AAAAASUVORK5CYII=
FZv/Q/EN2/JNKfb1+zmgUtQBtuW9/0AYZAmItijd9MyufHO5ff56AagSygC6BTC2TdGmN0AfdTpVbZaG
KiUPQIMHJ7asWPvFrmzzdJuKrWpQLaQBXD5AZ2tVbP5jU75ppVXpBhMGhv+MUO2EAT5DkdlwsaBNf23L
N+yxr9jiQlQSB2kkCwdv/mtTuvmUbcWm8NDQVcxQ4zABuktxsZHF0Pl2pRtvAvNTumvxTm6osQiAVQOp
FsDZm54CcalF4Q4hqPHUtgDKLljzzrZ8YwPYApAAdXHfP+uKzfftKrakgS3A6Qo0NrIYOh/GtinbcNm+
YlOsR+42drDhIACSpBiXbT5iU7kpAFiOsUCNRQB8LkJmI4uBsHz8/N/W5Rt32JVucIQahR3ANBBtQdam
nzZlG1fYlW8whBqBH4A0EoP189d/ty3fPBVYVKhDtRIH0F2Kyd74FlSq2lZtl4RqIQ1gN3Tzf1C9YFu2
sdKmYosgVCl5AGQYCi7ZcBeUhrFme3IA3NXlm8/alm6OxprUKAHWpZsOAl3uRcPWBQmVB0mAgQEAOL+N
tDkCuiEAAAAASUVORK5CYII=
</value>
</data>
<data name="btnLastPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFxSURBVEhLY4ABp8qN4lAmbYBt2dqPtuWbOmlmkV3F5v8g
bF2x6YNtxaYO+6JNIlApooF8/PzfMHNgGCoF9EH5xH8gARANZX+yKd/UZlO5TRSqhCAAWYBuDlQKqwVg
tnn5pve25ZtbiLEIrwUgQby4YM07sEUVWwShWjAAqUGEwQbR1uXAOCrb2GhRuEMIqhUOyAoiZDaymG35
xre2FZtrkX1EWRDhwsUbXtlVbKoGmUGVIIKJofPBcRS26S+6ONR4KliAgw01ng4WgARpgaHGDwEfAMuw
S1oVm/+gi0ONJ9cHk/5Zl246Z12+OdClfDc/tTPaeWDxHhwauooZagR1MhooKOwrtoTa1+9ngWqFAwoy
GjAoSjZdAtYT4Qz19UxQLRiArCCyKdtw2aZscwQ2F6MDkoLIumLjNbuyTVHGaWdYoUoIAiKCaNI/27JN
V21LN0cjRx6xAK8PbErXX7ev2BRrnDaTaBeTBEgJCuIBAwMAXxU0oaPR8ToAAAAASUVORK5CYII=
bF2x6YNtxaYO+6JNIlApooF8/PzfMHNgGCoF9EF57z+QAIiGsj/ZlG9qs6ncJgpVQhCALEA3ByqF1QIw
27x803vb8s0txFiE1wKQIF5csOYd2KKKLYJQLRiA1CDCYINo63JgHJVtbLQo3CEE1QoHZAURMhtZzLZ8
41vbis21yD6iLIhw4eINr+wqNlWDzKBKEMHE0PngOAra9BddHGo8FSzAwYYaTwcLQIK0wFDjh4APgGXY
Ja2KzX/QxaHGk+uDvn/WpZvOWZdvDnQp381P7Yx2Hli8B4eGrmKGGkGdjAYKCvuKLaH29ftZoFrhgIKM
BgyKkk2XgPVEOEN9PRNUCwYgK4hsyjZctinbHIHNxeiApCCyrth4za5sU5Rx2hlWqBKCgIgg6vtnW7bp
qm3p5mjkyCMW4PWBTen66/YVm2KN02YS7WKSAClBQTxgYAAAoRcyeTnPBtoAAAAASUVORK5CYII=
</value>
</data>
<data name="btnZoomOut.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMISURBVEhLtVXfS5NRGA6KLuqiKCSCqIsi6Da69qL+Bm/C
IerUObWJ20DL7bOEwLAwKbFQK60M6qIfhBJlSRAIZhSmkDXWzMhtbtNJLVvf6Xn3vefzfE5Rix54fc+P
5zzP+x79jhtWgtPp3FdaWuotKSl5jDxRVlYWxvgT4gnm9Xa7/SBT14fCwsIcCFy12WwpiOoUDodDqJlj
AXELRnv46OqA8BGIfCahtUZRUdE08lGWWBlo/TCqmZUV0mHO85p2Nnj+UttkU1PLV5ov5eTn56dQ3DGW
ykZxcfEOEAPyAEVlZWX0xeDgt+jMjC4UJBKz+uj7MeHxeH6ofEQYJntZ0goQW4gsw+v1fpmamkqTYDKZ
tBjIeSwW09vb23+r5xB3WHIRVVVVOXDPtE2kioqKRCgUSpPQahGPx3VN08zrKigo+FVeXn6IpQ1gw84t
Zkj3+/rDdDhTLqCOCXIu84eJj2YHpIFr0ljaABa6JQHuP+eS8xbR1Qx0/Gw4fcY0gd4zljaAxVeyg5qa
uigdzK19KHJrHyEoq2N1zZgTv+vGTbMDxCRLG4DjW2mA+4xSVdliKxsQeu89UA3iLG0AGy+lQd3JU3N/
00Hn9W7TAN9TiKUNYKODNinw/qQTs3OWe1fHBDmXWccvwefXMuc5nrK0ASwclx0Qoa+/f10GY+Pjpjhp
4MrrWdoAFrZhc0aSqqur04FAYE0GqVRKNDY2mgaIBdzCAZZeBJz9sgPKPp9PDwaDy35cMiKRiN7a2mpW
zrmHJa1AF1vor0mSKdxutxgYeC6mwxFLBzF8vcOvR4Tf7zfFpQF+wUN4CXayrBXY3A8SvZZqy+KEyyWa
zjWLy1c6RPOFi8Lt8dAHaeGogUKH6fFkWSvIhDqRFanVyZBry3HkGDoj9I+LZa3A274VpAYQYksPqyKo
8jtyG8TuLt3j8RtwdrFsNlwu13YQbSB2IdNzMoo8hA57MXZCeDfx8vLyNmP9NokuE+8yYv8KmGyEaQ8i
67qY8u/AO7YJ3V37bwYENulcvCKH+ANdhjEQZi0cZwAAAABJRU5ErkJggg==
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMHSURBVEhLtVXfS5NRGA6KLuqiKCSCqIsi6Da69qL+Bm/S
EHXqnNrEOdBy+ywhMCxMSizUSiuDuugHoURZEgSCGYUpzDValtPP2dSklq3v9Lz73vN5PqeoSQ+8e8+P
5zzPec92zjYsB5fLta+goMCbn5//BHmksLBQR/sj4in61Q6H4yBT14acnJw0CFzLzMyMQ9SgcDqdQs0c
84jbMNrDS1cGhI9AJExCq43c3NwJ5KMssTxQ+mHsZkbukBZzntO0c58uXG4aratrGKP+Yg5Vi80dY6lU
5OXl7QAxJBdQlJSURF/29o6PT0wYQkE0OmUMfhgSZWVlP1U+QofJXpa0A8QGIsvwer1fwuFwggRjsZjN
QPZ1XTeam5v/qOsQd1lyAaWlpWlwT5ZNpOLi4ulQKJQgoZVicnLS0DTNOq7s7OzfRUVFh1jaBCYcXGKS
9KCrW6fFye0Capsg+zIHRoJWBaSBY9JY2gQG2iUB7r9mv8/ZRFcyMPBZc+asZQK95yxtAoOvZQXl5VVR
Wphe+UikVz5GUFbb6pjZJ37bzVtWBYhRljYBx3fSAOcZpV2lii1vQOi8/1A1iLG0CUy8kgZVp07P/ksF
rTfaLQPcp88sbQITLTRJgfcnMT0zazt3tU2QfZkNfAk+v5Zcz/GMpU1g4LisgAhd3d1rMhgaHrbESQNH
Xs3SJjCwDZNTkoQbmggEAqsyiMfjora21jJAzOMUDrD0AuDslxVQ9vl8RjAYXPJyyYhEIkZjY6O1c84d
LGkHqthCvyZJpvB4PKKn54X4OhaxVaDj9va/GRB+v98Slwb4gvvwEuxkWTswuR8kei3VksVJt1vUna8X
V662iPqLl4SnooIupI2jBjbaT48ny9pBJlSJ3JG6OxlybCmObENngP64WNaOrKysrSDVgPBt8WJVBLv8
gdwEsXuL57j9FpxdLJsKt9u9HcQTILYh03MyiNyHCjvRdkF4N/EyMjI2Y/wOiS4R75Ni6wVMNsK0A5Fy
XExZP/CObUJ11/+bAYFNWheOyCn+AiN8Lour/FuLAAAAAElFTkSuQmCC
</value>
</data>
<data name="btnZoomIn.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMMSURBVEhLtZXLa1NREMYFxYUuFKWIILpQBLfiWkG76D/Q
ja2UpkmaJsSEUttIqnFloYrtomlR6gOrVtCNilikjQuxUqgVpbZgVVBBMKF5tU3Sm8fxm5w53pubxFfx
g+Gce87Mb2bu49x11eR0OvfY7fZTNpvtMcaF1tbWMOYfYU9x3W21Wvez69+pubm5BoArDQ0NGUALZA6H
QxhHNg12G4l2cejvBfAhQD4T6E/NYrF8x3iUEdWF1g+imoSqkIJpPOnxaD09PbHhG7fE+f6BRY/Hkzb7
ULco7hijytXS0rINjp9UAFl7e3vqxeRLkVldFUblcnkx+25OdHV1xYz+sDCS7GZkqeDYT87KAoGAFo/H
GSnEYd+jn6akaZoIBoMpYxzsLiN1ud3uGmRfpirIyev1ZqLRKGOkJPyhOHJaT0DKZrPC5/MtqtimpqZs
W1vbAUZLYcPKLRadxidCHK6rWgLS+4UPora2Nk+xxMBtCjBaCgs3aZPM5XLlkkvLHKqr0i1SKhSE6Ozs
TCgGeBOMlsLipOoAD3aFgqhaVXXp3Lgmr0mDQ0NhgjPnK6OlkPGNSnDh4qViQDns1wlG7z8oVs+cGKOl
sPFcJfB3n0n9S4IBQwf4nr4wWgobw7RJVldXl48nksUgoyRYmlkFPISOjo4lxYCNM1oKC8dVB+TwZGyM
Q3Wpyiu9RXPz8+a3qJvRUljYgs1FciDDKboaDoc5XKpaB5lMRvj9/riKhWmI38doXch8VnVAI30wkUiE
MZU7SKfToq+vz3wujTCyVOhiE71NKgEZdRIKPRMrqTQjpTR8vdOvZugsShr9aY4HPIVvaTtjS4XNvXD6
Ro5Go25wNiWDl4dxRvXGPThKsF4EVjIUOk2HJ2NLRUmoE1WRsTrzmvnaOAdnhn5cjC1VY2PjZjidg0PU
HGyEoMoUxkHA7pn3eP4aPjsYWy78WLbC8QQcr2Gk42QW4xQ6HMXcCfBO8quvr9+I9TsErWBvi7C1CknW
I+kIrOx2scvahRdhA7q7/t8SkDjJVf0WOcQP/v4QiRXulcEAAAAASUVORK5CYII=
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMLSURBVEhLtZXfS5NhFMeDoou6KAqJIOqiCLqNrkvKf2E3
acjm1LmxJmK62GpdJVg0L5xS2A+yMqibikhC10VkCGYUppAVVBA0cb/U/Xjn9vQ9e87T++7d1i/pC4fn
eZ/nnM855/3xvOuqyel07mlpaTnV3Nz8GON8a2trBPOPsKe49tvt9v3s+neyWq01AFypr6/PAFogczgc
wjiyabDbSLSLQ38vgA8B8plAf2o2m+07xqOMqC60fhDVJFSFFEzjSY9H6+npiQ3duCXO9/UvejyetNmH
ukVxxxhVrqampm1w/KQCyDo6OlIvJl6KTDYrjFpdzYuZd7Oiu7s7ZvSHRZBkNyNLBcc+clYWCAS0eDzO
SCEOex/9NCVN00QoFEoZ42B3GanL7XbXIPsyVUFO7e3tmWg0yhgpCX8ojpzWE5ByuZzwer2LKraxsTHX
1tZ2gNFS2LBzi0WnsfEwh+uqloD0fv6DqK2tzVMsMXCbAoyWwsJN2iRzuVyryaVlDtVV6RYpFQpCdHV1
JRQDvHFGS2FxQnWAB7tCQVStqrp0blyT16SBwcEIwZnzldFSyPhGJbhw8VIxoBz26wQj9x8Uq2dOjNFS
2HiuEvj8Z1L/kqDf0AG+py+MlsLGEG2S1dXV5eOJZDHIKAmWZlYBD6Gzs3NJMWBjjJbCwnHVATk8GR3l
UF2q8kpv0ezcnPkt8jNaCgtbsLlIDmQ4RbORSITDpap1kMlkhM/ni6tYmIb4fYzWhcxnVQc00gezsLDA
mModpNNpEQwGzefSMCNLhS420dukEpBRJ+HwM7GSSjNSSsPXO/Vqms6ipNGf5njAk/iWtjO2VNjcC6dv
5Gg06gZnUzJ0eQhnVG/cg6ME60VgJUOhU3R4MrZUlIQ6URUZqzOvma+Nc3Cm6cfF2FI1NDRshtM5OETN
wUYIqkxhHADsnnmP56/hs4Ox5cKPZSscT8DxGkY6TmYwTqLDEcydAO8kP4vFshHrdwhawd4WYWsVkqxH
0mFY2e1il7ULL8IGdHf9vyUgcZKr+i1yiB9QVhBlbWU40wAAAABJRU5ErkJggg==
</value>
</data>
<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">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKdSURBVEhLtVZbaxNBGN1nRe2TIuifaGigyc4uatUHQamC
CEofBaFQTbI7m6oE1IpYQ1+q1jfFS0o07s7MGlHwRhFFHwJV0uqDN9SqqKjBGya7zmwmYRv30gY8cMi3
s+c73zeTnZ0VggD26itFiPdIGjYBNF5IGvkG1MLXboif0XEENNIPBgvLuXzukNXiCgni01GY+wVgzqLG
tvu3wfo1/iFCNLY6jZbx9GBIkPSKCfKRJbeyZ98Vew2l172Yps8ADa/jNt6QVbKrE+Jqa7cNE3cBLw3o
x7+BQrZzu9mQFGNjRCOOuVdyVp+0q7Wa/adasw/nS94FWEyLSGlzFbetg62flDQ+MJEf7069sxksy7Kv
l157appUySs5o3dwe0EQVXTStyMen7nxtFlg1HzsP4NGrOIjjnl3srAUJHLfwxJkyr6RW/aO7E2nyzA9
2H3pcw/MLxEkzdzJBv4HRZVsE+h6jft24YqPXXxosSWqVCrWwfP3QvVOrOJTQlzDk4EiHmddBQ5duB+q
d+KUMUEfT/w2UMTjdgqIij5F/wPyhg2Ecexqmfk7GEGPPDWtjGuoLACISkFdNOK2lggat+kM8Fk2EMZ2
ZkA5yl5ufcFd1OP2ZoA2CWxLxyH+4i+qx/MtEIP6TCSDFzi7mc5imA0Gcd5LBMmgY84gD+gdIHH5Jbvh
19Fw/kFzBgfOhW606Wb3DYgKlqPauHOCeSTYvRndOlEs20dpoQ2Zgm+BrhSuiJoZ4bazQY+/LZEB/ScT
t8OuFKkAlazndt4Q0ygeT+LnLKG1O/dY6zWNp4GCO7lNMKKZ4mJ6vg7Rx+yT28i7AH4PVLT/nzWfC2KK
sUhS0Vb2VqSfKBOSgp6wTunmvAMgOU6Pxs1rk9cWcrkHBOEvPJeW3gGqnWsAAAAASUVORK5CYII=
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKeSURBVEhLtVZbaxNBGN1nRe2TIuhfsGBpoMnOLmrVB0Gp
gghKHwVFqCbZnU1V1hdrRUpfqta31nitxt2ZiREFb8TLY6BKWn3whloVNWrxhsmuM5tJ2Ma9tAEPHPLt
7PnO981kZ2eFIID9xnIR4n2ShrMAmi8kjXwDauZrB8TP6DgCGtkDejNLuXz2kNXcMgnikQhM/wIwbVFj
2/1bY/Ua/xAhGl6dQkt4ejAkSLrEOPnIkhvZeeCqvYbS615UM6aAhtdxG2/IKtm1AuJyY7c1E3cBLw3Y
jX8DhWzndjMhKebGVo045l7JA8a4Xa5U7D/lit03VvAuwGJaREplV3HbKtj6SQnzAxP58f7EO5vBsiz7
RuG1p6ZOlbySdaOF2wuCqKKTvh3xePTm03qBoexj/xnUYhX3O+YdicxiED/7PSxBpuwevG3vGLjldBmm
B3svf+6EY4sEScvuZAP/g6JKtgl0vS74duGK+88/tNgSlUolSx/Nh+qdWMWnhJiGxwNFPD7qKnDo9L1Q
vRMnzTx9PPHbQBGPmykgKsYE/Q/IGzYQxuFrRebvYBA98tQ0MqahogAgKgR1UYubWiJo3qEzwGk2EMZm
ZkA5xF5u3cFdVOPmZoA2CWxLxyD+4i+qxnMtEIXGVJuO5zm7mc7iGBsM4pyXCJJex5xB7jFaQPzKS3bD
r6Mj5x7UZ6CPhG60yXr3NYgKliPaGecE80iwu/RL1olc0e6jhTboF30LtCfxtKhl27jtTNDjb0trj/GT
iZthe5JMA5Ws53beEFMoFkvg5yyhsTv3WOM1jSeBgldym2BE9NxCer4epo/ZJ7eRdwH8Hqjo4D9rPhtE
FXOBpKKt7K1IP1HykoKesE7p5rwLIDlOj8bNaxPX53O5BwThL/s9k4krRj1IAAAAAElFTkSuQmCC
</value>
</data>
<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
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()
CurrSearch2Load = Nothing
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
Sub CreateTiles()
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 oGroup = TileControl1.Groups.Item("TileGroupProfiles")
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
Dim WhiteBackground As Color = System.Drawing.Color.FromArgb(230, Color.White)
' Datatable laden
'GridControl1.DataSource = CurrDT_PROFILE_MATCH
GridControl1.DataSource = CurrDT_PROFILE_MATCH
'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
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
' TileView1.TileTemplate.Add(ImageColumn)
'For Each oProfileColumn As DataColumn In CurrDT_PROFILE_MATCH.Columns
' Dim index As Integer = CurrDT_PROFILE_MATCH.Columns.IndexOf(oProfileColumn)
@ -147,27 +142,27 @@ Public Class frmProfileMatch
End Sub
'Private Sub TileView1_ItemClick(sender As Object, e As TileViewItemClickEventArgs)
' Dim oPROFILE_ID = TileView1.GetFocusedRowCellValue(TileView1.Columns("GUID"))
' CurrSearch2Load = oPROFILE_ID
' Dim view As TileView = TryCast(sender, TileView)
' Dim pt As Point = view.GridControl.PointToClient(Control.MousePosition)
' Dim hitInfo As TileViewHitInfo = view.CalcHitInfo(pt)
' If hitInfo.ItemInfo IsNot Nothing Then
' Dim elementInfo As TileItemElementViewInfo = hitInfo.ItemInfo.Elements.FirstOrDefault(Function(t) t.EntireElementBounds.Contains(pt))
' If elementInfo IsNot Nothing Then
' Dim text As String = elementInfo.Element.Text
' End If
' End If
' OpenResults_Doc()
'End Sub
Private Sub TileView1_ItemClick(sender As Object, e As TileViewItemClickEventArgs) Handles TileView1.ItemClick
Dim oPROFILE_ID = TileView1.GetFocusedRowCellValue(TileView1.Columns("GUID"))
CurrSearch2Load = oPROFILE_ID
Dim view As TileView = TryCast(sender, TileView)
Dim pt As Point = view.GridControl.PointToClient(Control.MousePosition)
Dim hitInfo As TileViewHitInfo = view.CalcHitInfo(pt)
If hitInfo.ItemInfo IsNot Nothing Then
Dim elementInfo As TileItemElementViewInfo = hitInfo.ItemInfo.Elements.FirstOrDefault(Function(t) t.EntireElementBounds.Contains(pt))
If elementInfo IsNot Nothing Then
Dim text As String = elementInfo.Element.Text
End If
End If
OpenResults_Doc
End Sub
Sub OpenResults_Doc()
Me.Hide()
Dim ofrmresult As Form = New frmResultDoc
ofrmresult.ShowDialog()
Me.Show()
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 = ""
For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows
If oResult = "" Then
@ -181,28 +176,15 @@ Public Class frmProfileMatch
End Sub
Private Sub TileControl1_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControl1.ItemClick
Dim oItem As TileItem = e.Item
Dim oProfileId = oItem.Tag
If oProfileId Is Nothing Then
Dim oResult As String = ""
For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows
If oResult = "" Then
oResult = oRow.Item("GUID")
Else
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()
Private Sub frmProfileMatch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
' Position und Größe speichern
My.Settings.frmProfileMatchSize = Me.Size
My.Settings.frmProfileMatchPosition = Me.Location
My.Settings.Save()
Catch ex As Exception
Logger.Error(ex)
Logger.Info("Error in Save FormLayout: " & ex.Message)
End Try
End Sub
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.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.OrdnerÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
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.Name = "ÖffnenToolStripMenuItem"
Me.ÖffnenToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
Me.ÖffnenToolStripMenuItem.Size = New System.Drawing.Size(180, 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.Size = New System.Drawing.Size(180, 22)
Me.EigenschaftenToolStripMenuItem.Text = "Eigenschaften"
'
'XtraTabControlDocs
@ -214,8 +215,6 @@ Partial Class frmResultDoc
Me.GridViewDocSearch2.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceFocusedCell = 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.ShowAutoFilterRow = True
'
@ -253,8 +252,6 @@ Partial Class frmResultDoc
Me.GridViewDocSearch3.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceFocusedCell = 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.ShowAutoFilterRow = True
'
@ -292,8 +289,6 @@ Partial Class frmResultDoc
Me.GridViewDocSearch4.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceFocusedCell = 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.ShowAutoFilterRow = True
'
@ -331,16 +326,14 @@ Partial Class frmResultDoc
Me.GridViewDocSearch5.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceFocusedCell = 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.ShowAutoFilterRow = True
'
'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.Size = New System.Drawing.Size(182, 98)
Me.ContextMenuStripWMFile.Size = New System.Drawing.Size(182, 142)
'
'EigenschaftenDateiToolStripMenuItem
'
@ -374,6 +367,13 @@ Partial Class frmResultDoc
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(181, 22)
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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@ -445,4 +445,5 @@ Partial Class frmResultDoc
Friend WithEvents ÖffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tslblState As ToolStripStatusLabel
Friend WithEvents OrdnerÖffnenToolStripMenuItem As ToolStripMenuItem
End Class

58
app/DD_Clipboard_Searcher/frmResultDoc.vb
View File

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