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

NewDocSearch

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2019-07-10 15:30:32 +02:00
parent 695525c13b
commit add17d703b
71 changed files with 23244 additions and 111 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
app/DD_Clipboard_Searcher/App.config
View File

@ -6,7 +6,9 @@
</sectionGroup>
</configSections>
<connectionStrings>
<add name="DD_Clipboard_Watcher.My.MySettings.DD_ECMConnectionString" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient"/>
<add name="DD_Clipboard_Watcher.My.MySettings.DD_ECMConnectionString"
connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
@ -16,6 +18,21 @@
<setting name="WDSearch_maximized" serializeAs="String">
<value>False</value>
</setting>
<setting name="frmResultSearchSplitterDistance" serializeAs="String">
<value>555</value>
</setting>
<setting name="frmResultDocSize" serializeAs="String">
<value>0, 0</value>
</setting>
<setting name="frmResultDocPosition" serializeAs="String">
<value>0, 0</value>
</setting>
<setting name="frmViewerPosition" serializeAs="String">
<value>0, 0</value>
</setting>
<setting name="frmViewerSize" serializeAs="String">
<value>0, 0</value>
</setting>
</DD_Clipboard_Watcher.My.MySettings>
</userSettings>
</configuration>

4
app/DD_Clipboard_Searcher/Class1.vb
View File

@ -25,8 +25,8 @@ Public Class ClipboardWatcher : Inherits NativeWindow : Implements IDisposable
Case WM_DRAWCLIPBOARD
clsWINDOWSApi.Get_ForegroundWindow_Info()
'Dim CapTxt As String = clsWINDOWSApi.GetCaption()
If IsNothing(PROC_Name) Then Exit Sub
If PROC_Name.StartsWith("DD_Clipboard_Watcher") Then Exit Sub
If IsNothing(CurrPROC_Name) Then Exit Sub
If CurrPROC_Name.StartsWith("DD_Clipboard_Watcher") Then Exit Sub
'Logger.Debug(String.Format(" >>{0} - Clipboard ChangedEvent for process '{1}' fired!", Now.ToString, PROC_Name), False)
' If CapTxt.ToUpper.StartsWith("DD") Then Exit Sub
RaiseEvent Changed(Me, EventArgs.Empty)

1
app/DD_Clipboard_Searcher/ClassInit.vb
View File

@ -113,6 +113,7 @@ Public Class ClassInit
USER_SHORTNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME"))
USER_EMAIL = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL"))
USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")

140
app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj
View File

@ -54,30 +54,13 @@
<Reference Include="DD_LIB_Standards">
<HintPath>..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Data.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Sparkline.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Data.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraPrinting.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference>
@ -88,10 +71,16 @@
<Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14">
<HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET\GdPicture.NET.14.dll</HintPath>
</Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.4.5.11\lib\net45\NLog.dll</HintPath>
</Reference>
<Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Configuration" />
@ -130,9 +119,17 @@
<Compile Include="ClassLayout.vb" />
<Compile Include="clsHotkey.vb" />
<Compile Include="clsLicense.vb" />
<Compile Include="clsPatterns.vb" />
<Compile Include="clsSearch.vb" />
<Compile Include="clsWindowApivb.vb" />
<Compile Include="clsWINDOWSApi.vb" />
<Compile Include="clsWMDocGrid.vb" />
<Compile Include="frmAbout.designer.vb">
<DependentUpon>frmAbout.vb</DependentUpon>
</Compile>
<Compile Include="frmAbout.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAdministration.Designer.vb">
<DependentUpon>frmAdministration.vb</DependentUpon>
</Compile>
@ -151,11 +148,35 @@
<Compile Include="frmLicense.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmMain.vb">
<Compile Include="frmDocView.designer.vb">
<DependentUpon>frmDocView.vb</DependentUpon>
</Compile>
<Compile Include="frmDocView.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmMain.Designer.vb">
<DependentUpon>frmMain.vb</DependentUpon>
<Compile Include="frmGdPictureOpen.designer.vb">
<DependentUpon>frmGdPictureOpen.vb</DependentUpon>
</Compile>
<Compile Include="frmGdPictureOpen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmPrint.designer.vb">
<DependentUpon>frmPrint.vb</DependentUpon>
</Compile>
<Compile Include="frmPrint.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSettings.designer.vb">
<DependentUpon>frmSettings.vb</DependentUpon>
</Compile>
<Compile Include="frmSettings.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmStart.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmStart.Designer.vb">
<DependentUpon>frmStart.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="frmConfig_Basic.Designer.vb">
@ -164,6 +185,18 @@
<Compile Include="frmConfig_Basic.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmProfileMatch.Designer.vb">
<DependentUpon>frmProfileMatch.vb</DependentUpon>
</Compile>
<Compile Include="frmProfileMatch.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmResultDoc.Designer.vb">
<DependentUpon>frmResultDoc.vb</DependentUpon>
</Compile>
<Compile Include="frmResultDoc.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSplash.Designer.vb">
<DependentUpon>frmSplash.vb</DependentUpon>
</Compile>
@ -194,6 +227,9 @@
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmAbout.resx">
<DependentUpon>frmAbout.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAdministration.resx">
<DependentUpon>frmAdministration.vb</DependentUpon>
<SubType>Designer</SubType>
@ -207,12 +243,30 @@
<EmbeddedResource Include="frmLicense.resx">
<DependentUpon>frmLicense.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMain.resx">
<DependentUpon>frmMain.vb</DependentUpon>
<EmbeddedResource Include="frmDocView.resx">
<DependentUpon>frmDocView.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmGdPictureOpen.resx">
<DependentUpon>frmGdPictureOpen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmPrint.resx">
<DependentUpon>frmPrint.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSettings.resx">
<DependentUpon>frmSettings.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmStart.resx">
<DependentUpon>frmStart.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmConfig_Basic.resx">
<DependentUpon>frmConfig_Basic.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmProfileMatch.resx">
<DependentUpon>frmProfileMatch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmResultDoc.resx">
<DependentUpon>frmResultDoc.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSplash.resx">
<DependentUpon>frmSplash.vb</DependentUpon>
</EmbeddedResource>
@ -269,6 +323,34 @@
<ItemGroup>
<Content Include="DD_Icons_ICO_CBWATCHER_48px.ico" />
<Content Include="KeyOutput_8167.ico" />
<None Include="Resources\cancel.png" />
<None Include="Resources\tiff.png" />
<None Include="Resources\jpg.png" />
<None Include="Resources\search.png" />
<None Include="Resources\door_open.png" />
<None Include="Resources\build_Selection_32xLG.png" />
<None Include="Resources\ID_SITE_PUBLISH_ALL.png" />
<None Include="Resources\StatusAnnotations_Alert_32xMD_color.png" />
<None Include="Resources\StatusAnnotations_Information_16xMD_color.png" />
<None Include="Resources\ID_FILE_PAGE_SETUP.png" />
<None Include="Resources\OpenFile.png" />
<None Include="Resources\properties_16xMD.png" />
<None Include="Resources\_blank.png" />
<None Include="Resources\email_go.png" />
<None Include="Resources\doc_excel_csv.png" />
<None Include="Resources\dwg.png" />
<None Include="Resources\pdf.png" />
<None Include="Resources\mp4.png" />
<None Include="Resources\mp3.png" />
<None Include="Resources\dxf.png" />
<None Include="Resources\doc.png" />
<None Include="Resources\xlsx.png" />
<None Include="Resources\xls.png" />
<None Include="Resources\txt.png" />
<None Include="Resources\sql.png" />
<None Include="Resources\rar.png" />
<None Include="Resources\ppt.png" />
<None Include="Resources\png.png" />
<None Include="Resources\refresh_16xLG.png" />
<None Include="Resources\Symbols_Stop_16xLG.png" />
<None Include="Resources\startwithoutdebugging_6556.png" />

2
app/DD_Clipboard_Searcher/My Project/Application.Designer.vb generated
View File

@ -32,7 +32,7 @@ Namespace My
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.DD_Clipboard_Watcher.frmMain
Me.MainForm = Global.DD_Clipboard_Watcher.frmStart
End Sub
End Class
End Namespace

4
app/DD_Clipboard_Searcher/My Project/Application.myapp
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="utf-16"?>
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>frmMain</MainForm>
<MainForm>frmStart</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>

280
app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb generated
View File

@ -60,6 +60,16 @@ Namespace My.Resources
End Set
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property _blank() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("_blank", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -80,6 +90,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property build_Selection_32xLG() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("build_Selection_32xLG", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property cancel() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("cancel", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -90,6 +120,66 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property doc() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("doc", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property doc_excel_csv() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("doc_excel_csv", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property door_open() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("door_open", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property dwg() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("dwg", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property dxf() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("dxf", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property email_go() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("email_go", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -110,6 +200,36 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property ID_FILE_PAGE_SETUP() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ID_FILE_PAGE_SETUP", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property ID_SITE_PUBLISH_ALL() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ID_SITE_PUBLISH_ALL", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property jpg() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("jpg", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -130,6 +250,86 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property mp3() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("mp3", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property mp4() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("mp4", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property OpenFile() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("OpenFile", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property pdf() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("pdf", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property png() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("png", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property ppt() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ppt", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property properties_16xMD() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("properties_16xMD", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property rar() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("rar", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -150,6 +350,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property search() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("search", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property sql() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("sql", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -160,6 +380,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property StatusAnnotations_Alert_32xMD_color() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("StatusAnnotations_Alert_32xMD_color", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property StatusAnnotations_Information_16xMD_color() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("StatusAnnotations_Information_16xMD_color", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -179,5 +419,45 @@ Namespace My.Resources
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property tiff() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("tiff", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property txt() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("txt", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property xls() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("xls", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property xlsx() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("xlsx", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

124
app/DD_Clipboard_Searcher/My Project/Resources.resx
View File

@ -118,29 +118,62 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="door_open" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\door_open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="tiff" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="doc" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="asterisk_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asterisk_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ReduceSize" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ReduceSize.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="GoToDefinition_5575" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\GoToDefinition_5575.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="startwithoutdebugging_6556" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\startwithoutdebugging_6556.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="KeyOutput_8167" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\KeyOutput_8167.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="StatusAnnotations_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Symbols_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Symbols_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="dxf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dxf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Annotation_New" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="jpg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\jpg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="GoToDefinition_5575" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\GoToDefinition_5575.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ppt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ID_SITE_PUBLISH_ALL" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ID_SITE_PUBLISH_ALL.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="doc_excel_csv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doc_excel_csv.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="StatusAnnotations_Alert_32xMD_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Alert_32xMD_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="control_start_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\txt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_blank" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="KeyDown_8461" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\KeyDown_8461.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -148,10 +181,61 @@
<data name="folder_Open_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="control_start_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="startwithoutdebugging_6556" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\startwithoutdebugging_6556.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="asterisk_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asterisk_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="KeyOutput_8167" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\KeyOutput_8167.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="rar" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\rar.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Annotation_New" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sql" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sql.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Symbols_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Symbols_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mp4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mp4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dwg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="OpenFile" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\OpenFile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="StatusAnnotations_Information_16xMD_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Information_16xMD_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="png" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\png.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mp3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mp3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="properties_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\properties_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="build_Selection_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\build_Selection_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="xlsx" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\xlsx.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ID_FILE_PAGE_SETUP" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

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

@ -76,6 +76,66 @@ Namespace My
Return CType(Me("DD_ECMConnectionString"),String)
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("555")> _
Public Property frmResultSearchSplitterDistance() As Integer
Get
Return CType(Me("frmResultSearchSplitterDistance"),Integer)
End Get
Set
Me("frmResultSearchSplitterDistance") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0, 0")> _
Public Property frmResultDocSize() As Global.System.Drawing.Size
Get
Return CType(Me("frmResultDocSize"),Global.System.Drawing.Size)
End Get
Set
Me("frmResultDocSize") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0, 0")> _
Public Property frmResultDocPosition() As Global.System.Drawing.Point
Get
Return CType(Me("frmResultDocPosition"),Global.System.Drawing.Point)
End Get
Set
Me("frmResultDocPosition") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0, 0")> _
Public Property frmViewerPosition() As Global.System.Drawing.Point
Get
Return CType(Me("frmViewerPosition"),Global.System.Drawing.Point)
End Get
Set
Me("frmViewerPosition") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0, 0")> _
Public Property frmViewerSize() As Global.System.Drawing.Size
Get
Return CType(Me("frmViewerSize"),Global.System.Drawing.Size)
End Get
Set
Me("frmViewerSize") = value
End Set
End Property
End Class
End Namespace

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

@ -13,5 +13,20 @@
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
</Setting>
<Setting Name="frmResultSearchSplitterDistance" Type="System.Int32" Scope="User">
<Value Profile="(Default)">555</Value>
</Setting>
<Setting Name="frmResultDocSize" Type="System.Drawing.Size" Scope="User">
<Value Profile="(Default)">0, 0</Value>
</Setting>
<Setting Name="frmResultDocPosition" Type="System.Drawing.Point" Scope="User">
<Value Profile="(Default)">0, 0</Value>
</Setting>
<Setting Name="frmViewerPosition" Type="System.Drawing.Point" Scope="User">
<Value Profile="(Default)">0, 0</Value>
</Setting>
<Setting Name="frmViewerSize" Type="System.Drawing.Size" Scope="User">
<Value Profile="(Default)">0, 0</Value>
</Setting>
</Settings>
</SettingsFile>

4
app/DD_Clipboard_Searcher/My Project/licenses.licx
View File

@ -0,0 +1,4 @@
DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

BIN
app/DD_Clipboard_Searcher/Resources/ID_FILE_PAGE_SETUP.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 269 B

BIN
app/DD_Clipboard_Searcher/Resources/ID_SITE_PUBLISH_ALL.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 336 B

BIN
app/DD_Clipboard_Searcher/Resources/OpenFile.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.1 KiB

BIN
app/DD_Clipboard_Searcher/Resources/StatusAnnotations_Alert_32xMD_color.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 334 B

BIN
app/DD_Clipboard_Searcher/Resources/StatusAnnotations_Information_16xMD_color.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 325 B

BIN
app/DD_Clipboard_Searcher/Resources/_blank.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 446 B

BIN
app/DD_Clipboard_Searcher/Resources/build_Selection_32xLG.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 442 B

BIN
app/DD_Clipboard_Searcher/Resources/cancel.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 713 B

BIN
app/DD_Clipboard_Searcher/Resources/doc.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.3 KiB

BIN
app/DD_Clipboard_Searcher/Resources/doc_excel_csv.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 601 B

BIN
app/DD_Clipboard_Searcher/Resources/door_open.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 508 B

BIN
app/DD_Clipboard_Searcher/Resources/dwg.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.4 KiB

BIN
app/DD_Clipboard_Searcher/Resources/dxf.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.4 KiB

BIN
app/DD_Clipboard_Searcher/Resources/email_go.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 754 B

BIN
app/DD_Clipboard_Searcher/Resources/jpg.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
app/DD_Clipboard_Searcher/Resources/mp3.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.3 KiB

BIN
app/DD_Clipboard_Searcher/Resources/mp4.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
app/DD_Clipboard_Searcher/Resources/pdf.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
app/DD_Clipboard_Searcher/Resources/png.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
app/DD_Clipboard_Searcher/Resources/ppt.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 942 B

BIN
app/DD_Clipboard_Searcher/Resources/properties_16xMD.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 352 B

BIN
app/DD_Clipboard_Searcher/Resources/rar.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
app/DD_Clipboard_Searcher/Resources/search.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.4 KiB

BIN
app/DD_Clipboard_Searcher/Resources/sql.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
app/DD_Clipboard_Searcher/Resources/tiff.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
app/DD_Clipboard_Searcher/Resources/txt.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 747 B

BIN
app/DD_Clipboard_Searcher/Resources/xls.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
app/DD_Clipboard_Searcher/Resources/xlsx.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 KiB

2
app/DD_Clipboard_Searcher/clsHotkey.vb
View File

@ -74,7 +74,7 @@ Public Class clsHotkey
End Class
Public Shared Sub Refresh_Profile_Links()
Try
Dim sql = String.Format("SELECT T.*, T2.PROC_NAME FROM TBCW_PROFILES T, TBCW_USER_PROFILE T1, TBCW_PROFILE_PROCESS T2 WHERE T.GUID = T1.PROFILE_ID AND T.GUID = T2.PROFILE_ID AND T1.USER_ID = {0} AND T.ACTIVE = 1", USER_ID)
Dim sql = String.Format("SELECT * FROM VWCW_USER_PROFILE WHERE USER_ID = {0}", USER_ID)
DT_USER_PROFILES = clsDatabase.Return_Datatable(sql)
If DT_USER_PROFILES.Rows.Count = 0 Then
MsgBox("No profiles configured for this user so far!", MsgBoxStyle.Exclamation)

321
app/DD_Clipboard_Searcher/clsPatterns.vb Normal file
View File

@ -0,0 +1,321 @@
Imports System.Text.RegularExpressions
Imports WINDREAMLib
''' <summary>
''' Defines common Functions for Checking for and replacing placeholders.
''' This Class also includes a child class `Pattern` for passing around Patterns.
'''
''' The format of all placeholders is:
''' {#TYPE#VALUE}
'''
''' Some Examples:
''' {#INT#USERNAME}
''' {#CTRL#CMB_2}
''' {#WMI#String 39}
''' </summary>
Public Class clsPatterns
' Complex patterns that rely on a datasource like a Database or Windream
Public Const PATTERN_WMI = "WMI"
Public Const PATTERN_CTRL = "CTRL"
' Simple patterns that only rely on .NET functions
Public Const PATTERN_INT = "INT"
' Simple patterns that rely on Data from the TBDD_USER table
Public Const PATTERN_USER = "USER"
Public Const USER_VALUE_PRENAME = "PRENAME"
Public Const USER_VALUE_SURNAME = "SURNAME"
Public Const USER_VALUE_EMAIL = "EMAIL"
Public Const USER_VALUE_SHORTNAME = "SHORTNAME"
Public Const USER_VALUE_USER_ID = "USER_ID"
Public Const USER_VALUE_PROFILE_ID = "PROFILE_ID"
Public Const INT_VALUE_USERNAME = "USERNAME"
Public Const INT_VALUE_MACHINE = "MACHINE"
Public Const INT_VALUE_DOMAIN = "DOMAIN"
Public Const INT_VALUE_DATE = "DATE"
Public Const MAX_TRY_COUNT = 100
Private Shared regex As Regex = New Regex("{#(\w+)#([\w\s_-]+)}+")
Private Shared allPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL, PATTERN_USER, PATTERN_INT}
Private Shared complexPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL}
Private Shared simplePatterns As New List(Of String) From {PATTERN_USER, PATTERN_INT}
''' <summary>
''' Wraps a pattern-type and -value in the common format: {#type#value}
''' </summary>
Public Shared Function WrapPatternValue(type As String, value As String) As String
Return New Pattern(type, value).ToString
End Function
Public Shared Function ReplaceAllValues(input As String, prename As Object, surname As Object, shortname As Object, email As Object, userId As Object, profileId As Object) As String
Try
Dim result = input
result = ReplaceInternalValues(result)
'result = ReplaceControlValues(result, Panel)
'If Not IsNothing(document) Then result = ReplaceWindreamIndicies(result, document)
result = ReplaceUserValues(result, prename, surname, shortname, email, userId, profileId)
Return result
Catch ex As Exception
Logger.Error(ex)
Logger.Info("Error in ReplaceAllValues:" & ex.Message)
End Try
End Function
Public Shared Function ReplaceInternalValues(input As String) As String
Try
Dim result = input
' Replace Clipboard
result = result.Replace("@Clipboard", CURR_MATCH_RESULT)
result = result.Replace("@CLIPBOARD", CURR_MATCH_RESULT)
result = result.Replace("@Zwischenablage", CURR_MATCH_RESULT)
result = result.Replace("123456789", CURR_MATCH_RESULT)
result = result.Replace("4711", CURR_MATCH_RESULT)
' Replace Username(s)
While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_USERNAME)
result = ReplacePattern(result, PATTERN_INT, Environment.UserName)
End While
' Replace Machinename(s)
While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_MACHINE)
result = ReplacePattern(result, PATTERN_INT, Environment.MachineName)
End While
' Replace Domainname(s)
While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_DOMAIN)
result = ReplacePattern(result, PATTERN_INT, Environment.UserDomainName)
End While
' Replace CurrentDate(s)
While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_DATE)
result = ReplacePattern(result, PATTERN_INT, Now.ToShortDateString)
End While
Return result
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error in ReplaceInternalValues:" & ex.Message)
End Try
End Function
Public Shared Function ReplaceUserValues(input As String, prename As Object, surname As Object, shortname As Object, email As Object, userId As Object, profileId As Object) As String
Try
Dim result = input
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PRENAME)
result = ReplacePattern(input, PATTERN_USER, prename)
End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_USER_ID)
result = ReplacePattern(input, PATTERN_USER, userId)
End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SURNAME)
result = ReplacePattern(input, PATTERN_USER, surname)
End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SHORTNAME)
result = ReplacePattern(input, PATTERN_USER, shortname)
End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_EMAIL)
result = ReplacePattern(input, PATTERN_USER, email)
End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PROFILE_ID)
result = ReplacePattern(input, PATTERN_USER, profileId)
End While
Return result
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error in ReplaceUserValues:" & ex.Message)
End Try
End Function
Public Shared Function ReplaceControlValues(input As String, panel As Panel) As String
Try
Dim result = input
Dim oTryCounter = 0
While ContainsPattern(result, PATTERN_CTRL)
If oTryCounter > MAX_TRY_COUNT Then
Throw New Exception("Max tries in ReplaceControlValues exceeded.")
End If
Dim controlName As String = GetNextPattern(result, PATTERN_CTRL).Value
Dim control As Control = panel.Controls.Find(controlName, False).FirstOrDefault()
If control IsNot Nothing Then
Dim value As String = control.Text
result = ReplacePattern(result, PATTERN_CTRL, value)
End If
oTryCounter += 1
End While
Return result
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error in ReplaceControlValues:" & ex.Message)
End Try
End Function
'Public Shared Function ReplaceWindreamIndicies(input As String, document As WMObject) As String
' Try
' Dim result = input
' While ContainsPattern(result, PATTERN_WMI)
' Dim indexName As String = GetNextPattern(result, PATTERN_WMI).Value
' Dim value = document.GetVariableValue(indexName)
' If value IsNot Nothing Then
' result = ReplacePattern(result, PATTERN_WMI, value)
' End If
' End While
' Return result
' Catch ex As Exception
' LOGGER.Error(ex)
' LOGGER.Info("Error in ReplaceWindreamIndicies:" & ex.Message)
' End Try
'End Function
Private Shared Function ContainsPattern(input As String, type As String) As String
Dim elements As MatchCollection = regex.Matches(input)
For Each element As Match In elements
Dim t As String = element.Groups(1).Value
If t = type Then
Return True
End If
Next
Return False
End Function
Public Shared Function GetNextPattern(input As String, type As String) As Pattern
Dim elements As MatchCollection = regex.Matches(input)
For Each element As Match In elements
' Pattern in input
Dim t As String = element.Groups(1).Value
Dim v As String = element.Groups(2).Value
If t = type Then
Return New Pattern(t, v)
End If
Next
Return Nothing
End Function
Public Shared Function GetAllPatterns(input As String) As List(Of Pattern)
Dim elements As MatchCollection = regex.Matches(input)
Dim results As New List(Of Pattern)
For Each element As Match In elements
' Pattern in input
Dim t As String = element.Groups(1).Value
Dim v As String = element.Groups(2).Value
results.Add(New Pattern(t, v))
Next
Return results
End Function
Public Shared Function ReplacePattern(input As String, type As String, replacement As String) As String
Dim elements As MatchCollection = regex.Matches(input)
If IsNothing(replacement) Or replacement = String.Empty Then
Return input
End If
For Each element As Match In elements
' if group 1 contains the 'pattern' the replace whole group with 'replacement'
' and return it
If element.Groups(1).Value = type Then
Return Regex.Replace(input, element.Groups(0).Value, replacement)
End If
Next
' no replacement made
Return input
End Function
Private Shared Function ContainsPatternAndValue(input As String, type As String, value As String) As Boolean
Dim elements As MatchCollection = regex.Matches(input)
For Each element As Match In elements
' Pattern in input
Dim t As String = element.Groups(1).Value
Dim v As String = element.Groups(2).Value
If t = type And v = value Then
Return True
End If
Next
Return False
End Function
Public Shared Function HasAnyPatterns(input) As Boolean
Return allPatterns.Any(Function(p)
Return HasPattern(input, p)
End Function)
End Function
Public Shared Function HasOnlySimplePatterns(input As String) As Boolean
Return Not HasComplexPatterns(input)
End Function
Public Shared Function HasComplexPatterns(input As String) As Boolean
Return complexPatterns.Any(Function(p)
Return HasPattern(input, p)
End Function)
End Function
Public Shared Function HasPattern(input As String, type As String) As Boolean
Dim matches = regex.Matches(input)
For Each match As Match In matches
For Each group As Group In match.Groups
If group.Value = type Then
Return True
End If
Next
Next
Return False
End Function
Public Class Pattern
Public ReadOnly Property Type As String
Public ReadOnly Property Value As String
Public Sub New(type As String, value As String)
Me.Type = type
Me.Value = value
End Sub
Public Sub New(stringRepresentation As String)
Dim elements As MatchCollection = regex.Matches(stringRepresentation)
Dim first As Match = elements.Item(0)
Dim t As String = first.Groups(1).Value
Dim v As String = first.Groups(2).Value
Type = t
Value = v
End Sub
Public Overrides Function ToString() As String
Return $"{{#{Type}#{Value}}}"
End Function
End Class
End Class

6
app/DD_Clipboard_Searcher/clsSearch.vb
View File

@ -4,13 +4,11 @@ Imports System.Text
Imports System.Runtime.InteropServices
Public Class clsSearch
''Fenster position ermitteln/auslesen
'Fenster position ermitteln/auslesen
'Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Int32
Private Declare Function ShowWindow Lib "user32" (ByVal handle As IntPtr, ByVal nCmdShow As Integer) As Integer
<DllImport("user32.dll")> _
<DllImport("user32.dll")>
Private Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function

6
app/DD_Clipboard_Searcher/clsWINDOWSApi.vb
View File

@ -56,14 +56,14 @@ Public Class clsWINDOWSApi
Dim proc As Process = Process.GetProcessById(pid)
If proc Is Nothing Then Exit Sub
Dim msg = pid.ToString & vbNewLine
PROC_PID = pid.ToString
PROC_Name = proc.ProcessName
CurrPROC_PID = pid.ToString
CurrPROC_Name = proc.ProcessName
msg &= vbNewLine & "Procname: " & proc.ProcessName
msg &= vbNewLine & "MainWindowTitle: " & proc.MainWindowTitle
msg &= vbNewLine & "WindowTitle: " & WindowTitle
PROC_WindowTitle = WindowTitle
CurrPROC_WindowTitle = WindowTitle
msg &= vbNewLine & TitleLength.ToString
' MsgBox(msg)

229
app/DD_Clipboard_Searcher/clsWMDocGrid.vb Normal file
View File

@ -0,0 +1,229 @@
Imports DevExpress.Utils
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraEditors.Controls
Public Class clsWMDocGrid
' Private Shared _Helper As ClassHelper
Public Shared SELECTED_DOC_PATH As String
'Public Shared RESULT_OBJECTTYPE As String
Public Shared SELECTED_INWORK As Boolean
Public Shared SELECTED_DOC_ID As Integer
Public Shared SELECTED_DOC_RIGHT As Integer
'Public Shared RESULT_DISPLAYNAME As String
Public Shared RESULT_CONFIG_IDS As Hashtable
Private Shared DATE_COLUMNS As New List(Of String)
Private Shared DATE_COLUMNS_CONFIG As New List(Of String)
Public Shared ActiveDocGrid As GridView
Public Shared DTDocuments As DataTable
Private Shared DT_DROPDOWN_ITEMS As DataTable
Private Shared _dropdownValueChangedHandler As EventHandler
Private Shared _datepickerValueChangedHandler As EventHandler
Private Shared _textValueChangedHandler As EventHandler
Private Shared _checkValueChangedHandler As EventHandler
Private Shared Function Init_Table()
Try
Dim oNewDataTable As New DataTable
oNewDataTable.TableName = "TBSELECTED_FILES"
' Create two columns, ID and Name.
oNewDataTable.Columns.Add("DOC_ID", GetType(Integer))
oNewDataTable.Columns.Add("DOC_PATH", GetType(System.String))
oNewDataTable.Columns.Add("OBJECTTYPE", GetType(System.String))
oNewDataTable.Columns.Add("INWORK", GetType(System.Boolean))
oNewDataTable.Columns.Add("DISPLAYNAME", GetType(System.String))
oNewDataTable.Columns.Add("ACCESS_RIGHT", GetType(Integer))
DTDocuments = oNewDataTable
Return True
Catch ex As Exception
LOGGER.Error(ex)
DTDocuments = Nothing
Return False
End Try
End Function
Public Shared Sub GetDocItems()
'_Helper = New ClassHelper
SELECTED_DOC_ID = 0
If Init_Table() = True Then
LOGGER.Debug("gridView.SelectedRowsCount: " & ActiveDocGrid.SelectedRowsCount.ToString)
If ActiveDocGrid.SelectedRowsCount >= 1 Then
DTDocuments.Clear()
For Each row In ActiveDocGrid.GetSelectedRows
Dim newRow As DataRow = DTDocuments.NewRow()
Try
Dim DOC_ID = ActiveDocGrid.GetRowCellValue(row, "DocID")
SELECTED_DOC_ID = DOC_ID
newRow("DOC_ID") = ActiveDocGrid.GetRowCellValue(row, "DocID")
Catch ex As Exception
newRow("DOC_ID") = 0
SELECTED_DOC_ID = 0
End Try
Try
SELECTED_DOC_RIGHT = ActiveDocGrid.GetRowCellValue(row, "ACCESS_RIGHT")
newRow("ACCESS_RIGHT") = ActiveDocGrid.GetRowCellValue(row, SELECTED_DOC_RIGHT)
Catch ex As Exception
newRow("ACCESS_RIGHT") = 1
End Try
Try
SELECTED_DOC_PATH = ActiveDocGrid.GetRowCellValue(row, "FULL_FILENAME")
newRow("DOC_PATH") = ActiveDocGrid.GetRowCellValue(row, "FULL_FILENAME")
Catch ex As Exception
newRow("DOC_PATH") = ""
End Try
Try
newRow("OBJECTTYPE") = ActiveDocGrid.GetRowCellValue(row, "OBJECTTYPE")
Catch ex As Exception
newRow("OBJECTTYPE") = ""
End Try
Try
newRow("INWORK") = ActiveDocGrid.GetRowCellValue(row, "in work?")
SELECTED_INWORK = ActiveDocGrid.GetRowCellValue(row, "in work?")
Catch ex As Exception
newRow("INWORK") = False
SELECTED_INWORK = False
End Try
Try
Dim dpn = ActiveDocGrid.GetRowCellValue(row, "Displayname")
If IsDBNull(dpn) Or IsNothing(dpn) Then
dpn = ""
End If
newRow("DISPLAYNAME") = dpn
Catch ex As Exception
newRow("DISPLAYNAME") = ""
End Try
DTDocuments.Rows.Add(newRow)
DTDocuments.AcceptChanges()
Next
Else
Dim newRow As DataRow = DTDocuments.NewRow()
Try
Dim DOC_ID = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
SELECTED_DOC_ID = DOC_ID
newRow("DOC_ID") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
Catch ex As Exception
newRow("DOC_ID") = 0
SELECTED_DOC_ID = 0
End Try
Try
SELECTED_DOC_PATH = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("FULL_FILENAME"))
newRow("DOC_PATH") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("FULL_FILENAME"))
Catch ex As Exception
newRow("DOC_PATH") = ""
End Try
Try
newRow("OBJECTTYPE") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("OBJECTTYPE"))
Catch ex As Exception
newRow("OBJECTTYPE") = ""
End Try
Try
newRow("INWORK") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("in work?"))
SELECTED_INWORK = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("in work?"))
Catch ex As Exception
newRow("INWORK") = False
SELECTED_INWORK = False
End Try
Try
Dim dpn = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("Displayname"))
If IsDBNull(dpn) Or IsNothing(dpn) Then
dpn = ""
End If
newRow("DISPLAYNAME") = dpn
Catch ex As Exception
newRow("DISPLAYNAME") = ""
End Try
DTDocuments.Rows.Add(newRow)
DTDocuments.AcceptChanges()
End If
End If
End Sub
Public Class WindreamDocGridComboboxItem
Implements IConvertible
Public ConfigID As Integer
Public Value As String
Public Overrides Function ToString() As String
Return Me.Value
End Function
Public Function ToString1(provider As IFormatProvider) As String Implements IConvertible.ToString
Return Me.Value
End Function
Public Function GetTypeCode() As TypeCode Implements IConvertible.GetTypeCode
Throw New NotImplementedException
End Function
Public Function ToBoolean(provider As IFormatProvider) As Boolean Implements IConvertible.ToBoolean
Throw New NotImplementedException
End Function
Public Function ToByte(provider As IFormatProvider) As Byte Implements IConvertible.ToByte
Throw New NotImplementedException
End Function
Public Function ToChar(provider As IFormatProvider) As Char Implements IConvertible.ToChar
Throw New NotImplementedException
End Function
Public Function ToDateTime(provider As IFormatProvider) As Date Implements IConvertible.ToDateTime
Throw New NotImplementedException
End Function
Public Function ToDecimal(provider As IFormatProvider) As Decimal Implements IConvertible.ToDecimal
Throw New NotImplementedException
End Function
Public Function ToDouble(provider As IFormatProvider) As Double Implements IConvertible.ToDouble
Throw New NotImplementedException
End Function
Public Function ToInt16(provider As IFormatProvider) As Short Implements IConvertible.ToInt16
Throw New NotImplementedException
End Function
Public Function ToInt32(provider As IFormatProvider) As Integer Implements IConvertible.ToInt32
Throw New NotImplementedException
End Function
Public Function ToInt64(provider As IFormatProvider) As Long Implements IConvertible.ToInt64
Throw New NotImplementedException
End Function
Public Function ToSByte(provider As IFormatProvider) As SByte Implements IConvertible.ToSByte
Throw New NotImplementedException
End Function
Public Function ToSingle(provider As IFormatProvider) As Single Implements IConvertible.ToSingle
Throw New NotImplementedException
End Function
Public Function ToType(conversionType As Type, provider As IFormatProvider) As Object Implements IConvertible.ToType
Throw New NotImplementedException
End Function
Public Function ToUInt16(provider As IFormatProvider) As UShort Implements IConvertible.ToUInt16
Throw New NotImplementedException
End Function
Public Function ToUInt32(provider As IFormatProvider) As UInteger Implements IConvertible.ToUInt32
Throw New NotImplementedException
End Function
Public Function ToUInt64(provider As IFormatProvider) As ULong Implements IConvertible.ToUInt64
Throw New NotImplementedException
End Function
End Class
End Class

160
app/DD_Clipboard_Searcher/frmAbout.designer.vb generated Normal file
View File

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

3393
app/DD_Clipboard_Searcher/frmAbout.resx Normal file
View File

File diff suppressed because it is too large Load Diff

13
app/DD_Clipboard_Searcher/frmAbout.vb Normal file
View File

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

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

@ -889,7 +889,8 @@ Partial Class frmAdministration
'
'TimerTest
'
Me.TimerTest.Interval = 5000
Me.TimerTest.Interval = 1000
'
'TBCW_PROFILE_PROCESSBindingSource
'

10
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@ -171,11 +171,11 @@ Public Class frmAdministration
Private Sub TimerTest_Tick(sender As Object, e As EventArgs) Handles TimerTest.Tick
clsWINDOWSApi.Get_ForegroundWindow_Info()
If PID <> PROC_PID And PROC_Name <> "DD_Clipboard_Watcher" Then
If PID <> CurrPROC_PID And CurrPROC_Name <> "DD_Clipboard_Watcher" Then
lblprocessCheckActive.Visible = True
PID = PROC_PID
txtPID.Text = PROC_PID
txtProcessName.Text = PROC_Name
PID = CurrPROC_PID
txtPID.Text = CurrPROC_PID
txtProcessName.Text = CurrPROC_Name
Else
lblprocessCheckActive.Visible = False
End If
@ -237,7 +237,7 @@ Public Class frmAdministration
txtProcessName.Text = ""
TimerTest.Start()
btnStartStopProcess.Text = "Stoppe Auswertung Fenster"
Status_Changed("Auswertung von aktivem Fenster läuft! Alle 5 Sekunden Prüfung! - Wechseln Sie durch die aktiven Anwendungen!", Color.Orange)
Status_Changed("Auswertung von aktivem Fenster läuft! Wechseln Sie durch die aktiven Anwendungen!", Color.Orange)
Else
Me.Cursor = Cursors.Default
TimerTest.Stop()

1224
app/DD_Clipboard_Searcher/frmDocView.designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

3451
app/DD_Clipboard_Searcher/frmDocView.resx Normal file
View File

File diff suppressed because it is too large Load Diff

767
app/DD_Clipboard_Searcher/frmDocView.vb Normal file
View File

@ -0,0 +1,767 @@
Option Strict On
Option Explicit On
Imports GdPicture14
Imports System.Globalization
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.ComponentModel
Public Class frmDocView
Private Enum ZoomMode
Zoom50
Zoom100
Zoom150
Zoom200
ZoomSelectedArea
ZoomFitToViewer
ZoomFitWidth
ZoomFitHeight
End Enum
Private _docPath As String
Private _currentSearchOccurence As Integer = 0
Private _toggleGamma As Boolean = True
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As EventArgs) Handles MyBase.Load
Dim oLicenceManager As New GdPicture14.LicenseManager()
oLicenceManager.RegisterKEY("0466385611744606151491532") 'Please, replace XXXX by a valid demo or commercial license key.
BookmarksTree1.GdViewer = GdViewer1
tcLeftPanel.Appearance = TabAppearance.FlatButtons
tcLeftPanel.ItemSize = New Size(0, 1)
tcLeftPanel.SizeMode = TabSizeMode.Fixed
SelectSnapIn(0, "Thumbnails")
Dim zoomModes As New Dictionary(Of ZoomMode, String) From {
{ZoomMode.Zoom50, "50%"},
{ZoomMode.Zoom100, "100%"},
{ZoomMode.Zoom150, "150%"},
{ZoomMode.Zoom200, "200%"},
{ZoomMode.ZoomSelectedArea, "Zoom to selected area"},
{ZoomMode.ZoomFitToViewer, "Fit to viewer"},
{ZoomMode.ZoomFitWidth, "Fit to viewer width"},
{ZoomMode.ZoomFitHeight, "Fit to viewer height"}
}
For Each item In zoomModes
cbZoom.Items.Add(item.Value)
Next
rbAllPages.Checked = True
Dim imageListSearchResults As New ImageList
imageListSearchResults.ImageSize = New Size(20, 20)
imageListSearchResults.Images.Add(CType(My.Resources.ResourceManager.GetObject("search"), Image))
lstSearchResults.LargeImageList = imageListSearchResults
lstSearchResults.Groups.Add(New ListViewGroup("SearchResult", "Search result"))
pGamma.Visible = False
tbGamma.Value = CInt(GdViewer1.Gamma * 10)
lblGamma.Text = "Current gamma: " & CStr(GdViewer1.Gamma) & " (default: 1)"
ResetSearch()
UpdateMainUi()
If My.Settings.frmViewerPosition.IsEmpty = False Then
If My.Settings.frmViewerPosition.X > 0 And My.Settings.frmViewerPosition.Y > 0 Then
Location = My.Settings.frmViewerPosition
End If
End If
If My.Settings.frmViewerSize.IsEmpty = False Then
Size = My.Settings.frmViewerSize
End If
End Sub
Public Sub Load_File_from_Path(filepath As String)
CloseDocument()
_docPath = filepath
Me.ToolStripStatusLabel2.Text = _docPath
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
GdViewer1.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
GdViewer1.DisplayFromFile(filepath)
GdViewer1.Focus()
ThumbnailEx1.LoadFromGdViewer(GdViewer1)
UpdateMainUi()
End Sub
Private Sub UpdateMainUi()
Me.Text = "GdPicture.NET " & GetType(GdPictureImaging).Assembly.GetName().Version.ToString() & " - Document Viewer Demo"
If GdViewer1.PageCount = 0 Then
btnClose.Enabled = False
btnPrint.Enabled = False
btnFirstPage.Enabled = False
btnPreviousPage.Enabled = False
tbCurrentPage.Enabled = False
lblPageCount.Enabled = False
btnNextPage.Enabled = False
btnLastPage.Enabled = False
btnZoomOut.Enabled = False
cbZoom.Enabled = False
btnZoomIn.Enabled = False
btnFitPage.Enabled = False
btnFitWidth.Enabled = False
btnAdjustGamma.Enabled = False
btnRotateLeft.Enabled = False
btnRotateRight.Enabled = False
btnFlipX.Enabled = False
btnFlipY.Enabled = False
tbCurrentPage.Text = "0"
lblPageCount.Text = "/ 0"
cbZoom.SelectedIndex = -1
tbSearch.Text = ""
pSearch.Enabled = False
Else
btnClose.Enabled = True
btnPrint.Enabled = True
btnFirstPage.Enabled = True
btnPreviousPage.Enabled = True
tbCurrentPage.Enabled = True
lblPageCount.Enabled = True
btnNextPage.Enabled = True
btnLastPage.Enabled = True
btnZoomOut.Enabled = True
cbZoom.Enabled = True
btnZoomIn.Enabled = True
btnFitPage.Enabled = True
btnFitWidth.Enabled = True
btnAdjustGamma.Enabled = True
btnRotateLeft.Enabled = True
btnRotateRight.Enabled = True
btnFlipX.Enabled = True
btnFlipY.Enabled = True
UpdateaNavigationToolbar()
pSearch.Enabled = True
End If
ResetSearch()
End Sub
Private Sub UpdateaNavigationToolbar()
Dim currentPage As Integer = GdViewer1.CurrentPage()
tbCurrentPage.Text = currentPage.ToString()
lblPageCount.Text = "/ " & GdViewer1.PageCount.ToString()
If currentPage = 1 Then
btnFirstPage.Enabled = False
btnPreviousPage.Enabled = False
Else
btnFirstPage.Enabled = True
btnPreviousPage.Enabled = True
End If
If currentPage = GdViewer1.PageCount Then
btnNextPage.Enabled = False
btnLastPage.Enabled = False
Else
btnNextPage.Enabled = True
btnLastPage.Enabled = True
End If
cbZoom.Text = String.Format(CultureInfo.InvariantCulture, "{0:#0.##%}", GdViewer1.Zoom)
Dim widthInches, heightInches As Double
If GdViewer1.GetDocumentType = DocumentType.DocumentTypePDF Then
widthInches = GdViewer1.PdfGetPageWidth / 72
heightInches = GdViewer1.PdfGetPageHeight / 72
Else
widthInches = GdViewer1.PageWidth / GdViewer1.HorizontalResolution
heightInches = GdViewer1.PageHeight / GdViewer1.VerticalResolution
End If
Me.ToolStripStatusLabel1.Text = "Type: " + GetDocumentTypeLabel() + " - " +
"Page Size (inches): " + Trim(Str(Math.Round(widthInches, 2))) + " × " + Trim(Str(Math.Round(heightInches, 2))) + " - " +
"Page Size (pixels): " + Trim(Str(GdViewer1.PageWidth)) + " × " + Trim(Str(GdViewer1.PageHeight)) + " - " +
"Horizontal resolution: " + Trim(Str(Math.Round(GdViewer1.HorizontalResolution, 2))) + " DPI - " +
"Vertical resolution: " + Trim(Str(Math.Round(GdViewer1.VerticalResolution, 2))) + " DPI"
End Sub
Private Function GetDocumentTypeLabel() As String
Dim result As String = ""
Select Case GdViewer1.GetDocumentType()
Case DocumentType.DocumentTypeBitmap
result = "Image"
Case DocumentType.DocumentTypeMetaFile
result = "Metafile"
Case DocumentType.DocumentTypePDF
result = "PDF"
Case DocumentType.DocumentTypeSVG
result = "SVG"
Case DocumentType.DocumentTypeTXT
result = "Text file"
Case DocumentType.DocumentTypeUnknown
result = "Unknown"
End Select
Return result
End Function
Private Sub CloseDocument()
GdViewer1.CloseDocument()
ThumbnailEx1.ClearAllItems()
UpdateMainUi()
End Sub
Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnOpen.Click
CloseDocument()
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
GdViewer1.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
Using frmOpen As New frmGdPictureOpen(GdViewer1)
frmOpen.ShowDialog(Me)
End Using
GdViewer1.Focus()
ThumbnailEx1.LoadFromGdViewer(GdViewer1)
UpdateMainUi()
End Sub
Private Sub btnFirstPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFirstPage.Click
GdViewer1.DisplayFirstPage()
End Sub
Private Sub btnPreviousPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnPreviousPage.Click
GdViewer1.DisplayPreviousPage()
End Sub
Private Sub btnNextPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnNextPage.Click
GdViewer1.DisplayNextPage()
End Sub
Private Sub btnLastPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnLastPage.Click
GdViewer1.DisplayLastPage()
End Sub
Private Sub tbCurrentPage_Leave(ByVal sender As System.Object, ByVal e As EventArgs) Handles tbCurrentPage.Leave
Dim page As Integer = 0
If Integer.TryParse(tbCurrentPage.Text, page) Then
If page > 0 And page <= GdViewer1.PageCount Then
GdViewer1.DisplayPage(page)
UpdateaNavigationToolbar()
End If
End If
End Sub
Private Sub GdViewer1_PageChanged() Handles GdViewer1.PageChanged
UpdateaNavigationToolbar()
End Sub
Private Sub ChangeZoomValue()
If cbZoom.SelectedIndex <> -1 Then
Select Case CType(cbZoom.SelectedIndex, ZoomMode)
Case ZoomMode.Zoom50
GdViewer1.Zoom = 50.0F / 100
Case ZoomMode.Zoom100
GdViewer1.Zoom = 100.0F / 100
Case ZoomMode.Zoom150
GdViewer1.Zoom = 150.0F / 100
Case ZoomMode.Zoom200
GdViewer1.Zoom = 250.0F / 100
Case ZoomMode.ZoomSelectedArea
If GdViewer1.IsRect() Then
GdViewer1.ZoomRect()
Else
GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaSelection
GdViewer1.Focus()
End If
Case ZoomMode.ZoomFitToViewer
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer
Case ZoomMode.ZoomFitWidth
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
Case ZoomMode.ZoomFitHeight
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeHeightViewer
End Select
Else
If (IsNumeric(Regex.Replace(cbZoom.Text, "[^0-9,.]", ""))) Then
GdViewer1.Zoom = Val(Regex.Replace(cbZoom.Text, "[^0-9,.]", "")) / 100
End If
End If
UpdateaNavigationToolbar()
End Sub
Private Sub cbZoom_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles cbZoom.SelectedIndexChanged
ChangeZoomValue()
End Sub
Private Sub GdViewer1_AfterZoomChange() Handles GdViewer1.AfterZoomChange
UpdateaNavigationToolbar()
If GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaZooming Then
GdViewer1.MouseMode = ViewerMouseMode.MouseModePan
End If
End Sub
Private Sub btnZoomOut_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnZoomOut.Click
GdViewer1.ZoomOUT()
End Sub
Private Sub btnZoomIn_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnZoomIn.Click
GdViewer1.ZoomIN()
End Sub
Private Sub cbZoom_TextUpdate(ByVal sender As System.Object, ByVal e As EventArgs) Handles cbZoom.Validating
ChangeZoomValue()
End Sub
Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnAbout.Click
Using frmAbout As New frmAbout()
frmAbout.ShowDialog(Me)
End Using
End Sub
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnPrint.Click
If GdViewer1.PageCount = 0 Then
Return
End If
Using f As New frmPrint(GdViewer1)
f.ShowDialog(Me)
If f.DialogResult <> DialogResult.OK Then
Return
End If
Dim printSettings As frmPrint.PrintSettings = f.printConfiguration
If Not GdViewer1.PrintSetActivePrinter(printSettings.Printer) Then
Return
End If
GdViewer1.PrintSetDocumentName("GdPicture Print Job " + DateTime.Now.ToString("yyyy-MM-dd HH\mm"))
GdViewer1.PrintSetAlignment(printSettings.PrintAlignment)
Select Case printSettings.Orientation
Case frmPrint.PrintOrientation.AutoDetection
GdViewer1.PrintSetAutoRotation(True)
Exit Select
Case frmPrint.PrintOrientation.Portrait
GdViewer1.PrintSetAutoRotation(False)
GdViewer1.PrintSetOrientation(PrinterOrientation.PrinterOrientationPortrait)
Exit Select
Case frmPrint.PrintOrientation.Paysage
GdViewer1.PrintSetAutoRotation(False)
GdViewer1.PrintSetOrientation(PrinterOrientation.PrinterOrientationLandscape)
Exit Select
End Select
GdViewer1.PrintSetCopies(printSettings.Copies)
If printSettings.Copies > 1 Then
GdViewer1.PrintSetCollate(printSettings.Collate)
End If
Select Case printSettings.PagesToPrint
Case frmPrint.PagesToPrint.All
GdViewer1.PrintSetFromToPage(1, GdViewer1.PageCount)
GdViewer1.Print(printSettings.PrintSize)
Exit Select
Case frmPrint.PagesToPrint.Current
GdViewer1.PrintSetFromToPage(GdViewer1.CurrentPage, GdViewer1.CurrentPage)
GdViewer1.Print(printSettings.PrintSize)
Exit Select
Case frmPrint.PagesToPrint.Selection
Dim range As String = GetSelectedItemAsRange()
If Not String.IsNullOrWhiteSpace(range) Then
GdViewer1.PrintSetPageSelection(range)
GdViewer1.Print(printSettings.PrintSize)
End If
Exit Select
Case frmPrint.PagesToPrint.Range
If printSettings.PageRange IsNot Nothing And printSettings.PageRange <> String.Empty Then
If printSettings.PageRange.Contains("-") Then
Dim pageStart As Integer = 0
If Integer.TryParse(printSettings.PageRange.Split("-"c)(0), pageStart) Then
Dim pageEnd As Integer = 0
If Integer.TryParse(printSettings.PageRange.Split("-"c)(1), pageEnd) Then
If pageEnd < pageStart Then
GdViewer1.PrintSetFromToPage(pageEnd, pageStart)
GdViewer1.Print(printSettings.PrintSize)
Else
GdViewer1.PrintSetFromToPage(pageStart, pageEnd)
GdViewer1.Print(printSettings.PrintSize)
End If
Else
MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End If
Else
MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End If
Else
Dim page As Integer = 0
If Integer.TryParse(printSettings.PageRange, page) Then
GdViewer1.PrintSetFromToPage(page, page)
GdViewer1.Print(printSettings.PrintSize)
Else
MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End If
End If
Else
MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End If
Exit Select
End Select
End Using
End Sub
Private Function GetSelectedItemAsRange() As String
Dim count As Integer = 0
For i As Integer = 0 To ThumbnailEx1.ItemCount - 1
If ThumbnailEx1.GetItemCheckState(i) = True Then
count += 1
End If
Next
If count = 0 Then
If MessageBox.Show("No page has been selected, do you want to save all pages?", "Question", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
For i As Integer = 0 To ThumbnailEx1.ItemCount - 1
ThumbnailEx1.SetItemCheckState(i, True)
Next
count = ThumbnailEx1.ItemCount
End If
End If
If count > 0 Then
Dim sb As New StringBuilder
For i As Integer = 0 To ThumbnailEx1.ItemCount
If ThumbnailEx1.GetItemCheckState(i) = True Then
If sb.Length <> 0 Then
sb.Append(";")
End If
sb.Append(i + 1)
End If
Next
Return sb.ToString()
Else
Return ""
End If
End Function
Private Sub btnRotateLeft_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnRotateLeft.Click
GdViewer1.Rotate(RotateFlipType.Rotate270FlipNone)
End Sub
Private Sub btnRotateRight_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnRotateRight.Click
GdViewer1.Rotate(RotateFlipType.Rotate90FlipNone)
End Sub
Private Sub btnFlipX_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFlipX.Click
GdViewer1.Rotate(RotateFlipType.RotateNoneFlipX)
End Sub
Private Sub btnFlipY_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFlipY.Click
GdViewer1.Rotate(RotateFlipType.RotateNoneFlipY)
End Sub
Private Sub GdViewer1_TransferEnded(ByVal status As GdPictureStatus, ByVal download As System.Boolean) Handles GdViewer1.TransferEnded
GdViewer1.Focus()
ThumbnailEx1.LoadFromGdViewer(GdViewer1)
UpdateMainUi()
End Sub
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnSearch.Click
If (GdViewer1.GetDocumentType() <> DocumentType.DocumentTypePDF And GdViewer1.GetDocumentType() <> DocumentType.DocumentTypeTXT) Or String.IsNullOrWhiteSpace(tbSearch.Text) Then
Return
End If
ResetSearch()
Dim page As Integer
Dim found As Boolean = False
If rbAllPages.Checked Then
page = 1
Else
page = GdViewer1.CurrentPage
End If
Dim finish As Boolean = False
Dim countResults As Integer = 0
Me.Cursor = Cursors.WaitCursor
searchProgressBar.Value = 1
searchProgressBar.Maximum = GdViewer1.PageCount
searchProgressBar.Visible = True
Dim items As New List(Of ListViewItem)
While Not finish
lblSearchResults.Text = "Find results for page " + page.ToString() + " of " + GdViewer1.PageCount.ToString()
searchProgressBar.Increment(1)
lblSearchResults.Invalidate()
lblSearchResults.Update()
lblSearchResults.Refresh()
searchProgressBar.Invalidate()
searchProgressBar.Update()
searchProgressBar.Refresh()
Dim count As Integer = GetSearchResultCount(page, tbSearch.Text)
If count > 0 Then
found = True
Dim item As New ListViewItem(New String() {"Page " + page.ToString(), count.ToString() + " occurence(s) found"}, 0)
item.Name = "Page" + page.ToString()
item.Tag = page
item.Group = lstSearchResults.Groups(0)
items.Add(item)
End If
countResults += count
page = page + 1
finish = rbCurrentPage.Checked Or page > GdViewer1.PageCount
End While
lstSearchResults.Items.AddRange(items.ToArray())
lstSearchResults.Groups(0).Header = "Search results (" + countResults.ToString() + ")"
Me.Cursor = Cursors.Default
lblSearchResults.Text = ""
searchProgressBar.Visible = False
If Not found Then
MessageBox.Show("No match found", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Private Function GetSearchResultCount(ByVal page As Integer, ByVal searchedTerm As String) As Integer
Return GdViewer1.GetTextOccurrenceCount(page, searchedTerm, chkCaseSensitive.Checked, chkWholeWord.Checked)
End Function
Private Sub ResetSearch()
btnFindPrevious.Enabled = Not String.IsNullOrWhiteSpace(tbSearch.Text)
btnFindNext.Enabled = Not String.IsNullOrWhiteSpace(tbSearch.Text)
btnSearch.Enabled = Not String.IsNullOrWhiteSpace(tbSearch.Text)
lstSearchResults.Items.Clear()
GdViewer1.RemoveAllRegions()
_currentSearchOccurence = 0
lblSearchResults.Text = ""
End Sub
Private Sub chkWholeWord_CheckedChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles chkWholeWord.CheckedChanged
ResetSearch()
End Sub
Private Sub chkCaseSensitive_CheckedChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles chkCaseSensitive.CheckedChanged
ResetSearch()
End Sub
Private Sub rbCurrentPage_CheckedChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles rbCurrentPage.CheckedChanged
ResetSearch()
End Sub
Private Sub rbAllPages_CheckedChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles rbAllPages.CheckedChanged
ResetSearch()
End Sub
Private Sub tbSearch_TextChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles tbSearch.TextChanged
ResetSearch()
End Sub
Private Sub cbZoom_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles cbZoom.Validating
ChangeZoomValue()
End Sub
Private Sub lstSearchResults_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles lstSearchResults.SelectedIndexChanged
If lstSearchResults.SelectedItems.Count <> 0 Then
GdViewer1.RemoveAllRegions()
Dim item As ListViewItem = lstSearchResults.SelectedItems(0)
Dim page As Integer = CType(item.Tag, Integer)
If GdViewer1.CurrentPage <> page Then
GdViewer1.DisplayPage(page)
End If
Dim occurence As Integer = 1
Dim occurenceLeft As Single
Dim occurenceTop As Single
Dim occurenceWidth As Single
Dim occurenceHeight As Single
While GdViewer1.SearchText(page, tbSearch.Text, occurence, chkCaseSensitive.Checked, chkWholeWord.Checked, occurenceLeft, occurenceTop, occurenceWidth, occurenceHeight)
AddSearchRegion(occurence, occurenceLeft, occurenceTop, occurenceWidth, occurenceHeight, occurence = 1)
occurence = occurence + 1
End While
End If
End Sub
Private Sub btnFindNext_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFindNext.Click
Search(True)
End Sub
Private Sub btnFindPrevious_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFindPrevious.Click
Search(False)
End Sub
Private Sub AddSearchRegion(ByVal occurence As Integer, ByVal leftCoordinate As Single, ByVal topCoordinate As Single, ByVal regionWidth As Single, ByVal regionheight As Single, ByVal ensureVisibility As Boolean)
Dim searchRegion As Integer = GdViewer1.AddRegionInches("SearchResult" & occurence, leftCoordinate, topCoordinate, regionWidth, regionheight, ForegroundMixMode.ForegroundMixModeMASKPEN, Color.Yellow)
GdViewer1.SetRegionEditable(searchRegion, False)
If ensureVisibility Then
GdViewer1.EnsureRegionVisibility(searchRegion)
End If
End Sub
Private Function Search(ByVal ascending As Boolean) As Boolean
Dim go As Boolean = True
Dim page As Integer = GdViewer1.CurrentPage
Dim found As Boolean = False
Dim newOccurence As Integer
Dim occurenceLeft As Single
Dim occurenceTop As Single
Dim occurenceWidth As Single
Dim occurenceHeight As Single
If ascending Then
newOccurence = _currentSearchOccurence + 1
Else
newOccurence = _currentSearchOccurence - 1
End If
While go
If GdViewer1.SearchText(page, tbSearch.Text, newOccurence, chkCaseSensitive.Checked, chkWholeWord.Checked, occurenceLeft, occurenceTop, occurenceWidth, occurenceHeight) Then
If page <> GdViewer1.CurrentPage Then
GdViewer1.DisplayPage(page)
End If
GdViewer1.RemoveAllRegions()
AddSearchRegion(newOccurence, occurenceLeft, occurenceTop, occurenceWidth, occurenceHeight, True)
_currentSearchOccurence = newOccurence
found = True
go = False
Else
If rbAllPages.Checked Then
If ascending Then
page = page + 1
newOccurence = 1
Else
page = page - 1
newOccurence = GetSearchResultCount(page, tbSearch.Text)
End If
If page = 0 Or page > GdViewer1.PageCount Then
go = False
End If
Else
go = False
End If
End If
End While
If Not found Then
MessageBox.Show(Me, "No match found !", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Return found
End Function
Private Sub btnClose_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnClose.Click
CloseDocument()
UpdateMainUi()
End Sub
Private Sub btnSettings_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSettings.Click
Using frmSettings As New frmSettings(GdViewer1)
frmSettings.ShowDialog(Me)
End Using
ThumbnailEx1.PdfRasterizerEngine = GdViewer1.PdfRasterizerEngine
ThumbnailEx1.PdfIncreaseTextContrast = GdViewer1.PdfIncreaseTextContrast
UpdateaNavigationToolbar()
End Sub
Private Sub btnFitWidth_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFitWidth.Click
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
End Sub
Private Sub btnFitPage_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFitPage.Click
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer
End Sub
Private Sub tbGamma_Scroll(ByVal sender As Object, ByVal e As EventArgs) Handles tbGamma.Scroll
GdViewer1.Gamma = CSng(tbGamma.Value / 10)
lblGamma.Text = "Current gamma: " & CStr(GdViewer1.Gamma) & " (default: 1)"
End Sub
Private Sub SelectSnapIn(ByVal num As Integer, ByVal title As String)
tcLeftPanel.SelectedIndex = num
lblSnapInPanel.Text = title
For i As Integer = 0 To pSnapInButtons.Controls.Count - 1
If i = num Then
pSnapInButtons.Controls(i).BackColor = SystemColors.Control
CType(pSnapInButtons.Controls(i), Button).FlatAppearance.BorderColor = SystemColors.Control
Else
pSnapInButtons.Controls(i).BackColor = SystemColors.AppWorkspace
CType(pSnapInButtons.Controls(i), Button).FlatAppearance.BorderColor = SystemColors.AppWorkspace
End If
Next
End Sub
Private Sub btnSnapInThumbnails_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnSnapInThumbnails.Click
SelectSnapIn(0, "Thumbnails")
End Sub
Private Sub btnSnapInBookmarks_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnSnapInBookmarks.Click
SelectSnapIn(1, "Bookmarks")
End Sub
Private Sub btnSnapInSearch_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnSnapInSearch.Click
SelectSnapIn(2, "Search")
End Sub
Private Sub DefaultToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles DefaultToolStripMenuItem.Click
GdViewer1.MouseMode = ViewerMouseMode.MouseModeDefault
DefaultToolStripMenuItem.Checked = True
AreaSelectionToolStripMenuItem.Checked = False
PanToolStripMenuItem.Checked = False
AreaZoomingToolStripMenuItem.Checked = False
MagnifierToolStripMenuItem.Checked = False
GdViewer1.Focus()
End Sub
Private Sub AreaSelectionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles AreaSelectionToolStripMenuItem.Click
GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaSelection
DefaultToolStripMenuItem.Checked = False
AreaSelectionToolStripMenuItem.Checked = True
PanToolStripMenuItem.Checked = False
AreaZoomingToolStripMenuItem.Checked = False
MagnifierToolStripMenuItem.Checked = False
GdViewer1.Focus()
End Sub
Private Sub PanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles PanToolStripMenuItem.Click
GdViewer1.MouseMode = ViewerMouseMode.MouseModePan
DefaultToolStripMenuItem.Checked = False
AreaSelectionToolStripMenuItem.Checked = False
PanToolStripMenuItem.Checked = True
AreaZoomingToolStripMenuItem.Checked = False
MagnifierToolStripMenuItem.Checked = False
GdViewer1.Focus()
End Sub
Private Sub AreaZoomingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles AreaZoomingToolStripMenuItem.Click
GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaZooming
DefaultToolStripMenuItem.Checked = False
AreaSelectionToolStripMenuItem.Checked = False
PanToolStripMenuItem.Checked = False
AreaZoomingToolStripMenuItem.Checked = True
MagnifierToolStripMenuItem.Checked = False
GdViewer1.Focus()
End Sub
Private Sub MagnifierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles MagnifierToolStripMenuItem.Click
GdViewer1.MouseMode = ViewerMouseMode.MouseModeMagnifier
DefaultToolStripMenuItem.Checked = False
AreaSelectionToolStripMenuItem.Checked = False
PanToolStripMenuItem.Checked = False
AreaZoomingToolStripMenuItem.Checked = False
MagnifierToolStripMenuItem.Checked = True
GdViewer1.Focus()
End Sub
Private Sub SmallThumbnailsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles SmallThumbnailsToolStripMenuItem1.Click
ThumbnailEx1.ThumbnailSize = New Size(64, 64)
SmallThumbnailsToolStripMenuItem1.Checked = True
MediumThumbnailsToolStripMenuItem1.Checked = False
LargeThumbnailsToolStripMenuItem1.Checked = False
End Sub
Private Sub MediumThumbnailsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles MediumThumbnailsToolStripMenuItem1.Click
ThumbnailEx1.ThumbnailSize = New Size(128, 128)
SmallThumbnailsToolStripMenuItem1.Checked = False
MediumThumbnailsToolStripMenuItem1.Checked = True
LargeThumbnailsToolStripMenuItem1.Checked = False
End Sub
Private Sub LargeThumbnailsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles LargeThumbnailsToolStripMenuItem1.Click
ThumbnailEx1.ThumbnailSize = New Size(256, 256)
SmallThumbnailsToolStripMenuItem1.Checked = False
MediumThumbnailsToolStripMenuItem1.Checked = False
LargeThumbnailsToolStripMenuItem1.Checked = True
End Sub
Private Sub ToolStripButton1_Click_1(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnAdjustGamma.Click
pGamma.Visible = _toggleGamma
_toggleGamma = Not _toggleGamma
End Sub
Private Sub frmDocView_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Try
' Position und Größe speichern
My.Settings.frmViewerSize = Me.Size
My.Settings.frmViewerPosition = 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

412
app/DD_Clipboard_Searcher/frmGdPictureOpen.designer.vb generated Normal file
View File

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

3172
app/DD_Clipboard_Searcher/frmGdPictureOpen.resx Normal file
View File

File diff suppressed because it is too large Load Diff

131
app/DD_Clipboard_Searcher/frmGdPictureOpen.vb Normal file
View File

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

353
app/DD_Clipboard_Searcher/frmPrint.designer.vb generated Normal file
View File

@ -0,0 +1,353 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmPrint
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPrint))
Me.cmbPrintAlignment = New System.Windows.Forms.ComboBox()
Me.chkCollate = New System.Windows.Forms.CheckBox()
Me.rbPageRangeSelection = New System.Windows.Forms.RadioButton()
Me.rbPageRangeAll = New System.Windows.Forms.RadioButton()
Me.txtPageRangeEnd = New System.Windows.Forms.TextBox()
Me.lblPageRangeTo = New System.Windows.Forms.Label()
Me.txtPageRangeStart = New System.Windows.Forms.TextBox()
Me.rbPageRangePages = New System.Windows.Forms.RadioButton()
Me.lblPrintAlignment = New System.Windows.Forms.Label()
Me.grpPageRange = New System.Windows.Forms.GroupBox()
Me.rbPageRangeCurrent = New System.Windows.Forms.RadioButton()
Me.rbOrientationLandscape = New System.Windows.Forms.RadioButton()
Me.rbOrientationPortrait = New System.Windows.Forms.RadioButton()
Me.rbOrientationAutomatic = New System.Windows.Forms.RadioButton()
Me.cmbPrintSize = New System.Windows.Forms.ComboBox()
Me.btnPrinterProperties = New System.Windows.Forms.Button()
Me.lblPrintSize = New System.Windows.Forms.Label()
Me.cmbPrinterList = New System.Windows.Forms.ComboBox()
Me.lblCopies = New System.Windows.Forms.Label()
Me.lblPrinter = New System.Windows.Forms.Label()
Me.btnCancel = New System.Windows.Forms.Button()
Me.btnPrint = New System.Windows.Forms.Button()
Me.grpOrientation = New System.Windows.Forms.GroupBox()
Me.numCopies = New System.Windows.Forms.NumericUpDown()
Me.grpPageRange.SuspendLayout()
Me.grpOrientation.SuspendLayout()
CType(Me.numCopies, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'cmbPrintAlignment
'
Me.cmbPrintAlignment.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbPrintAlignment.FormattingEnabled = True
Me.cmbPrintAlignment.Location = New System.Drawing.Point(138, 93)
Me.cmbPrintAlignment.Name = "cmbPrintAlignment"
Me.cmbPrintAlignment.Size = New System.Drawing.Size(198, 21)
Me.cmbPrintAlignment.TabIndex = 24
'
'chkCollate
'
Me.chkCollate.AutoSize = True
Me.chkCollate.Location = New System.Drawing.Point(205, 43)
Me.chkCollate.Name = "chkCollate"
Me.chkCollate.Size = New System.Drawing.Size(58, 17)
Me.chkCollate.TabIndex = 22
Me.chkCollate.Text = "Collate"
Me.chkCollate.UseVisualStyleBackColor = True
'
'rbPageRangeSelection
'
Me.rbPageRangeSelection.AutoSize = True
Me.rbPageRangeSelection.Enabled = False
Me.rbPageRangeSelection.Location = New System.Drawing.Point(13, 45)
Me.rbPageRangeSelection.Name = "rbPageRangeSelection"
Me.rbPageRangeSelection.Size = New System.Drawing.Size(100, 17)
Me.rbPageRangeSelection.TabIndex = 13
Me.rbPageRangeSelection.TabStop = True
Me.rbPageRangeSelection.Text = "Checked pages"
Me.rbPageRangeSelection.UseVisualStyleBackColor = True
'
'rbPageRangeAll
'
Me.rbPageRangeAll.AutoSize = True
Me.rbPageRangeAll.Checked = True
Me.rbPageRangeAll.Location = New System.Drawing.Point(13, 21)
Me.rbPageRangeAll.Name = "rbPageRangeAll"
Me.rbPageRangeAll.Size = New System.Drawing.Size(36, 17)
Me.rbPageRangeAll.TabIndex = 12
Me.rbPageRangeAll.TabStop = True
Me.rbPageRangeAll.Text = "All"
Me.rbPageRangeAll.UseVisualStyleBackColor = True
'
'txtPageRangeEnd
'
Me.txtPageRangeEnd.Location = New System.Drawing.Point(169, 68)
Me.txtPageRangeEnd.Name = "txtPageRangeEnd"
Me.txtPageRangeEnd.Size = New System.Drawing.Size(42, 20)
Me.txtPageRangeEnd.TabIndex = 17
'
'lblPageRangeTo
'
Me.lblPageRangeTo.AutoSize = True
Me.lblPageRangeTo.Location = New System.Drawing.Point(146, 73)
Me.lblPageRangeTo.Name = "lblPageRangeTo"
Me.lblPageRangeTo.Size = New System.Drawing.Size(16, 13)
Me.lblPageRangeTo.TabIndex = 16
Me.lblPageRangeTo.Text = "to"
Me.lblPageRangeTo.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'txtPageRangeStart
'
Me.txtPageRangeStart.Location = New System.Drawing.Point(98, 68)
Me.txtPageRangeStart.Name = "txtPageRangeStart"
Me.txtPageRangeStart.Size = New System.Drawing.Size(42, 20)
Me.txtPageRangeStart.TabIndex = 16
'
'rbPageRangePages
'
Me.rbPageRangePages.AutoSize = True
Me.rbPageRangePages.Location = New System.Drawing.Point(13, 69)
Me.rbPageRangePages.Name = "rbPageRangePages"
Me.rbPageRangePages.Size = New System.Drawing.Size(78, 17)
Me.rbPageRangePages.TabIndex = 15
Me.rbPageRangePages.TabStop = True
Me.rbPageRangePages.Text = "Pages from"
Me.rbPageRangePages.UseVisualStyleBackColor = True
'
'lblPrintAlignment
'
Me.lblPrintAlignment.AutoSize = True
Me.lblPrintAlignment.Location = New System.Drawing.Point(10, 96)
Me.lblPrintAlignment.Name = "lblPrintAlignment"
Me.lblPrintAlignment.Size = New System.Drawing.Size(53, 13)
Me.lblPrintAlignment.TabIndex = 31
Me.lblPrintAlignment.Text = "Alignment"
'
'grpPageRange
'
Me.grpPageRange.Controls.Add(Me.txtPageRangeEnd)
Me.grpPageRange.Controls.Add(Me.lblPageRangeTo)
Me.grpPageRange.Controls.Add(Me.txtPageRangeStart)
Me.grpPageRange.Controls.Add(Me.rbPageRangePages)
Me.grpPageRange.Controls.Add(Me.rbPageRangeCurrent)
Me.grpPageRange.Controls.Add(Me.rbPageRangeSelection)
Me.grpPageRange.Controls.Add(Me.rbPageRangeAll)
Me.grpPageRange.Location = New System.Drawing.Point(234, 120)
Me.grpPageRange.Name = "grpPageRange"
Me.grpPageRange.Size = New System.Drawing.Size(288, 100)
Me.grpPageRange.TabIndex = 28
Me.grpPageRange.TabStop = False
Me.grpPageRange.Text = "Page range"
'
'rbPageRangeCurrent
'
Me.rbPageRangeCurrent.AutoSize = True
Me.rbPageRangeCurrent.Location = New System.Drawing.Point(149, 21)
Me.rbPageRangeCurrent.Name = "rbPageRangeCurrent"
Me.rbPageRangeCurrent.Size = New System.Drawing.Size(86, 17)
Me.rbPageRangeCurrent.TabIndex = 14
Me.rbPageRangeCurrent.TabStop = True
Me.rbPageRangeCurrent.Text = "Current page"
Me.rbPageRangeCurrent.UseVisualStyleBackColor = True
'
'rbOrientationLandscape
'
Me.rbOrientationLandscape.AutoSize = True
Me.rbOrientationLandscape.Location = New System.Drawing.Point(13, 68)
Me.rbOrientationLandscape.Name = "rbOrientationLandscape"
Me.rbOrientationLandscape.Size = New System.Drawing.Size(78, 17)
Me.rbOrientationLandscape.TabIndex = 10
Me.rbOrientationLandscape.Text = "Landscape"
Me.rbOrientationLandscape.UseVisualStyleBackColor = True
'
'rbOrientationPortrait
'
Me.rbOrientationPortrait.AutoSize = True
Me.rbOrientationPortrait.Location = New System.Drawing.Point(13, 45)
Me.rbOrientationPortrait.Name = "rbOrientationPortrait"
Me.rbOrientationPortrait.Size = New System.Drawing.Size(58, 17)
Me.rbOrientationPortrait.TabIndex = 9
Me.rbOrientationPortrait.Text = "Portrait"
Me.rbOrientationPortrait.UseVisualStyleBackColor = True
'
'rbOrientationAutomatic
'
Me.rbOrientationAutomatic.AutoSize = True
Me.rbOrientationAutomatic.Checked = True
Me.rbOrientationAutomatic.Location = New System.Drawing.Point(13, 22)
Me.rbOrientationAutomatic.Name = "rbOrientationAutomatic"
Me.rbOrientationAutomatic.Size = New System.Drawing.Size(72, 17)
Me.rbOrientationAutomatic.TabIndex = 8
Me.rbOrientationAutomatic.TabStop = True
Me.rbOrientationAutomatic.Text = "Automatic"
Me.rbOrientationAutomatic.UseVisualStyleBackColor = True
'
'cmbPrintSize
'
Me.cmbPrintSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbPrintSize.FormattingEnabled = True
Me.cmbPrintSize.Location = New System.Drawing.Point(138, 66)
Me.cmbPrintSize.Name = "cmbPrintSize"
Me.cmbPrintSize.Size = New System.Drawing.Size(198, 21)
Me.cmbPrintSize.TabIndex = 23
'
'btnPrinterProperties
'
Me.btnPrinterProperties.Location = New System.Drawing.Point(415, 11)
Me.btnPrinterProperties.Name = "btnPrinterProperties"
Me.btnPrinterProperties.Size = New System.Drawing.Size(107, 23)
Me.btnPrinterProperties.TabIndex = 21
Me.btnPrinterProperties.Text = "Properties"
Me.btnPrinterProperties.UseVisualStyleBackColor = True
'
'lblPrintSize
'
Me.lblPrintSize.AutoSize = True
Me.lblPrintSize.Location = New System.Drawing.Point(10, 69)
Me.lblPrintSize.Name = "lblPrintSize"
Me.lblPrintSize.Size = New System.Drawing.Size(49, 13)
Me.lblPrintSize.TabIndex = 29
Me.lblPrintSize.Text = "Print size"
'
'cmbPrinterList
'
Me.cmbPrinterList.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbPrinterList.FormattingEnabled = True
Me.cmbPrinterList.Location = New System.Drawing.Point(138, 12)
Me.cmbPrinterList.Name = "cmbPrinterList"
Me.cmbPrinterList.Size = New System.Drawing.Size(271, 21)
Me.cmbPrinterList.TabIndex = 20
'
'lblCopies
'
Me.lblCopies.AutoSize = True
Me.lblCopies.Location = New System.Drawing.Point(10, 41)
Me.lblCopies.Name = "lblCopies"
Me.lblCopies.Size = New System.Drawing.Size(39, 13)
Me.lblCopies.TabIndex = 27
Me.lblCopies.Text = "Copies"
'
'lblPrinter
'
Me.lblPrinter.AutoSize = True
Me.lblPrinter.Location = New System.Drawing.Point(10, 15)
Me.lblPrinter.Name = "lblPrinter"
Me.lblPrinter.Size = New System.Drawing.Size(37, 13)
Me.lblPrinter.TabIndex = 25
Me.lblPrinter.Text = "Printer"
'
'btnCancel
'
Me.btnCancel.Location = New System.Drawing.Point(447, 236)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(75, 23)
Me.btnCancel.TabIndex = 32
Me.btnCancel.Text = "Cancel"
Me.btnCancel.UseVisualStyleBackColor = True
'
'btnPrint
'
Me.btnPrint.Location = New System.Drawing.Point(363, 236)
Me.btnPrint.Name = "btnPrint"
Me.btnPrint.Size = New System.Drawing.Size(74, 23)
Me.btnPrint.TabIndex = 30
Me.btnPrint.Text = "Print"
Me.btnPrint.UseVisualStyleBackColor = True
'
'grpOrientation
'
Me.grpOrientation.Controls.Add(Me.rbOrientationLandscape)
Me.grpOrientation.Controls.Add(Me.rbOrientationPortrait)
Me.grpOrientation.Controls.Add(Me.rbOrientationAutomatic)
Me.grpOrientation.Location = New System.Drawing.Point(13, 120)
Me.grpOrientation.Name = "grpOrientation"
Me.grpOrientation.Size = New System.Drawing.Size(200, 100)
Me.grpOrientation.TabIndex = 26
Me.grpOrientation.TabStop = False
Me.grpOrientation.Text = "Orientation"
'
'numCopies
'
Me.numCopies.Location = New System.Drawing.Point(138, 39)
Me.numCopies.Name = "numCopies"
Me.numCopies.Size = New System.Drawing.Size(61, 20)
Me.numCopies.TabIndex = 33
Me.numCopies.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.numCopies.Value = New Decimal(New Integer() {1, 0, 0, 0})
'
'frmPrint
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(535, 273)
Me.Controls.Add(Me.numCopies)
Me.Controls.Add(Me.cmbPrintAlignment)
Me.Controls.Add(Me.chkCollate)
Me.Controls.Add(Me.lblPrintAlignment)
Me.Controls.Add(Me.grpPageRange)
Me.Controls.Add(Me.cmbPrintSize)
Me.Controls.Add(Me.btnPrinterProperties)
Me.Controls.Add(Me.lblPrintSize)
Me.Controls.Add(Me.cmbPrinterList)
Me.Controls.Add(Me.lblCopies)
Me.Controls.Add(Me.lblPrinter)
Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnPrint)
Me.Controls.Add(Me.grpOrientation)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmPrint"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Print"
Me.grpPageRange.ResumeLayout(False)
Me.grpPageRange.PerformLayout()
Me.grpOrientation.ResumeLayout(False)
Me.grpOrientation.PerformLayout()
CType(Me.numCopies, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents cmbPrintAlignment As System.Windows.Forms.ComboBox
Friend WithEvents chkCollate As System.Windows.Forms.CheckBox
Friend WithEvents rbPageRangeSelection As System.Windows.Forms.RadioButton
Friend WithEvents rbPageRangeAll As System.Windows.Forms.RadioButton
Friend WithEvents txtPageRangeEnd As System.Windows.Forms.TextBox
Friend WithEvents lblPageRangeTo As System.Windows.Forms.Label
Friend WithEvents txtPageRangeStart As System.Windows.Forms.TextBox
Friend WithEvents rbPageRangePages As System.Windows.Forms.RadioButton
Friend WithEvents lblPrintAlignment As System.Windows.Forms.Label
Friend WithEvents grpPageRange As System.Windows.Forms.GroupBox
Friend WithEvents rbPageRangeCurrent As System.Windows.Forms.RadioButton
Friend WithEvents rbOrientationLandscape As System.Windows.Forms.RadioButton
Friend WithEvents rbOrientationPortrait As System.Windows.Forms.RadioButton
Friend WithEvents rbOrientationAutomatic As System.Windows.Forms.RadioButton
Friend WithEvents cmbPrintSize As System.Windows.Forms.ComboBox
Friend WithEvents btnPrinterProperties As System.Windows.Forms.Button
Friend WithEvents lblPrintSize As System.Windows.Forms.Label
Friend WithEvents cmbPrinterList As System.Windows.Forms.ComboBox
Friend WithEvents lblCopies As System.Windows.Forms.Label
Friend WithEvents lblPrinter As System.Windows.Forms.Label
Friend WithEvents btnCancel As System.Windows.Forms.Button
Friend WithEvents btnPrint As System.Windows.Forms.Button
Friend WithEvents grpOrientation As System.Windows.Forms.GroupBox
Friend WithEvents numCopies As System.Windows.Forms.NumericUpDown
End Class

3127
app/DD_Clipboard_Searcher/frmPrint.resx Normal file
View File

File diff suppressed because it is too large Load Diff

163
app/DD_Clipboard_Searcher/frmPrint.vb Normal file
View File

@ -0,0 +1,163 @@
Option Explicit On
Option Infer On
Option Strict On
Imports System
Imports GdPicture14
Public Class frmPrint
Enum PrintOrientation
AutoDetection
Portrait
Paysage
End Enum
Enum PagesToPrint
All
Selection
Current
Range
End Enum
Public Structure PrintSettings
Public Printer As String
Public Copies As Short
Public Collate As Boolean
Public PrintSize As PrintSizeOption
Public PrintAlignment As PrintAlignment
Public Orientation As PrintOrientation
Public PagesToPrint As PagesToPrint
Public PageRange As String
End Structure
Private m_printSettings As PrintSettings
Private ReadOnly m_owner As GdViewer
Public ReadOnly Property printConfiguration() As PrintSettings
Get
Return m_printSettings
End Get
End Property
Private ReadOnly m_isSelectionPartial As Boolean
Private ReadOnly m_isEmptySelection As Boolean
Public Sub New(ByVal owner As GdViewer)
InitializeComponent()
m_owner = owner
End Sub
Private Sub frmPrint_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
cmbPrinterList.Items.Clear()
For i As Integer = 1 To m_owner.PrintGetPrintersCount()
Dim printerName As String = m_owner.PrintGetPrinterName(i)
cmbPrinterList.Items.Add(printerName)
If printerName = m_owner.PrintGetActivePrinter() Then
cmbPrinterList.SelectedIndex = cmbPrinterList.Items.IndexOf(printerName)
End If
Next i
cmbPrintSize.Items.Add("Actual size") '0 = PrintSizeOptionActual
cmbPrintSize.Items.Add("Fit to page") '1 = PrintSizeOptionFit, default
cmbPrintSize.Items.Add("Shrink oversized pages") '2 = PrintSizeOptionShrinkOversized
cmbPrintSize.SelectedIndex = 2
cmbPrintAlignment.Items.Add("Middle left") '0 = PrintAlignmentMiddleLeft
cmbPrintAlignment.Items.Add("Middle right") '1 = PrintAlignmentMiddleRight
cmbPrintAlignment.Items.Add("Middle center") '2 = PrintAlignmentMiddleCenter
cmbPrintAlignment.Items.Add("Default") '3 = PrintAlignmentDefault
cmbPrintAlignment.Items.Add("Top left") '4 = PrintAlignmentTopLeft
cmbPrintAlignment.Items.Add("Top right") '5 = PrintAlignmentTopRight
cmbPrintAlignment.Items.Add("Top center") '6 = PrintAlignmentTopCenter
cmbPrintAlignment.Items.Add("Bottom left") '7 = PrintAlignmentBottomLeft
cmbPrintAlignment.Items.Add("Bottom right") '8 = PrintAlignmentBottomRight
cmbPrintAlignment.Items.Add("Bottom center") '9 = PrintAlignmentBottomCenter
cmbPrintAlignment.SelectedIndex = 2
If m_isEmptySelection Then
rbPageRangeSelection.Enabled = False
Else
If m_isSelectionPartial Then
rbPageRangeSelection.Checked = True
End If
End If
txtPageRangeStart.Enabled = False
txtPageRangeEnd.Enabled = False
txtPageRangeStart.Text = "1"
txtPageRangeEnd.Text = m_owner.PageCount.ToString()
btnPrint.DialogResult = Windows.Forms.DialogResult.OK
btnCancel.DialogResult = Windows.Forms.DialogResult.Cancel
End Sub
Private Sub btnPrinterProperties_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnPrinterProperties.Click
Dim status As GdPictureStatus = m_owner.PrintShowPrinterSettingsDialog(Me.Handle)
If status <> GdPictureStatus.OK Then
'todo: handle error
End If
End Sub
Private Sub cmbPrinterList_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cmbPrinterList.SelectedIndexChanged
m_owner.PrintSetActivePrinter(cmbPrinterList.Text)
End Sub
Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCancel.Click
Me.Close()
End Sub
Private Sub rbPageRangeAll_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles rbPageRangeAll.CheckedChanged
rbPageRangeGeneric_CheckedChanged()
End Sub
Private Sub rbPageRangeSelection_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles rbPageRangeSelection.CheckedChanged
rbPageRangeGeneric_CheckedChanged()
End Sub
Private Sub rbPageRangeCurrent_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles rbPageRangeCurrent.CheckedChanged
rbPageRangeGeneric_CheckedChanged()
End Sub
Private Sub rbPageRangePages_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles rbPageRangePages.CheckedChanged
rbPageRangeGeneric_CheckedChanged()
End Sub
Private Sub rbPageRangeGeneric_CheckedChanged()
If rbPageRangePages.Checked Then
txtPageRangeStart.Enabled = True
txtPageRangeEnd.Enabled = True
Else
txtPageRangeStart.Enabled = False
txtPageRangeEnd.Enabled = False
End If
End Sub
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnPrint.Click
m_printSettings.Printer = cmbPrinterList.Text
m_printSettings.Copies = CShort(numCopies.Value)
m_printSettings.Collate = chkCollate.Checked
m_printSettings.PrintSize = CType(cmbPrintSize.SelectedIndex, PrintSizeOption)
m_printSettings.PrintAlignment = CType(cmbPrintAlignment.SelectedIndex, PrintAlignment)
If rbOrientationAutomatic.Checked Then
m_printSettings.Orientation = PrintOrientation.AutoDetection
ElseIf rbOrientationPortrait.Checked Then
m_printSettings.Orientation = PrintOrientation.Portrait
ElseIf rbOrientationLandscape.Checked Then
m_printSettings.Orientation = PrintOrientation.Paysage
End If
If rbPageRangeAll.Checked Then
m_printSettings.PagesToPrint = PagesToPrint.All
ElseIf rbPageRangeSelection.Checked Then
m_printSettings.PagesToPrint = PagesToPrint.Selection
ElseIf rbPageRangeCurrent.Checked Then
m_printSettings.PagesToPrint = PagesToPrint.Current
ElseIf rbPageRangePages.Checked Then
m_printSettings.PagesToPrint = PagesToPrint.Range
m_printSettings.PageRange = txtPageRangeStart.Text & "-" & txtPageRangeEnd.Text
End If
End Sub
End Class

120
app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb generated Normal file
View File

@ -0,0 +1,120 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmProfileMatch
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProfileMatch))
Me.Label1 = New System.Windows.Forms.Label()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Calibri", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(39, 15)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(489, 19)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Clipboard Watcher hat mehr als einen Match für Ihre Suche gefunden:"
'
'GridControl1
'
Me.GridControl1.Location = New System.Drawing.Point(27, 48)
Me.GridControl1.MainView = Me.TileView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(621, 208)
Me.GridControl1.TabIndex = 3
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1})
'
'TileView1
'
Me.TileView1.Appearance.ItemPressed.BackColor = System.Drawing.Color.Silver
Me.TileView1.Appearance.ItemPressed.Options.UseBackColor = True
Me.TileView1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat
Me.TileView1.GridControl = Me.GridControl1
Me.TileView1.Name = "TileView1"
Me.TileView1.OptionsTiles.ItemSize = New System.Drawing.Size(200, 80)
Me.TileView1.OptionsTiles.LayoutMode = DevExpress.XtraGrid.Views.Tile.TileViewLayoutMode.List
Me.TileView1.OptionsView.BackgroundColorMode = DevExpress.XtraGrid.Views.Tile.BackgroundColorMode.Skin
Me.TileView1.ViewCaption = "Clipboard Watcher hat mehr als einen Match für Ihre Suche gefunden:"
'
'Button2
'
Me.Button2.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(347, 271)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(301, 53)
Me.Button2.TabIndex = 4
Me.Button2.Text = "Abbruch"
Me.Button2.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.Control
Me.Button1.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.ID_SITE_PUBLISH_ALL
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(27, 271)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(300, 53)
Me.Button1.TabIndex = 5
Me.Button1.Text = "Alle Ergebnisse anzeigen"
Me.Button1.UseVisualStyleBackColor = False
'
'frmProfileMatch
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.Control
Me.ClientSize = New System.Drawing.Size(675, 344)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.GridControl1)
Me.Controls.Add(Me.Label1)
Me.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmProfileMatch"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Profile Match"
Me.TopMost = True
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents Button2 As Button
Friend WithEvents TileView1 As DevExpress.XtraGrid.Views.Tile.TileView
Friend WithEvents Button1 As Button
End Class

377
app/DD_Clipboard_Searcher/frmProfileMatch.resx Normal file
View File

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

169
app/DD_Clipboard_Searcher/frmProfileMatch.vb Normal file
View File

@ -0,0 +1,169 @@
Imports DevExpress.XtraEditors
Imports DevExpress.XtraGrid.Views.Tile
Imports DevExpress.XtraGrid.Views.Tile.ViewInfo
Public Class frmProfileMatch
Private Sub frmProfileMatch_Load(sender As Object, e As EventArgs) Handles Me.Load
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 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 WhiteBackground As Color = System.Drawing.Color.FromArgb(230, Color.White)
' Datatable laden
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.Add(ImageColumn)
'For Each oProfileColumn As DataColumn In CurrDT_PROFILE_MATCH.Columns
' Dim index As Integer = CurrDT_PROFILE_MATCH.Columns.IndexOf(oProfileColumn)
' Select Case index
' 'Case 0
' ' ' RecordId
' ' RECORDID_Column = New TileViewItemElement()
' ' With RECORDID_Column
' ' .Column = grvwTiles.Columns(0)
' ' .Column.OptionsFilter.AllowFilter = True
' ' .TextAlignment = TileItemContentAlignment.TopLeft
' ' End With
' ' grvwTiles.TileTemplate.Add(RECORDID_Column)
' Case 1
' ' Index 1 ist das Bild
' If oProfileColumn.DataType.ToString.Contains("Byte") Then
' ImageColumn = New TileViewItemElement()
' With ImageColumn
' .Image = My.Resources.asterisk_orange
' .Column = TileView1.Columns(1)
' '.ImageSize = New Size(186, 90)
' .ImageSize = New Size(186, 118)
' .ImageScaleMode = TileItemImageScaleMode.ZoomInside
' .ImageAlignment = TileItemContentAlignment.Manual
' .ImageLocation = New Point(-10, -10)
' End With
' TileView1.TileTemplate.Add(ImageColumn)
' End If
' Case 2
' ' Index 2 ist die Headline
' HeadlineColumn = New TileViewItemElement()
' With HeadlineColumn
' .Column = TileView1.Columns(2)
' .TextAlignment = TileItemContentAlignment.TopRight
' .Appearance.Normal.Font = PrimaryFont
' .Appearance.Normal.ForeColor = Color.DodgerBlue
' .Column.OptionsFilter.AllowFilter = True
' End With
' TileView1.TileTemplate.Add(HeadlineColumn)
' Case 3 To 4
' ' Indexe 3 und 4 sind normale Textzeilen
' TextColumn = New TileViewItemElement()
' TextHeaderColumn = New TileViewItemElement()
' Dim OffsetIndex = index - 3
' With TextHeaderColumn
' .Text = oProfileColumn.ColumnName
' .TextAlignment = TileItemContentAlignment.Manual
' .TextLocation = New Point(120, 20 + (OffsetIndex * 40))
' .Appearance.Normal.Font = SecondaryFont
' .Appearance.Normal.ForeColor = Color.DarkGray
' .Appearance.Normal.BackColor = WhiteBackground
' End With
' With TextColumn
' .Column = TileView1.Columns(index)
' .TextAlignment = TileItemContentAlignment.Manual
' .TextLocation = New Point(120, 20 + 18 + (OffsetIndex * 40))
' .Appearance.Normal.Font = SecondaryFont
' .Appearance.Normal.ForeColor = Color.Black
' .Appearance.Normal.BackColor = WhiteBackground
' End With
' TileView1.TileTemplate.Add(TextHeaderColumn)
' TileView1.TileTemplate.Add(TextColumn)
' End Select
'Next
Catch ex As Exception
End Try
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()
End Sub
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
oResult = oRow.Item("GUID")
Else
oResult &= "," & oRow.Item("GUID")
End If
Next
CurrSearch2Load = oResult
OpenResults_Doc()
End Sub
End Class

450
app/DD_Clipboard_Searcher/frmResultDoc.Designer.vb generated Normal file
View File

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

182
app/DD_Clipboard_Searcher/frmResultDoc.resx Normal file
View File

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

561
app/DD_Clipboard_Searcher/frmResultDoc.vb Normal file
View File

@ -0,0 +1,561 @@
Imports System.ComponentModel
Imports System.IO
Imports System.Runtime.InteropServices
Imports DevExpress.Utils
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Grid
Imports DD_LIB_Standards
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraTab
Public Class frmResultDoc
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
End Function
Public Structure SHELLEXECUTEINFO
Public cbSize As Integer
Public fMask As Integer
Public hwnd As IntPtr
<MarshalAs(UnmanagedType.LPTStr)> Public lpVerb As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpFile As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpParameters As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpDirectory As String
Dim nShow As Integer
Dim hInstApp As IntPtr
Dim lpIDList As IntPtr
<MarshalAs(UnmanagedType.LPTStr)> Public lpClass As String
Public hkeyClass As IntPtr
Public dwHotKey As Integer
Public hIcon As IntPtr
Public hProcess As IntPtr
End Structure
#Region "Laufzeitvariablen & Konstanten"
Private Const SEE_MASK_INVOKEIDLIST = &HC
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Const SEE_MASK_FLAG_NO_UI = &H400
Public Const SW_SHOW As Short = 5
Private Shared BW_DocPath As String
Private Shared BW_DocID As Integer
Private Shared CurrSearchID As Integer
Private DTDocSearchDefinition As DataTable
Private _frmDocView As frmDocView 'You need a reference to Form1
Private _frmProfileMatch As frmDocView 'You need a reference to Form1
#End Region
Public Sub New()
MyBase.New
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
_frmDocView = frmDocView
End Sub
Sub RefreshTabDoc(PROFILE_ID As Integer, ConID As Integer, SQLCommand As String, TabIndex As Integer, TabCaption As String)
Try
SQLCommand = clsPatterns.ReplaceAllValues(SQLCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, PROFILE_ID)
Dim myGridControl As DevExpress.XtraGrid.GridControl
Dim myGridview As DevExpress.XtraGrid.Views.Grid.GridView
Select Case TabIndex
Case 0
GridControlDocSearch1.DataSource = Nothing
GridViewDocSearch1.Columns.Clear()
myGridview = GridViewDocSearch1
myGridControl = GridControlDocSearch1
Case 1
GridControlDocSearch2.DataSource = Nothing
GridViewDocSearch2.Columns.Clear()
myGridview = GridViewDocSearch2
myGridControl = GridControlDocSearch2
Case 2
GridControlDocSearch3.DataSource = Nothing
GridViewDocSearch3.Columns.Clear()
myGridview = GridViewDocSearch3
myGridControl = GridControlDocSearch3
Case 3
GridControlDocSearch4.DataSource = Nothing
GridViewDocSearch4.Columns.Clear()
myGridControl = GridControlDocSearch4
myGridview = GridViewDocSearch4
Case 4
GridControlDocSearch5.DataSource = Nothing
GridViewDocSearch5.Columns.Clear()
myGridControl = GridControlDocSearch5
myGridview = GridViewDocSearch5
End Select
myGridControl.ContextMenuStrip = ContextMenuStripWMFile
Dim oDatatable As DataTable = clsDatabase.Return_Datatable(SQLCommand)
If Not IsNothing(oDatatable) Then
XtraTabControlDocs.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
clsWMDocGrid.DTDocuments = oDatatable
'Select Case TabIndex
' Case 0
' GridControlDocSearch1.DataSource = oDatatable
' Case 1
' GridControlDocSearch2.DataSource = oDatatable
' Case 2
' GridControlDocSearch3.DataSource = oDatatable
' Case 3
' GridControlDocSearch4.DataSource = oDatatable
' Case 4
' GridControlDocSearch5.DataSource = oDatatable
'End Select
Create_GridControl(myGridview, oDatatable)
Dim oxmlPath As String = ""
oxmlPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
If File.Exists(oxmlPath) Then
myGridview.RestoreLayoutFromXml(oxmlPath)
myGridview.GuessAutoFilterRowValuesFromFilter()
End If
tslblState.Text = $"Tab [{TabCaption}] refreshed - {Now}"
XtraTabControlDocs.TabPages(TabIndex).PageVisible = True
Else
clsWMDocGrid.DTDocuments = Nothing
End If
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Function Create_GridControl(MyGridView As GridView, _datatable As DataTable) As GridView
Dim oMyDocDatatable As New DataTable
Try
'Die Icon Colum erstellen und konfigurieren
Dim oColIcon As New System.Data.DataColumn()
oColIcon.DataType = GetType(Image)
oColIcon.ColumnName = "ICON"
oColIcon.Caption = ""
oMyDocDatatable.Columns.Add(oColIcon)
Dim oColPath As New System.Data.DataColumn()
oColPath.DataType = GetType(String)
oColPath.ColumnName = "FULL_FILENAME"
oColPath.Caption = "Fullpath"
oMyDocDatatable.Columns.Add(oColPath)
Dim oColDocID As New System.Data.DataColumn()
oColDocID.DataType = GetType(Int32)
oColDocID.ColumnName = "DocID"
oColDocID.Caption = "DocID"
oMyDocDatatable.Columns.Add(oColDocID)
Dim oRestColArray As New List(Of String)
For Each oCol As DataColumn In _datatable.Columns
Dim onewColumn As New System.Data.DataColumn()
If oCol.ColumnName <> "DocID" And oCol.ColumnName <> "FULL_FILENAME" And oCol.ColumnName <> "Filename" Then
onewColumn.DataType = GetType(String)
onewColumn.ColumnName = oCol.ColumnName
onewColumn.Caption = oCol.Caption
oMyDocDatatable.Columns.Add(onewColumn)
oRestColArray.Add(onewColumn.ColumnName)
End If
Next
For Each FILE_ROW As DataRow In _datatable.Rows
Dim oFullpath = FILE_ROW.Item("FULL_FILENAME")
Dim oDocID = FILE_ROW.Item("DocID")
'Dim Folderpath = Path.GetDirectoryName(fullpath)
Dim oFilename = Path.GetFileName(oFullpath)
Dim oFileextension = Path.GetExtension(oFullpath)
Dim oNewRow As DataRow
oNewRow = oMyDocDatatable.NewRow()
'Icon zuweisen
Select Case oFileextension.ToUpper
Case ".csv".ToUpper
oNewRow.Item(0) = My.Resources.doc_excel_csv
Case ".txt".ToUpper
oNewRow.Item(0) = My.Resources.txt
Case ".pdf".ToUpper
oNewRow.Item(0) = My.Resources.pdf
Case ".doc".ToUpper
oNewRow.Item(0) = My.Resources.doc
Case ".docx".ToUpper
oNewRow.Item(0) = My.Resources.doc
Case ".xls".ToUpper
oNewRow.Item(0) = My.Resources.xls
Case ".xlsx".ToUpper
oNewRow.Item(0) = My.Resources.xls
Case ".xlsm".ToUpper
oNewRow.Item(0) = My.Resources.xls
Case ".ppt".ToUpper
oNewRow.Item(0) = My.Resources.ppt
Case ".pptx".ToUpper
oNewRow.Item(0) = My.Resources.ppt
Case ".dwg".ToUpper
oNewRow.Item(0) = My.Resources.dwg
Case ".dxf".ToUpper
oNewRow.Item(0) = My.Resources.dxf
Case ".msg".ToUpper
oNewRow.Item(0) = My.Resources.email_go
Case ".msg".ToUpper
oNewRow.Item(0) = My.Resources.email_go
Case ".tif".ToUpper
oNewRow.Item(0) = My.Resources.tiff
Case ".tiff".ToUpper
oNewRow.Item(0) = My.Resources.tiff
Case ".jpg".ToUpper
oNewRow.Item(0) = My.Resources.jpg
Case Else
oNewRow.Item(0) = My.Resources._blank
End Select
'Den Filepath mitgeben
oNewRow.Item(1) = oFullpath
oNewRow.Item(2) = oDocID
Dim i = 3 'Fängt bei 3 an, um die definierten Spalten zu überspringen
For Each Colname As String In oRestColArray
Dim oRowValue
oRowValue = FILE_ROW.Item(Colname)
oNewRow.Item(i) = oRowValue.ToString
i += 1
Next
oMyDocDatatable.Rows.Add(oNewRow)
Next
Dim sdsd As String = ""
Dim oGridControl As GridControl = MyGridView.GridControl
oGridControl.DataSource = oMyDocDatatable
oGridControl.ForceInitialize()
Try
MyGridView.Columns.Item("DocID").Visible = False
Catch ex As Exception
End Try
Try
MyGridView.Columns.Item("FULL_FILENAME").Visible = False
Catch ex As Exception
End Try
Dim created, changed As String
If USER_LANGUAGE <> "de-DE" Then
changed = "Changed"
created = "Created"
Else
changed = "Geändert"
created = "Erstellt"
End If
Dim createdColumn = MyGridView.Columns(created)
If Not IsNothing(createdColumn) Then
createdColumn.DisplayFormat.FormatType = FormatType.DateTime
createdColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
End If
Dim changedColumn = MyGridView.Columns(changed)
If Not IsNothing(changedColumn) Then
changedColumn.DisplayFormat.FormatType = FormatType.DateTime
changedColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
End If
' Alle Spalten aus ReadOnly setzen, danach werden alle passenden auf nicht ReadOnly gesetzt
For Each column As GridColumn In MyGridView.Columns
column.OptionsColumn.AllowEdit = False
Next
MyGridView.Columns.Item("ICON").MaxWidth = 24
MyGridView.Columns.Item("ICON").MinWidth = 24
MyGridView.OptionsView.BestFitMaxRowCount = -1
MyGridView.BestFitColumns(True)
Return MyGridView
Catch ex As Exception
Logger.Error(ex)
End Try
End Function
Private Function Get_DocGrid_Layout_Filename(oIndex As Integer)
Dim oFilename As String = String.Format("GridViewDoc_Search-{0}-{1}-UserLayout.xml", oIndex, CurrSearchID)
Dim oPath = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename)
Return oPath
End Function
Private Sub GridControlDocSearch_Leave(sender As Object, e As EventArgs) Handles GridControlDocSearch1.Leave, GridControlDocSearch2.Leave, GridControlDocSearch3.Leave, GridControlDocSearch4.Leave, GridControlDocSearch5.Leave
SaveDocGridLayout()
End Sub
Sub SaveDocGridLayout()
Dim oXMLPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
clsWMDocGrid.ActiveDocGrid.SaveLayoutToXml(oXMLPath)
End Sub
Private Sub EigenschaftenDateiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenDateiToolStripMenuItem.Click
Show_File_Properties()
End Sub
Sub Show_File_Properties()
If IsNothing(clsWMDocGrid.DTDocuments) Then
MsgBox("Could not read file Parameters!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each oRow As DataRow In clsWMDocGrid.DTDocuments.Rows
If oRow.Item("DOC_PATH") <> "" Then
Cursor = Cursors.WaitCursor
Dim sei As New SHELLEXECUTEINFO
sei.cbSize = Marshal.SizeOf(sei)
sei.lpVerb = "properties"
sei.lpFile = oRow.Item("DOC_PATH")
sei.nShow = SW_SHOW
sei.fMask = SEE_MASK_INVOKEIDLIST
If Not ShellExecuteEx(sei) Then
Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
MsgBox("Error in Open file propertys: " & ex.Message, MsgBoxStyle.Critical)
Logger.Error(ex)
End If
End If
Cursor = Cursors.Default
Next
End Sub
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
FileShow()
End Sub
Sub FileShow()
Try
If IsNothing(clsWMDocGrid.DTDocuments) Then
MsgBox("Could not read fileparameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In clsWMDocGrid.DTDocuments.Rows
File_SYSOPEN(row.Item("DOC_PATH"), row.Item("DOC_ID"))
Next
Catch ex As Exception
End Try
End Sub
Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String)
Try
If RESULT_DOC_PATH <> Nothing Then
BW_DocPath = RESULT_DOC_PATH
BW_DocID = DocID
Dim BWFileHandler As New BackgroundWorker
AddHandler BWFileHandler.DoWork, AddressOf BWFileHandler_DoWork
BWFileHandler.RunWorkerAsync()
End If
Catch ex As Exception
MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
Logger.Error(ex)
End Try
End Sub
Private Shared Sub BWFileHandler_DoWork()
Try
Dim oMyProcess = New Process()
Dim oExtension
Dim oSql
Try
'Dim oPSI As New ProcessStartInfo(BW_DocPath)
oMyProcess.StartInfo.FileName = BW_DocPath
oMyProcess.StartInfo.UseShellExecute = True
oMyProcess.StartInfo.RedirectStandardOutput = False
oMyProcess.Start()
'oMyProcess.WaitForExit()
Catch ex As Exception
Logger.Error(ex)
Exit Sub
End Try
Catch ex As Exception
Logger.Error(ex)
Try
Process.Start(BW_DocPath)
Catch ex1 As Exception
Logger.Error(ex)
End Try
End Try
End Sub
Sub Refresh_DocID(myGrid As GridView)
clsWMDocGrid.ActiveDocGrid = myGrid
clsWMDocGrid.ActiveDocGrid.EndSelection()
clsWMDocGrid.GetDocItems()
If ToolStripDropDownButtonFile.Visible = False Then
ToolStripDropDownButtonFile.Visible = True
End If
If clsWMDocGrid.SELECTED_DOC_ID <> 0 Then
Dim msg = "Doc-ID: " & clsWMDocGrid.SELECTED_DOC_ID.ToString
tslblDocID.Text = msg
ToolStripDropDownButtonFile.Enabled = True
Dim frmCollection As New FormCollection()
frmCollection = Application.OpenForms()
Try
If frmCollection.Item("frmDocView").IsHandleCreated Then
'MsgBox("Yes Opened")
_frmDocView.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
Else
Dim f As New frmDocView
With f
.Show()
.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
End With
End If
Catch ex As Exception
Dim newDocView As New frmDocView
With newDocView
.Show()
.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
End With
_frmDocView = newDocView
End Try
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
Refresh_DocID(GridViewDocSearch1)
End Sub
Private Sub GridViewDocSearch1_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridViewDocSearch1.ColumnWidthChanged
SaveDocGridLayout()
End Sub
Private Sub ÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripMenuItem.Click
FileShow()
End Sub
Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenToolStripMenuItem.Click
Show_File_Properties()
End Sub
Private Sub frmResultDoc_Load(sender As Object, e As EventArgs) Handles Me.Load
ToolStripDropDownButtonFile.Visible = False
If My.Settings.frmResultDocPosition.IsEmpty = False Then
If My.Settings.frmResultDocPosition.X > 0 And My.Settings.frmResultDocPosition.Y > 0 Then
Location = My.Settings.frmResultDocPosition
End If
End If
If My.Settings.frmResultDocSize.IsEmpty = False Then
Size = My.Settings.frmResultDocSize
End If
Load_Searches()
End Sub
Sub Load_Searches()
If Not IsNothing(CurrSearch2Load) Then
Dim oSQL = $"SELECT * FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID in ({CurrSearch2Load}) ORDER BY TAB_INDEX"
DTDocSearchDefinition = clsDatabase.Return_Datatable(oSQL)
Dim oindex As Integer
Dim ocounter As Integer = 0
If CurrSearch2Load.ToString.Contains(",") Then
End If
For Each oRow As DataRow In DTDocSearchDefinition.Rows
RefreshTabDoc(oRow.Item("PROFILE_ID"), oRow.Item("CONN_ID"), oRow.Item("SQL_COMMAND"), ocounter, oRow.Item("TAB_TITLE"))
ocounter += 1
Next
Else
MsgBox("Sorry but the selection of profile went wrong. (CurrSearch2Load is nothing)", MsgBoxStyle.Critical)
Me.Close()
End If
End Sub
Private Sub frmResultDoc_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
' Position und Größe speichern
My.Settings.frmResultDocSize = Me.Size
My.Settings.frmResultDocPosition = Me.Location
My.Settings.Save()
Catch ex As Exception
Logger.Error(ex)
Logger.Info("Error in Save FormLayout: " & ex.Message)
End Try
Try
Dim frmCollection As New FormCollection()
frmCollection = Application.OpenForms()
If frmCollection.Item("frmDocView").IsHandleCreated Then
_frmDocView.Close()
End If
If frmCollection.Item("frmProfileMatch").IsHandleCreated Then
frmProfileMatch.Show()
frmProfileMatch.BringToFront()
End If
Catch ex As Exception
End Try
End Sub
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
ReLoad_Active_DocTab()
End Sub
Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
Set_DoclayoutBack()
End Sub
Sub Set_DoclayoutBack()
Dim oXMLPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
Try
If File.Exists(oXMLPath) Then
File.Delete(oXMLPath)
ReLoad_Active_DocTab()
tslblState.Text = "Layout has been set back!"
Else
tslblState.Text = ""
End If
Catch ex As Exception
tslblState.Text = ""
End Try
End Sub
Sub ReLoad_Active_DocTab()
Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex
Dim oConID = DTDocSearchDefinition.Rows(oTabIndex).Item("CONN_ID")
Dim oCommand = DTDocSearchDefinition.Rows(oTabIndex).Item("SQL_COMMAND")
Dim oProfID = DTDocSearchDefinition.Rows(oTabIndex).Item("PROFILE_ID")
oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfID)
RefreshTabDoc(oProfID, oConID, oCommand, oTabIndex, DTDocSearchDefinition.Rows(oTabIndex).Item("TAB_TITLE"))
End Sub
Private Sub GridViewDocSearch1_FocusedColumnChanged(sender As Object, e As Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDocSearch1.FocusedColumnChanged
Refresh_DocID(GridViewDocSearch1)
End Sub
Private Sub GridViewDocSearch2_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch2.FocusedColumnChanged
Refresh_DocID(GridViewDocSearch2)
End Sub
Private Sub GridViewDocSearch3_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch3.FocusedColumnChanged
Refresh_DocID(GridViewDocSearch3)
End Sub
Private Sub GridViewDocSearch4_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch4.FocusedColumnChanged
Refresh_DocID(GridViewDocSearch4)
End Sub
Private Sub GridViewDocSearch5_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch5.FocusedColumnChanged
Refresh_DocID(GridViewDocSearch5)
End Sub
Private Sub GridViewDocSearch2_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch2.FocusedRowChanged
Refresh_DocID(GridViewDocSearch2)
End Sub
Private Sub GridViewDocSearch3_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch3.FocusedRowChanged
Refresh_DocID(GridViewDocSearch3)
End Sub
Private Sub GridViewDocSearch4_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch4.FocusedRowChanged
Refresh_DocID(GridViewDocSearch4)
End Sub
Private Sub GridViewDocSearch5_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch5.FocusedRowChanged
Refresh_DocID(GridViewDocSearch5)
End Sub
Private Sub frmResultDoc_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
End Sub
Private Sub XtraTabControlDocs_TabIndexChanged(sender As Object, e As EventArgs) Handles XtraTabControlDocs.TabIndexChanged
End Sub
Private Sub XtraTabControlDocs_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControlDocs.SelectedPageChanged
If IsNothing(DTDocSearchDefinition) Then Exit Sub
Dim oConID = DTDocSearchDefinition.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("CONN_ID")
Dim oCommand = DTDocSearchDefinition.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("SQL_COMMAND")
Dim oProfileID = DTDocSearchDefinition.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("PROFILE_ID")
oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileID)
Dim oTabIndex = DTDocSearchDefinition.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("TAB_INDEX")
Dim oTabCaption = DTDocSearchDefinition.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("TAB_TITLE")
RefreshTabDoc(oProfileID, oConID, oCommand, oTabIndex, oTabCaption)
End Sub
End Class

517
app/DD_Clipboard_Searcher/frmSettings.designer.vb generated Normal file
View File

@ -0,0 +1,517 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSettings
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSettings))
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.chkIgnoreDocumentResolution = New System.Windows.Forms.CheckBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.txtZoomStep = New System.Windows.Forms.NumericUpDown()
Me.cbMouseWheelMode = New System.Windows.Forms.ComboBox()
Me.cbDocumentPosition = New System.Windows.Forms.ComboBox()
Me.cbDocumentAlignment = New System.Windows.Forms.ComboBox()
Me.chkEnableMenu = New System.Windows.Forms.CheckBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.cbDisplayQuality = New System.Windows.Forms.ComboBox()
Me.chkContinuousViewMode = New System.Windows.Forms.CheckBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnApply = New System.Windows.Forms.Button()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.chkHQAnnotationsRendering = New System.Windows.Forms.CheckBox()
Me.chkAnnotationsDropShadow = New System.Windows.Forms.CheckBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.chkEnableICM = New System.Windows.Forms.CheckBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.cbPDFRenderingEngine = New System.Windows.Forms.ComboBox()
Me.chkPDFVerifyDigitalCertificates = New System.Windows.Forms.CheckBox()
Me.chkPDFIncreaseTextContrast = New System.Windows.Forms.CheckBox()
Me.chkPDFEnableLinks = New System.Windows.Forms.CheckBox()
Me.chkPDFEnableFileLinks = New System.Windows.Forms.CheckBox()
Me.chkPDFDisplayFormFields = New System.Windows.Forms.CheckBox()
Me.cbPageDisplayMode = New System.Windows.Forms.ComboBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.chkEnableDeferredPainting = New System.Windows.Forms.CheckBox()
Me.GroupBox1.SuspendLayout
CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.txtZoomStep,System.ComponentModel.ISupportInitialize).BeginInit
Me.GroupBox2.SuspendLayout
Me.GroupBox3.SuspendLayout
Me.GroupBox4.SuspendLayout
Me.SuspendLayout
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.chkEnableDeferredPainting)
Me.GroupBox1.Controls.Add(Me.Label8)
Me.GroupBox1.Controls.Add(Me.cbPageDisplayMode)
Me.GroupBox1.Controls.Add(Me.chkIgnoreDocumentResolution)
Me.GroupBox1.Controls.Add(Me.PictureBox1)
Me.GroupBox1.Controls.Add(Me.txtZoomStep)
Me.GroupBox1.Controls.Add(Me.cbMouseWheelMode)
Me.GroupBox1.Controls.Add(Me.cbDocumentPosition)
Me.GroupBox1.Controls.Add(Me.cbDocumentAlignment)
Me.GroupBox1.Controls.Add(Me.chkEnableMenu)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.cbDisplayQuality)
Me.GroupBox1.Controls.Add(Me.chkContinuousViewMode)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Location = New System.Drawing.Point(18, 18)
Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox1.Size = New System.Drawing.Size(436, 455)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = false
Me.GroupBox1.Text = "General options"
'
'chkIgnoreDocumentResolution
'
Me.chkIgnoreDocumentResolution.AutoSize = true
Me.chkIgnoreDocumentResolution.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkIgnoreDocumentResolution.Location = New System.Drawing.Point(9, 382)
Me.chkIgnoreDocumentResolution.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.chkIgnoreDocumentResolution.Name = "chkIgnoreDocumentResolution"
Me.chkIgnoreDocumentResolution.Size = New System.Drawing.Size(229, 24)
Me.chkIgnoreDocumentResolution.TabIndex = 11
Me.chkIgnoreDocumentResolution.Text = "Ignore document resolution"
Me.chkIgnoreDocumentResolution.UseVisualStyleBackColor = true
'
'PictureBox1
'
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.PictureBox1.Location = New System.Drawing.Point(174, 305)
Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
Me.PictureBox1.TabIndex = 3
Me.PictureBox1.TabStop = false
'
'txtZoomStep
'
Me.txtZoomStep.Location = New System.Drawing.Point(104, 28)
Me.txtZoomStep.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.txtZoomStep.Maximum = New Decimal(New Integer() {1000, 0, 0, 0})
Me.txtZoomStep.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.txtZoomStep.Name = "txtZoomStep"
Me.txtZoomStep.Size = New System.Drawing.Size(118, 26)
Me.txtZoomStep.TabIndex = 0
Me.txtZoomStep.Value = New Decimal(New Integer() {1, 0, 0, 0})
'
'cbMouseWheelMode
'
Me.cbMouseWheelMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbMouseWheelMode.FormattingEnabled = true
Me.cbMouseWheelMode.Location = New System.Drawing.Point(174, 263)
Me.cbMouseWheelMode.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.cbMouseWheelMode.Name = "cbMouseWheelMode"
Me.cbMouseWheelMode.Size = New System.Drawing.Size(158, 28)
Me.cbMouseWheelMode.TabIndex = 7
'
'cbDocumentPosition
'
Me.cbDocumentPosition.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbDocumentPosition.FormattingEnabled = true
Me.cbDocumentPosition.Location = New System.Drawing.Point(174, 223)
Me.cbDocumentPosition.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.cbDocumentPosition.Name = "cbDocumentPosition"
Me.cbDocumentPosition.Size = New System.Drawing.Size(158, 28)
Me.cbDocumentPosition.TabIndex = 6
'
'cbDocumentAlignment
'
Me.cbDocumentAlignment.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbDocumentAlignment.FormattingEnabled = true
Me.cbDocumentAlignment.Location = New System.Drawing.Point(174, 183)
Me.cbDocumentAlignment.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.cbDocumentAlignment.Name = "cbDocumentAlignment"
Me.cbDocumentAlignment.Size = New System.Drawing.Size(158, 28)
Me.cbDocumentAlignment.TabIndex = 5
'
'chkEnableMenu
'
Me.chkEnableMenu.AutoSize = true
Me.chkEnableMenu.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkEnableMenu.Location = New System.Drawing.Point(9, 346)
Me.chkEnableMenu.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.chkEnableMenu.Name = "chkEnableMenu"
Me.chkEnableMenu.Size = New System.Drawing.Size(206, 24)
Me.chkEnableMenu.TabIndex = 10
Me.chkEnableMenu.Text = "Enable contextual menu"
Me.chkEnableMenu.UseVisualStyleBackColor = true
'
'Label6
'
Me.Label6.AutoSize = true
Me.Label6.Location = New System.Drawing.Point(9, 311)
Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(133, 20)
Me.Label6.TabIndex = 9
Me.Label6.Text = "Background color"
'
'Label5
'
Me.Label5.AutoSize = true
Me.Label5.Location = New System.Drawing.Point(10, 266)
Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(146, 20)
Me.Label5.TabIndex = 8
Me.Label5.Text = "Mouse wheel mode"
'
'Label4
'
Me.Label4.AutoSize = true
Me.Label4.Location = New System.Drawing.Point(10, 226)
Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(142, 20)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Document position"
'
'Label3
'
Me.Label3.AutoSize = true
Me.Label3.Location = New System.Drawing.Point(10, 186)
Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(156, 20)
Me.Label3.TabIndex = 6
Me.Label3.Text = "Document alignment"
'
'Label2
'
Me.Label2.AutoSize = true
Me.Label2.Location = New System.Drawing.Point(9, 106)
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(109, 20)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Display quality"
'
'cbDisplayQuality
'
Me.cbDisplayQuality.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbDisplayQuality.FormattingEnabled = true
Me.cbDisplayQuality.Location = New System.Drawing.Point(174, 103)
Me.cbDisplayQuality.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.cbDisplayQuality.Name = "cbDisplayQuality"
Me.cbDisplayQuality.Size = New System.Drawing.Size(158, 28)
Me.cbDisplayQuality.TabIndex = 3
'
'chkContinuousViewMode
'
Me.chkContinuousViewMode.AutoSize = true
Me.chkContinuousViewMode.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkContinuousViewMode.Location = New System.Drawing.Point(9, 65)
Me.chkContinuousViewMode.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.chkContinuousViewMode.Name = "chkContinuousViewMode"
Me.chkContinuousViewMode.Size = New System.Drawing.Size(194, 24)
Me.chkContinuousViewMode.TabIndex = 2
Me.chkContinuousViewMode.Text = "Continuous view mode"
Me.chkContinuousViewMode.UseVisualStyleBackColor = true
'
'Label1
'
Me.Label1.AutoSize = true
Me.Label1.Location = New System.Drawing.Point(9, 31)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(85, 20)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Zoom step"
'
'btnApply
'
Me.btnApply.Location = New System.Drawing.Point(793, 520)
Me.btnApply.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.btnApply.Name = "btnApply"
Me.btnApply.Size = New System.Drawing.Size(112, 35)
Me.btnApply.TabIndex = 99
Me.btnApply.Text = "Apply"
Me.btnApply.UseVisualStyleBackColor = true
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.chkHQAnnotationsRendering)
Me.GroupBox2.Controls.Add(Me.chkAnnotationsDropShadow)
Me.GroupBox2.Location = New System.Drawing.Point(464, 18)
Me.GroupBox2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox2.Size = New System.Drawing.Size(436, 128)
Me.GroupBox2.TabIndex = 3
Me.GroupBox2.TabStop = false
Me.GroupBox2.Text = "Annotations options"
'
'chkHQAnnotationsRendering
'
Me.chkHQAnnotationsRendering.AutoSize = true
Me.chkHQAnnotationsRendering.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkHQAnnotationsRendering.Location = New System.Drawing.Point(9, 65)
Me.chkHQAnnotationsRendering.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.chkHQAnnotationsRendering.Name = "chkHQAnnotationsRendering"
Me.chkHQAnnotationsRendering.Size = New System.Drawing.Size(218, 24)
Me.chkHQAnnotationsRendering.TabIndex = 14
Me.chkHQAnnotationsRendering.Text = "HQ annotations rendering"
Me.chkHQAnnotationsRendering.UseVisualStyleBackColor = true
'
'chkAnnotationsDropShadow
'
Me.chkAnnotationsDropShadow.AutoSize = true
Me.chkAnnotationsDropShadow.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkAnnotationsDropShadow.Location = New System.Drawing.Point(9, 29)
Me.chkAnnotationsDropShadow.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.chkAnnotationsDropShadow.Name = "chkAnnotationsDropShadow"
Me.chkAnnotationsDropShadow.Size = New System.Drawing.Size(216, 24)
Me.chkAnnotationsDropShadow.TabIndex = 13
Me.chkAnnotationsDropShadow.Text = "Annotations drop shadow"
Me.chkAnnotationsDropShadow.UseVisualStyleBackColor = true
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.chkEnableICM)
Me.GroupBox3.Location = New System.Drawing.Point(18, 483)
Me.GroupBox3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox3.Size = New System.Drawing.Size(436, 71)
Me.GroupBox3.TabIndex = 2
Me.GroupBox3.TabStop = false
Me.GroupBox3.Text = "Image viewing options"
'
'chkEnableICM
'
Me.chkEnableICM.AutoSize = true
Me.chkEnableICM.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkEnableICM.Location = New System.Drawing.Point(9, 29)
Me.chkEnableICM.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.chkEnableICM.Name = "chkEnableICM"
Me.chkEnableICM.Size = New System.Drawing.Size(118, 24)
Me.chkEnableICM.TabIndex = 12
Me.chkEnableICM.Text = "Enable ICM"
Me.chkEnableICM.UseVisualStyleBackColor = true
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.Label7)
Me.GroupBox4.Controls.Add(Me.cbPDFRenderingEngine)
Me.GroupBox4.Controls.Add(Me.chkPDFVerifyDigitalCertificates)
Me.GroupBox4.Controls.Add(Me.chkPDFIncreaseTextContrast)
Me.GroupBox4.Controls.Add(Me.chkPDFEnableLinks)
Me.GroupBox4.Controls.Add(Me.chkPDFEnableFileLinks)
Me.GroupBox4.Controls.Add(Me.chkPDFDisplayFormFields)
Me.GroupBox4.Location = New System.Drawing.Point(464, 155)
Me.GroupBox4.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox4.Size = New System.Drawing.Size(436, 283)
Me.GroupBox4.TabIndex = 4
Me.GroupBox4.TabStop = false
Me.GroupBox4.Text = "PDF viewing options"
'
'Label7
'
Me.Label7.AutoSize = true
Me.Label7.Location = New System.Drawing.Point(12, 188)
Me.Label7.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(163, 20)
Me.Label7.TabIndex = 6
Me.Label7.Text = "PDF rasterizer engine"
'
'cbPDFRenderingEngine
'
Me.cbPDFRenderingEngine.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbPDFRenderingEngine.FormattingEnabled = true
Me.cbPDFRenderingEngine.Location = New System.Drawing.Point(183, 182)
Me.cbPDFRenderingEngine.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.cbPDFRenderingEngine.Name = "cbPDFRenderingEngine"
Me.cbPDFRenderingEngine.Size = New System.Drawing.Size(180, 28)
Me.cbPDFRenderingEngine.TabIndex = 19
'
'chkPDFVerifyDigitalCertificates
'
Me.chkPDFVerifyDigitalCertificates.AutoSize = true
Me.chkPDFVerifyDigitalCertificates.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkPDFVerifyDigitalCertificates.Location = New System.Drawing.Point(9, 225)
Me.chkPDFVerifyDigitalCertificates.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.chkPDFVerifyDigitalCertificates.Name = "chkPDFVerifyDigitalCertificates"
Me.chkPDFVerifyDigitalCertificates.Size = New System.Drawing.Size(201, 24)
Me.chkPDFVerifyDigitalCertificates.TabIndex = 20
Me.chkPDFVerifyDigitalCertificates.Text = "Verify digital certificates"
Me.chkPDFVerifyDigitalCertificates.UseVisualStyleBackColor = true
'
'chkPDFIncreaseTextContrast
'
Me.chkPDFIncreaseTextContrast.AutoSize = true
Me.chkPDFIncreaseTextContrast.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkPDFIncreaseTextContrast.Location = New System.Drawing.Point(9, 148)
Me.chkPDFIncreaseTextContrast.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.chkPDFIncreaseTextContrast.Name = "chkPDFIncreaseTextContrast"
Me.chkPDFIncreaseTextContrast.Size = New System.Drawing.Size(189, 24)
Me.chkPDFIncreaseTextContrast.TabIndex = 18
Me.chkPDFIncreaseTextContrast.Text = "Increase text contrast"
Me.chkPDFIncreaseTextContrast.UseVisualStyleBackColor = true
'
'chkPDFEnableLinks
'
Me.chkPDFEnableLinks.AutoSize = true
Me.chkPDFEnableLinks.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkPDFEnableLinks.Location = New System.Drawing.Point(9, 112)
Me.chkPDFEnableLinks.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.chkPDFEnableLinks.Name = "chkPDFEnableLinks"
Me.chkPDFEnableLinks.Size = New System.Drawing.Size(120, 24)
Me.chkPDFEnableLinks.TabIndex = 17
Me.chkPDFEnableLinks.Text = "Enable links"
Me.chkPDFEnableLinks.UseVisualStyleBackColor = true
'
'chkPDFEnableFileLinks
'
Me.chkPDFEnableFileLinks.AutoSize = true
Me.chkPDFEnableFileLinks.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkPDFEnableFileLinks.Location = New System.Drawing.Point(9, 77)
Me.chkPDFEnableFileLinks.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.chkPDFEnableFileLinks.Name = "chkPDFEnableFileLinks"
Me.chkPDFEnableFileLinks.Size = New System.Drawing.Size(144, 24)
Me.chkPDFEnableFileLinks.TabIndex = 16
Me.chkPDFEnableFileLinks.Text = "Enable file links"
Me.chkPDFEnableFileLinks.UseVisualStyleBackColor = true
'
'chkPDFDisplayFormFields
'
Me.chkPDFDisplayFormFields.AutoSize = true
Me.chkPDFDisplayFormFields.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkPDFDisplayFormFields.Location = New System.Drawing.Point(9, 42)
Me.chkPDFDisplayFormFields.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.chkPDFDisplayFormFields.Name = "chkPDFDisplayFormFields"
Me.chkPDFDisplayFormFields.Size = New System.Drawing.Size(163, 24)
Me.chkPDFDisplayFormFields.TabIndex = 15
Me.chkPDFDisplayFormFields.Text = "Display form fields"
Me.chkPDFDisplayFormFields.UseVisualStyleBackColor = true
'
'cbPageDisplayMode
'
Me.cbPageDisplayMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbPageDisplayMode.FormattingEnabled = true
Me.cbPageDisplayMode.Location = New System.Drawing.Point(174, 143)
Me.cbPageDisplayMode.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.cbPageDisplayMode.Name = "cbPageDisplayMode"
Me.cbPageDisplayMode.Size = New System.Drawing.Size(193, 28)
Me.cbPageDisplayMode.TabIndex = 4
'
'Label8
'
Me.Label8.AutoSize = true
Me.Label8.Location = New System.Drawing.Point(9, 146)
Me.Label8.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(104, 20)
Me.Label8.TabIndex = 16
Me.Label8.Text = "Display mode"
'
'chkEnableDeferredPainting
'
Me.chkEnableDeferredPainting.AutoSize = true
Me.chkEnableDeferredPainting.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkEnableDeferredPainting.Location = New System.Drawing.Point(9, 416)
Me.chkEnableDeferredPainting.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.chkEnableDeferredPainting.Name = "chkEnableDeferredPainting"
Me.chkEnableDeferredPainting.Size = New System.Drawing.Size(209, 24)
Me.chkEnableDeferredPainting.TabIndex = 17
Me.chkEnableDeferredPainting.Text = "Enable deferred painting"
Me.chkEnableDeferredPainting.UseVisualStyleBackColor = true
'
'frmSettings
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9!, 20!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(918, 569)
Me.Controls.Add(Me.GroupBox4)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.btnApply)
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.MaximizeBox = false
Me.MinimizeBox = false
Me.Name = "frmSettings"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Viewer settings"
Me.GroupBox1.ResumeLayout(false)
Me.GroupBox1.PerformLayout
CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.txtZoomStep,System.ComponentModel.ISupportInitialize).EndInit
Me.GroupBox2.ResumeLayout(false)
Me.GroupBox2.PerformLayout
Me.GroupBox3.ResumeLayout(false)
Me.GroupBox3.PerformLayout
Me.GroupBox4.ResumeLayout(false)
Me.GroupBox4.PerformLayout
Me.ResumeLayout(false)
End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents chkEnableMenu As System.Windows.Forms.CheckBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents cbDisplayQuality As System.Windows.Forms.ComboBox
Friend WithEvents chkContinuousViewMode As System.Windows.Forms.CheckBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtZoomStep As System.Windows.Forms.NumericUpDown
Friend WithEvents cbMouseWheelMode As System.Windows.Forms.ComboBox
Friend WithEvents cbDocumentPosition As System.Windows.Forms.ComboBox
Friend WithEvents cbDocumentAlignment As System.Windows.Forms.ComboBox
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents btnApply As System.Windows.Forms.Button
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents chkHQAnnotationsRendering As System.Windows.Forms.CheckBox
Friend WithEvents chkAnnotationsDropShadow As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents chkEnableICM As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents chkPDFIncreaseTextContrast As System.Windows.Forms.CheckBox
Friend WithEvents chkPDFEnableLinks As System.Windows.Forms.CheckBox
Friend WithEvents chkPDFEnableFileLinks As System.Windows.Forms.CheckBox
Friend WithEvents chkPDFDisplayFormFields As System.Windows.Forms.CheckBox
Friend WithEvents chkPDFVerifyDigitalCertificates As System.Windows.Forms.CheckBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents cbPDFRenderingEngine As System.Windows.Forms.ComboBox
Friend WithEvents chkIgnoreDocumentResolution As System.Windows.Forms.CheckBox
Friend WithEvents Label8 As Label
Friend WithEvents cbPageDisplayMode As ComboBox
Friend WithEvents chkEnableDeferredPainting As CheckBox
End Class

3127
app/DD_Clipboard_Searcher/frmSettings.resx Normal file
View File

File diff suppressed because it is too large Load Diff

142
app/DD_Clipboard_Searcher/frmSettings.vb Normal file
View File

@ -0,0 +1,142 @@
Option Strict On
Option Explicit On
Imports GdPicture14
Public Class frmSettings
Private ReadOnly _owner As GdViewer
Private ReadOnly _mouseWheelModes As New Dictionary(Of ViewerMouseWheelMode, String) From {
{ViewerMouseWheelMode.MouseWheelModeZoom, "Zoom"},
{ViewerMouseWheelMode.MouseWheelModeVerticalScroll, "Scroll"},
{ViewerMouseWheelMode.MouseWheelModePageChange, "Page change"}
}
Private ReadOnly _documentAlignments As New Dictionary(Of ViewerDocumentAlignment, String) From {
{ViewerDocumentAlignment.DocumentAlignmentBottomCenter, "Bottom center"},
{ViewerDocumentAlignment.DocumentAlignmentBottomLeft, "Bottom left"},
{ViewerDocumentAlignment.DocumentAlignmentBottomRight, "Bottom right"},
{ViewerDocumentAlignment.DocumentAlignmentMiddleCenter, "Middle center"},
{ViewerDocumentAlignment.DocumentAlignmentMiddleLeft, "Middle left"},
{ViewerDocumentAlignment.DocumentAlignmentMiddleRight, "Middle right"},
{ViewerDocumentAlignment.DocumentAlignmentTopCenter, "Top center"},
{ViewerDocumentAlignment.DocumentAlignmentTopLeft, "Top left"},
{ViewerDocumentAlignment.DocumentAlignmentTopRight, "Top right"}
}
Private ReadOnly _documentPositions As New Dictionary(Of ViewerDocumentPosition, String) From {
{ViewerDocumentPosition.DocumentPositionBottomCenter, "Bottom center"},
{ViewerDocumentPosition.DocumentPositionBottomLeft, "Bottom left"},
{ViewerDocumentPosition.DocumentPositionBottomRight, "Bottom right"},
{ViewerDocumentPosition.DocumentPositionMiddleCenter, "Middle center"},
{ViewerDocumentPosition.DocumentPositionMiddleLeft, "Middle left"},
{ViewerDocumentPosition.DocumentPositionMiddleRight, "Middle right"},
{ViewerDocumentPosition.DocumentPositionTopCenter, "Top center"},
{ViewerDocumentPosition.DocumentPositionTopLeft, "Top left"},
{ViewerDocumentPosition.DocumentPositionTopRight, "Top right"}
}
Private ReadOnly _displayQualities As New Dictionary(Of DisplayQuality, String) From {
{DisplayQuality.DisplayQualityLow, "Low"},
{DisplayQuality.DisplayQualityBilinear, "Bilinear"},
{DisplayQuality.DisplayQualityBicubic, "Bicubic"},
{DisplayQuality.DisplayQualityBilinearHQ, "Bilinear HQ"},
{DisplayQuality.DisplayQualityBicubicHQ, "Bicubic HQ"},
{DisplayQuality.DisplayQualityAutomatic, "Automatic"}
}
Private ReadOnly _renderingEngines As New Dictionary(Of PdfRasterizerEngine, String) From {
{PdfRasterizerEngine.PdfRasterizerEngineGdiplus, "GDI+"},
{PdfRasterizerEngine.PdfRasterizerEngineWPF, "WPF"},
{PdfRasterizerEngine.PdfRasterizerEngineHybrid, "Hybrid"}
}
Private ReadOnly _displayPageModes As New Dictionary(Of PageDisplayMode, String) From {
{PageDisplayMode.MultiplePagesView, "Multiple pages"},
{PageDisplayMode.SinglePageView, "Single page"}
}
Public Sub New(ByVal owner As GdViewer)
InitializeComponent()
_owner = owner
End Sub
Private Sub frmSettings_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For Each item In _mouseWheelModes
cbMouseWheelMode.Items.Add(item.Value)
Next
For Each item In _documentAlignments
cbDocumentAlignment.Items.Add(item.Value)
Next
For Each item In _documentPositions
cbDocumentPosition.Items.Add(item.Value)
Next
For Each item In _displayQualities
cbDisplayQuality.Items.Add(item.Value)
Next
For Each item In _renderingEngines
cbPDFRenderingEngine.Items.Add(item.Value)
Next
For Each item In _displayPageModes
cbPageDisplayMode.Items.Add(item.Value)
Next
cbMouseWheelMode.SelectedIndex = CType(_owner.MouseWheelMode, Integer)
cbDocumentAlignment.SelectedItem = _documentAlignments(_owner.DocumentAlignment)
cbDocumentPosition.SelectedItem = _documentPositions(_owner.DocumentPosition)
cbDisplayQuality.SelectedItem = _displayQualities(_owner.DisplayQuality)
cbPageDisplayMode.SelectedItem = _displayPageModes(_owner.PageDisplayMode)
txtZoomStep.Text = CStr(_owner.ZoomStep)
chkContinuousViewMode.Checked = _owner.ContinuousViewMode
chkEnableMenu.Checked = _owner.EnableMenu
PictureBox1.BackColor = _owner.BackColor
chkIgnoreDocumentResolution.Checked = _owner.IgnoreDocumentResolution
chkEnableDeferredPainting.Checked = _owner.EnableDeferredPainting
chkAnnotationsDropShadow.Checked = _owner.AnnotationDropShadow
chkHQAnnotationsRendering.Checked = _owner.HQAnnotationRendering
chkEnableICM.Checked = _owner.EnableICM
chkPDFDisplayFormFields.Checked = _owner.PdfDisplayFormField
chkPDFEnableFileLinks.Checked = _owner.PdfEnableFileLinks
chkPDFEnableLinks.Checked = _owner.PdfEnableLinks
chkPDFIncreaseTextContrast.Checked = _owner.PdfIncreaseTextContrast
cbPDFRenderingEngine.SelectedItem = _renderingEngines(_owner.PdfRasterizerEngine)
chkPDFVerifyDigitalCertificates.Checked = _owner.PdfVerifyDigitalCertificates
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
Using colorDialog As New ColorDialog
If colorDialog.ShowDialog() = DialogResult.OK Then
PictureBox1.BackColor = colorDialog.Color
End If
End Using
End Sub
Private Sub btnApply_Click(sender As Object, e As EventArgs) Handles btnApply.Click
_owner.MouseWheelMode = _mouseWheelModes.FirstOrDefault(Function(x) x.Value.Contains(cbMouseWheelMode.SelectedItem.ToString())).Key
_owner.DocumentAlignment = _documentAlignments.FirstOrDefault(Function(x) x.Value.Contains(cbDocumentAlignment.SelectedItem.ToString())).Key
_owner.DocumentPosition = _documentPositions.FirstOrDefault(Function(x) x.Value.Contains(cbDocumentPosition.SelectedItem.ToString())).Key
_owner.DisplayQuality = _displayQualities.FirstOrDefault(Function(x) x.Value.Contains(cbDisplayQuality.SelectedItem.ToString())).Key
_owner.PageDisplayMode = _displayPageModes.FirstOrDefault(Function(x) x.Value.Contains(cbPageDisplayMode.SelectedItem.ToString())).Key
_owner.ZoomStep = CInt(txtZoomStep.Text)
_owner.ContinuousViewMode = chkContinuousViewMode.Checked
_owner.EnableMenu = chkEnableMenu.Checked
_owner.BackColor = PictureBox1.BackColor
_owner.IgnoreDocumentResolution = chkIgnoreDocumentResolution.Checked
_owner.EnableDeferredPainting = chkEnableDeferredPainting.Checked
_owner.AnnotationDropShadow = chkAnnotationsDropShadow.Checked
_owner.HQAnnotationRendering = chkHQAnnotationsRendering.Checked
_owner.EnableICM = chkEnableICM.Checked
_owner.PdfDisplayFormField = chkPDFDisplayFormFields.Checked
_owner.PdfEnableFileLinks = chkPDFEnableFileLinks.Checked
_owner.PdfEnableLinks = chkPDFEnableLinks.Checked
_owner.PdfIncreaseTextContrast = chkPDFIncreaseTextContrast.Checked
_owner.PdfRasterizerEngine = _renderingEngines.FirstOrDefault(Function(x) x.Value.Contains(cbPDFRenderingEngine.SelectedItem.ToString())).Key
_owner.PdfVerifyDigitalCertificates = chkPDFVerifyDigitalCertificates.Checked
Me.Close()
End Sub
End Class

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

@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMain
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmStart
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@ -20,17 +20,18 @@ Partial Class frmMain
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.SplashScreenManager1 = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, GetType(Global.DD_Clipboard_Watcher.WaitForm1), True, True)
Me.NotifyIconMain = New System.Windows.Forms.NotifyIcon()
Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart))
Me.NotifyIconMain = New System.Windows.Forms.NotifyIcon(Me.components)
Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem()
Me.ClientÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tslblUser = New System.Windows.Forms.ToolStripStatusLabel()
Me.TimerClose = New System.Windows.Forms.Timer()
Me.ContextMenuStripForm = New System.Windows.Forms.ContextMenuStrip()
Me.TimerClose = New System.Windows.Forms.Timer(Me.components)
Me.ContextMenuStripForm = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MinimierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
@ -44,10 +45,6 @@ Partial Class frmMain
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'SplashScreenManager1
'
Me.SplashScreenManager1.ClosingDelay = 500
'
'NotifyIconMain
'
Me.NotifyIconMain.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
@ -60,9 +57,9 @@ Partial Class frmMain
'
'cmstrpNotifyIcon
'
Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiChangeState})
Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiChangeState, Me.ClientÖffnenToolStripMenuItem})
Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon"
Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(250, 26)
Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(250, 70)
'
'tsmiChangeState
'
@ -72,6 +69,13 @@ Partial Class frmMain
Me.tsmiChangeState.Tag = "stop"
Me.tsmiChangeState.Text = "Überwachung Clipboard stoppen"
'
'ClientÖffnenToolStripMenuItem
'
Me.ClientÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.door_open
Me.ClientÖffnenToolStripMenuItem.Name = "ClientÖffnenToolStripMenuItem"
Me.ClientÖffnenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.ClientÖffnenToolStripMenuItem.Text = "Client öffnen"
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblUser})
@ -216,5 +220,5 @@ Partial Class frmMain
Friend WithEvents Label3 As Label
Friend WithEvents lbHKFunction As Label
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents SplashScreenManager1 As DevExpress.XtraSplashScreen.SplashScreenManager
Friend WithEvents ClientÖffnenToolStripMenuItem As ToolStripMenuItem
End Class

10
app/DD_Clipboard_Searcher/frmMain.resx → app/DD_Clipboard_Searcher/frmStart.resx
View File

@ -118,10 +118,10 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="NotifyIconMain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>196, 17</value>
<value>17, 17</value>
</metadata>
<metadata name="cmstrpNotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>332, 17</value>
<value>153, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="NotifyIconMain.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -1257,7 +1257,7 @@
</value>
</data>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>478, 17</value>
<value>299, 17</value>
</metadata>
<data name="tslblUser.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -1271,10 +1271,10 @@
</value>
</data>
<metadata name="TimerClose.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>595, 17</value>
<value>416, 17</value>
</metadata>
<metadata name="ContextMenuStripForm.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>707, 17</value>
<value>528, 17</value>
</metadata>
<data name="btnAdminConfig.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

55
app/DD_Clipboard_Searcher/frmMain.vb → app/DD_Clipboard_Searcher/frmStart.vb
View File

@ -1,7 +1,7 @@
Imports System.ComponentModel
Imports System.Threading
Imports DD_LIB_Standards
Public Class frmMain
Public Class frmStart
Dim WithEvents Hotkey As New clsHotkey(Me)
Private PID As Integer
@ -40,12 +40,14 @@ Public Class frmMain
'End With
Dim found As Boolean = False
CLIPBOARD_TEXT = Clipboard.GetText
Logger.Debug(String.Format(" >>{0} - Clipboard-Watcher fired for process '{1}'", Now.ToString, PROC_Name), False)
For Each row As DataRow In DT_USER_PROFILES.Rows
If found = True Then Exit For
If PROC_Name.ToUpper = row.Item("PROC_NAME").ToString.ToUpper Then
Dim regex_expression = row.Item("REGEX_EXPRESSION")
Logger.Debug(String.Format(" >>[{0}] Clipboard-Watcher fired for process '{1}'", Now.ToString, CurrPROC_Name), False)
Dim oDTMatchProfiles As DataTable = New DataTable
oDTMatchProfiles.Columns.Add("GUID")
oDTMatchProfiles.Columns.Add("NAME")
For Each oProfileRow As DataRow In DT_USER_PROFILES.Rows
'If found = True Then Exit For
If CurrPROC_Name.ToUpper = oProfileRow.Item("PROC_NAME").ToString.ToUpper Then
Dim regex_expression = oProfileRow.Item("REGEX_EXPRESSION")
Dim regex As New System.Text.RegularExpressions.Regex(regex_expression)
Dim match As System.Text.RegularExpressions.Match = regex.Match(CLIPBOARD_TEXT)
If match.Success Then
@ -53,7 +55,12 @@ Public Class frmMain
' If match.Groups(0).Value <> CURR_MATCH_RESULT Then
CURR_MATCH_RESULT = match.Groups(0).Value
If Not IsNothing(CURR_MATCH_RESULT) Then
CURR_MATCH_WM_SEARCH = row.Item("WD_SEARCH")
CURR_MATCH_WM_SEARCH = oProfileRow.Item("WD_SEARCH")
Dim onewMatchRow As DataRow = oDTMatchProfiles.NewRow
onewMatchRow("GUID") = oProfileRow.Item("GUID")
onewMatchRow("NAME") = oProfileRow.Item("NAME")
oDTMatchProfiles.Rows.Add(onewMatchRow)
found = True
End If
@ -68,7 +75,10 @@ Public Class frmMain
End If
Next
If found = False Then
Logger.Debug(String.Format(" >> {0} - Process '{1}' not configured!", Now.ToString, PROC_Name), False)
Logger.Debug(String.Format(" >> {0} - Process '{1}' not configured!", Now.ToString, CurrPROC_Name), False)
CurrDT_PROFILE_MATCH = Nothing
Else
CurrDT_PROFILE_MATCH = oDTMatchProfiles
End If
End Sub
@ -171,18 +181,26 @@ Public Class frmMain
End Sub
Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles Hotkey.HotKeyPressed
If HotKeyID = 354523017 Then
If Not IsNothing(CURR_MATCH_RESULT) And Not IsNothing(CURR_MATCH_WM_SEARCH) Then
SplashScreenManager1.ShowForm(Me, GetType(WaitForm1), True, True, False)
clsSearch.RUN_WD_SEARCH(CURR_MATCH_WM_SEARCH)
'Close Wait Form
SplashScreenManager1.CloseForm(False)
If Not IsNothing(CURR_MATCH_RESULT) Then
CHECK_PROFILE_MATCH()
End If
'If Not IsNothing(CURR_MATCH_RESULT) And Not IsNothing(CURR_MATCH_WM_SEARCH) Then
' clsSearch.RUN_WD_SEARCH(CURR_MATCH_WM_SEARCH)
' 'Close Wait Form
'End If
ElseIf HotKeyID = 354522017 Then
Change_Monitoring_State()
End If
End Sub
Sub CHECK_PROFILE_MATCH()
If CurrDT_PROFILE_MATCH.Rows.Count = 1 Then
frmProfileMatch.ShowDialog()
clsSearch.RUN_WD_SEARCH(CURR_MATCH_WM_SEARCH)
Else
frmProfileMatch.ShowDialog()
End If
End Sub
Sub Change_Monitoring_State()
If MONITORING_ACTIVE = True Then
NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde inaktiviert!", ToolTipIcon.Info)
@ -214,6 +232,9 @@ Public Class frmMain
End Sub
Private Sub NotifyIcon1_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIconMain.DoubleClick
OpenClose()
End Sub
Sub OpenClose()
If Me.Visible = False Then
Me.BringToFront()
Me.Visible = True
@ -282,7 +303,7 @@ Public Class frmMain
Me.Hide()
End Sub
Private Sub frmMain_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Private Sub ClientÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClientÖffnenToolStripMenuItem.Click
OpenClose()
End Sub
End Class

11
app/DD_Clipboard_Searcher/modCurrent.vb
View File

@ -23,6 +23,7 @@ Module modCurrent
Public USER_SHORTNAME
Public USER_EMAIL
Public USER_LANGUAGE As String = "de-DE"
Public USER_DATE_FORMAT As String
Public USER_EXISTS = False
Public USER_IN_MODULE = False
@ -51,9 +52,13 @@ Module modCurrent
Public CURR_FOCUSED_WINDOWNAME
Public MONITORING_ACTIVE As Boolean = True
Public PROC_PID As String
Public PROC_Name As String
Public PROC_WindowTitle As String
Public CurrPROC_PID As String
Public CurrPROC_Name As String
Public CurrPROC_WindowTitle As String
Public CLIENT_SELECTED As Integer = 0
Public CurrDT_PROFILE_MATCH As DataTable
Public CURRENT_DT_DOC_SEARCHES As DataTable
Public CURRENT_DT_DATA_SEARCHES As DataTable
Public CurrSearch2Load As Object
End Module