diff --git a/Controls.ChatAddUser/ChatAddUser.Designer.vb b/Controls.ChatAddUser/ChatAddUser.Designer.vb deleted file mode 100644 index b0c9e390..00000000 --- a/Controls.ChatAddUser/ChatAddUser.Designer.vb +++ /dev/null @@ -1,100 +0,0 @@ - _ -Partial Class ChatAddUser - Inherits System.Windows.Forms.UserControl - - 'UserControl1 überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - 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. - _ - Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ChatAddUser)) - Me.Panel2 = New System.Windows.Forms.Panel() - Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() - Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() - Me.GridControlUsers = New DevExpress.XtraGrid.GridControl() - Me.GridViewUsers = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.Panel2.SuspendLayout() - CType(Me.GridControlUsers, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewUsers, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'Panel2 - ' - Me.Panel2.Controls.Add(Me.SimpleButton1) - Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel2.Location = New System.Drawing.Point(0, 413) - Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(463, 59) - Me.Panel2.TabIndex = 1 - ' - 'SimpleButton1 - ' - Me.SimpleButton1.Dock = System.Windows.Forms.DockStyle.Fill - Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.SimpleButton1.Location = New System.Drawing.Point(0, 0) - Me.SimpleButton1.Name = "SimpleButton1" - Me.SimpleButton1.Size = New System.Drawing.Size(463, 59) - Me.SimpleButton1.TabIndex = 0 - Me.SimpleButton1.Text = "User hinzufügen" - ' - 'GridControlUsers - ' - Me.GridControlUsers.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControlUsers.Location = New System.Drawing.Point(0, 0) - Me.GridControlUsers.MainView = Me.GridViewUsers - Me.GridControlUsers.Name = "GridControlUsers" - Me.GridControlUsers.Size = New System.Drawing.Size(463, 413) - Me.GridControlUsers.TabIndex = 0 - Me.GridControlUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUsers}) - ' - 'GridViewUsers - ' - Me.GridViewUsers.Appearance.EvenRow.BackColor = System.Drawing.Color.PaleTurquoise - Me.GridViewUsers.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewUsers.GridControl = Me.GridControlUsers - Me.GridViewUsers.Name = "GridViewUsers" - Me.GridViewUsers.OptionsBehavior.Editable = False - Me.GridViewUsers.OptionsSelection.MultiSelect = True - Me.GridViewUsers.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect - Me.GridViewUsers.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewUsers.OptionsView.ShowAutoFilterRow = True - Me.GridViewUsers.OptionsView.ShowGroupPanel = False - Me.GridViewUsers.OptionsView.ShowViewCaption = True - Me.GridViewUsers.ViewCaption = "Benutzer zu Konversation hinzufügen" - ' - 'ChatAddUser - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.GridControlUsers) - Me.Controls.Add(Me.Panel2) - Me.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Name = "ChatAddUser" - Me.Size = New System.Drawing.Size(463, 472) - Me.Panel2.ResumeLayout(False) - CType(Me.GridControlUsers, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewUsers, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - - End Sub - Friend WithEvents Panel2 As Panel - Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker - Friend WithEvents GridControlUsers As DevExpress.XtraGrid.GridControl - Friend WithEvents GridViewUsers As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton -End Class diff --git a/Controls.ChatAddUser/ChatAddUser.resx b/Controls.ChatAddUser/ChatAddUser.resx deleted file mode 100644 index 398d46ab..00000000 --- a/Controls.ChatAddUser/ChatAddUser.resx +++ /dev/null @@ -1,142 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z - ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz - OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp - dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0 - QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0 - LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N - Cjwvc3ZnPgs= - - - - 17, 17 - - \ No newline at end of file diff --git a/Controls.ChatAddUser/ChatAddUser.resx.bak b/Controls.ChatAddUser/ChatAddUser.resx.bak deleted file mode 100644 index 1b8ff1ab..00000000 --- a/Controls.ChatAddUser/ChatAddUser.resx.bak +++ /dev/null @@ -1,142 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z - ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz - OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp - dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0 - QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0 - LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N - Cjwvc3ZnPgs= - - - - 17, 17 - - \ No newline at end of file diff --git a/Controls.ChatAddUser/ChatAddUser.vb b/Controls.ChatAddUser/ChatAddUser.vb deleted file mode 100644 index bed4005b..00000000 --- a/Controls.ChatAddUser/ChatAddUser.vb +++ /dev/null @@ -1,80 +0,0 @@ -Imports DevExpress.XtraGrid.Views.Tile -Imports DigitalData.Modules.Database -Imports DigitalData.Modules.Logging - -Public Class ChatAddUser - Public Delegate Sub UserAdded() - Public Event User_Added As UserAdded - Private _Database As MSSQLServer - Private LogConfig As LogConfig - Private Logger As Logger - - Public ConversationID As Long - Public ConnStringIDB As String - Public Username As String - Public User_Language As String - Public NewConversation As Long - - Public Sub New() - InitializeComponent() - End Sub - - Public Sub Init(LogConfig As LogConfig, ConnectionStringIDB As String, CONV_ID As Long, Username As String, UserLanguage As String, DTUsers As DataTable) - Me.LogConfig = LogConfig - Me.Logger = LogConfig.GetLogger() - Me.ConnStringIDB = ConnectionStringIDB - ConversationID = CONV_ID - - Me.Username = Username - Me.User_Language = UserLanguage - Me._Database = New MSSQLServer(LogConfig, ConnectionStringIDB) - If Not IsNothing(DTUsers) Then - If DTUsers.Rows.Count > 1 Then - GridControlUsers.DataSource = DTUsers - End If - - End If - End Sub - - Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click - AddUser() - End Sub - Public Function AddUser() - Try - Dim oSQL As String - Dim oError As Boolean = False - - Dim oSelectedUsers As Integer() = GridViewUsers.GetSelectedRows() - If oSelectedUsers.Count > 0 Then - For Each oRowHandle As Integer In oSelectedUsers - Dim oUserID - Try - oUserID = GridViewUsers.GetRowCellValue(oRowHandle, "UserID") - Catch ex As Exception - Try - oUserID = GridViewUsers.GetRowCellValue(oRowHandle, "USER_ID") - Catch ex1 As Exception - Logger.Warn("Error Selecting UserID/USER_ID: " & ex.Message) - oError = True - Return False - End Try - - End Try - - oSQL = $"EXEC PRIDB_ADD_USER_2_CONVERSATION {ConversationID},{oUserID},'{Username}'" - If _Database.ExecuteNonQuery(oSQL) = False Then - oError = True - End If - Next - End If - If oError = False Then - RaiseEvent User_Added() - End If - - - Catch ex As Exception - Logger.Error(ex) - MsgBox($"Unexpected error in Add User2Conversation: {ex.Message}") - End Try - End Function -End Class diff --git a/Controls.ChatAddUser/ChatAddUser.vbproj b/Controls.ChatAddUser/ChatAddUser.vbproj deleted file mode 100644 index d042f300..00000000 --- a/Controls.ChatAddUser/ChatAddUser.vbproj +++ /dev/null @@ -1,172 +0,0 @@ - - - - - Debug - AnyCPU - {F0A807CC-BE14-4B5B-9200-27C16156BD8A} - Library - DigitalData.Controls.ChatAddUser - DigitalData.Controls.ChatAddUser - 512 - Windows - v4.6.2 - true - - - - true - full - true - true - bin\Debug\ - DigitalData.Controls.ChatAddUser.xml - _MYFORMS=True - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - pdbonly - false - true - true - bin\Release\ - DigitalData.Controls.ChatAddUser.xml - _MYFORMS=True - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - On - - - Binary - - - Off - - - On - - - - - - - - - - - - - ..\Controls.LookupGrid\obj\Debug\DigitalData.Controls.LookupGrid.dll - - - False - ..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll - - - False - ..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll - - - - ..\packages\NLog.5.0.5\lib\net46\NLog.dll - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - True - Application.myapp - True - - - UserControl - - - ChatAddUser.vb - - - - True - True - Resources.resx - - - True - Settings.settings - True - - - - - ChatAddUser.vb - - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - My - Settings.Designer.vb - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/Controls.ChatAddUser/ChatAddUser.vbproj.bak b/Controls.ChatAddUser/ChatAddUser.vbproj.bak deleted file mode 100644 index 96f3addf..00000000 --- a/Controls.ChatAddUser/ChatAddUser.vbproj.bak +++ /dev/null @@ -1,172 +0,0 @@ - - - - - Debug - AnyCPU - {F0A807CC-BE14-4B5B-9200-27C16156BD8A} - Library - DigitalData.Controls.ChatAddUser - DigitalData.Controls.ChatAddUser - 512 - Windows - v4.6.1 - true - - - - true - full - true - true - bin\Debug\ - DigitalData.Controls.ChatAddUser.xml - _MYFORMS=True - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - pdbonly - false - true - true - bin\Release\ - DigitalData.Controls.ChatAddUser.xml - _MYFORMS=True - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - On - - - Binary - - - Off - - - On - - - - - - - - - - - - ..\Controls.LookupGrid\obj\Debug\DigitalData.Controls.LookupGrid.dll - - - - ..\packages\NLog.4.7.10\lib\net45\NLog.dll - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - True - Application.myapp - - - UserControl - - - ChatAddUser.vb - - - - True - True - Resources.resx - - - True - Settings.settings - True - - - - - ChatAddUser.vb - - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - My - Settings.Designer.vb - - - - - - - - {eaf0ea75-5fa7-485d-89c7-b2d843b03a96} - Database - - - {903b2d7d-3b80-4be9-8713-7447b704e1b0} - Logging - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/Controls.ChatAddUser/My Project/AssemblyInfo.vb b/Controls.ChatAddUser/My Project/AssemblyInfo.vb deleted file mode 100644 index cbc39b02..00000000 --- a/Controls.ChatAddUser/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,34 +0,0 @@ -Imports System -Imports System.Reflection -Imports System.Runtime.InteropServices - -' Allgemeine Informationen über eine Assembly werden über die folgenden -' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, -' die einer Assembly zugeordnet sind. - -' Werte der Assemblyattribute überprüfen - - - - - - - - - - -'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird. - - -' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: -' -' Hauptversion -' Nebenversion -' Buildnummer -' Revision -' -' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden, -' indem Sie "*" wie unten gezeigt eingeben: - - - diff --git a/Controls.ChatAddUser/My Project/Resources.Designer.vb b/Controls.ChatAddUser/My Project/Resources.Designer.vb deleted file mode 100644 index 5be8f16f..00000000 --- a/Controls.ChatAddUser/My Project/Resources.Designer.vb +++ /dev/null @@ -1,103 +0,0 @@ -'------------------------------------------------------------------------------ -' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.42000 -' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - -Imports System - -Namespace My.Resources - - 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert - '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. - 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen - 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. - ''' - ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. - ''' - _ - Friend Module Resources - - Private resourceMan As Global.System.Resources.ResourceManager - - Private resourceCulture As Global.System.Globalization.CultureInfo - - ''' - ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. - ''' - _ - Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager - Get - If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DigitalData.Controls.ChatAddUser.Resources", GetType(Resources).Assembly) - resourceMan = temp - End If - Return resourceMan - End Get - End Property - - ''' - ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle - ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. - ''' - _ - Friend Property Culture() As Global.System.Globalization.CultureInfo - Get - Return resourceCulture - End Get - Set - resourceCulture = value - End Set - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property Action_Workflow_Activate() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("Action_Workflow_Activate", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property Action_Workflow_Deactivate() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("Action_Workflow_Deactivate", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property crop_php() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("crop.php", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property Send_16x16() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("Send_16x16", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - End Module -End Namespace diff --git a/Controls.ChatAddUser/My Project/Settings.Designer.vb b/Controls.ChatAddUser/My Project/Settings.Designer.vb deleted file mode 100644 index bd53a535..00000000 --- a/Controls.ChatAddUser/My Project/Settings.Designer.vb +++ /dev/null @@ -1,73 +0,0 @@ -'------------------------------------------------------------------------------ -' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.42000 -' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My - - - Partial Friend NotInheritable Class MySettings - Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()), MySettings) - -#Region "Automatische My.Settings-Speicherfunktion" -#If _MYTYPE = "WindowsForms" Then - Private Shared addedHandler As Boolean - - Private Shared addedHandlerLockObject As New Object - - _ - Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) - If My.Application.SaveMySettingsOnExit Then - My.Settings.Save() - End If - End Sub -#End If -#End Region - - Public Shared ReadOnly Property [Default]() As MySettings - Get - -#If _MYTYPE = "WindowsForms" Then - If Not addedHandler Then - SyncLock addedHandlerLockObject - If Not addedHandler Then - AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings - addedHandler = True - End If - End SyncLock - End If -#End If - Return defaultInstance - End Get - End Property - End Class -End Namespace - -Namespace My - - - Friend Module MySettingsProperty - - - Friend ReadOnly Property Settings() As Global.DigitalData.Controls.ChatAddUser.My.MySettings - Get - Return Global.DigitalData.Controls.ChatAddUser.My.MySettings.Default - End Get - End Property - End Module -End Namespace diff --git a/Controls.ChatAddUser/My Project/licenses.licx b/Controls.ChatAddUser/My Project/licenses.licx deleted file mode 100644 index 887f6738..00000000 --- a/Controls.ChatAddUser/My Project/licenses.licx +++ /dev/null @@ -1 +0,0 @@ -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Controls.ChatAddUser/My Project/licenses.licx.bak b/Controls.ChatAddUser/My Project/licenses.licx.bak deleted file mode 100644 index 75eb9ac1..00000000 --- a/Controls.ChatAddUser/My Project/licenses.licx.bak +++ /dev/null @@ -1,6 +0,0 @@ -DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Controls.ChatAddUser/Resources/Action_Workflow_Activate.png b/Controls.ChatAddUser/Resources/Action_Workflow_Activate.png deleted file mode 100644 index 5d967b1f..00000000 Binary files a/Controls.ChatAddUser/Resources/Action_Workflow_Activate.png and /dev/null differ diff --git a/Controls.ChatAddUser/Resources/Action_Workflow_Deactivate.png b/Controls.ChatAddUser/Resources/Action_Workflow_Deactivate.png deleted file mode 100644 index 54a077fb..00000000 Binary files a/Controls.ChatAddUser/Resources/Action_Workflow_Deactivate.png and /dev/null differ diff --git a/Controls.ChatAddUser/Resources/Send_16x16.png b/Controls.ChatAddUser/Resources/Send_16x16.png deleted file mode 100644 index add634c2..00000000 Binary files a/Controls.ChatAddUser/Resources/Send_16x16.png and /dev/null differ diff --git a/Controls.ChatAddUser/Resources/crop.php.jpeg b/Controls.ChatAddUser/Resources/crop.php.jpeg deleted file mode 100644 index 68360c3b..00000000 Binary files a/Controls.ChatAddUser/Resources/crop.php.jpeg and /dev/null differ diff --git a/Controls.ChatAddUser/app.config b/Controls.ChatAddUser/app.config deleted file mode 100644 index 99f551b0..00000000 --- a/Controls.ChatAddUser/app.config +++ /dev/null @@ -1,11 +0,0 @@ - - - - - - - - - - - diff --git a/Controls.ChatAddUser/packages.config b/Controls.ChatAddUser/packages.config deleted file mode 100644 index ce98cd21..00000000 --- a/Controls.ChatAddUser/packages.config +++ /dev/null @@ -1,4 +0,0 @@ - - - - \ No newline at end of file diff --git a/Controls.ChatControl/ChatControl.Designer.vb b/Controls.ChatControl/ChatControl.Designer.vb deleted file mode 100644 index 4cc09370..00000000 --- a/Controls.ChatControl/ChatControl.Designer.vb +++ /dev/null @@ -1,518 +0,0 @@ - -Partial Class ChatControl - Inherits System.Windows.Forms.UserControl - - 'UserControl1 überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - - 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. - - Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - Dim ItemTemplate1 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate() - Dim TableColumnDefinition1 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() - Dim TableColumnDefinition2 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() - Dim TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() - Dim TileViewItemElement2 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() - Dim TileViewItemElement3 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() - Dim TableRowDefinition1 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim TableRowDefinition2 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim TableSpan1 As DevExpress.XtraEditors.TableLayout.TableSpan = New DevExpress.XtraEditors.TableLayout.TableSpan() - Dim ItemTemplate2 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate() - Dim TableColumnDefinition3 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() - Dim TableColumnDefinition4 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() - Dim TileViewItemElement4 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() - Dim TileViewItemElement5 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() - Dim TileViewItemElement6 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() - Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim TableRowDefinition4 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim ItemTemplate3 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate() - Dim TableColumnDefinition5 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() - Dim TableColumnDefinition6 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() - Dim TileViewItemElement7 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() - Dim TileViewItemElement8 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() - Dim TileViewItemElement9 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() - Dim TileViewItemElement10 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() - Dim TableRowDefinition5 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim TableRowDefinition6 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim TableRowDefinition7 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim TableSpan2 As DevExpress.XtraEditors.TableLayout.TableSpan = New DevExpress.XtraEditors.TableLayout.TableSpan() - Dim TableSpan3 As DevExpress.XtraEditors.TableLayout.TableSpan = New DevExpress.XtraEditors.TableLayout.TableSpan() - Dim TableColumnDefinition7 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() - Dim TableColumnDefinition8 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() - Dim TableRowDefinition8 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim TableRowDefinition9 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ChatControl)) - Me.columnUsername = New DevExpress.XtraGrid.Columns.TileViewColumn() - Me.columnMessage = New DevExpress.XtraGrid.Columns.TileViewColumn() - Me.columnDate = New DevExpress.XtraGrid.Columns.TileViewColumn() - Me.columnTO_USER = New DevExpress.XtraGrid.Columns.TileViewColumn() - Me.RepositoryItemHypertextLabel1 = New DevExpress.XtraEditors.Repository.RepositoryItemHypertextLabel() - Me.RepositoryItemHyperLinkEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemHyperLinkEdit() - Me.GridChatOld = New DevExpress.XtraGrid.GridControl() - Me.ChatViewOld = New DevExpress.XtraGrid.Views.Tile.TileView() - Me.btnSendMessage = New DevExpress.XtraEditors.SimpleButton() - Me.ChatSource = New System.Windows.Forms.BindingSource(Me.components) - Me.pnlMessage = New System.Windows.Forms.Panel() - Me.RichTextBox1 = New System.Windows.Forms.RichTextBox() - Me.ListBoxUserMention = New System.Windows.Forms.ListBox() - Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() - Me.tsmitmTitle = New System.Windows.Forms.ToolStripMenuItem() - Me.tsmenitmHamburger = New System.Windows.Forms.ToolStripMenuItem() - Me.ToolStripMenuItemConv_end = New System.Windows.Forms.ToolStripMenuItem() - Me.BenutzerHinzufügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.TeilnehmerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.GridChat = New DevExpress.XtraGrid.GridControl() - Me.ChatView = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.columnFromUser = New DevExpress.XtraGrid.Columns.GridColumn() - Me.columnToUser = New DevExpress.XtraGrid.Columns.GridColumn() - Me.columnAddedWhen = New DevExpress.XtraGrid.Columns.GridColumn() - CType(Me.RepositoryItemHypertextLabel1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.RepositoryItemHyperLinkEdit1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridChatOld, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ChatViewOld, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ChatSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.pnlMessage.SuspendLayout() - Me.MenuStrip1.SuspendLayout() - CType(Me.GridChat, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ChatView, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'columnUsername - ' - Me.columnUsername.FieldName = "USER_FROM" - Me.columnUsername.MinWidth = 23 - Me.columnUsername.Name = "columnUsername" - Me.columnUsername.Visible = True - Me.columnUsername.VisibleIndex = 1 - Me.columnUsername.Width = 87 - ' - 'columnMessage - ' - Me.columnMessage.FieldName = "MESSAGE_TEXT" - Me.columnMessage.MinWidth = 23 - Me.columnMessage.Name = "columnMessage" - Me.columnMessage.Visible = True - Me.columnMessage.VisibleIndex = 0 - Me.columnMessage.Width = 87 - ' - 'columnDate - ' - Me.columnDate.DisplayFormat.FormatString = "g" - Me.columnDate.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime - Me.columnDate.FieldName = "ADDED_WHEN" - Me.columnDate.MinWidth = 23 - Me.columnDate.Name = "columnDate" - Me.columnDate.Visible = True - Me.columnDate.VisibleIndex = 2 - Me.columnDate.Width = 87 - ' - 'columnTO_USER - ' - Me.columnTO_USER.AppearanceCell.BackColor = System.Drawing.Color.GreenYellow - Me.columnTO_USER.AppearanceCell.Options.UseBackColor = True - Me.columnTO_USER.FieldName = "TO_USER" - Me.columnTO_USER.Name = "columnTO_USER" - Me.columnTO_USER.Visible = True - Me.columnTO_USER.VisibleIndex = 3 - ' - 'RepositoryItemHypertextLabel1 - ' - Me.RepositoryItemHypertextLabel1.Name = "RepositoryItemHypertextLabel1" - ' - 'RepositoryItemHyperLinkEdit1 - ' - Me.RepositoryItemHyperLinkEdit1.AutoHeight = False - Me.RepositoryItemHyperLinkEdit1.Name = "RepositoryItemHyperLinkEdit1" - ' - 'GridChatOld - ' - Me.GridChatOld.BackgroundImage = Global.DigitalData.Controls.ChatControl.My.Resources.Resources.crop_php - Me.GridChatOld.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center - Me.GridChatOld.Dock = System.Windows.Forms.DockStyle.Top - Me.GridChatOld.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) - Me.GridChatOld.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GridChatOld.Location = New System.Drawing.Point(0, 25) - Me.GridChatOld.MainView = Me.ChatViewOld - Me.GridChatOld.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) - Me.GridChatOld.Name = "GridChatOld" - Me.GridChatOld.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemHyperLinkEdit1, Me.RepositoryItemHypertextLabel1}) - Me.GridChatOld.Size = New System.Drawing.Size(421, 213) - Me.GridChatOld.TabIndex = 0 - Me.GridChatOld.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ChatViewOld}) - Me.GridChatOld.Visible = False - ' - 'ChatViewOld - ' - Me.ChatViewOld.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.columnMessage, Me.columnUsername, Me.columnDate, Me.columnTO_USER}) - Me.ChatViewOld.ContextButtonOptions.HoverStateOpacity = 0.75! - Me.ChatViewOld.ContextButtonOptions.TopPanelColor = System.Drawing.Color.White - Me.ChatViewOld.DetailHeight = 431 - Me.ChatViewOld.GridControl = Me.GridChatOld - Me.ChatViewOld.Name = "ChatViewOld" - Me.ChatViewOld.OptionsTiles.ColumnCount = 1 - Me.ChatViewOld.OptionsTiles.GroupTextPadding = New System.Windows.Forms.Padding(0, 8, 12, 8) - Me.ChatViewOld.OptionsTiles.IndentBetweenGroups = 0 - Me.ChatViewOld.OptionsTiles.IndentBetweenItems = 10 - Me.ChatViewOld.OptionsTiles.ItemPadding = New System.Windows.Forms.Padding(0) - Me.ChatViewOld.OptionsTiles.ItemSize = New System.Drawing.Size(374, 90) - Me.ChatViewOld.OptionsTiles.LayoutMode = DevExpress.XtraGrid.Views.Tile.TileViewLayoutMode.Kanban - Me.ChatViewOld.OptionsTiles.Orientation = System.Windows.Forms.Orientation.Vertical - Me.ChatViewOld.OptionsTiles.Padding = New System.Windows.Forms.Padding(5) - Me.ChatViewOld.OptionsTiles.RowCount = 0 - Me.ChatViewOld.OptionsTiles.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar - TableColumnDefinition1.Length.Value = 250.0R - TableColumnDefinition2.Length.Value = 100.0R - ItemTemplate1.Columns.Add(TableColumnDefinition1) - ItemTemplate1.Columns.Add(TableColumnDefinition2) - TileViewItemElement1.Column = Me.columnUsername - TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement1.Text = "columnUsername" - TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft - TileViewItemElement1.TextLocation = New System.Drawing.Point(10, 0) - TileViewItemElement2.Column = Me.columnMessage - TileViewItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement2.RowIndex = 1 - TileViewItemElement2.StretchHorizontal = True - TileViewItemElement2.StretchVertical = True - TileViewItemElement2.Text = "columnMessage" - TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.TopLeft - TileViewItemElement2.TextLocation = New System.Drawing.Point(10, 0) - TileViewItemElement3.Column = Me.columnDate - TileViewItemElement3.ColumnIndex = 1 - TileViewItemElement3.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement3.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement3.Text = "columnDate" - TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight - TileViewItemElement3.TextLocation = New System.Drawing.Point(-10, 0) - ItemTemplate1.Elements.Add(TileViewItemElement1) - ItemTemplate1.Elements.Add(TileViewItemElement2) - ItemTemplate1.Elements.Add(TileViewItemElement3) - ItemTemplate1.Name = "ChatLeft" - TableRowDefinition1.Length.Value = 19.0R - TableRowDefinition2.Length.Value = 45.0R - ItemTemplate1.Rows.Add(TableRowDefinition1) - ItemTemplate1.Rows.Add(TableRowDefinition2) - TableSpan1.ColumnSpan = 2 - TableSpan1.RowIndex = 1 - ItemTemplate1.Spans.Add(TableSpan1) - TableColumnDefinition3.Length.Value = 100.0R - TableColumnDefinition4.Length.Value = 250.0R - ItemTemplate2.Columns.Add(TableColumnDefinition3) - ItemTemplate2.Columns.Add(TableColumnDefinition4) - TileViewItemElement4.Column = Me.columnUsername - TileViewItemElement4.ColumnIndex = 1 - TileViewItemElement4.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement4.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement4.Text = "columnUsername" - TileViewItemElement4.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight - TileViewItemElement4.TextLocation = New System.Drawing.Point(-10, 0) - TileViewItemElement5.Column = Me.columnMessage - TileViewItemElement5.ColumnIndex = 1 - TileViewItemElement5.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement5.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement5.MaxWidth = 350 - TileViewItemElement5.RowIndex = 1 - TileViewItemElement5.Text = "columnMessage" - TileViewItemElement5.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight - TileViewItemElement5.TextLocation = New System.Drawing.Point(-10, 0) - TileViewItemElement6.Column = Me.columnDate - TileViewItemElement6.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement6.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement6.Text = "columnDate" - TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft - TileViewItemElement6.TextLocation = New System.Drawing.Point(10, 0) - ItemTemplate2.Elements.Add(TileViewItemElement4) - ItemTemplate2.Elements.Add(TileViewItemElement5) - ItemTemplate2.Elements.Add(TileViewItemElement6) - ItemTemplate2.Name = "ChatRight" - TableRowDefinition3.Length.Value = 19.0R - TableRowDefinition4.Length.Value = 45.0R - ItemTemplate2.Rows.Add(TableRowDefinition3) - ItemTemplate2.Rows.Add(TableRowDefinition4) - TableColumnDefinition5.Length.Value = 250.0R - TableColumnDefinition6.Length.Value = 100.0R - ItemTemplate3.Columns.Add(TableColumnDefinition5) - ItemTemplate3.Columns.Add(TableColumnDefinition6) - TileViewItemElement7.Column = Me.columnUsername - TileViewItemElement7.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement7.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement7.RowIndex = 1 - TileViewItemElement7.Text = "columnUsername" - TileViewItemElement7.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft - TileViewItemElement7.TextLocation = New System.Drawing.Point(10, 0) - TileViewItemElement8.Column = Me.columnMessage - TileViewItemElement8.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement8.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement8.RowIndex = 2 - TileViewItemElement8.StretchHorizontal = True - TileViewItemElement8.StretchVertical = True - TileViewItemElement8.Text = "columnMessage" - TileViewItemElement8.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.TopLeft - TileViewItemElement8.TextLocation = New System.Drawing.Point(10, 0) - TileViewItemElement9.Column = Me.columnDate - TileViewItemElement9.ColumnIndex = 1 - TileViewItemElement9.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement9.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement9.RowIndex = 1 - TileViewItemElement9.Text = "columnDate" - TileViewItemElement9.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight - TileViewItemElement9.TextLocation = New System.Drawing.Point(-10, 0) - TileViewItemElement10.Appearance.Normal.BackColor = System.Drawing.Color.PaleGreen - TileViewItemElement10.Appearance.Normal.Options.UseBackColor = True - TileViewItemElement10.Column = Me.columnTO_USER - TileViewItemElement10.Height = 19 - TileViewItemElement10.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement10.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement10.StretchHorizontal = True - TileViewItemElement10.Text = "columnTO_USER" - TileViewItemElement10.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft - TileViewItemElement10.TextLocation = New System.Drawing.Point(10, 0) - ItemTemplate3.Elements.Add(TileViewItemElement7) - ItemTemplate3.Elements.Add(TileViewItemElement8) - ItemTemplate3.Elements.Add(TileViewItemElement9) - ItemTemplate3.Elements.Add(TileViewItemElement10) - ItemTemplate3.Name = "ChatTo" - TableRowDefinition5.Length.Value = 17.0R - TableRowDefinition6.Length.Value = 19.0R - TableRowDefinition7.Length.Value = 54.0R - ItemTemplate3.Rows.Add(TableRowDefinition5) - ItemTemplate3.Rows.Add(TableRowDefinition6) - ItemTemplate3.Rows.Add(TableRowDefinition7) - TableSpan2.ColumnSpan = 2 - TableSpan3.ColumnSpan = 2 - TableSpan3.RowIndex = 2 - ItemTemplate3.Spans.Add(TableSpan2) - ItemTemplate3.Spans.Add(TableSpan3) - Me.ChatViewOld.Templates.Add(ItemTemplate1) - Me.ChatViewOld.Templates.Add(ItemTemplate2) - Me.ChatViewOld.Templates.Add(ItemTemplate3) - Me.ChatViewOld.TileColumns.Add(TableColumnDefinition7) - Me.ChatViewOld.TileColumns.Add(TableColumnDefinition8) - Me.ChatViewOld.TileRows.Add(TableRowDefinition8) - Me.ChatViewOld.TileRows.Add(TableRowDefinition9) - ' - 'btnSendMessage - ' - Me.btnSendMessage.Dock = System.Windows.Forms.DockStyle.Right - Me.btnSendMessage.ImageOptions.Image = CType(resources.GetObject("btnSendMessage.ImageOptions.Image"), System.Drawing.Image) - Me.btnSendMessage.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleCenter - Me.btnSendMessage.Location = New System.Drawing.Point(372, 0) - Me.btnSendMessage.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) - Me.btnSendMessage.Name = "btnSendMessage" - Me.btnSendMessage.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light - Me.btnSendMessage.Size = New System.Drawing.Size(49, 102) - Me.btnSendMessage.TabIndex = 2 - Me.btnSendMessage.ToolTip = "Add message" - ' - 'pnlMessage - ' - Me.pnlMessage.BackColor = System.Drawing.Color.DimGray - Me.pnlMessage.Controls.Add(Me.RichTextBox1) - Me.pnlMessage.Controls.Add(Me.btnSendMessage) - Me.pnlMessage.Controls.Add(Me.ListBoxUserMention) - Me.pnlMessage.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlMessage.Location = New System.Drawing.Point(0, 485) - Me.pnlMessage.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) - Me.pnlMessage.Name = "pnlMessage" - Me.pnlMessage.Size = New System.Drawing.Size(421, 102) - Me.pnlMessage.TabIndex = 3 - ' - 'RichTextBox1 - ' - Me.RichTextBox1.AutoWordSelection = True - Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill - Me.RichTextBox1.Location = New System.Drawing.Point(0, 0) - Me.RichTextBox1.Name = "RichTextBox1" - Me.RichTextBox1.ShowSelectionMargin = True - Me.RichTextBox1.Size = New System.Drawing.Size(372, 102) - Me.RichTextBox1.TabIndex = 3 - Me.RichTextBox1.Text = "" - ' - 'ListBoxUserMention - ' - Me.ListBoxUserMention.BackColor = System.Drawing.SystemColors.Window - Me.ListBoxUserMention.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.ListBoxUserMention.ForeColor = System.Drawing.Color.Blue - Me.ListBoxUserMention.FormattingEnabled = True - Me.ListBoxUserMention.ItemHeight = 16 - Me.ListBoxUserMention.Location = New System.Drawing.Point(176, 17) - Me.ListBoxUserMention.Name = "ListBoxUserMention" - Me.ListBoxUserMention.Size = New System.Drawing.Size(129, 80) - Me.ListBoxUserMention.TabIndex = 4 - Me.ListBoxUserMention.Visible = False - ' - 'MenuStrip1 - ' - Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmitmTitle, Me.tsmenitmHamburger, Me.TeilnehmerToolStripMenuItem}) - Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) - Me.MenuStrip1.Name = "MenuStrip1" - Me.MenuStrip1.Size = New System.Drawing.Size(421, 25) - Me.MenuStrip1.TabIndex = 4 - Me.MenuStrip1.Text = "MenuStrip1" - ' - 'tsmitmTitle - ' - Me.tsmitmTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.tsmitmTitle.Name = "tsmitmTitle" - Me.tsmitmTitle.Size = New System.Drawing.Size(48, 21) - Me.tsmitmTitle.Text = "sdsd" - ' - 'tsmenitmHamburger - ' - Me.tsmenitmHamburger.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.tsmenitmHamburger.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItemConv_end, Me.BenutzerHinzufügenToolStripMenuItem}) - Me.tsmenitmHamburger.Image = Global.DigitalData.Controls.ChatControl.My.Resources.Resources.kisspng_computer_icons_hamburger_button_menu_new_menu_5b34724c3cb0f7_1188475115301637882486 - Me.tsmenitmHamburger.Name = "tsmenitmHamburger" - Me.tsmenitmHamburger.Size = New System.Drawing.Size(28, 21) - ' - 'ToolStripMenuItemConv_end - ' - Me.ToolStripMenuItemConv_end.Image = Global.DigitalData.Controls.ChatControl.My.Resources.Resources.StatusAnnotations_Stop_16xLG - Me.ToolStripMenuItemConv_end.Name = "ToolStripMenuItemConv_end" - Me.ToolStripMenuItemConv_end.Size = New System.Drawing.Size(192, 22) - Me.ToolStripMenuItemConv_end.Text = "Konversation beenden" - ' - 'BenutzerHinzufügenToolStripMenuItem - ' - Me.BenutzerHinzufügenToolStripMenuItem.Image = Global.DigitalData.Controls.ChatControl.My.Resources.Resources.action_add_16xLG - Me.BenutzerHinzufügenToolStripMenuItem.Name = "BenutzerHinzufügenToolStripMenuItem" - Me.BenutzerHinzufügenToolStripMenuItem.Size = New System.Drawing.Size(192, 22) - Me.BenutzerHinzufügenToolStripMenuItem.Text = "Benutzer hinzufügen" - ' - 'TeilnehmerToolStripMenuItem - ' - Me.TeilnehmerToolStripMenuItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.TeilnehmerToolStripMenuItem.ForeColor = System.Drawing.Color.DarkCyan - Me.TeilnehmerToolStripMenuItem.Name = "TeilnehmerToolStripMenuItem" - Me.TeilnehmerToolStripMenuItem.Size = New System.Drawing.Size(78, 21) - Me.TeilnehmerToolStripMenuItem.Text = "Teilnehmer" - ' - 'GridChat - ' - Me.GridChat.BackgroundImage = Global.DigitalData.Controls.ChatControl.My.Resources.Resources.crop_php - Me.GridChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center - Me.GridChat.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridChat.Location = New System.Drawing.Point(0, 238) - Me.GridChat.MainView = Me.ChatView - Me.GridChat.Name = "GridChat" - Me.GridChat.Size = New System.Drawing.Size(421, 247) - Me.GridChat.TabIndex = 5 - Me.GridChat.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ChatView}) - ' - 'ChatView - ' - Me.ChatView.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.columnFromUser, Me.columnToUser, Me.columnAddedWhen}) - Me.ChatView.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFullFocus - Me.ChatView.GridControl = Me.GridChat - Me.ChatView.GroupPanelText = "Nachrichten können mit der Lupe durchsucht werden" - Me.ChatView.Name = "ChatView" - Me.ChatView.OptionsFind.SearchInPreview = True - Me.ChatView.OptionsView.AutoCalcPreviewLineCount = True - Me.ChatView.OptionsView.ShowColumnHeaders = False - Me.ChatView.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False] - Me.ChatView.OptionsView.ShowIndicator = False - Me.ChatView.OptionsView.ShowPreview = True - Me.ChatView.OptionsView.ShowPreviewRowLines = DevExpress.Utils.DefaultBoolean.[False] - Me.ChatView.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False] - Me.ChatView.PreviewFieldName = "MESSAGE_TEXT" - Me.ChatView.RowHeight = 25 - Me.ChatView.RowSeparatorHeight = 5 - ' - 'columnFromUser - ' - Me.columnFromUser.AppearanceCell.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.columnFromUser.AppearanceCell.Options.UseFont = True - Me.columnFromUser.FieldName = "USER_FROM" - Me.columnFromUser.Name = "columnFromUser" - Me.columnFromUser.OptionsColumn.AllowEdit = False - Me.columnFromUser.Visible = True - Me.columnFromUser.VisibleIndex = 0 - ' - 'columnToUser - ' - Me.columnToUser.AppearanceCell.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold) - Me.columnToUser.AppearanceCell.Options.UseFont = True - Me.columnToUser.FieldName = "TO_USER" - Me.columnToUser.Name = "columnToUser" - Me.columnToUser.OptionsColumn.AllowEdit = False - Me.columnToUser.Visible = True - Me.columnToUser.VisibleIndex = 1 - ' - 'columnAddedWhen - ' - Me.columnAddedWhen.AppearanceCell.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold) - Me.columnAddedWhen.AppearanceCell.Options.UseFont = True - Me.columnAddedWhen.FieldName = "ADDED_WHEN" - Me.columnAddedWhen.Name = "columnAddedWhen" - Me.columnAddedWhen.OptionsColumn.AllowEdit = False - Me.columnAddedWhen.Visible = True - Me.columnAddedWhen.VisibleIndex = 2 - ' - 'ChatControl - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.GridChat) - Me.Controls.Add(Me.GridChatOld) - Me.Controls.Add(Me.pnlMessage) - Me.Controls.Add(Me.MenuStrip1) - Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) - Me.Name = "ChatControl" - Me.Size = New System.Drawing.Size(421, 587) - CType(Me.RepositoryItemHypertextLabel1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.RepositoryItemHyperLinkEdit1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridChatOld, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ChatViewOld, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ChatSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.pnlMessage.ResumeLayout(False) - Me.MenuStrip1.ResumeLayout(False) - Me.MenuStrip1.PerformLayout() - CType(Me.GridChat, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ChatView, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents GridChatOld As DevExpress.XtraGrid.GridControl - Friend WithEvents ChatViewOld As DevExpress.XtraGrid.Views.Tile.TileView - Friend WithEvents columnMessage As DevExpress.XtraGrid.Columns.TileViewColumn - Friend WithEvents columnUsername As DevExpress.XtraGrid.Columns.TileViewColumn - Friend WithEvents columnDate As DevExpress.XtraGrid.Columns.TileViewColumn - Friend WithEvents ChatSource As BindingSource - Friend WithEvents btnSendMessage As DevExpress.XtraEditors.SimpleButton - Friend WithEvents RepositoryItemHyperLinkEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemHyperLinkEdit - Friend WithEvents RepositoryItemHypertextLabel1 As DevExpress.XtraEditors.Repository.RepositoryItemHypertextLabel - Friend WithEvents pnlMessage As Panel - Friend WithEvents MenuStrip1 As MenuStrip - Friend WithEvents tsmitmTitle As ToolStripMenuItem - Friend WithEvents tsmenitmHamburger As ToolStripMenuItem - Friend WithEvents ToolStripMenuItemConv_end As ToolStripMenuItem - Friend WithEvents BenutzerHinzufügenToolStripMenuItem As ToolStripMenuItem - Friend WithEvents TeilnehmerToolStripMenuItem As ToolStripMenuItem - Friend WithEvents RichTextBox1 As RichTextBox - Friend WithEvents columnTO_USER As DevExpress.XtraGrid.Columns.TileViewColumn - Friend WithEvents ListBoxUserMention As ListBox - Friend WithEvents GridChat As DevExpress.XtraGrid.GridControl - Friend WithEvents ChatView As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents columnFromUser As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents columnAddedWhen As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents columnToUser As DevExpress.XtraGrid.Columns.GridColumn -End Class diff --git a/Controls.ChatControl/ChatControl.resx b/Controls.ChatControl/ChatControl.resx deleted file mode 100644 index 05f8267d..00000000 --- a/Controls.ChatControl/ChatControl.resx +++ /dev/null @@ -1,164 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACp0RVh0VGl0 - bGUARm9vdGVyO0FkZCBHcm91cCBGb290ZXI7Rm9vdGVyO0dyb3VwlRubyQAABwtJREFUWEetl3lQ1GUY - x38ddpl2Oh1/mV2THTOVZU79o+bYMdNtpplTjZV55VGGoKQisiDHLnKJIIggCOJRKl4pAiLHgiiQTXdc - oYAIArtcfXue5/29u0uxw9S0M5/5Pu8yvN/v876/991dg15XEFcSVxFXD8Gw/wDPy/PLC8AA+HXVliz7 - 8eTscgzKTqaM6jIkkSbRWKlJltItGhoLUtuRkFFynDw4PDc6aICr2ai//8//iX70mTVrQqadXa4hvAYY - xmn5H3r7+gentx89jDmW2hwPrPtMVN1HYTZnlLLLtYRsw2ABrkmkpfIagCbTtZgw2tQ06zaNWaXuUcoB - 4tOL2eU6wnsAXiZeLm3Gk7q69oT+pk0UNDbNunvMmnCa8FxxaUMHuHZzRokE0Mu4aYd9IBl/I92OONI4 - Wt7YdI1ddENCARzdva4AMamn2OV6wmuA6zZtVwFcnejOpFYd6q48cfT0EqayKcHKdHVTAJonKqWQXW4g - vAfgZeK02ihme6lJibtOo5qI9iS1BFFEdGoxqcISdwJdTg7QK9sWmVygA/B9MGiA63mZOICTOnF3R0pd - OP4GT6yg2jRiOllp3KlxqADWpHx2GU54D8DLxAHU8vUhalsxNgpFSlNYixCZUkwUwUZEbmVOUU1QbeOa - CIzJJfMedBC8ohEJeUMGuIGXidPK3jn7pAPpzLMjgSdW3YnSe2zEtWhXDy5rJZwUIDT+BLvcSHgNMJyX - iQNoEyt1Yk0+hQjCmlxIy1iIiCQaa7bwuBDhDNWasMSTWBN5TMzbCV7NkLjj7DKC8B6Al4mPn+rG3RF3 - I5id6bq9q9vEHHcqwzaXdqOto1sCWGK+HTLAjaHxubJf2pQ7CU0sQGgCKZ1rVRfIGRc2M/kK11i95289 - jEtkfolC8Haujz7KLiMJ/kAaNMAIXiZ+6vXSadqoS+mKYJXOTNiAkZoNiVaXOqXmZyhg4xF2uYnwHsAS - e0wCtNNkTEh8PoLj81wavImUkZqIY/JhoTqIsNCY4dov7BAuXnYKHfQ8rbUdYpebCa8BRq6POirnWi+d - 6sjp1svUFU2o4ck96wG0O9T+U0N8u/5a2zJkgJsCIo/IfmnDILrNgmIV60VzRYUYhsYmfO4D6T2luVgR - kiNXeMK+RfCNf87FfMu4Y/OCnzQ+tYwzfGKfFVwB1loPyRFspU65C3kGzL3/J/q50M+D+9ngBrh7PtIr - 4p5FdWMcKhtjUdkQjblBT+JMvc2oqLca5fXhxhdRE1wBbv4qPEfOf0u7k3B4qAPNVDe3EaRNbTSmWqkD - TZdMuCYuUM1wgOXRE5D742Kk2acKnwQ+gfK6MKOsNsSw1wQbSyPdAW5ZFZojR1BMaaLw3dUI212F0OxK - bCBCMs/CknkGQRkVWJdegYC001izrRyrU8rgn2JH9N5qFJ+7gF8a2vFzQxsd6X4s2zgBR39YiNTSqcJH - AY+jpCbIKK4JNIp+CzAWW8e7A/iF7JcjqLsKzjqLA9+3Yj9zrhXfMN+1YG+1Yjexq4qobMHOymbUtXUj - MmseltqewRLbeCyxKg5/Pw+pJVOwjfgs/GksCjMJfYp4+lsd4Fbf4H2yv3oJ120/TUYXEX2yQYgqIPIb - sDG/HpFMXj1shPUEU4faVicWR4xHWe0G2GtDUFoTjJLfg5Bz7mNsK56CFGJ/1YfI/2Ul8n72xYmffPC+ - /2PkrwLc5rP+a3mYzrc6cP5SF1Yl25FNnYkhGWlDW16dGEbkKsKZ47WooQALw57CwXNzxYzZKjyPlKLn - RZNZCVZmtt+j7gDLA/fIU9zY2iV8GV+E9NNN2F5+AWlEahlhP48UpvQ8thLJpY1IKm5EItFAWzA/ZBwO - VM8Rk61Fk02zyUg+RbASSVQrJmGWR4DbPw/YI0eosbUTjRc7sciWhw+CjmL2uiOYHXAYs9YcxMzVBzHD - PwfvrDyAaX778JbvPryx/Gu8Tpw8U481m+Zg+rKH8PbSBzGNmO33mBgpJmOW76N4bcEDxP14lXhl/n05 - OsCopWt3yR3wx8UuRUsnGgbQJVrfrMb1Zq25QNvGn3z62xQzy/cRZFfMwJbCScREvOvzCLtd8U3VHGPv - 2Q+Nl+fe6zoFo5aszpYLyNOUTRpaOpQZw2Y89jCua+Zxh2idjImmTgnAhpll05B4cqIw48uHJcCeiveM - XWfeM176eIwrwG2f+Wej5TLdARSihS4agS8jvoDoaPLdoC+bJvMiUpcQ1aLm3/gUkfJFNJMMM+xvIoHM - mXeWj5UAWeUzjKzy6cb0z8e6Aoz81Cc1d9GqnWAWrsoawIKVmViglfHLxHytwg6lvqYS5VW1WGaZiRc/ - GkPcgxfmCAc5wNQPRhtT3h9tTF/mDsC/2/gLwyjiDuJOL9z1L7jbVJ6PPwm9/DaE8RdajUyGSTHyEAAA - AABJRU5ErkJggg== - - - - 17, 17 - - - 131, 17 - - \ No newline at end of file diff --git a/Controls.ChatControl/ChatControl.vb b/Controls.ChatControl/ChatControl.vb deleted file mode 100644 index cfa0392c..00000000 --- a/Controls.ChatControl/ChatControl.vb +++ /dev/null @@ -1,477 +0,0 @@ -Imports DevExpress.XtraGrid.Views.Tile -Imports DigitalData.Modules.Database -Imports DigitalData.Modules.Logging - -Public Class ChatControl - Private ReadOnly IdColumn As String = "GUID" - Private ReadOnly IdentificationColumn As String = "USER_FROM" - Private ReadOnly MessageColumn As String = "MESSAGE_TEXT" - Private ReadOnly DateColumn As String = "ADDED_WHEN" - Private ReadOnly ToUserColumn As String = "TO_USER" - - Public Delegate Sub ConversationEnded() - Public Event Conversation_Ended As ConversationEnded - Public Delegate Sub ConversationUsersAdded_Success() - Public Event Conversation_UsersAdded_Success As ConversationUsersAdded_Success - Private Db As MSSQLServer - Private LogConfig As LogConfig - Private Logger As Logger - - Private AddMessage As Boolean - - Private oAddUSerForm As Form - - 'Private ReadOnly UsernameColorsDict As New Dictionary(Of String, Color) - 'Private ReadOnly UsernameColors As New List(Of Color) From { - ' Color.Purple, - ' Color.Red, - ' Color.LightBlue, - ' Color.DarkSeaGreen - '} - Private IsAssistKeyPressed As Boolean = False - - Private AssistListBox As ListBox = New ListBox() - - Public IDBObjectId As Long - Public ConnStringIDB As String - Public ConversationIdentification As String - Public UserID As Long - Public Username As String - Public User_Language As String - Public CurrentConversationID As Long - Public CurrentConversation_State As String - Public CurrentConversation_UserActive As Boolean - Public oDTConv_User As DataTable - - Public CurrentMentionedUser As String - Public CurrentMentionedUserID As Long - Public CurrentIdentifier - Public User_Datatable_Select As DataTable - Public DT_Rights As DataTable - - - Public QU_Conv_End As DataTable - - Public Sub New() - InitializeComponent() - End Sub - - Public Function Init(LogConfig As LogConfig, ConnectionStringIDB As String, ConversationIdentification As String, UserID As Long, Username As String, USER_LANG As String, - Qust_Conv_End As DataTable, DTRIGHTS As DataTable) - Try - CurrentConversationID = 0 - Me.LogConfig = LogConfig - Me.Logger = LogConfig.GetLogger() - Me.ConnStringIDB = ConnectionStringIDB - Me.ConversationIdentification = ConversationIdentification - Me.UserID = UserID - Me.Username = Username - Me.User_Language = USER_LANG - QU_Conv_End = Qust_Conv_End - DT_Rights = DTRIGHTS - Me.Db = New MSSQLServer(LogConfig, ConnStringIDB) - Return True - Catch ex As Exception - Logger.Error(ex) - Return False - End Try - - End Function - Sub Check_Rights() - Dim oSQL As String - ToolStripMenuItemConv_end.Visible = False - tsmenitmHamburger.Visible = False - AddMessage = False - Dim oView As DataView = New DataView(DT_Rights) - oView.RowFilter = "CONF_TITLE = 'CONVERSATION_USER_ACTIVE'" - If oView.Count = 1 Then - CurrentConversation_UserActive = True - Else - CurrentConversation_UserActive = False - End If - - For Each oRow As DataRow In DT_Rights.Rows - If oRow.Item("CONF_TITLE").ToString.Contains("CONVERSATION_RIGHT") Then - Select Case oRow.Item("CONF_VALUE") - Case "Start|Stop" - ToolStripMenuItemConv_end.Visible = True - tsmenitmHamburger.Visible = True - AddMessage = True - Case "AddMessage" - AddMessage = True - Case "Admin" - ToolStripMenuItemConv_end.Visible = True - BenutzerHinzufügenToolStripMenuItem.Visible = True - tsmenitmHamburger.Visible = True - AddMessage = True - Case "Start" - BenutzerHinzufügenToolStripMenuItem.Visible = True - tsmenitmHamburger.Visible = True - Case "Stop" - ToolStripMenuItemConv_end.Visible = True - End Select - ElseIf oRow.Item("CONF_TITLE") = "CONVERSATION_ADD_USER_SELECT" Then - oSQL = oRow.Item("CONF_VALUE") - oSQL = oSQL.Replace("@CONVID", CurrentConversationID) - User_Datatable_Select = Db.GetDatatable(oSQL) - Logger.Debug($"User_Datatable_Select [{User_Datatable_Select}]") - End If - - - Next - If CurrentConversation_State = "Started" Then - pnlMessage.Visible = AddMessage - Else - pnlMessage.Visible = False - tsmenitmHamburger.Visible = False - End If - - End Sub - - Public Function GetConversations(IDBObjectId As Long) - CurrentConversationID = 0 - Dim oSQL As String = $"SELECT DISTINCT T.CONVERSATION_ID,T.TITLE,T.CONVERSATION_STATE,T.ADDED_WHEN FROM VWIDB_CONVERSATION T INNER JOIN VWIDB_CONVERSATION_USER T1 ON T.CONVERSATION_ID = T1.CONV_ID WHERE IDB_OBJ_ID = {IDBObjectId} - AND T1.USER_ID = {UserID} - ORDER BY CONVERSATION_ID DESC" - Dim oDatatable As DataTable = Db.GetDatatable(oSQL) - Dim oConversations As New List(Of String) - If Not IsNothing(oDatatable) Then - Dim i = 0 - For Each oROW As DataRow In oDatatable.Rows - Dim oItem = oROW.Item("CONVERSATION_ID").ToString + "|" + oROW.Item("TITLE").ToString + "|" + oROW.Item("CONVERSATION_STATE").ToString + "|" + oDatatable.Rows(0).Item("ADDED_WHEN").ToString - oConversations.Insert(i, oItem) - i += 1 - If oROW.Item("CONVERSATION_STATE") = "Started" Then - If CurrentConversationID = 0 Then - CurrentConversationID = oROW.Item("CONVERSATION_ID") - LoadConversation(CurrentConversationID) - End If - End If - Next - End If - Return oConversations - End Function - - Public Sub LoadConversation(ConversationId As Long) - ListBoxUserMention.Visible = False - RichTextBox1.Text = "" - Dim oSQL As String = $"SELECT * FROM VWIDB_CONV_MESSAGES WHERE CONV_ID = {ConversationId} ORDER BY GUID" - Dim oDatatable As DataTable = Db.GetDatatable(oSQL) - ' BuildUsernameColorDict(oDatatable) - oSQL = $"SELECT * FROM VWIDB_CONVERSATION WHERE CONVERSATION_ID = {ConversationId}" - Dim oDatatable2 As DataTable = Db.GetDatatable(oSQL) - - GridChatOld.DataSource = ChatSource - GridChat.DataSource = ChatSource - - ChatSource.DataSource = oDatatable - tsmitmTitle.Text = oDatatable2.Rows(0).Item("TITLE") - CurrentConversationID = ConversationId - CurrentConversation_State = oDatatable2.Rows(0).Item("CONVERSATION_STATE") - oSQL = $"SELECT * FROM VWIDB_CONVERSATION_USER WHERE CONV_ID = {ConversationId}" - oDTConv_User = Db.GetDatatable(oSQL) - If TeilnehmerToolStripMenuItem.HasDropDownItems Then - TeilnehmerToolStripMenuItem.DropDownItems.Clear() - End If - - If ConversationIdentification.Contains("@") Then - CurrentIdentifier = "EMAIL" - Else - CurrentIdentifier = "USERNAME" - End If - AssistListBox.Items.Clear() - ListBoxUserMention.Items.Clear() - - Try - For Each oROW As DataRow In oDTConv_User.Rows - - Dim oConvUser - oConvUser = oROW.Item(CurrentIdentifier) - If IsDBNull(oConvUser) Then - oConvUser = String.Empty - End If - - If oConvUser.ToString = String.Empty Then - If CurrentIdentifier = "EMAIL" Then - oConvUser = $"No Email for User '{oROW.Item("USERNAME")}'" - Else - oConvUser = $"No Identification for UserID '{oROW.Item("USER_ID")}'" - End If - Else - Dim oToUser As String - If oConvUser.ToString.Contains("@") Then - oToUser = "@" & oConvUser.ToString.Substring(0, oConvUser.ToString.IndexOf("@")) - Else - oToUser = "@" & oConvUser.ToString - End If - - ListBoxUserMention.Items.Add(oToUser) - AssistListBox.Items.Add(oToUser) - - End If - Dim oToolStripItem As ToolStripMenuItem = New ToolStripMenuItem(oConvUser.ToString) - TeilnehmerToolStripMenuItem.DropDownItems.Add(oToolStripItem) - Next - AddHandler AssistListBox.SelectedIndexChanged, AddressOf AssistListBox_Changed - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Error adding ConversationUsers") - End Try - - Check_Rights() - End Sub - - Public Sub NewMessage(MessageText As String) - Try - Dim oSQL As String = $"EXEC [PRIDB_NEW_CONVERSATION_MESSAGE] {CurrentConversationID},'{MessageText}', '{ConversationIdentification}', {CurrentMentionedUserID},'{User_Language}'" - Logger.Debug($"NewMessageSQL: {oSQL}") - Dim oResult = Db.GetScalarValue(oSQL) - LoadConversation(CurrentConversationID) - RichTextBox1.Text = String.Empty - ChatViewOld.MoveLast() - ChatView.MoveLast() - Catch ex As Exception - Logger.Error(ex) - End Try - End Sub - - 'Private Sub BuildUsernameColorDict(Datatable As DataTable) - ' Dim oIndex = 0 - - ' UsernameColorsDict.Clear() - - ' Datatable.AsEnumerable(). - ' Select(Function(Row) Row.Item(IdentificationColumn)). - ' Distinct().ToList(). - ' ForEach(Sub(Name) - ' UsernameColorsDict.Add(Name, UsernameColors.Item(oIndex)) - ' oIndex += 1 - ' End Sub) - 'End Sub - - Private Sub ChatView_CustomItemTemplate(sender As Object, e As TileViewCustomItemTemplateEventArgs) Handles ChatViewOld.CustomItemTemplate - Dim oRow As DataRow = ChatViewOld.GetDataRow(e.RowHandle) - Dim oIdentification As String = oRow.Item(IdentificationColumn) - Dim oToUser = oRow.Item(ToUserColumn) - - If Not IsDBNull(oToUser) Then - e.Template = e.Templates.Item("ChatTo") - Else - 'If oIdentification = ConversationIdentification Or oIdentification = Username Then - ' e.Template = e.Templates.Item("ChatRight") - 'Else - ' e.Template = e.Templates.Item("ChatLeft") - 'End If - e.Template = e.Templates.Item("ChatLeft") - End If - End Sub - - Private Sub ChatView_ItemCustomize(sender As Object, e As TileViewItemCustomizeEventArgs) Handles ChatViewOld.ItemCustomize - Dim oRow As DataRow = ChatViewOld.GetDataRow(e.RowHandle) - Dim oUsername As String = oRow.Item(IdentificationColumn) - Dim oMessage As String = oRow.Item(MessageColumn) - Dim oToUser = oRow.Item(ToUserColumn) - ' Dim oColor As Color = UsernameColorsDict.Item(oUsername) - - If oUsername = ConversationIdentification Or oUsername = Username Then - e.Item.AppearanceItem.Normal.BackColor = Color.PaleTurquoise - e.Item.Item(IdentificationColumn).Appearance.Normal.ForeColor = Color.Purple - Else - e.Item.Item(IdentificationColumn).Appearance.Normal.ForeColor = Color.Red - End If - - e.Item.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide - End Sub - - Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnSendMessage.Click - If RichTextBox1.Text.Count > 0 Then - NewMessage(RichTextBox1.Text) - End If - End Sub - - Private Sub ToolStripMenuItemConv_end_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItemConv_end.Click - If CurrentConversationID <> 0 Then - Dim result As MsgBoxResult - result = MessageBox.Show(QU_Conv_End.Rows(0).Item("STRING1").ToString, QU_Conv_End.Rows(0).Item("STRING2").ToString, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) - If result = MsgBoxResult.Yes Then - Dim oSQL = $"EXEC PRIDB_END_CONVERSATION {CurrentConversationID}, '{Username}', '{User_Language}'" - If Db.ExecuteNonQuery(oSQL) = True Then - RaiseEvent Conversation_Ended() - Else - MsgBox("Unexpected error in PRIDB_END_CONVERSATION - Check Your log!", MsgBoxStyle.Exclamation) - End If - End If - End If - End Sub - - Private Sub BenutzerHinzufügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BenutzerHinzufügenToolStripMenuItem.Click - Dim oForm = New Form() - Dim oaddUS As ChatAddUser.ChatAddUser = New ChatAddUser.ChatAddUser() - oaddUS.Init(LogConfig, ConnStringIDB, CurrentConversationID, Username, User_Language, User_Datatable_Select) - oForm.Controls.Add(oaddUS) - oaddUS.Dock = DockStyle.Fill - oForm.MaximizeBox = False - oForm.MinimizeBox = False - oForm.FormBorderStyle = FormBorderStyle.FixedDialog - oForm.StartPosition = FormStartPosition.CenterScreen - oForm.Text = "" - AddHandler oaddUS.User_Added, AddressOf onUsersAdded - oAddUSerForm = oForm - oForm.ShowDialog() - End Sub - - Sub onUsersAdded() - RaiseEvent Conversation_UsersAdded_Success() - oAddUSerForm.Close() - End Sub - - Private Function GetPoint(ByVal textBoxControl As RichTextBox) As Point - Dim graphics_1 As Graphics = Graphics.FromHwnd(textBoxControl.Handle) - Dim size As SizeF = graphics_1.MeasureString(textBoxControl.Text.Substring(0, textBoxControl.SelectionStart), textBoxControl.Font) - Dim coord As New Point(CInt(size.Width) + textBoxControl.Location.X, CInt(size.Height) + textBoxControl.Location.Y) - Return coord - End Function - - - - Private Sub RichTextBox1_KeyUp(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyUp - If e.Control And e.KeyCode = Keys.Enter And RichTextBox1.Text.Count > 0 Then - NewMessage(RichTextBox1.Text) - ElseIf (Keys.Alt AndAlso Keys.Control) And e.KeyCode = keys.Q Then - With RichTextBox1 - ListBoxUserMention.Left = .GetPositionFromCharIndex(.SelectionStart).X + .Left + 10 - ListBoxUserMention.Top = .GetPositionFromCharIndex(.SelectionStart).Y + .Top + 20 - ' Jetzt ListBox einblendenden, Focus auf diese setzen - ' und den ersten Eintrag selektieren - ListBoxUserMention.Visible = True - ListBoxUserMention.Focus() - ListBoxUserMention.SelectedIndex = 0 - End With - - 'Dim opoint As Point = GetPoint(sender) - 'AssistListBox.PointToClient(opoint) - 'pnlMessage.Controls.Add(AssistListBox) - 'AssistListBox.Show() - 'AssistListBox.BringToFront() - - ' '@ was pressed - End If - End Sub - Sub AssistListBox_Changed() - Try - RichTextBox1.Text = RichTextBox1.Text + AssistListBox.SelectedItem + ": " - RichTextBox1.SelectionFont = New Font("Tahoma", 10, FontStyle.Bold And FontStyle.Underline) - RichTextBox1.Text = RichTextBox1.Text.Replace("@@", "@") - pnlMessage.Controls.Remove(AssistListBox) - 'RichTextBox1.SelectedText = AssistListBox.SelectedItem - - Catch ex As Exception - Logger.Error(ex) - End Try - - End Sub - Sub ADD_MentionedUser(pUser As String) - Dim oPos As Integer = RichTextBox1.TextLength - Dim oUsertext = pUser & ": " - With RichTextBox1 - .AppendText(Replace(.Text, "@", vbNullString) & oPos) - .Select(oPos, oUsertext.Length) - .SelectionColor = Color.Blue - .Select() - - End With - - End Sub - - Private Sub ListBoxUserMention_KeyUp(sender As Object, e As KeyEventArgs) Handles ListBoxUserMention.KeyUp - If e.KeyCode = Keys.Return Then - Dim oMentionedUser As String = ListBoxUserMention.SelectedItem - 'ADD_MentionedUser(strTag) - With RichTextBox1 - - CUrrentMentionedUser = oMentionedUser - ' Logger.Debug($"ListBoxUserMention_KeyUp.CurrentMentionedUser = {CurrentMentionedUser}") - For Each oROW As DataRow In oDTConv_User.Rows - - Dim oConvUser2beChecked - oConvUser2beChecked = oROW.Item(CurrentIdentifier) - If IsDBNull(oConvUser2beChecked) Then - oConvUser2beChecked = String.Empty - End If - - If oConvUser2beChecked.ToString = String.Empty Then - If CurrentIdentifier = "EMAIL" Then - oConvUser2beChecked = $"No Email for User '{oROW.Item("USERNAME")}'" - Else - oConvUser2beChecked = $"No Identification for UserID '{oROW.Item("USER_ID")}'" - End If - End If - CurrentMentionedUser = CurrentMentionedUser.Substring(1, CurrentMentionedUser.Length - 1) - 'Logger.Debug($"oConvUser2beChecked = {CurrentMentionedUser}") - If oConvUser2beChecked.ToString.Contains(CurrentMentionedUser) Then - CurrentMentionedUserID = oROW.Item("USER_ID") - Logger.Debug($"CurrentMentionedUserID Changed: {CurrentMentionedUserID}") - End If - - - Next - - ' Das "Steuerzeichen" # ersetzen durch einen NullString - .Text = Replace(.Text, "@", vbNullString) & oMentionedUser & ": " - - ' wo soll der Cursor nach dem Einfügen in der RTB stehen? - .SelectionStart = .TextLength - - ' Listbox wieder auf den ersten Eintrag setzen - ' und ausblenden - ListBoxUserMention.SelectedItem = 0 - ListBoxUserMention.Visible = False - - ' Focus wieder auf RTB setzen - .Focus() - End With - End If - End Sub - - Private Sub ChatView_CustomDrawRowPreview(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowObjectCustomDrawEventArgs) Handles ChatView.CustomDrawRowPreview - Dim oRow As DataRow = ChatViewOld.GetDataRow(e.RowHandle) - Dim oUsername As String = oRow.Item(IdentificationColumn) - Dim oToUser = oRow.Item(ToUserColumn) - Dim oIsOwnMessage As Boolean = oUsername = ConversationIdentification Or oUsername = Username - - ' Eigene Nachrichten - If oIsOwnMessage Then - e.Appearance.BackColor = Color.White - End If - - ' Andere Nachrichten - If Not oIsOwnMessage Then - e.Appearance.BackColor = Color.PaleTurquoise - End If - End Sub - - Private Sub ChatView_CustomDrawCell(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowCellCustomDrawEventArgs) Handles ChatView.CustomDrawCell - Dim oRow As DataRow = ChatViewOld.GetDataRow(e.RowHandle) - Dim oUsername As String = oRow.Item(IdentificationColumn) - Dim oToUser = oRow.Item(ToUserColumn) - - Dim oIsOwnMessage As Boolean = oUsername = ConversationIdentification Or oUsername = Username - - ' Eigene Nachrichten - If oIsOwnMessage Then - e.Appearance.BackColor = Color.White - End If - - ' Andere Nachrichten - If Not oIsOwnMessage Then - If Not (IsNothing(oToUser) Or IsDBNull(oToUser)) Then - If oToUser = Username Or oToUser = ConversationIdentification Then - e.Appearance.BackColor = Color.LightSalmon - Else - e.Appearance.BackColor = Color.PaleTurquoise - End If - Else - e.Appearance.BackColor = Color.PaleTurquoise - End If - End If - End Sub -End Class diff --git a/Controls.ChatControl/ChatControl.vbproj b/Controls.ChatControl/ChatControl.vbproj deleted file mode 100644 index c16ac781..00000000 --- a/Controls.ChatControl/ChatControl.vbproj +++ /dev/null @@ -1,188 +0,0 @@ - - - - - Debug - AnyCPU - {1F278760-4F6B-42E8-B82D-01D4C8618340} - Library - DigitalData.Controls.ChatControl - DigitalData.Controls.ChatControl - 512 - Windows - v4.6.2 - true - - - - true - full - true - true - bin\Debug\ - DigitalData.Controls.ChatControl.xml - _MYFORMS=True - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - pdbonly - false - true - true - bin\Release\ - DigitalData.Controls.ChatControl.xml - _MYFORMS=True - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - On - - - Binary - - - Off - - - On - - - - - - - - - - - - - ..\Controls.LookupGrid\obj\Debug\DigitalData.Controls.LookupGrid.dll - - - False - ..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll - - - False - ..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll - - - - ..\packages\NLog.5.0.5\lib\net46\NLog.dll - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - True - Application.myapp - True - - - UserControl - - - ChatControl.vb - - - - True - True - Resources.resx - - - True - Settings.settings - True - - - - - ChatControl.vb - Designer - - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - My - Settings.Designer.vb - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - {f0a807cc-be14-4b5b-9200-27c16156bd8a} - ChatAddUser - - - - \ No newline at end of file diff --git a/Controls.ChatControl/ChatControl.vbproj.bak b/Controls.ChatControl/ChatControl.vbproj.bak deleted file mode 100644 index efeea882..00000000 --- a/Controls.ChatControl/ChatControl.vbproj.bak +++ /dev/null @@ -1,185 +0,0 @@ - - - - - Debug - AnyCPU - {1F278760-4F6B-42E8-B82D-01D4C8618340} - Library - DigitalData.Controls.ChatControl - DigitalData.Controls.ChatControl - 512 - Windows - v4.6.1 - true - - - - true - full - true - true - bin\Debug\ - DigitalData.Controls.ChatControl.xml - _MYFORMS=True - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - pdbonly - false - true - true - bin\Release\ - DigitalData.Controls.ChatControl.xml - _MYFORMS=True - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - On - - - Binary - - - Off - - - On - - - - - - - - - - - - ..\Controls.LookupGrid\obj\Debug\DigitalData.Controls.LookupGrid.dll - - - - ..\packages\NLog.4.7.10\lib\net45\NLog.dll - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - True - Application.myapp - - - UserControl - - - ChatControl.vb - - - - True - True - Resources.resx - - - True - Settings.settings - True - - - - - ChatControl.vb - - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - My - Settings.Designer.vb - - - - - - - - {f0a807cc-be14-4b5b-9200-27c16156bd8a} - ChatAddUser - - - {eaf0ea75-5fa7-485d-89c7-b2d843b03a96} - Database - - - {903b2d7d-3b80-4be9-8713-7447b704e1b0} - Logging - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/Controls.ChatControl/My Project/Application.Designer.vb b/Controls.ChatControl/My Project/Application.Designer.vb deleted file mode 100644 index 8ab460ba..00000000 --- a/Controls.ChatControl/My Project/Application.Designer.vb +++ /dev/null @@ -1,13 +0,0 @@ -'------------------------------------------------------------------------------ -' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.42000 -' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - diff --git a/Controls.ChatControl/My Project/Application.myapp b/Controls.ChatControl/My Project/Application.myapp deleted file mode 100644 index 758895de..00000000 --- a/Controls.ChatControl/My Project/Application.myapp +++ /dev/null @@ -1,10 +0,0 @@ - - - false - false - 0 - true - 0 - 1 - true - diff --git a/Controls.ChatControl/My Project/AssemblyInfo.vb b/Controls.ChatControl/My Project/AssemblyInfo.vb deleted file mode 100644 index 051e4dbf..00000000 --- a/Controls.ChatControl/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,34 +0,0 @@ -Imports System -Imports System.Reflection -Imports System.Runtime.InteropServices - -' Allgemeine Informationen über eine Assembly werden über die folgenden -' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, -' die einer Assembly zugeordnet sind. - -' Werte der Assemblyattribute überprüfen - - - - - - - - - - -'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird. - - -' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: -' -' Hauptversion -' Nebenversion -' Buildnummer -' Revision -' -' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden, -' indem Sie "*" wie unten gezeigt eingeben: - - - diff --git a/Controls.ChatControl/My Project/Resources.Designer.vb b/Controls.ChatControl/My Project/Resources.Designer.vb deleted file mode 100644 index 947f4a4f..00000000 --- a/Controls.ChatControl/My Project/Resources.Designer.vb +++ /dev/null @@ -1,134 +0,0 @@ -'------------------------------------------------------------------------------ -' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.42000 -' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - -Imports System - -Namespace My.Resources - - 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert - '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. - 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen - 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. - ''' - ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. - ''' - _ - Friend Module Resources - - Private resourceMan As Global.System.Resources.ResourceManager - - Private resourceCulture As Global.System.Globalization.CultureInfo - - ''' - ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. - ''' - _ - Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager - Get - If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DigitalData.Controls.ChatControl.Resources", GetType(Resources).Assembly) - resourceMan = temp - End If - Return resourceMan - End Get - End Property - - ''' - ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle - ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. - ''' - _ - Friend Property Culture() As Global.System.Globalization.CultureInfo - Get - Return resourceCulture - End Get - Set - resourceCulture = value - End Set - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property action_add_16xLG() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("action_add_16xLG", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property Action_Workflow_Activate() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("Action_Workflow_Activate", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property Action_Workflow_Deactivate() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("Action_Workflow_Deactivate", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property crop_php() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("crop.php", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property kisspng_computer_icons_hamburger_button_menu_new_menu_5b34724c3cb0f7_1188475115301637882486() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("kisspng-computer-icons-hamburger-button-menu-new-menu-5b34724c3cb0f7.118847511530"& _ - "1637882486", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property Send_16x16() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("Send_16x16", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property StatusAnnotations_Stop_16xLG() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("StatusAnnotations_Stop_16xLG", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - End Module -End Namespace diff --git a/Controls.ChatControl/My Project/Settings.settings b/Controls.ChatControl/My Project/Settings.settings deleted file mode 100644 index 85b890b3..00000000 --- a/Controls.ChatControl/My Project/Settings.settings +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - diff --git a/Controls.ChatControl/My Project/licenses.licx b/Controls.ChatControl/My Project/licenses.licx deleted file mode 100644 index e69de29b..00000000 diff --git a/Controls.ChatControl/My Project/licenses.licx.bak b/Controls.ChatControl/My Project/licenses.licx.bak deleted file mode 100644 index f21e86b6..00000000 --- a/Controls.ChatControl/My Project/licenses.licx.bak +++ /dev/null @@ -1,6 +0,0 @@ -DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Controls.ChatControl/Resources/Action_Workflow_Activate.png b/Controls.ChatControl/Resources/Action_Workflow_Activate.png deleted file mode 100644 index 5d967b1f..00000000 Binary files a/Controls.ChatControl/Resources/Action_Workflow_Activate.png and /dev/null differ diff --git a/Controls.ChatControl/Resources/Action_Workflow_Deactivate.png b/Controls.ChatControl/Resources/Action_Workflow_Deactivate.png deleted file mode 100644 index 54a077fb..00000000 Binary files a/Controls.ChatControl/Resources/Action_Workflow_Deactivate.png and /dev/null differ diff --git a/Controls.ChatControl/Resources/Send_16x16.png b/Controls.ChatControl/Resources/Send_16x16.png deleted file mode 100644 index add634c2..00000000 Binary files a/Controls.ChatControl/Resources/Send_16x16.png and /dev/null differ diff --git a/Controls.ChatControl/Resources/StatusAnnotations_Stop_16xLG.png b/Controls.ChatControl/Resources/StatusAnnotations_Stop_16xLG.png deleted file mode 100644 index 0e4a3ade..00000000 Binary files a/Controls.ChatControl/Resources/StatusAnnotations_Stop_16xLG.png and /dev/null differ diff --git a/Controls.ChatControl/Resources/action_add_16xLG.png b/Controls.ChatControl/Resources/action_add_16xLG.png deleted file mode 100644 index 92db8ebd..00000000 Binary files a/Controls.ChatControl/Resources/action_add_16xLG.png and /dev/null differ diff --git a/Controls.ChatControl/Resources/crop.php.jpeg b/Controls.ChatControl/Resources/crop.php.jpeg deleted file mode 100644 index 68360c3b..00000000 Binary files a/Controls.ChatControl/Resources/crop.php.jpeg and /dev/null differ diff --git a/Controls.ChatControl/Resources/kisspng-computer-icons-hamburger-button-menu-new-menu-5b34724c3cb0f7.1188475115301637882486.png b/Controls.ChatControl/Resources/kisspng-computer-icons-hamburger-button-menu-new-menu-5b34724c3cb0f7.1188475115301637882486.png deleted file mode 100644 index 6d4015f2..00000000 Binary files a/Controls.ChatControl/Resources/kisspng-computer-icons-hamburger-button-menu-new-menu-5b34724c3cb0f7.1188475115301637882486.png and /dev/null differ diff --git a/Controls.ChatControl/app.config b/Controls.ChatControl/app.config deleted file mode 100644 index 9691651f..00000000 --- a/Controls.ChatControl/app.config +++ /dev/null @@ -1,15 +0,0 @@ - - - - - - - - - - - - - - - diff --git a/Controls.ChatControl/packages.config b/Controls.ChatControl/packages.config deleted file mode 100644 index ce98cd21..00000000 --- a/Controls.ChatControl/packages.config +++ /dev/null @@ -1,4 +0,0 @@ - - - - \ No newline at end of file diff --git a/Controls.ChatNewConv/ChatNewConv.Designer.vb b/Controls.ChatNewConv/ChatNewConv.Designer.vb deleted file mode 100644 index 08aa3d94..00000000 --- a/Controls.ChatNewConv/ChatNewConv.Designer.vb +++ /dev/null @@ -1,236 +0,0 @@ - _ -Partial Class ChatNewConv - Inherits System.Windows.Forms.UserControl - - 'UserControl1 überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - 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. - _ - Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ChatNewConv)) - Me.Panel1 = New System.Windows.Forms.Panel() - Me.txtConv_Title = New System.Windows.Forms.TextBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.Panel2 = New System.Windows.Forms.Panel() - Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() - Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() - Me.AccordionControl1 = New DevExpress.XtraBars.Navigation.AccordionControl() - Me.AccordionContentContainer1 = New DevExpress.XtraBars.Navigation.AccordionContentContainer() - Me.GridControlUsers = New DevExpress.XtraGrid.GridControl() - Me.GridViewUsers = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.AccordionContentContainer2 = New DevExpress.XtraBars.Navigation.AccordionContentContainer() - Me.GridControlGroups = New DevExpress.XtraGrid.GridControl() - Me.GridViewGroups = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.AccordionControlElement1 = New DevExpress.XtraBars.Navigation.AccordionControlElement() - Me.AccordionControlElementUser = New DevExpress.XtraBars.Navigation.AccordionControlElement() - Me.AccordionControlElementGroups = New DevExpress.XtraBars.Navigation.AccordionControlElement() - Me.Panel1.SuspendLayout() - Me.Panel2.SuspendLayout() - CType(Me.AccordionControl1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.AccordionControl1.SuspendLayout() - Me.AccordionContentContainer1.SuspendLayout() - CType(Me.GridControlUsers, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewUsers, System.ComponentModel.ISupportInitialize).BeginInit() - Me.AccordionContentContainer2.SuspendLayout() - CType(Me.GridControlGroups, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewGroups, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'Panel1 - ' - Me.Panel1.Controls.Add(Me.txtConv_Title) - Me.Panel1.Controls.Add(Me.Label1) - Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top - Me.Panel1.Location = New System.Drawing.Point(0, 0) - Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(463, 57) - Me.Panel1.TabIndex = 0 - ' - 'txtConv_Title - ' - Me.txtConv_Title.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtConv_Title.Location = New System.Drawing.Point(6, 28) - Me.txtConv_Title.Name = "txtConv_Title" - Me.txtConv_Title.Size = New System.Drawing.Size(449, 23) - Me.txtConv_Title.TabIndex = 1 - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(3, 11) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(345, 14) - Me.Label1.TabIndex = 0 - Me.Label1.Text = "Bitte geben Sie einen aussagekräftigen Konversationstitel ein:" - ' - 'Panel2 - ' - Me.Panel2.Controls.Add(Me.SimpleButton1) - Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel2.Location = New System.Drawing.Point(0, 413) - Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(463, 59) - Me.Panel2.TabIndex = 1 - ' - 'SimpleButton1 - ' - Me.SimpleButton1.Dock = System.Windows.Forms.DockStyle.Fill - Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.SimpleButton1.Location = New System.Drawing.Point(0, 0) - Me.SimpleButton1.Name = "SimpleButton1" - Me.SimpleButton1.Size = New System.Drawing.Size(463, 59) - Me.SimpleButton1.TabIndex = 0 - Me.SimpleButton1.Text = "Konversation anlegen" - ' - 'AccordionControl1 - ' - Me.AccordionControl1.Controls.Add(Me.AccordionContentContainer1) - Me.AccordionControl1.Controls.Add(Me.AccordionContentContainer2) - Me.AccordionControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.AccordionControl1.Elements.AddRange(New DevExpress.XtraBars.Navigation.AccordionControlElement() {Me.AccordionControlElement1}) - Me.AccordionControl1.Location = New System.Drawing.Point(0, 57) - Me.AccordionControl1.Name = "AccordionControl1" - Me.AccordionControl1.Size = New System.Drawing.Size(463, 356) - Me.AccordionControl1.TabIndex = 5 - Me.AccordionControl1.Text = "AccordionControl1" - ' - 'AccordionContentContainer1 - ' - Me.AccordionContentContainer1.Controls.Add(Me.GridControlUsers) - Me.AccordionContentContainer1.Name = "AccordionContentContainer1" - Me.AccordionContentContainer1.Size = New System.Drawing.Size(444, 177) - Me.AccordionContentContainer1.TabIndex = 1 - ' - 'GridControlUsers - ' - Me.GridControlUsers.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControlUsers.Location = New System.Drawing.Point(0, 0) - Me.GridControlUsers.MainView = Me.GridViewUsers - Me.GridControlUsers.Name = "GridControlUsers" - Me.GridControlUsers.Size = New System.Drawing.Size(444, 177) - Me.GridControlUsers.TabIndex = 0 - Me.GridControlUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUsers}) - ' - 'GridViewUsers - ' - Me.GridViewUsers.Appearance.EvenRow.BackColor = System.Drawing.Color.PaleTurquoise - Me.GridViewUsers.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewUsers.GridControl = Me.GridControlUsers - Me.GridViewUsers.Name = "GridViewUsers" - Me.GridViewUsers.OptionsBehavior.Editable = False - Me.GridViewUsers.OptionsSelection.MultiSelect = True - Me.GridViewUsers.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect - Me.GridViewUsers.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewUsers.OptionsView.ShowAutoFilterRow = True - Me.GridViewUsers.OptionsView.ShowGroupPanel = False - ' - 'AccordionContentContainer2 - ' - Me.AccordionContentContainer2.Controls.Add(Me.GridControlGroups) - Me.AccordionContentContainer2.Name = "AccordionContentContainer2" - Me.AccordionContentContainer2.Size = New System.Drawing.Size(444, 96) - Me.AccordionContentContainer2.TabIndex = 2 - ' - 'GridControlGroups - ' - Me.GridControlGroups.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControlGroups.Location = New System.Drawing.Point(0, 0) - Me.GridControlGroups.MainView = Me.GridViewGroups - Me.GridControlGroups.Name = "GridControlGroups" - Me.GridControlGroups.Size = New System.Drawing.Size(444, 96) - Me.GridControlGroups.TabIndex = 1 - Me.GridControlGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewGroups}) - ' - 'GridViewGroups - ' - Me.GridViewGroups.Appearance.EvenRow.BackColor = System.Drawing.Color.PaleTurquoise - Me.GridViewGroups.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewGroups.GridControl = Me.GridControlGroups - Me.GridViewGroups.Name = "GridViewGroups" - Me.GridViewGroups.OptionsBehavior.Editable = False - Me.GridViewGroups.OptionsSelection.MultiSelect = True - Me.GridViewGroups.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect - Me.GridViewGroups.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewGroups.OptionsView.ShowAutoFilterRow = True - Me.GridViewGroups.OptionsView.ShowGroupPanel = False - ' - 'AccordionControlElement1 - ' - Me.AccordionControlElement1.Elements.AddRange(New DevExpress.XtraBars.Navigation.AccordionControlElement() {Me.AccordionControlElementUser, Me.AccordionControlElementGroups}) - Me.AccordionControlElement1.Expanded = True - Me.AccordionControlElement1.Name = "AccordionControlElement1" - Me.AccordionControlElement1.Text = "Bestimmen Sie wer an der Konversation teilnehmen kann:" - ' - 'AccordionControlElementUser - ' - Me.AccordionControlElementUser.ContentContainer = Me.AccordionContentContainer1 - Me.AccordionControlElementUser.Expanded = True - Me.AccordionControlElementUser.Name = "AccordionControlElementUser" - Me.AccordionControlElementUser.Style = DevExpress.XtraBars.Navigation.ElementStyle.Item - Me.AccordionControlElementUser.Text = "User" - ' - 'AccordionControlElementGroups - ' - Me.AccordionControlElementGroups.ContentContainer = Me.AccordionContentContainer2 - Me.AccordionControlElementGroups.Expanded = True - Me.AccordionControlElementGroups.Name = "AccordionControlElementGroups" - Me.AccordionControlElementGroups.Style = DevExpress.XtraBars.Navigation.ElementStyle.Item - Me.AccordionControlElementGroups.Text = "Gruppen" - ' - 'ChatNewConv - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.AccordionControl1) - Me.Controls.Add(Me.Panel2) - Me.Controls.Add(Me.Panel1) - Me.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Name = "ChatNewConv" - Me.Size = New System.Drawing.Size(463, 472) - Me.Panel1.ResumeLayout(False) - Me.Panel1.PerformLayout() - Me.Panel2.ResumeLayout(False) - CType(Me.AccordionControl1, System.ComponentModel.ISupportInitialize).EndInit() - Me.AccordionControl1.ResumeLayout(False) - Me.AccordionContentContainer1.ResumeLayout(False) - CType(Me.GridControlUsers, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewUsers, System.ComponentModel.ISupportInitialize).EndInit() - Me.AccordionContentContainer2.ResumeLayout(False) - CType(Me.GridControlGroups, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewGroups, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - - End Sub - - Friend WithEvents Panel1 As Panel - Friend WithEvents txtConv_Title As TextBox - Friend WithEvents Label1 As Label - Friend WithEvents Panel2 As Panel - Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker - Friend WithEvents AccordionControl1 As DevExpress.XtraBars.Navigation.AccordionControl - Friend WithEvents AccordionContentContainer1 As DevExpress.XtraBars.Navigation.AccordionContentContainer - Friend WithEvents GridControlUsers As DevExpress.XtraGrid.GridControl - Friend WithEvents GridViewUsers As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents AccordionContentContainer2 As DevExpress.XtraBars.Navigation.AccordionContentContainer - Friend WithEvents GridControlGroups As DevExpress.XtraGrid.GridControl - Friend WithEvents GridViewGroups As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents AccordionControlElement1 As DevExpress.XtraBars.Navigation.AccordionControlElement - Friend WithEvents AccordionControlElementUser As DevExpress.XtraBars.Navigation.AccordionControlElement - Friend WithEvents AccordionControlElementGroups As DevExpress.XtraBars.Navigation.AccordionControlElement - Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton -End Class diff --git a/Controls.ChatNewConv/ChatNewConv.resx b/Controls.ChatNewConv/ChatNewConv.resx deleted file mode 100644 index 398d46ab..00000000 --- a/Controls.ChatNewConv/ChatNewConv.resx +++ /dev/null @@ -1,142 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z - ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz - OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp - dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0 - QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0 - LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N - Cjwvc3ZnPgs= - - - - 17, 17 - - \ No newline at end of file diff --git a/Controls.ChatNewConv/ChatNewConv.resx.bak b/Controls.ChatNewConv/ChatNewConv.resx.bak deleted file mode 100644 index 1b8ff1ab..00000000 --- a/Controls.ChatNewConv/ChatNewConv.resx.bak +++ /dev/null @@ -1,142 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z - ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz - OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp - dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0 - QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0 - LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N - Cjwvc3ZnPgs= - - - - 17, 17 - - \ No newline at end of file diff --git a/Controls.ChatNewConv/ChatNewConv.vb b/Controls.ChatNewConv/ChatNewConv.vb deleted file mode 100644 index dc02f996..00000000 --- a/Controls.ChatNewConv/ChatNewConv.vb +++ /dev/null @@ -1,115 +0,0 @@ -Imports DevExpress.XtraGrid.Views.Tile -Imports DigitalData.Modules.Database -Imports DigitalData.Modules.Logging - -Public Class ChatNewConv - Public Delegate Sub ConversationCreated() - Public Event Conversation_Created As ConversationCreated - Private _Database As MSSQLServer - Private LogConfig As LogConfig - Private Logger As Logger - - Public IDBObjectId As Long - Public ConnStringIDB As String - Public Username As String - Public UserID As Long - Public User_Language As String - Public NewConversation As Long - - Public Sub New() - InitializeComponent() - End Sub - - Public Sub Init(LogConfig As LogConfig, ConnectionStringIDB As String, IDB_OBJ_ID As Long, UserID As Long, Username As String, UserLanguage As String, DTUsers As DataTable, DTGroups As DataTable) - Me.LogConfig = LogConfig - Me.Logger = LogConfig.GetLogger() - Me.ConnStringIDB = ConnectionStringIDB - IDBObjectId = IDB_OBJ_ID - Me.Username = Username - Me.UserID = UserID - Me.User_Language = UserLanguage - Me._Database = New MSSQLServer(LogConfig, ConnectionStringIDB) - If Not IsNothing(DTUsers) Then - If DTUsers.Rows.Count > 1 Then - AccordionControlElementUser.Visible = True - GridControlUsers.DataSource = DTUsers - Else - AccordionControlElementUser.Visible = False - End If - Else - AccordionControlElementUser.Visible = False - End If - If Not IsNothing(DTGroups) Then - If DTGroups.Rows.Count > 1 Then - AccordionControlElementGroups.Visible = True - GridControlGroups.DataSource = DTUsers - Try - GridViewUsers.Columns("UserID").Visible = False - Catch ex As Exception - GridViewUsers.Columns("USER_ID").Visible = False - End Try - - Else - AccordionControlElementGroups.Visible = False - End If - Else - AccordionControlElementGroups.Visible = False - End If - - End Sub - - Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click - Try - If txtConv_Title.Text = String.Empty Then - MsgBox("Please add a conversation-title!", MsgBoxStyle.Information) - Exit Sub - End If - Dim oSQL = $"EXEC PRIDB_NEW_CONVERSATION {IDBObjectId},'{txtConv_Title.Text}','{Username}','{User_Language}'" - If _Database.ExecuteNonQuery(oSQL) = True Then - Dim oError As Boolean = False - oSQL = $"SELECT MAX(CONVERSATION_ID) FROM VWIDB_CONVERSATION WHERE IDB_OBJ_ID = {IDBObjectId}" - Dim oCONV_ID = _Database.GetScalarValue(oSQL) - If Not IsNothing(oCONV_ID) Then - NewConversation = oCONV_ID - oSQL = $"EXEC PRIDB_ADD_USER_2_CONVERSATION {NewConversation},{UserID},'{Username}'" - If _Database.ExecuteNonQuery(oSQL) = True Then - Dim oSelectedUsers As Integer() = GridViewUsers.GetSelectedRows() - If oSelectedUsers.Count > 0 Then - For Each oRowHandle As Integer In oSelectedUsers - Dim oUserID - Try - oUserID = GridViewUsers.GetRowCellValue(oRowHandle, "UserID") - Catch ex As Exception - Try - oUserID = GridViewUsers.GetRowCellValue(oRowHandle, "USER_ID") - Catch ex1 As Exception - Logger.Warn("Error Selecting UserID/USER_ID: " & ex.Message) - oError = True - Exit Sub - End Try - - - End Try - - oSQL = $"EXEC PRIDB_ADD_USER_2_CONVERSATION {NewConversation},{oUserID},'{Username}'" - If _Database.ExecuteNonQuery(oSQL) = False Then - oError = True - Exit For - End If - Next - End If - If oError = False Then - RaiseEvent Conversation_Created() - End If - End If - - End If - Else - MsgBox("Error running create procedure. Check Your log!", MsgBoxStyle.Information) - End If - - Catch ex As Exception - MsgBox($"Unexpected error in Add Conversation: {ex.Message}") - End Try - End Sub -End Class diff --git a/Controls.ChatNewConv/ChatNewConv.vbproj b/Controls.ChatNewConv/ChatNewConv.vbproj deleted file mode 100644 index 09c6bc2c..00000000 --- a/Controls.ChatNewConv/ChatNewConv.vbproj +++ /dev/null @@ -1,172 +0,0 @@ - - - - - Debug - AnyCPU - {86D27FFA-480F-481D-8D23-26DEAE92FE6C} - Library - DigitalData.Controls.ChatNewConv - DigitalData.Controls.ChatNewConv - 512 - Windows - v4.6.2 - true - - - - true - full - true - true - bin\Debug\ - DigitalData.Controls.ChatNewConv.xml - _MYFORMS=True - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - pdbonly - false - true - true - bin\Release\ - DigitalData.Controls.ChatNewConv.xml - _MYFORMS=True - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - On - - - Binary - - - Off - - - On - - - - - - - - - - - - - ..\Controls.LookupGrid\obj\Debug\DigitalData.Controls.LookupGrid.dll - - - False - ..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll - - - False - ..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll - - - - ..\packages\NLog.5.0.5\lib\net46\NLog.dll - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - True - Application.myapp - True - - - UserControl - - - ChatNewConv.vb - - - - True - True - Resources.resx - - - True - Settings.settings - True - - - - - ChatNewConv.vb - - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - My - Settings.Designer.vb - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/Controls.ChatNewConv/My Project/Application.Designer.vb b/Controls.ChatNewConv/My Project/Application.Designer.vb deleted file mode 100644 index 8ab460ba..00000000 --- a/Controls.ChatNewConv/My Project/Application.Designer.vb +++ /dev/null @@ -1,13 +0,0 @@ -'------------------------------------------------------------------------------ -' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.42000 -' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - diff --git a/Controls.ChatNewConv/My Project/Application.myapp b/Controls.ChatNewConv/My Project/Application.myapp deleted file mode 100644 index 758895de..00000000 --- a/Controls.ChatNewConv/My Project/Application.myapp +++ /dev/null @@ -1,10 +0,0 @@ - - - false - false - 0 - true - 0 - 1 - true - diff --git a/Controls.ChatNewConv/My Project/AssemblyInfo.vb b/Controls.ChatNewConv/My Project/AssemblyInfo.vb deleted file mode 100644 index cbc39b02..00000000 --- a/Controls.ChatNewConv/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,34 +0,0 @@ -Imports System -Imports System.Reflection -Imports System.Runtime.InteropServices - -' Allgemeine Informationen über eine Assembly werden über die folgenden -' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, -' die einer Assembly zugeordnet sind. - -' Werte der Assemblyattribute überprüfen - - - - - - - - - - -'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird. - - -' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: -' -' Hauptversion -' Nebenversion -' Buildnummer -' Revision -' -' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden, -' indem Sie "*" wie unten gezeigt eingeben: - - - diff --git a/Controls.ChatNewConv/My Project/Resources.Designer.vb b/Controls.ChatNewConv/My Project/Resources.Designer.vb deleted file mode 100644 index 71a802c3..00000000 --- a/Controls.ChatNewConv/My Project/Resources.Designer.vb +++ /dev/null @@ -1,103 +0,0 @@ -'------------------------------------------------------------------------------ -' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.42000 -' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - -Imports System - -Namespace My.Resources - - 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert - '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. - 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen - 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. - ''' - ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. - ''' - _ - Friend Module Resources - - Private resourceMan As Global.System.Resources.ResourceManager - - Private resourceCulture As Global.System.Globalization.CultureInfo - - ''' - ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. - ''' - _ - Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager - Get - If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DigitalData.Controls.ChatNewConv.Resources", GetType(Resources).Assembly) - resourceMan = temp - End If - Return resourceMan - End Get - End Property - - ''' - ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle - ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. - ''' - _ - Friend Property Culture() As Global.System.Globalization.CultureInfo - Get - Return resourceCulture - End Get - Set - resourceCulture = value - End Set - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property Action_Workflow_Activate() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("Action_Workflow_Activate", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property Action_Workflow_Deactivate() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("Action_Workflow_Deactivate", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property crop_php() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("crop.php", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property Send_16x16() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("Send_16x16", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - End Module -End Namespace diff --git a/Controls.ChatNewConv/My Project/Settings.Designer.vb b/Controls.ChatNewConv/My Project/Settings.Designer.vb deleted file mode 100644 index 811e2ebd..00000000 --- a/Controls.ChatNewConv/My Project/Settings.Designer.vb +++ /dev/null @@ -1,73 +0,0 @@ -'------------------------------------------------------------------------------ -' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.42000 -' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My - - - Partial Friend NotInheritable Class MySettings - Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()), MySettings) - -#Region "Automatische My.Settings-Speicherfunktion" -#If _MYTYPE = "WindowsForms" Then - Private Shared addedHandler As Boolean - - Private Shared addedHandlerLockObject As New Object - - _ - Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) - If My.Application.SaveMySettingsOnExit Then - My.Settings.Save() - End If - End Sub -#End If -#End Region - - Public Shared ReadOnly Property [Default]() As MySettings - Get - -#If _MYTYPE = "WindowsForms" Then - If Not addedHandler Then - SyncLock addedHandlerLockObject - If Not addedHandler Then - AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings - addedHandler = True - End If - End SyncLock - End If -#End If - Return defaultInstance - End Get - End Property - End Class -End Namespace - -Namespace My - - - Friend Module MySettingsProperty - - - Friend ReadOnly Property Settings() As Global.DigitalData.Controls.ChatNewConv.My.MySettings - Get - Return Global.DigitalData.Controls.ChatNewConv.My.MySettings.Default - End Get - End Property - End Module -End Namespace diff --git a/Controls.ChatNewConv/My Project/Settings.settings b/Controls.ChatNewConv/My Project/Settings.settings deleted file mode 100644 index 85b890b3..00000000 --- a/Controls.ChatNewConv/My Project/Settings.settings +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - diff --git a/Controls.ChatNewConv/My Project/licenses.licx b/Controls.ChatNewConv/My Project/licenses.licx deleted file mode 100644 index e69de29b..00000000 diff --git a/Controls.ChatNewConv/My Project/licenses.licx.bak b/Controls.ChatNewConv/My Project/licenses.licx.bak deleted file mode 100644 index 75eb9ac1..00000000 --- a/Controls.ChatNewConv/My Project/licenses.licx.bak +++ /dev/null @@ -1,6 +0,0 @@ -DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Controls.ChatNewConv/Resources/Action_Workflow_Activate.png b/Controls.ChatNewConv/Resources/Action_Workflow_Activate.png deleted file mode 100644 index 5d967b1f..00000000 Binary files a/Controls.ChatNewConv/Resources/Action_Workflow_Activate.png and /dev/null differ diff --git a/Controls.ChatNewConv/Resources/Action_Workflow_Deactivate.png b/Controls.ChatNewConv/Resources/Action_Workflow_Deactivate.png deleted file mode 100644 index 54a077fb..00000000 Binary files a/Controls.ChatNewConv/Resources/Action_Workflow_Deactivate.png and /dev/null differ diff --git a/Controls.ChatNewConv/Resources/Send_16x16.png b/Controls.ChatNewConv/Resources/Send_16x16.png deleted file mode 100644 index add634c2..00000000 Binary files a/Controls.ChatNewConv/Resources/Send_16x16.png and /dev/null differ diff --git a/Controls.ChatNewConv/Resources/crop.php.jpeg b/Controls.ChatNewConv/Resources/crop.php.jpeg deleted file mode 100644 index 68360c3b..00000000 Binary files a/Controls.ChatNewConv/Resources/crop.php.jpeg and /dev/null differ diff --git a/Controls.ChatNewConv/app.config b/Controls.ChatNewConv/app.config deleted file mode 100644 index 99f551b0..00000000 --- a/Controls.ChatNewConv/app.config +++ /dev/null @@ -1,11 +0,0 @@ - - - - - - - - - - - diff --git a/Controls.ChatNewConv/packages.config b/Controls.ChatNewConv/packages.config deleted file mode 100644 index ce98cd21..00000000 --- a/Controls.ChatNewConv/packages.config +++ /dev/null @@ -1,4 +0,0 @@ - - - - \ No newline at end of file diff --git a/Controls.DocumentViewer/.gitattributes b/Controls.DocumentViewer/.gitattributes new file mode 100644 index 00000000..1ff0c423 --- /dev/null +++ b/Controls.DocumentViewer/.gitattributes @@ -0,0 +1,63 @@ +############################################################################### +# Set default behavior to automatically normalize line endings. +############################################################################### +* text=auto + +############################################################################### +# Set default behavior for command prompt diff. +# +# This is need for earlier builds of msysgit that does not have it on by +# default for csharp files. +# Note: This is only used by command line +############################################################################### +#*.cs diff=csharp + +############################################################################### +# Set the merge driver for project and solution files +# +# Merging from the command prompt will add diff markers to the files if there +# are conflicts (Merging from VS is not affected by the settings below, in VS +# the diff markers are never inserted). Diff markers may cause the following +# file extensions to fail to load in VS. An alternative would be to treat +# these files as binary and thus will always conflict and require user +# intervention with every merge. To do so, just uncomment the entries below +############################################################################### +#*.sln merge=binary +#*.csproj merge=binary +#*.vbproj merge=binary +#*.vcxproj merge=binary +#*.vcproj merge=binary +#*.dbproj merge=binary +#*.fsproj merge=binary +#*.lsproj merge=binary +#*.wixproj merge=binary +#*.modelproj merge=binary +#*.sqlproj merge=binary +#*.wwaproj merge=binary + +############################################################################### +# behavior for image files +# +# image files are treated as binary by default. +############################################################################### +#*.jpg binary +#*.png binary +#*.gif binary + +############################################################################### +# diff behavior for common document formats +# +# Convert binary document formats to text before diffing them. This feature +# is only available from the command line. Turn it on by uncommenting the +# entries below. +############################################################################### +#*.doc diff=astextplain +#*.DOC diff=astextplain +#*.docx diff=astextplain +#*.DOCX diff=astextplain +#*.dot diff=astextplain +#*.DOT diff=astextplain +#*.pdf diff=astextplain +#*.PDF diff=astextplain +#*.rtf diff=astextplain +#*.RTF diff=astextplain diff --git a/Controls.DocumentViewer/.gitignore b/Controls.DocumentViewer/.gitignore new file mode 100644 index 00000000..9491a2fd --- /dev/null +++ b/Controls.DocumentViewer/.gitignore @@ -0,0 +1,363 @@ +## Ignore Visual Studio temporary files, build results, and +## files generated by popular Visual Studio add-ons. +## +## Get latest from https://github.com/github/gitignore/blob/master/VisualStudio.gitignore + +# User-specific files +*.rsuser +*.suo +*.user +*.userosscache +*.sln.docstates + +# User-specific files (MonoDevelop/Xamarin Studio) +*.userprefs + +# Mono auto generated files +mono_crash.* + +# Build results +[Dd]ebug/ +[Dd]ebugPublic/ +[Rr]elease/ +[Rr]eleases/ +x64/ +x86/ +[Ww][Ii][Nn]32/ +[Aa][Rr][Mm]/ +[Aa][Rr][Mm]64/ +bld/ +[Bb]in/ +[Oo]bj/ +[Oo]ut/ +[Ll]og/ +[Ll]ogs/ + +# Visual Studio 2015/2017 cache/options directory +.vs/ +# Uncomment if you have tasks that create the project's static files in wwwroot +#wwwroot/ + +# Visual Studio 2017 auto generated files +Generated\ Files/ + +# MSTest test Results +[Tt]est[Rr]esult*/ +[Bb]uild[Ll]og.* + +# NUnit +*.VisualState.xml +TestResult.xml +nunit-*.xml + +# Build Results of an ATL Project +[Dd]ebugPS/ +[Rr]eleasePS/ +dlldata.c + +# Benchmark Results +BenchmarkDotNet.Artifacts/ + +# .NET Core +project.lock.json +project.fragment.lock.json +artifacts/ + +# ASP.NET Scaffolding +ScaffoldingReadMe.txt + +# StyleCop +StyleCopReport.xml + +# Files built by Visual Studio +*_i.c +*_p.c +*_h.h +*.ilk +*.meta +*.obj +*.iobj +*.pch +*.pdb +*.ipdb +*.pgc +*.pgd +*.rsp +*.sbr +*.tlb +*.tli +*.tlh +*.tmp +*.tmp_proj +*_wpftmp.csproj +*.log +*.vspscc +*.vssscc +.builds +*.pidb +*.svclog +*.scc + +# Chutzpah Test files +_Chutzpah* + +# Visual C++ cache files +ipch/ +*.aps +*.ncb +*.opendb +*.opensdf +*.sdf +*.cachefile +*.VC.db +*.VC.VC.opendb + +# Visual Studio profiler +*.psess +*.vsp +*.vspx +*.sap + +# Visual Studio Trace Files +*.e2e + +# TFS 2012 Local Workspace +$tf/ + +# Guidance Automation Toolkit +*.gpState + +# ReSharper is a .NET coding add-in +_ReSharper*/ +*.[Rr]e[Ss]harper +*.DotSettings.user + +# TeamCity is a build add-in +_TeamCity* + +# DotCover is a Code Coverage Tool +*.dotCover + +# AxoCover is a Code Coverage Tool +.axoCover/* +!.axoCover/settings.json + +# Coverlet is a free, cross platform Code Coverage Tool +coverage*.json +coverage*.xml +coverage*.info + +# Visual Studio code coverage results +*.coverage +*.coveragexml + +# NCrunch +_NCrunch_* +.*crunch*.local.xml +nCrunchTemp_* + +# MightyMoose +*.mm.* +AutoTest.Net/ + +# Web workbench (sass) +.sass-cache/ + +# Installshield output folder +[Ee]xpress/ + +# DocProject is a documentation generator add-in +DocProject/buildhelp/ +DocProject/Help/*.HxT +DocProject/Help/*.HxC +DocProject/Help/*.hhc +DocProject/Help/*.hhk +DocProject/Help/*.hhp +DocProject/Help/Html2 +DocProject/Help/html + +# Click-Once directory +publish/ + +# Publish Web Output +*.[Pp]ublish.xml +*.azurePubxml +# Note: Comment the next line if you want to checkin your web deploy settings, +# but database connection strings (with potential passwords) will be unencrypted +*.pubxml +*.publishproj + +# Microsoft Azure Web App publish settings. Comment the next line if you want to +# checkin your Azure Web App publish settings, but sensitive information contained +# in these scripts will be unencrypted +PublishScripts/ + +# NuGet Packages +*.nupkg +# NuGet Symbol Packages +*.snupkg +# The packages folder can be ignored because of Package Restore +**/[Pp]ackages/* +# except build/, which is used as an MSBuild target. +!**/[Pp]ackages/build/ +# Uncomment if necessary however generally it will be regenerated when needed +#!**/[Pp]ackages/repositories.config +# NuGet v3's project.json files produces more ignorable files +*.nuget.props +*.nuget.targets + +# Microsoft Azure Build Output +csx/ +*.build.csdef + +# Microsoft Azure Emulator +ecf/ +rcf/ + +# Windows Store app package directories and files +AppPackages/ +BundleArtifacts/ +Package.StoreAssociation.xml +_pkginfo.txt +*.appx +*.appxbundle +*.appxupload + +# Visual Studio cache files +# files ending in .cache can be ignored +*.[Cc]ache +# but keep track of directories ending in .cache +!?*.[Cc]ache/ + +# Others +ClientBin/ +~$* +*~ +*.dbmdl +*.dbproj.schemaview +*.jfm +*.pfx +*.publishsettings +orleans.codegen.cs + +# Including strong name files can present a security risk +# (https://github.com/github/gitignore/pull/2483#issue-259490424) +#*.snk + +# Since there are multiple workflows, uncomment next line to ignore bower_components +# (https://github.com/github/gitignore/pull/1529#issuecomment-104372622) +#bower_components/ + +# RIA/Silverlight projects +Generated_Code/ + +# Backup & report files from converting an old project file +# to a newer Visual Studio version. Backup files are not needed, +# because we have git ;-) +_UpgradeReport_Files/ +Backup*/ +UpgradeLog*.XML +UpgradeLog*.htm +ServiceFabricBackup/ +*.rptproj.bak + +# SQL Server files +*.mdf +*.ldf +*.ndf + +# Business Intelligence projects +*.rdl.data +*.bim.layout +*.bim_*.settings +*.rptproj.rsuser +*- [Bb]ackup.rdl +*- [Bb]ackup ([0-9]).rdl +*- [Bb]ackup ([0-9][0-9]).rdl + +# Microsoft Fakes +FakesAssemblies/ + +# GhostDoc plugin setting file +*.GhostDoc.xml + +# Node.js Tools for Visual Studio +.ntvs_analysis.dat +node_modules/ + +# Visual Studio 6 build log +*.plg + +# Visual Studio 6 workspace options file +*.opt + +# Visual Studio 6 auto-generated workspace file (contains which files were open etc.) +*.vbw + +# Visual Studio LightSwitch build output +**/*.HTMLClient/GeneratedArtifacts +**/*.DesktopClient/GeneratedArtifacts +**/*.DesktopClient/ModelManifest.xml +**/*.Server/GeneratedArtifacts +**/*.Server/ModelManifest.xml +_Pvt_Extensions + +# Paket dependency manager +.paket/paket.exe +paket-files/ + +# FAKE - F# Make +.fake/ + +# CodeRush personal settings +.cr/personal + +# Python Tools for Visual Studio (PTVS) +__pycache__/ +*.pyc + +# Cake - Uncomment if you are using it +# tools/** +# !tools/packages.config + +# Tabs Studio +*.tss + +# Telerik's JustMock configuration file +*.jmconfig + +# BizTalk build output +*.btp.cs +*.btm.cs +*.odx.cs +*.xsd.cs + +# OpenCover UI analysis results +OpenCover/ + +# Azure Stream Analytics local run output +ASALocalRun/ + +# MSBuild Binary and Structured Log +*.binlog + +# NVidia Nsight GPU debugger configuration file +*.nvuser + +# MFractors (Xamarin productivity tool) working folder +.mfractor/ + +# Local History for Visual Studio +.localhistory/ + +# BeatPulse healthcheck temp database +healthchecksdb + +# Backup folder for Package Reference Convert tool in Visual Studio 2017 +MigrationBackup/ + +# Ionide (cross platform F# VS Code tools) working folder +.ionide/ + +# Fody - auto-generated XML schema +FodyWeavers.xsd \ No newline at end of file diff --git a/Controls.DocumentViewer/App.config b/Controls.DocumentViewer/App.config index 0927f884..b00767fb 100644 --- a/Controls.DocumentViewer/App.config +++ b/Controls.DocumentViewer/App.config @@ -11,19 +11,19 @@ - + - + - + - + @@ -31,15 +31,27 @@ - + - + - + + + + + + + + + + + + + diff --git a/Controls.DocumentViewer/Classes/Annotations.vb b/Controls.DocumentViewer/Classes/Annotations.vb index 56c72d13..90764ee2 100644 --- a/Controls.DocumentViewer/Classes/Annotations.vb +++ b/Controls.DocumentViewer/Classes/Annotations.vb @@ -15,7 +15,7 @@ Public Class Annotations MyBase.New(pLogConfig) End Sub - Public Function AddAnnotationInteractive(pGDViewer As GdViewer, pText As String) As Boolean + Public Function AddAnnotationInteractive(pGDViewer As GDViewer, pText As String) As Boolean pGDViewer.AddTextAnnotationInteractive(pText, Color.Black, "Arial", Drawing.FontStyle.Bold Or Drawing.FontStyle.Underline, 12, True, Color.Red, Color.White, 1, 0) If pGDViewer.GetStat = GdPictureStatus.OK Then Return True diff --git a/Controls.DocumentViewer/DocumentViewer.Designer.vb b/Controls.DocumentViewer/DocumentViewer.Designer.vb index fc9328c1..3c077c22 100644 --- a/Controls.DocumentViewer/DocumentViewer.Designer.vb +++ b/Controls.DocumentViewer/DocumentViewer.Designer.vb @@ -59,12 +59,12 @@ Partial Class DocumentViewer Me.RepositoryItemColorEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemColorEdit() Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.RepositoryItemSearchControl1 = New DevExpress.XtraEditors.Repository.RepositoryItemSearchControl() + Me.MyGDPViewer = New GdPicture14.GdViewer() Me.SpreadsheetControl1 = New DevExpress.XtraSpreadsheet.SpreadsheetControl() Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument() Me.lbFileNotLoaded = New DevExpress.XtraEditors.LabelControl() Me.RichEditControl1 = New DevExpress.XtraRichEdit.RichEditControl() Me.lblInfo = New System.Windows.Forms.Label() - Me.GdViewer = New GdPicture14.GdViewer() CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemTextEdit3, System.ComponentModel.ISupportInitialize).BeginInit() @@ -279,7 +279,7 @@ Partial Class DocumentViewer Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) Me.barDockControlTop.Manager = Me.BarManager1 - Me.barDockControlTop.Size = New System.Drawing.Size(841, 33) + Me.barDockControlTop.Size = New System.Drawing.Size(634, 36) ' 'barDockControlBottom ' @@ -287,23 +287,23 @@ Partial Class DocumentViewer Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom Me.barDockControlBottom.Location = New System.Drawing.Point(0, 555) Me.barDockControlBottom.Manager = Me.BarManager1 - Me.barDockControlBottom.Size = New System.Drawing.Size(841, 0) + Me.barDockControlBottom.Size = New System.Drawing.Size(634, 0) ' 'barDockControlLeft ' Me.barDockControlLeft.CausesValidation = False Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left - Me.barDockControlLeft.Location = New System.Drawing.Point(0, 33) + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 36) Me.barDockControlLeft.Manager = Me.BarManager1 - Me.barDockControlLeft.Size = New System.Drawing.Size(0, 522) + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 519) ' 'barDockControlRight ' Me.barDockControlRight.CausesValidation = False Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right - Me.barDockControlRight.Location = New System.Drawing.Point(841, 33) + Me.barDockControlRight.Location = New System.Drawing.Point(634, 36) Me.barDockControlRight.Manager = Me.BarManager1 - Me.barDockControlRight.Size = New System.Drawing.Size(0, 522) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 519) ' 'BarStaticItem1 ' @@ -345,13 +345,89 @@ Partial Class DocumentViewer Me.RepositoryItemSearchControl1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Repository.ClearButton(), New DevExpress.XtraEditors.Repository.SearchButton()}) Me.RepositoryItemSearchControl1.Name = "RepositoryItemSearchControl1" ' + 'MyGDPViewer + ' + Me.MyGDPViewer.AllowDropFile = False + Me.MyGDPViewer.AnimateGIF = True + Me.MyGDPViewer.AnnotationDropShadow = True + Me.MyGDPViewer.AnnotationEnableMultiSelect = True + Me.MyGDPViewer.AnnotationResizeRotateHandlesColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.MyGDPViewer.AnnotationResizeRotateHandlesScale = 1.0! + Me.MyGDPViewer.AnnotationSelectionLineColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.MyGDPViewer.AutoScrollMargin = New System.Drawing.Size(0, 0) + Me.MyGDPViewer.AutoScrollMinSize = New System.Drawing.Size(0, 0) + Me.MyGDPViewer.BackColor = System.Drawing.Color.Black + Me.MyGDPViewer.BackgroundImage = Nothing + Me.MyGDPViewer.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.MyGDPViewer.ClipAnnotsToPageBounds = True + Me.MyGDPViewer.ClipRegionsToPageBounds = True + Me.MyGDPViewer.ContinuousViewMode = True + Me.MyGDPViewer.DisplayQuality = GdPicture14.DisplayQuality.DisplayQualityAutomatic + Me.MyGDPViewer.DisplayQualityAuto = True + Me.MyGDPViewer.DocumentAlignment = GdPicture14.ViewerDocumentAlignment.DocumentAlignmentMiddleCenter + Me.MyGDPViewer.DocumentPosition = GdPicture14.ViewerDocumentPosition.DocumentPositionMiddleCenter + Me.MyGDPViewer.DrawPageBorders = True + Me.MyGDPViewer.EnableDeferredPainting = True + Me.MyGDPViewer.EnabledProgressBar = True + Me.MyGDPViewer.EnableFuzzySearch = False + Me.MyGDPViewer.EnableICM = False + Me.MyGDPViewer.EnableMenu = True + Me.MyGDPViewer.EnableMouseWheel = True + Me.MyGDPViewer.EnableTextSelection = True + Me.MyGDPViewer.ForceScrollBars = False + Me.MyGDPViewer.ForceTemporaryMode = False + Me.MyGDPViewer.ForeColor = System.Drawing.Color.Black + Me.MyGDPViewer.Gamma = 1.0! + Me.MyGDPViewer.HQAnnotationRendering = True + Me.MyGDPViewer.IgnoreDocumentResolution = False + Me.MyGDPViewer.KeepDocumentPosition = False + Me.MyGDPViewer.Location = New System.Drawing.Point(183, 125) + Me.MyGDPViewer.LockViewer = False + Me.MyGDPViewer.MagnifierHeight = 90 + Me.MyGDPViewer.MagnifierWidth = 160 + Me.MyGDPViewer.MagnifierZoomX = 2.0! + Me.MyGDPViewer.MagnifierZoomY = 2.0! + Me.MyGDPViewer.MouseButtonForMouseMode = GdPicture14.MouseButton.MouseButtonLeft + Me.MyGDPViewer.MouseMode = GdPicture14.ViewerMouseMode.MouseModePan + Me.MyGDPViewer.MouseWheelMode = GdPicture14.ViewerMouseWheelMode.MouseWheelModeVerticalScroll + Me.MyGDPViewer.Name = "MyGDPViewer" + Me.MyGDPViewer.PageBordersColor = System.Drawing.Color.Black + Me.MyGDPViewer.PageBordersPenSize = 1 + Me.MyGDPViewer.PageDisplayMode = GdPicture14.PageDisplayMode.MultiplePagesView + Me.MyGDPViewer.PdfDisplayFormField = True + Me.MyGDPViewer.PdfEnableFileLinks = True + Me.MyGDPViewer.PdfEnableLinks = True + Me.MyGDPViewer.PdfIncreaseTextContrast = False + Me.MyGDPViewer.PdfShowDialogForPassword = True + Me.MyGDPViewer.PdfShowOpenFileDialogForDecryption = True + Me.MyGDPViewer.PdfVerifyDigitalCertificates = False + Me.MyGDPViewer.PreserveViewRotation = True + Me.MyGDPViewer.RectBorderColor = System.Drawing.Color.Black + Me.MyGDPViewer.RectBorderSize = 1 + Me.MyGDPViewer.RectIsEditable = True + Me.MyGDPViewer.RegionsAreEditable = True + Me.MyGDPViewer.RenderGdPictureAnnots = True + Me.MyGDPViewer.ScrollBars = True + Me.MyGDPViewer.ScrollLargeChange = CType(50, Short) + Me.MyGDPViewer.ScrollSmallChange = CType(1, Short) + Me.MyGDPViewer.SilentMode = True + Me.MyGDPViewer.Size = New System.Drawing.Size(235, 206) + Me.MyGDPViewer.TabIndex = 6 + Me.MyGDPViewer.TabStop = False + Me.MyGDPViewer.ViewRotation = System.Drawing.RotateFlipType.RotateNoneFlipNone + Me.MyGDPViewer.Visible = False + Me.MyGDPViewer.Zoom = 1.0R + Me.MyGDPViewer.ZoomCenterAtMousePosition = False + Me.MyGDPViewer.ZoomMode = GdPicture14.ViewerZoomMode.ZoomMode100 + Me.MyGDPViewer.ZoomStep = 25 + ' 'SpreadsheetControl1 ' - Me.SpreadsheetControl1.Location = New System.Drawing.Point(59, 181) + Me.SpreadsheetControl1.Location = New System.Drawing.Point(40, 350) Me.SpreadsheetControl1.MenuManager = Me.BarManager1 Me.SpreadsheetControl1.Name = "SpreadsheetControl1" Me.SpreadsheetControl1.ReadOnly = True - Me.SpreadsheetControl1.Size = New System.Drawing.Size(268, 161) + Me.SpreadsheetControl1.Size = New System.Drawing.Size(216, 133) Me.SpreadsheetControl1.TabIndex = 0 Me.SpreadsheetControl1.TabStop = False Me.SpreadsheetControl1.Text = "SpreadsheetControl1" @@ -362,15 +438,17 @@ Partial Class DocumentViewer Me.lbFileNotLoaded.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lbFileNotLoaded.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbFileNotLoaded.Appearance.ForeColor = System.Drawing.Color.Red Me.lbFileNotLoaded.Appearance.Options.UseFont = True + Me.lbFileNotLoaded.Appearance.Options.UseForeColor = True Me.lbFileNotLoaded.Appearance.Options.UseTextOptions = True Me.lbFileNotLoaded.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center Me.lbFileNotLoaded.Appearance.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Center Me.lbFileNotLoaded.AutoEllipsis = True Me.lbFileNotLoaded.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None - Me.lbFileNotLoaded.Location = New System.Drawing.Point(3, 74) + Me.lbFileNotLoaded.Location = New System.Drawing.Point(6, 47) Me.lbFileNotLoaded.Name = "lbFileNotLoaded" - Me.lbFileNotLoaded.Size = New System.Drawing.Size(835, 72) + Me.lbFileNotLoaded.Size = New System.Drawing.Size(628, 72) Me.lbFileNotLoaded.TabIndex = 0 Me.lbFileNotLoaded.Tag = "" Me.lbFileNotLoaded.Text = "Die Datei konnte nicht geladen werden" @@ -378,10 +456,10 @@ Partial Class DocumentViewer ' 'RichEditControl1 ' - Me.RichEditControl1.Location = New System.Drawing.Point(385, 166) + Me.RichEditControl1.Location = New System.Drawing.Point(309, 350) Me.RichEditControl1.MenuManager = Me.BarManager1 Me.RichEditControl1.Name = "RichEditControl1" - Me.RichEditControl1.Size = New System.Drawing.Size(400, 200) + Me.RichEditControl1.Size = New System.Drawing.Size(224, 122) Me.RichEditControl1.TabIndex = 5 Me.RichEditControl1.Visible = False ' @@ -392,80 +470,6 @@ Partial Class DocumentViewer Me.lblInfo.Size = New System.Drawing.Size(100, 23) Me.lblInfo.TabIndex = 0 ' - 'GdViewer - ' - Me.GdViewer.AllowDropFile = False - Me.GdViewer.AnimateGIF = True - Me.GdViewer.AnnotationDropShadow = True - Me.GdViewer.AnnotationEnableMultiSelect = True - Me.GdViewer.AnnotationResizeRotateHandlesColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.GdViewer.AnnotationResizeRotateHandlesScale = 1.0! - Me.GdViewer.AnnotationSelectionLineColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) - Me.GdViewer.AutoScrollMargin = New System.Drawing.Size(0, 0) - Me.GdViewer.AutoScrollMinSize = New System.Drawing.Size(0, 0) - Me.GdViewer.BackColor = System.Drawing.Color.Black - Me.GdViewer.BackgroundImage = Nothing - Me.GdViewer.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None - Me.GdViewer.ClipAnnotsToPageBounds = True - Me.GdViewer.ClipRegionsToPageBounds = True - Me.GdViewer.ContinuousViewMode = True - Me.GdViewer.DisplayQuality = GdPicture14.DisplayQuality.DisplayQualityAutomatic - Me.GdViewer.DisplayQualityAuto = True - Me.GdViewer.DocumentAlignment = GdPicture14.ViewerDocumentAlignment.DocumentAlignmentMiddleCenter - Me.GdViewer.DocumentPosition = GdPicture14.ViewerDocumentPosition.DocumentPositionMiddleCenter - Me.GdViewer.DrawPageBorders = True - Me.GdViewer.EnableDeferredPainting = True - Me.GdViewer.EnabledProgressBar = True - Me.GdViewer.EnableFuzzySearch = False - Me.GdViewer.EnableICM = False - Me.GdViewer.EnableMenu = True - Me.GdViewer.EnableMouseWheel = True - Me.GdViewer.EnableTextSelection = True - Me.GdViewer.ForceScrollBars = False - Me.GdViewer.ForceTemporaryMode = False - Me.GdViewer.ForeColor = System.Drawing.Color.Black - Me.GdViewer.Gamma = 1.0! - Me.GdViewer.HQAnnotationRendering = True - Me.GdViewer.IgnoreDocumentResolution = False - Me.GdViewer.KeepDocumentPosition = False - Me.GdViewer.Location = New System.Drawing.Point(290, 372) - Me.GdViewer.LockViewer = False - Me.GdViewer.MagnifierHeight = 90 - Me.GdViewer.MagnifierWidth = 160 - Me.GdViewer.MagnifierZoomX = 2.0! - Me.GdViewer.MagnifierZoomY = 2.0! - Me.GdViewer.MouseButtonForMouseMode = GdPicture14.MouseButton.MouseButtonLeft - Me.GdViewer.MouseMode = GdPicture14.ViewerMouseMode.MouseModePan - Me.GdViewer.MouseWheelMode = GdPicture14.ViewerMouseWheelMode.MouseWheelModeVerticalScroll - Me.GdViewer.Name = "GdViewer" - Me.GdViewer.PageBordersColor = System.Drawing.Color.Black - Me.GdViewer.PageBordersPenSize = 1 - Me.GdViewer.PageDisplayMode = GdPicture14.PageDisplayMode.MultiplePagesView - Me.GdViewer.PdfDisplayFormField = True - Me.GdViewer.PdfEnableFileLinks = True - Me.GdViewer.PdfEnableLinks = True - Me.GdViewer.PdfIncreaseTextContrast = False - Me.GdViewer.PdfShowDialogForPassword = True - Me.GdViewer.PdfShowOpenFileDialogForDecryption = True - Me.GdViewer.PdfVerifyDigitalCertificates = False - Me.GdViewer.PreserveViewRotation = True - Me.GdViewer.RectBorderColor = System.Drawing.Color.Black - Me.GdViewer.RectBorderSize = 1 - Me.GdViewer.RectIsEditable = True - Me.GdViewer.RegionsAreEditable = True - Me.GdViewer.RenderGdPictureAnnots = True - Me.GdViewer.ScrollBars = True - Me.GdViewer.ScrollLargeChange = CType(50, Short) - Me.GdViewer.ScrollSmallChange = CType(1, Short) - Me.GdViewer.SilentMode = True - Me.GdViewer.Size = New System.Drawing.Size(128, 128) - Me.GdViewer.TabIndex = 0 - Me.GdViewer.ViewRotation = System.Drawing.RotateFlipType.RotateNoneFlipNone - Me.GdViewer.Zoom = 1.0R - Me.GdViewer.ZoomCenterAtMousePosition = False - Me.GdViewer.ZoomMode = GdPicture14.ViewerZoomMode.ZoomMode100 - Me.GdViewer.ZoomStep = 25 - ' 'DocumentViewer ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -473,13 +477,13 @@ Partial Class DocumentViewer Me.Controls.Add(Me.RichEditControl1) Me.Controls.Add(Me.lbFileNotLoaded) Me.Controls.Add(Me.SpreadsheetControl1) - Me.Controls.Add(Me.GdViewer) + Me.Controls.Add(Me.MyGDPViewer) Me.Controls.Add(Me.barDockControlLeft) Me.Controls.Add(Me.barDockControlRight) Me.Controls.Add(Me.barDockControlBottom) Me.Controls.Add(Me.barDockControlTop) Me.Name = "DocumentViewer" - Me.Size = New System.Drawing.Size(841, 555) + Me.Size = New System.Drawing.Size(634, 555) CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemTextEdit3, System.ComponentModel.ISupportInitialize).EndInit() @@ -492,7 +496,7 @@ Partial Class DocumentViewer End Sub - Friend WithEvents GdViewer As GdPicture14.GdViewer + Friend WithEvents MyGDPViewer As GdPicture14.GdViewer Friend WithEvents OpenFileDialog As OpenFileDialog Friend WithEvents SpreadsheetControl1 As DevExpress.XtraSpreadsheet.SpreadsheetControl Friend WithEvents PrintDocument1 As Printing.PrintDocument diff --git a/Controls.DocumentViewer/DocumentViewer.resx b/Controls.DocumentViewer/DocumentViewer.resx index 35b2f2dc..6f343715 100644 --- a/Controls.DocumentViewer/DocumentViewer.resx +++ b/Controls.DocumentViewer/DocumentViewer.resx @@ -123,9 +123,6 @@ 285, 22 - - 25 - @@ -164,6 +161,26 @@ NC42LTAuOCw2LjUtMi4xbDcuOSw3LjljMC4zLDAuMywwLjksMC4zLDEuMiwwbDEuMi0xLjJDMzAuMSwy OC4yLDMwLjEsMjcuNiwyOS43LDI3LjN6IE00LDEzYzAtNSw0LTksOS05YzUsMCw5LDQsOSw5ICAgcy00 LDktOSw5QzgsMjIsNCwxOCw0LDEzeiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ilpvb20iPg0KICAgIDxwYXRoIGQ9Ik0yNy43LDI1LjNM + MjAuNSwxOGMxLTEuNCwxLjUtMy4yLDEuNS01YzAtNS00LTktOS05cy05LDQtOSw5YzAsNSw0LDksOSw5 + YzEuOSwwLDMuNi0wLjYsNS0xLjVsNy4zLDcuMyAgIGMwLjMsMC4zLDAuOSwwLjMsMS4yLDBsMS4yLTEu + MkMyOC4xLDI2LjIsMjguMSwyNS42LDI3LjcsMjUuM3ogTTYsMTNjMC0zLjksMy4xLTcsNy03czcsMy4x + LDcsN2MwLDMuOS0zLjEsNy03LDdTNiwxNi45LDYsMTN6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4N + Cjwvc3ZnPgs= @@ -202,6 +219,9 @@ OCw4TDE2LDI0eiIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + 147 + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 @@ -226,26 +246,6 @@ ICAgYzAuOS0zLDMuNy01LDctNXM2LjEsMiw3LDVDMjkuMSwyNiwyNi4zLDI4LDIzLDI4eiBNMjMsMjZj LTEuNywwLTMtMS4zLTMtM3MxLjMtMywzLTNzMywxLjMsMywzUzI0LjcsMjYsMjMsMjZ6IiBjbGFzcz0i QmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z - ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz - OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp - dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ilpvb20iPg0KICAgIDxwYXRoIGQ9Ik0yNy43LDI1LjNM - MjAuNSwxOGMxLTEuNCwxLjUtMy4yLDEuNS01YzAtNS00LTktOS05cy05LDQtOSw5YzAsNSw0LDksOSw5 - YzEuOSwwLDMuNi0wLjYsNS0xLjVsNy4zLDcuMyAgIGMwLjMsMC4zLDAuOSwwLjMsMS4yLDBsMS4yLTEu - MkMyOC4xLDI2LjIsMjguMSwyNS42LDI3LjcsMjUuM3ogTTYsMTNjMC0zLjksMy4xLTcsNy03czcsMy4x - LDcsN2MwLDMuOS0zLjEsNy03LDdTNiwxNi45LDYsMTN6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4N - Cjwvc3ZnPgs= diff --git a/Controls.ChatAddUser/ChatNewConv.sln b/Controls.DocumentViewer/DocumentViewer.sln similarity index 53% rename from Controls.ChatAddUser/ChatNewConv.sln rename to Controls.DocumentViewer/DocumentViewer.sln index 7fbe294b..132c0d8e 100644 --- a/Controls.ChatAddUser/ChatNewConv.sln +++ b/Controls.DocumentViewer/DocumentViewer.sln @@ -1,9 +1,9 @@  Microsoft Visual Studio Solution File, Format Version 12.00 -# Visual Studio Version 16 -VisualStudioVersion = 16.0.29728.190 +# Visual Studio Version 17 +VisualStudioVersion = 17.14.36915.13 d17.14 MinimumVisualStudioVersion = 10.0.40219.1 -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ChatNewConv", "ChatNewConv.vbproj", "{1F278760-4F6B-42E8-B82D-01D4C8618340}" +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DocumentViewer", "DocumentViewer.vbproj", "{0958CDDF-4A16-41F6-8837-8335F71D599C}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution @@ -11,15 +11,15 @@ Global Release|Any CPU = Release|Any CPU EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution - {1F278760-4F6B-42E8-B82D-01D4C8618340}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {1F278760-4F6B-42E8-B82D-01D4C8618340}.Debug|Any CPU.Build.0 = Debug|Any CPU - {1F278760-4F6B-42E8-B82D-01D4C8618340}.Release|Any CPU.ActiveCfg = Release|Any CPU - {1F278760-4F6B-42E8-B82D-01D4C8618340}.Release|Any CPU.Build.0 = Release|Any CPU + {0958CDDF-4A16-41F6-8837-8335F71D599C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {0958CDDF-4A16-41F6-8837-8335F71D599C}.Debug|Any CPU.Build.0 = Debug|Any CPU + {0958CDDF-4A16-41F6-8837-8335F71D599C}.Release|Any CPU.ActiveCfg = Release|Any CPU + {0958CDDF-4A16-41F6-8837-8335F71D599C}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection GlobalSection(ExtensibilityGlobals) = postSolution - SolutionGuid = {7A1345F2-0B32-4B54-AD8C-2DA579BFF116} + SolutionGuid = {96C1F891-6F63-4E32-B5BD-BC359FD0CEA0} EndGlobalSection EndGlobal diff --git a/Controls.DocumentViewer/DocumentViewer.vb b/Controls.DocumentViewer/DocumentViewer.vb index 125bc1ab..436a1602 100644 --- a/Controls.DocumentViewer/DocumentViewer.vb +++ b/Controls.DocumentViewer/DocumentViewer.vb @@ -33,7 +33,7 @@ Public Class DocumentViewer Public ReadOnly Property PdfViewer As GdViewer Get - Return GdViewer + Return MyGDPViewer End Get End Property @@ -69,7 +69,19 @@ Public Class DocumentViewer ' Ensure search is initialized once the control (and GdViewer) exists EnsureSearchInitialized() UpdateMainUi() + UpdateNoFileSelectedLabel(FileLoaded) End Sub + + Private Sub DocumentViewer_FileLoadedChanged(ByVal sender As Object, ByVal isLoaded As Boolean) Handles Me.FileLoadedChanged + UpdateNoFileSelectedLabel(isLoaded) + End Sub + + Private Sub UpdateNoFileSelectedLabel(ByVal isLoaded As Boolean) + If lbFileNotLoaded IsNot Nothing Then + lbFileNotLoaded.Visible = Not isLoaded + End If + End Sub + 'hallo Public Class ToolbarSettings Public Property ShowPrintButton As Boolean = True @@ -82,7 +94,24 @@ Public Class DocumentViewer Public Property ShowSettingButton As Boolean = True End Class - Public Property FileLoaded As Boolean = False + Private _fileLoaded As Boolean = False + + Public Event FileLoadedChanged(ByVal sender As Object, ByVal isLoaded As Boolean) + + Public Property FileLoaded As Boolean + Get + Return _fileLoaded + End Get + Set(ByVal value As Boolean) + If _fileLoaded = value Then + Return + End If + + _fileLoaded = value + RaiseEvent FileLoadedChanged(Me, _fileLoaded) + End Set + End Property + Public Property Viewer_ForceTemporaryMode As Boolean = False Public ReadOnly Property AnnotationsSaved As Boolean Get @@ -128,8 +157,8 @@ Public Class DocumentViewer ' Create the Search helper only when both the log config and the GdViewer control exist Private Sub EnsureSearchInitialized() Try - If _Search Is Nothing AndAlso _logConfig IsNot Nothing AndAlso GdViewer IsNot Nothing Then - _Search = New Search(_logConfig, GdViewer) + If _Search Is Nothing AndAlso _logConfig IsNot Nothing AndAlso MyGDPViewer IsNot Nothing Then + _Search = New Search(_logConfig, MyGDPViewer) End If Catch ex As Exception _logger?.Error(ex) @@ -139,7 +168,7 @@ Public Class DocumentViewer ''' ''' Load a file from a path and display it ''' - Public Sub LoadFile(FilePath As String) + Public Sub LoadFile_FromPath(FilePath As String) FileLoaded = False If _licenseKey = String.Empty Then _logger.Warn("License key was not provided. File {0} not loaded.", FilePath) @@ -151,6 +180,10 @@ Public Class DocumentViewer Exit Sub End If + ' Reset state from previous file + _ViewOverride = "" + _ViewerMode = ViewerMode.GDPicture ' Default mode + _FilePath = FilePath _FileLoadMode = FileLoadMode.File _FileInfo = New FileInfo(FilePath) @@ -164,10 +197,12 @@ Public Class DocumentViewer ''' ''' Load a file from a stream and display it ''' - Public Sub LoadFile(FileName As String, Stream As Stream) + Public Sub LoadFile_FromStream(FileName As String, Stream As Stream) FileLoaded = False - + ' Reset state from previous file + _ViewOverride = "" + _ViewerMode = ViewerMode.GDPicture ' Default mode Dim oExtension As String = FileName.Substring(FileName.LastIndexOf(".")) @@ -175,9 +210,8 @@ Public Class DocumentViewer _FileLoadMode = FileLoadMode.Stream _logger.Info("Loading file [{0}] from Stream", FileName) - FileLoaded = DoLoadFile(Stream, oExtension) - SetViewerMode(oExtension) + FileLoaded = DoLoadFileExtension(Stream, oExtension) UpdateMainUi() End Sub @@ -210,7 +244,7 @@ Public Class DocumentViewer Dim oOpacity = 1.0F Dim oRotation = 0.0F - GdViewer.AddTextAnnotationInteractive(pText, oFontColor, oFontFamily, oFontStyle, oFontSize, Fill:=True, oBorderColor, oBackColor, oOpacity, oRotation) + MyGDPViewer.AddTextAnnotationInteractive(pText, oFontColor, oFontFamily, oFontStyle, oFontSize, Fill:=True, oBorderColor, oBackColor, oOpacity, oRotation) _AnnotationsPending = True Return True @@ -219,11 +253,11 @@ Public Class DocumentViewer Public Function Save() As Boolean Dim oSaveResult As GdPictureStatus = GdPictureStatus.OK - If GdViewer.BurnAnnotationsToPage(True, False) = GdPictureStatus.OK Then + If MyGDPViewer.BurnAnnotationsToPage(True, False) = GdPictureStatus.OK Then If _FileLoadMode = FileLoadMode.Stream Then - oSaveResult = GdViewer.SaveDocumentToPDF(_FileStream) + oSaveResult = MyGDPViewer.SaveDocumentToPDF(_FileStream) Else - oSaveResult = GdViewer.SaveDocumentToPDF(_FilePath) + oSaveResult = MyGDPViewer.SaveDocumentToPDF(_FilePath) End If End If @@ -238,9 +272,9 @@ Public Class DocumentViewer Public Sub CloseDocument() Try ' Null-sicher schließen - If GdViewer IsNot Nothing Then + If MyGDPViewer IsNot Nothing Then Try - GdViewer.CloseDocument() + MyGDPViewer.CloseDocument() Catch exInner As Exception _logger?.Warn("Fehler beim Schließen von GdViewer") _logger?.Error(exInner) @@ -252,10 +286,11 @@ Public Class DocumentViewer _FileInfo = Nothing _FilePath = Nothing _FileStream = Nothing - + FileLoaded = False UpdateMainUi() Catch ex As Exception _logger.Error(ex) + FileLoaded = False End Try End Sub @@ -301,112 +336,142 @@ Public Class DocumentViewer #Region "Form Events" Private Sub btnFitWidth_Click(ByVal sender As Object, ByVal e As EventArgs) Handles buttonFitWidth.ItemClick - FitToWidth() - _Config.Config.PageFit = Config.PageFitSetting.FitWidth - _Config.Save() + Select Case _ViewerMode + Case ViewerMode.GDPicture + FitToWidth() + _Config.Config.PageFit = Config.PageFitSetting.FitWidth + _Config.Save() + Case ViewerMode.Richtext + RichEditControl1.ActiveView.ZoomFactor = 1.0F + End Select End Sub Private Sub btnFitPage_Click(ByVal sender As Object, ByVal e As EventArgs) Handles buttonFitPage.ItemClick - FitToPage() - _Config.Config.PageFit = Config.PageFitSetting.FitPage - _Config.Save() + Select Case _ViewerMode + Case ViewerMode.GDPicture + FitToPage() + _Config.Config.PageFit = Config.PageFitSetting.FitPage + _Config.Save() + Case ViewerMode.Richtext + RichEditControl1.ActiveView.ZoomFactor = 1.0F + End Select End Sub Private Sub btnOpen_Click(sender As Object, e As EventArgs) - GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer - GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter + FitToWidth() + MyGDPViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter If OpenFileDialog.ShowDialog() = DialogResult.OK Then - GdViewer.DisplayFromFile(OpenFileDialog.FileName) + MyGDPViewer.DisplayFromFile(OpenFileDialog.FileName) End If - - GdViewer.Focus() + ShowGdViewer() + MyGDPViewer.Focus() UpdateMainUi() End Sub Private Sub BtnFirstPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonFirstPage.ItemClick - GdViewer.DisplayFirstPage() + MyGDPViewer.DisplayFirstPage() End Sub Private Sub BtnPreviousPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonPrevPage.ItemClick - GdViewer.DisplayPreviousPage() + MyGDPViewer.DisplayPreviousPage() End Sub Private Sub BtnNextPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonNextPage.ItemClick - GdViewer.DisplayNextPage() + MyGDPViewer.DisplayNextPage() End Sub Private Sub BtnLastPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonLastPage.ItemClick - GdViewer.DisplayLastPage() + MyGDPViewer.DisplayLastPage() End Sub Private Sub TbCurrentPage_Leave(ByVal sender As System.Object, ByVal e As EventArgs) Handles txtCurrentPage.EditValueChanged Dim page As Integer = 0 If Integer.TryParse(txtCurrentPage.EditValue, page) Then - If page > 0 And page <= GdViewer.PageCount Then - GdViewer.DisplayPage(page) + If page > 0 And page <= MyGDPViewer.PageCount Then + MyGDPViewer.DisplayPage(page) UpdateaNavigationToolbar() End If End If End Sub - Private Sub GdViewer1_PageChanged() Handles GdViewer.PageChanged + Private Sub GdViewer1_PageChanged() Handles MyGDPViewer.PageChanged UpdateaNavigationToolbar() End Sub - Private Sub GdViewer1_AfterZoomChange() Handles GdViewer.AfterZoomChange + Private Sub GdViewer1_AfterZoomChange() Handles MyGDPViewer.AfterZoomChange UpdateaNavigationToolbar() - If GdViewer.MouseMode = ViewerMouseMode.MouseModeAreaZooming Then - GdViewer.MouseMode = ViewerMouseMode.MouseModePan + If MyGDPViewer.MouseMode = ViewerMouseMode.MouseModeAreaZooming Then + MyGDPViewer.MouseMode = ViewerMouseMode.MouseModePan End If End Sub Private Sub btnZoomOut_Click(sender As Object, e As EventArgs) Handles buttonZoomOut.ItemClick - GdViewer.ZoomOUT() + Select Case _ViewerMode + Case ViewerMode.GDPicture + MyGDPViewer.ZoomOUT() + Case ViewerMode.Richtext + Dim oView As DevExpress.XtraRichEdit.RichEditView = RichEditControl1.ActiveView + oView.ZoomFactor = Math.Max(0.1F, oView.ZoomFactor - 0.1F) + RichEditControl1.Refresh() + End Select End Sub Private Sub btnZoomIn_Click(sender As Object, e As EventArgs) Handles buttonZoomIn.ItemClick - GdViewer.ZoomIN() + Select Case _ViewerMode + Case ViewerMode.GDPicture + MyGDPViewer.ZoomIN() + Case ViewerMode.Richtext + Dim oView As DevExpress.XtraRichEdit.RichEditView = RichEditControl1.ActiveView + oView.ZoomFactor = Math.Min(4.0F, oView.ZoomFactor + 0.1F) + RichEditControl1.Refresh() + End Select End Sub Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles buttonPrint.ItemClick - If GdViewer.PageCount = 0 Then - Return - End If - - GdViewer.PrintDialog() + Select Case _ViewerMode + Case ViewerMode.GDPicture + If MyGDPViewer.PageCount = 0 Then Return + MyGDPViewer.PrintDialog() + Case ViewerMode.Richtext + Using oPrintDialog As New PrintDialog() + If oPrintDialog.ShowDialog(Me) = DialogResult.OK Then + RichEditControl1.Print() + End If + End Using + End Select End Sub Private Sub BtnRotateLeft_Click(sender As Object, e As EventArgs) Handles buttonRotateLeft.ItemClick - GdViewer.Rotate(RotateFlipType.Rotate270FlipNone) + MyGDPViewer.Rotate(RotateFlipType.Rotate270FlipNone) End Sub Private Sub BtnRotateRight_Click(sender As Object, e As EventArgs) Handles buttonRotateRight.ItemClick - GdViewer.Rotate(RotateFlipType.Rotate90FlipNone) + MyGDPViewer.Rotate(RotateFlipType.Rotate90FlipNone) End Sub Private Sub btnFlipX_Click(sender As Object, e As EventArgs) Handles buttonFlipX.ItemClick - GdViewer.Rotate(RotateFlipType.RotateNoneFlipX) + MyGDPViewer.Rotate(RotateFlipType.RotateNoneFlipX) End Sub Private Sub btnFlipY_Click(sender As Object, e As EventArgs) Handles buttonFlipY.ItemClick - GdViewer.Rotate(RotateFlipType.RotateNoneFlipY) + MyGDPViewer.Rotate(RotateFlipType.RotateNoneFlipY) End Sub - Private Sub GdViewer1_TransferEnded(ByVal status As GdPictureStatus, ByVal download As System.Boolean) Handles GdViewer.TransferEnded - GdViewer.Focus() + Private Sub GdViewer1_TransferEnded(ByVal status As GdPictureStatus, ByVal download As System.Boolean) Handles MyGDPViewer.TransferEnded + MyGDPViewer.Focus() UpdateMainUi() 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 = GdViewer.AddRegionInches("SearchResult" & occurence, leftCoordinate, topCoordinate, regionWidth, regionheight, ForegroundMixMode.ForegroundMixModeMASKPEN, Color.Yellow) - GdViewer.SetRegionEditable(searchRegion, False) + Dim searchRegion As Integer = MyGDPViewer.AddRegionInches("SearchResult" & occurence, leftCoordinate, topCoordinate, regionWidth, regionheight, ForegroundMixMode.ForegroundMixModeMASKPEN, Color.Yellow) + MyGDPViewer.SetRegionEditable(searchRegion, False) If ensureVisibility Then - GdViewer.EnsureRegionVisibility(searchRegion) + MyGDPViewer.EnsureRegionVisibility(searchRegion) End If End Sub Private Sub BtnSettings_Click(ByVal sender As Object, ByVal e As EventArgs) Handles buttonSettings.ItemClick - Using frmSettings As New frmViewerSettings(GdViewer) + Using frmSettings As New frmViewerSettings(MyGDPViewer) frmSettings.ShowDialog(Me) End Using UpdateaNavigationToolbar() @@ -420,9 +485,9 @@ Public Class DocumentViewer Private Sub UpdateaNavigationToolbar() Try - Dim oCurrentZoom As Double = GdViewer.Zoom - Dim oCurrentPage As Integer = GdViewer.CurrentPage - Dim oPageCount As Integer = GdViewer.PageCount + Dim oCurrentZoom As Double = MyGDPViewer.Zoom + Dim oCurrentPage As Integer = MyGDPViewer.CurrentPage + Dim oPageCount As Integer = MyGDPViewer.PageCount txtCurrentPage.EditValue = oCurrentPage labelPageCount.Caption = $"/ {oPageCount}" @@ -463,13 +528,14 @@ Public Class DocumentViewer _ViewerMode = ViewerMode.Richtext Else Select Case Extension.ToUpper - Case "CSV" + Case ".CSV" _ViewerMode = ViewerMode.Excel - 'Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT" - ' _ViewerMode = ViewerMode.RichText + Case ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT" + _ViewerMode = ViewerMode.Richtext Case Else _ViewerMode = ViewerMode.GDPicture End Select + _logger.Debug("Viewermode set to [{0}] based on extension [{1}]", _ViewerMode, Extension) End If End Sub Private Sub FreeFile() @@ -484,112 +550,167 @@ Public Class DocumentViewer SpreadsheetControl1.CreateNewDocument() Case Else _logger.Debug("Closing GDPicture Viewer") - GdViewer.CloseDocument() + MyGDPViewer.CloseDocument() End Select Catch ex As Exception _logger.Warn($"Unexpected error in FreeFile: {ex.Message}") End Try End Sub + 'Private Function DoLoadFile(FilePath As String, Optional ViewOverride As String = "") As Boolean + ' Try + ' lblInfo.Visible = False + ' Dim oFileInfo = New FileInfo(FilePath) + ' Dim oExtension As String = oFileInfo.Extension.ToUpper + + ' lbFileNotLoaded.Visible = False + + ' SpreadsheetControl1.Visible = False + ' RichEditControl1.Visible = False + + ' SpreadsheetControl1.Dock = DockStyle.None + ' RichEditControl1.Dock = DockStyle.None + + ' Dim override_Spreadsheet As Boolean = False + ' If oExtension.ToLower = ".xlsx" Then + ' If oFileInfo.Length > 15000 Then + ' _logger.Info("Override") + ' override_Spreadsheet = True + ' End If + ' End If + + ' If ViewOverride = "Richtext" Then + ' RichEditControl1.LoadDocument(FilePath, GetDocumentFormat(oExtension)) + ' RichEditControl1.Visible = True + ' GdViewer.Visible = False + ' RichEditControl1.Dock = DockStyle.Fill + ' _ViewOverride = "Richtext" + ' _ViewerMode = ViewerMode.Richtext + ' lblInfo.Visible = True + ' lblInfo.Text = "This docx-file contains a generic error and will be displayed in a reduced viewer. Please try to open the file in WORD" + ' ElseIf override_Spreadsheet = True Then + ' Dim oFormat = GetSpreadsheetFormat(oExtension) + ' SpreadsheetControl1.LoadDocument(FilePath, oFormat) + + ' Dim oRange = SpreadsheetControl1.ActiveWorksheet.GetUsedRange() + ' oRange.AutoFitColumns() + + ' SpreadsheetControl1.Visible = True + ' GdViewer.Visible = False + ' SpreadsheetControl1.Dock = DockStyle.Fill + ' Else + ' _ViewOverride = "" + ' Select Case oExtension.ToUpper + ' Case ".CSV" + ' Dim oFormat = GetSpreadsheetFormat(oExtension) + ' SpreadsheetControl1.LoadDocument(FilePath, oFormat) + + ' Dim oRange = SpreadsheetControl1.ActiveWorksheet.GetUsedRange() + ' oRange.AutoFitColumns() + + ' SpreadsheetControl1.Visible = True + ' GdViewer.Visible = False + ' SpreadsheetControl1.Dock = DockStyle.Fill + + ' 'Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT" + ' ' RichEditControl1.LoadDocument(FilePath, GetDocumentFormat(oExtension)) + + ' ' RichEditControl1.Visible = True + ' ' GdViewer.Visible = False + ' ' RichEditControl1.Dock = DockStyle.Fill + ' Case Else + ' Select Case oExtension.ToUpper + ' Case ".EML", ".DOC", ".DOCX", ".XLS", ".XLSX", ".ODT", ".RTF", ".TXT" + ' GdViewer.ForceTemporaryMode = False + ' End Select + + ' GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer + ' GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter + ' If Viewer_ForceTemporaryMode = True Then + ' GdViewer.ForceTemporaryMode = True + ' End If + + ' GdViewer.AnnotationDropShadow = True + ' GdViewer.BackColor = Color.White + + ' Dim oGDPState As GdPicture14.GdPictureStatus = GdViewer.DisplayFromFile(FilePath) + ' If oGDPState <> GdPictureStatus.OK Then + ' _logger.Warn($"GdPictureStatus is [{oGDPState}]") + ' If oExtension.ToUpper = ".DOCX" And oGDPState = GdPictureStatus.GenericError Then + ' DoLoadFile(FilePath, "Richtext") + ' Else + ' Dim oFileName = IO.Path.GetFileName(FilePath) + ' lbFileNotLoaded.Text = String.Format("Datei konnte nicht geladen werden:{0}{1}", vbCrLf, oFileName) + ' lbFileNotLoaded.Visible = True + ' End If + + ' Else + ' If GdViewer.Visible = False Then + ' GdViewer.Visible = True + ' End If + ' End If + + ' End Select + ' End If + ' If _ViewOverride = "Richtext" Then + ' _ViewerMode = ViewerMode.Richtext + ' End If + + + ' Return True + ' Catch ex As Exception + ' _logger.Error(ex) + ' Return False + ' End Try + 'End Function Private Function DoLoadFile(FilePath As String, Optional ViewOverride As String = "") As Boolean Try - lblInfo.Visible = False + If Not EnsureViewerReady() Then + _logger?.Warn("GdViewer control is not initialized yet. Delaying load.") + Return False + End If + _logger.Debug("Starting DoLoadFile with path [{0}] and view override [{1}]", FilePath, ViewOverride) Dim oFileInfo = New FileInfo(FilePath) - Dim oExtension As String = oFileInfo.Extension.ToUpper + Dim oExtension = oFileInfo.Extension.ToUpper + ' Reset UI state + HideAllViewers() lbFileNotLoaded.Visible = False + lblInfo.Visible = False - SpreadsheetControl1.Visible = False - RichEditControl1.Visible = False - - SpreadsheetControl1.Dock = DockStyle.None - RichEditControl1.Dock = DockStyle.None - - Dim override_Spreadsheet As Boolean = False - If oExtension.ToLower = ".xlsx" Then - If oFileInfo.Length > 15000 Then - _logger.Info("Override") - override_Spreadsheet = True - End If - End If - - If ViewOverride = "Richtext" Then - RichEditControl1.LoadDocument(FilePath, GetDocumentFormat(oExtension)) - RichEditControl1.Visible = True - GdViewer.Visible = False - RichEditControl1.Dock = DockStyle.Fill - _ViewOverride = "Richtext" - _ViewerMode = ViewerMode.Richtext - lblInfo.Visible = True - lblInfo.Text = "This docx-file contains a generic error and will be displayed in a reduced viewer. Please try to open the file in WORD" - ElseIf override_Spreadsheet = True Then - Dim oFormat = GetSpreadsheetFormat(oExtension) - SpreadsheetControl1.LoadDocument(FilePath, oFormat) - - Dim oRange = SpreadsheetControl1.ActiveWorksheet.GetUsedRange() - oRange.AutoFitColumns() - - SpreadsheetControl1.Visible = True - GdViewer.Visible = False - SpreadsheetControl1.Dock = DockStyle.Fill + ' Determine viewer mode and load file + If ViewOverride = "Richtext" OrElse _ViewerMode = ViewerMode.Richtext Then + _logger.Info("Loading Richtext file: {0}", FilePath) + Return LoadRichtextFile(FilePath, oExtension) + ElseIf _ViewerMode = ViewerMode.Excel OrElse oExtension = ".CSV" OrElse (oExtension = ".XLSX" AndAlso oFileInfo.Length > 15000) Then + _logger.Debug("Loading Spreadsheet file: {0}", FilePath) + Return LoadSpreadsheetFile(FilePath, oExtension) Else - _ViewOverride = "" - Select Case oExtension.ToUpper - Case ".CSV" - Dim oFormat = GetSpreadsheetFormat(oExtension) - SpreadsheetControl1.LoadDocument(FilePath, oFormat) - - Dim oRange = SpreadsheetControl1.ActiveWorksheet.GetUsedRange() - oRange.AutoFitColumns() - - SpreadsheetControl1.Visible = True - GdViewer.Visible = False - SpreadsheetControl1.Dock = DockStyle.Fill - - 'Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT" - ' RichEditControl1.LoadDocument(FilePath, GetDocumentFormat(oExtension)) - - ' RichEditControl1.Visible = True - ' GdViewer.Visible = False - ' RichEditControl1.Dock = DockStyle.Fill - Case Else - Select Case oExtension.ToUpper - Case ".EML", ".DOC", ".DOCX", ".XLS", ".XLSX", ".ODT", ".RTF", ".TXT" - GdViewer.ForceTemporaryMode = False - End Select - - GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer - GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter - If Viewer_ForceTemporaryMode = True Then - GdViewer.ForceTemporaryMode = True - End If - - GdViewer.AnnotationDropShadow = True - GdViewer.BackColor = Color.White - - Dim oGDPState As GdPicture14.GdPictureStatus = GdViewer.DisplayFromFile(FilePath) - If oGDPState <> GdPictureStatus.OK Then - _logger.Warn($"GdPictureStatus is [{oGDPState}]") - If oExtension.ToUpper = ".DOCX" And oGDPState = GdPictureStatus.GenericError Then - DoLoadFile(FilePath, "Richtext") - Else - Dim oFileName = IO.Path.GetFileName(FilePath) - lbFileNotLoaded.Text = String.Format("Datei konnte nicht geladen werden:{0}{1}", vbCrLf, oFileName) - lbFileNotLoaded.Visible = True - End If - - Else - If GdViewer.Visible = False Then - GdViewer.Visible = True - End If - End If - - End Select - End If - If _ViewOverride = "Richtext" Then - _ViewerMode = ViewerMode.Richtext + Return LoadGdPictureFile(FilePath, oExtension) End If + Catch ex As Exception + _logger.Error(ex) + Return False + End Try + End Function + Private Sub HideAllViewers() + SpreadsheetControl1.Visible = False + SpreadsheetControl1.Dock = DockStyle.None + RichEditControl1.Visible = False + RichEditControl1.Dock = DockStyle.None + HideGdViewer() + End Sub + + Private Function LoadRichtextFile(FilePath As String, Extension As String) As Boolean + Try + RichEditControl1.LoadDocument(FilePath, GetDocumentFormat(Extension)) + RichEditControl1.Visible = True + RichEditControl1.Dock = DockStyle.Fill + _ViewOverride = "Richtext" + _ViewerMode = ViewerMode.Richtext + lblInfo.Visible = True + lblInfo.Text = "This docx-file contains a generic error and will be displayed in a reduced viewer. Please try to open the file in WORD" Return True Catch ex As Exception _logger.Error(ex) @@ -597,27 +718,96 @@ Public Class DocumentViewer End Try End Function + Private Function LoadSpreadsheetFile(FilePath As String, Extension As String) As Boolean + Try + _logger.Debug("Loading Spreadsheet: {0}", FilePath) + Dim oFormat = GetSpreadsheetFormat(Extension) + SpreadsheetControl1.LoadDocument(FilePath, oFormat) + Dim oRange = SpreadsheetControl1.ActiveWorksheet.GetUsedRange() + oRange.AutoFitColumns() + + SpreadsheetControl1.Visible = True + SpreadsheetControl1.Dock = DockStyle.Fill + _ViewerMode = ViewerMode.Excel + _ViewOverride = "" + Return True + Catch ex As Exception + _logger.Error(ex) + Return False + End Try + End Function + + Private Function LoadGdPictureFile(FilePath As String, Extension As String) As Boolean + Try + _logger.Debug("Loading GdPicture: {0}", FilePath) + + ' Set force temporary mode for specific file types + Select Case Extension + Case ".EML", ".DOC", ".DOCX", ".XLS", ".XLSX", ".ODT", ".RTF", ".TXT" + MyGDPViewer.ForceTemporaryMode = True + _logger.Info("ForceTemporaryMode enabled for extension [{0}]", Extension) + End Select + + MyGDPViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter + If Viewer_ForceTemporaryMode Then + MyGDPViewer.ForceTemporaryMode = True + End If + MyGDPViewer.AnnotationDropShadow = True + + Dim oGDPState = MyGDPViewer.DisplayFromFile(FilePath) + + If oGDPState <> GdPictureStatus.OK Then + _logger.Warn("GdPictureStatus: {0}", oGDPState) + + ' Fallback to Richtext for corrupted DOCX + If Extension = ".DOCX" AndAlso oGDPState = GdPictureStatus.GenericError Then + HideGdViewer() + Return LoadRichtextFile(FilePath, Extension) + Else + ShowFileNotLoadedError(FilePath) + Return False + End If + End If + + ShowGdViewer() + _ViewerMode = ViewerMode.GDPicture + _ViewOverride = "" + Return True + + Catch ex As Exception + _logger.Error(ex) + ShowFileNotLoadedError(FilePath) + Return False + End Try + End Function + + Private Sub ShowFileNotLoadedError(FilePath As String) + Dim oFileName = IO.Path.GetFileName(FilePath) + lbFileNotLoaded.Text = String.Format("Datei konnte nicht geladen werden:{0}{1}", vbCrLf, oFileName) + lbFileNotLoaded.Visible = True + HideGdViewer() + End Sub ' Ensures the embedded GdViewer control exists and is added to the visual tree Private Function EnsureViewerReady() As Boolean Try ' If the control field is Nothing (e.g., designer not yet created), try to lazy-create and add it - If GdViewer Is Nothing Then + If MyGDPViewer Is Nothing Then ' Attempt to find an existing instance by name in Controls collection Dim existing = Me.Controls.OfType(Of GdPicture14.GdViewer)().FirstOrDefault() If existing IsNot Nothing Then ' Assign the designer field via reflection if needed, otherwise use it directly - GdViewer = existing + MyGDPViewer = existing Else ' Last resort: create a new viewer and add it Dim viewer = New GdPicture14.GdViewer() viewer.Dock = DockStyle.Fill Me.Controls.Add(viewer) - GdViewer = viewer + MyGDPViewer = viewer End If End If - Return GdViewer IsNot Nothing + Return MyGDPViewer IsNot Nothing Catch ex As Exception _logger?.Error(ex) Return False @@ -625,19 +815,35 @@ Public Class DocumentViewer End Function Private Sub FitToPage() - If Not GdViewer Is Nothing Then - GdViewer.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer + If Not MyGDPViewer Is Nothing Then + MyGDPViewer.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer End If End Sub Private Sub FitToWidth() - If Not GdViewer Is Nothing Then - GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer + If Not MyGDPViewer Is Nothing Then + MyGDPViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer End If End Sub - Private Function DoLoadFile(Stream As Stream, Extension As String) As Boolean + Private Sub ShowGdViewer() + If MyGDPViewer IsNot Nothing Then + MyGDPViewer.Dock = DockStyle.Fill + MyGDPViewer.Visible = True + MyGDPViewer.MouseWheelMode = ViewerMouseWheelMode.MouseWheelModeVerticalScroll + FitToWidth() + End If + End Sub + + Private Sub HideGdViewer() + If MyGDPViewer IsNot Nothing Then + MyGDPViewer.Visible = False + MyGDPViewer.Dock = DockStyle.None + End If + End Sub + + Private Function DoLoadFileExtension(Stream As Stream, Extension As String) As Boolean Try @@ -648,30 +854,21 @@ Public Class DocumentViewer Case ".CSV" SpreadsheetControl1.LoadDocument(Stream, GetSpreadsheetFormat(Extension)) - Dim oRange = SpreadsheetControl1.ActiveWorksheet.GetUsedRange() oRange.AutoFitColumns() - SpreadsheetControl1.Visible = True SpreadsheetControl1.Dock = DockStyle.Fill - Case Else - If Not GdViewer Is Nothing Then - GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer - GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter + If Not MyGDPViewer Is Nothing Then + MyGDPViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter If Viewer_ForceTemporaryMode = True Then - GdViewer.ForceTemporaryMode = True + MyGDPViewer.ForceTemporaryMode = True End If - GdViewer.AnnotationDropShadow = True - - GdViewer.DisplayFromStream(Stream) + MyGDPViewer.AnnotationDropShadow = True + MyGDPViewer.DisplayFromStream(Stream) + ShowGdViewer() End If - - End Select - - UpdateMainUi() - Return True Catch ex As Exception _logger.Error(ex) @@ -696,13 +893,12 @@ Public Class DocumentViewer SpreadsheetControl1.Dock = DockStyle.Fill Case Else - GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer - GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter - GdViewer.ForceTemporaryMode = True - GdViewer.AnnotationDropShadow = True - - GdViewer.DisplayFromStream(Stream) + MyGDPViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter + MyGDPViewer.ForceTemporaryMode = True + MyGDPViewer.AnnotationDropShadow = True + MyGDPViewer.DisplayFromStream(Stream) + ShowGdViewer() End Select UpdateMainUi() @@ -750,6 +946,9 @@ Public Class DocumentViewer End Function Private Sub UpdateMainUi() + If Not IsNothing(_logger) Then + _logger.Info("Updating main UI for viewer mode [{0}]", _ViewerMode) + End If Select Case _Config?.Config?.PageFit Case Config.PageFitSetting.FitPage @@ -811,7 +1010,28 @@ Public Class DocumentViewer btnNextHighlight.Visibility = ToVisibility(False) btnPrevHighlight.Visibility = ToVisibility(False) Case Else - ToolbarDocumentViewer.Visible = False + ToolbarDocumentViewer.Visible = True + + buttonPrint.Visibility = XtraBars.BarItemVisibility.Always + buttonFitWidth.Visibility = XtraBars.BarItemVisibility.Always + buttonFitPage.Visibility = XtraBars.BarItemVisibility.Always + buttonZoomIn.Visibility = XtraBars.BarItemVisibility.Always + buttonZoomOut.Visibility = XtraBars.BarItemVisibility.Always + buttonRotateLeft.Visibility = XtraBars.BarItemVisibility.Never + buttonRotateRight.Visibility = XtraBars.BarItemVisibility.Never + buttonFlipX.Visibility = XtraBars.BarItemVisibility.Never + buttonFlipY.Visibility = XtraBars.BarItemVisibility.Never + buttonSettings.Visibility = XtraBars.BarItemVisibility.Never + txtSearch.Visibility = XtraBars.BarItemVisibility.Never + btnSearch2.Visibility = XtraBars.BarItemVisibility.Never + btnNextHighlight.Visibility = XtraBars.BarItemVisibility.Never + btnPrevHighlight.Visibility = XtraBars.BarItemVisibility.Never + buttonFirstPage.Visibility = XtraBars.BarItemVisibility.Never + buttonPrevPage.Visibility = XtraBars.BarItemVisibility.Never + buttonNextPage.Visibility = XtraBars.BarItemVisibility.Never + buttonLastPage.Visibility = XtraBars.BarItemVisibility.Never + txtCurrentPage.Visibility = XtraBars.BarItemVisibility.Never + End Select End Sub diff --git a/Controls.DocumentViewer/DocumentViewer.vbproj b/Controls.DocumentViewer/DocumentViewer.vbproj index e0494014..ae35dd9d 100644 --- a/Controls.DocumentViewer/DocumentViewer.vbproj +++ b/Controls.DocumentViewer/DocumentViewer.vbproj @@ -52,191 +52,260 @@ - ..\packages\BouncyCastle.Cryptography.2.5.0\lib\net461\BouncyCastle.Cryptography.dll + packages\BouncyCastle.Cryptography.2.5.0\lib\net461\BouncyCastle.Cryptography.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Charts.v21.2.Core.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Data.v21.2.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.DataAccess.v21.2.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.DataAccess.v21.2.UI.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Images.v21.2.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Office.v21.2.Core.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Pdf.v21.2.Core.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Printing.v21.2.Core.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.RichEdit.v21.2.Core.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.DataVisualization.v21.2.Core.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Spreadsheet.v21.2.Core.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Data.Desktop.v21.2.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Utils.v21.2.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Utils.v21.2.UI.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraBars.v21.2.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraCharts.v21.2.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraEditors.v21.2.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraGrid.v21.2.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraLayout.v21.2.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraNavBar.v21.2.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraPrinting.v21.2.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraRichEdit.v21.2.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraSpreadsheet.v21.2.dll + + + D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraTreeList.v21.2.dll - - - - - - - - - - - - - - - - - - - - - - - - - ..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll + ..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll - ..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll + ..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll - ..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll + ..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll - ..\..\DDModules\Messaging\bin\Debug\DigitalData.Modules.Messaging.dll + ..\DDModules\Messaging\bin\Debug\DigitalData.Modules.Messaging.dll - ..\packages\DocumentFormat.OpenXml.3.2.0\lib\net46\DocumentFormat.OpenXml.dll + packages\DocumentFormat.OpenXml.3.2.0\lib\net46\DocumentFormat.OpenXml.dll - ..\packages\DocumentFormat.OpenXml.Framework.3.2.0\lib\net46\DocumentFormat.OpenXml.Framework.dll + packages\DocumentFormat.OpenXml.Framework.3.2.0\lib\net46\DocumentFormat.OpenXml.Framework.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.1d.writer.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.barcode.1d.writer.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.2d.writer.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.barcode.2d.writer.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.CAD.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.DWG.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.CAD.DWG.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Common.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.Common.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Document.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.Document.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Email.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.Email.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.HTML.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.HTML.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.Imaging.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.Imaging.Formats.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.Conversion.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.Imaging.Formats.Conversion.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Rendering.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.Imaging.Rendering.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.MSOfficeBinary.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.Markdown.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenDocument.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.MSOfficeBinary.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.OpenDocument.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.Templating.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.OpenXML.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.PDF.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.OpenXML.Templating.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.RTF.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.PDF.dll - - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.SVG.dll + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.RTF.dll + + + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.SVG.dll - ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.wia.gateway.dll + packages\GdPicture.14.4.4\lib\net462\GdPicture.NET.14.wia.gateway.dll True - - ..\packages\Microsoft.Bcl.AsyncInterfaces.8.0.0\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll + + packages\GdPicture.WinForms.14.4.4\lib\net462\GdPicture.NET.14.WinForms.dll + + + packages\Google.Protobuf.3.33.2\lib\net45\Google.Protobuf.dll + + + packages\Microsoft.Bcl.AsyncInterfaces.10.0.5\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll + + + packages\Microsoft.Bcl.Cryptography.10.0.5\lib\net462\Microsoft.Bcl.Cryptography.dll + + + packages\Microsoft.Bcl.HashCode.6.0.0\lib\net462\Microsoft.Bcl.HashCode.dll - - ..\packages\Newtonsoft.Json.13.0.3\lib\net45\Newtonsoft.Json.dll + + packages\GdPicture.14.4.4\lib\net462\NativeSDK.Exceptions.dll - - ..\packages\Newtonsoft.Json.Bson.1.0.2\lib\net45\Newtonsoft.Json.Bson.dll + + packages\GdPicture.14.4.4\lib\net462\NativeSDK.Settings.dll + + + packages\GdPicture.14.4.4\lib\net462\NativeSDK.Settings.Edition.dll - ..\packages\NLog.5.0.5\lib\net46\NLog.dll + packages\NLog.5.0.5\lib\net46\NLog.dll - - ..\packages\OpenMcdf.2.4.1\lib\net40\OpenMcdf.dll + + packages\OpenMcdf.3.1.4\lib\netstandard2.0\OpenMcdf.dll - ..\packages\protobuf-net.3.2.46\lib\net462\protobuf-net.dll + packages\protobuf-net.3.2.46\lib\net462\protobuf-net.dll - ..\packages\protobuf-net.Core.3.2.46\lib\net462\protobuf-net.Core.dll + packages\protobuf-net.Core.3.2.46\lib\net462\protobuf-net.Core.dll - ..\packages\RtfPipe.2.0.7677.4303\lib\net45\RtfPipe.dll + packages\RtfPipe.2.0.7677.4303\lib\net45\RtfPipe.dll - - ..\packages\System.Buffers.4.6.0\lib\net462\System.Buffers.dll + + packages\System.Buffers.4.6.1\lib\net462\System.Buffers.dll - - ..\packages\System.CodeDom.8.0.0\lib\net462\System.CodeDom.dll - - - ..\packages\System.Collections.Immutable.8.0.0\lib\net462\System.Collections.Immutable.dll + + packages\System.Collections.Immutable.10.0.5\lib\net462\System.Collections.Immutable.dll + + packages\System.Formats.Asn1.10.0.5\lib\net462\System.Formats.Asn1.dll + - - ..\packages\System.IO.Packaging.8.0.1\lib\net462\System.IO.Packaging.dll + + packages\System.IO.Packaging.10.0.5\lib\net462\System.IO.Packaging.dll + + + packages\System.IO.Pipelines.10.0.5\lib\net462\System.IO.Pipelines.dll - - ..\packages\System.Memory.4.6.0\lib\net462\System.Memory.dll - - - ..\packages\Microsoft.AspNet.WebApi.Client.6.0.0\lib\net45\System.Net.Http.Formatting.dll + + packages\System.Memory.4.6.3\lib\net462\System.Memory.dll - - ..\packages\System.Numerics.Vectors.4.6.0\lib\net462\System.Numerics.Vectors.dll + + packages\System.Numerics.Vectors.4.6.1\lib\net462\System.Numerics.Vectors.dll - - ..\packages\System.Runtime.CompilerServices.Unsafe.6.1.0\lib\net462\System.Runtime.CompilerServices.Unsafe.dll + + packages\System.Runtime.CompilerServices.Unsafe.6.1.2\lib\net462\System.Runtime.CompilerServices.Unsafe.dll - - ..\packages\System.Security.Cryptography.Pkcs.8.0.1\lib\net462\System.Security.Cryptography.Pkcs.dll + + packages\System.Security.Cryptography.Pkcs.10.0.5\lib\net462\System.Security.Cryptography.Pkcs.dll - - ..\packages\System.Text.Encodings.Web.8.0.0\lib\net462\System.Text.Encodings.Web.dll + + packages\System.Text.Encodings.Web.10.0.5\lib\net462\System.Text.Encodings.Web.dll - - ..\packages\System.Text.Json.8.0.6\lib\net462\System.Text.Json.dll + + packages\System.Text.Json.10.0.5\lib\net462\System.Text.Json.dll - - ..\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll + + packages\System.Threading.Channels.10.0.5\lib\net462\System.Threading.Channels.dll + + + packages\System.Threading.Tasks.Extensions.4.6.3\lib\net462\System.Threading.Tasks.Extensions.dll - - ..\packages\System.ValueTuple.4.5.0\lib\net461\System.ValueTuple.dll + + packages\System.ValueTuple.4.6.1\lib\net462\System.ValueTuple.dll @@ -347,11 +416,11 @@ - + Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}". - + \ No newline at end of file diff --git a/Controls.DocumentViewer/DocumentViewer_temp.txt b/Controls.DocumentViewer/DocumentViewer_temp.txt new file mode 100644 index 00000000..aee92e7e --- /dev/null +++ b/Controls.DocumentViewer/DocumentViewer_temp.txt @@ -0,0 +1,357 @@ + + + + + Debug + AnyCPU + {0958CDDF-4A16-41F6-8837-8335F71D599C} + Library + + + DigitalData.Controls.DocumentViewer + DigitalData.Controls.DocumentViewer + 512 + Windows + v4.6.2 + true + + + + + + AnyCPU + true + full + true + true + bin\Debug\ + DigitalData.Controls.DocumentViewer.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + DigitalData.Controls.DocumentViewer.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + ..\packages\BouncyCastle.Cryptography.2.5.0\lib\net461\BouncyCastle.Cryptography.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + ..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll + + + ..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll + + + ..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll + + + ..\..\DDModules\Messaging\bin\Debug\DigitalData.Modules.Messaging.dll + + + ..\packages\DocumentFormat.OpenXml.3.2.0\lib\net46\DocumentFormat.OpenXml.dll + + + ..\packages\DocumentFormat.OpenXml.Framework.3.2.0\lib\net46\DocumentFormat.OpenXml.Framework.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.1d.writer.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.2d.writer.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.DWG.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Common.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Document.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Email.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.HTML.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.Conversion.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Rendering.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.MSOfficeBinary.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenDocument.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.Templating.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.PDF.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.RTF.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.SVG.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.wia.gateway.dll + True + + + ..\packages\Microsoft.Bcl.AsyncInterfaces.8.0.0\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll + + + + ..\packages\Newtonsoft.Json.13.0.3\lib\net45\Newtonsoft.Json.dll + + + ..\packages\Newtonsoft.Json.Bson.1.0.2\lib\net45\Newtonsoft.Json.Bson.dll + + + ..\packages\NLog.5.0.5\lib\net46\NLog.dll + + + ..\packages\OpenMcdf.2.4.1\lib\net40\OpenMcdf.dll + + + + + ..\packages\protobuf-net.3.2.46\lib\net462\protobuf-net.dll + + + ..\packages\protobuf-net.Core.3.2.46\lib\net462\protobuf-net.Core.dll + + + ..\packages\RtfPipe.2.0.7677.4303\lib\net45\RtfPipe.dll + + + + ..\packages\System.Buffers.4.6.0\lib\net462\System.Buffers.dll + + + ..\packages\System.CodeDom.8.0.0\lib\net462\System.CodeDom.dll + + + ..\packages\System.Collections.Immutable.8.0.0\lib\net462\System.Collections.Immutable.dll + + + + + + + + ..\packages\System.IO.Packaging.8.0.1\lib\net462\System.IO.Packaging.dll + + + + ..\packages\System.Memory.4.6.0\lib\net462\System.Memory.dll + + + ..\packages\Microsoft.AspNet.WebApi.Client.6.0.0\lib\net45\System.Net.Http.Formatting.dll + + + + ..\packages\System.Numerics.Vectors.4.6.0\lib\net462\System.Numerics.Vectors.dll + + + ..\packages\System.Runtime.CompilerServices.Unsafe.6.1.0\lib\net462\System.Runtime.CompilerServices.Unsafe.dll + + + + + ..\packages\System.Security.Cryptography.Pkcs.8.0.1\lib\net462\System.Security.Cryptography.Pkcs.dll + + + + ..\packages\System.Text.Encodings.Web.8.0.0\lib\net462\System.Text.Encodings.Web.dll + + + ..\packages\System.Text.Json.8.0.6\lib\net462\System.Text.Json.dll + + + ..\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll + + + + ..\packages\System.ValueTuple.4.5.0\lib\net461\System.ValueTuple.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + DocumentViewer.vb + + + UserControl + + + frmViewerSettings.vb + + + Form + + + + True + Application.myapp + True + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + + DocumentViewer.vb + + + frmViewerSettings.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}". + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer/My Project/AssemblyInfo.vb b/Controls.DocumentViewer/My Project/AssemblyInfo.vb index 3d6979a4..7005c6f2 100644 --- a/Controls.DocumentViewer/My Project/AssemblyInfo.vb +++ b/Controls.DocumentViewer/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Controls.DocumentViewer/frmViewerSettings.vb b/Controls.DocumentViewer/frmViewerSettings.vb index a7232461..58fe5c4c 100644 --- a/Controls.DocumentViewer/frmViewerSettings.vb +++ b/Controls.DocumentViewer/frmViewerSettings.vb @@ -97,4 +97,7 @@ Public Class frmViewerSettings End Sub + Private Sub cbMouseWheelMode_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbMouseWheelMode.SelectedIndexChanged + + End Sub End Class \ No newline at end of file diff --git a/Controls.DocumentViewer/packages.config b/Controls.DocumentViewer/packages.config index 18dc42d5..f0aa0d44 100644 --- a/Controls.DocumentViewer/packages.config +++ b/Controls.DocumentViewer/packages.config @@ -3,30 +3,32 @@ - - - - + + + + + + + - - - + - - - - - - - - - - - - - + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/App.config b/Controls.DocumentViewer_old/App.config new file mode 100644 index 00000000..0927f884 --- /dev/null +++ b/Controls.DocumentViewer_old/App.config @@ -0,0 +1,46 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Controls.DocumentViewer_old/Classes/Annotations.vb b/Controls.DocumentViewer_old/Classes/Annotations.vb new file mode 100644 index 00000000..56c72d13 --- /dev/null +++ b/Controls.DocumentViewer_old/Classes/Annotations.vb @@ -0,0 +1,70 @@ +Imports DigitalData.Modules.Base +Imports DigitalData.Modules.Logging +Imports GdPicture14 +Imports GdPicture14.Annotations + +Public Class Annotations + Inherits BaseClass + + Private Const DEFAULT_LEFT = 10 + Private Const DEFAULT_TOP = 10 + Private Const DEFAULT_WIDTH = 200 + Private Const DEFAULT_HEIGHT = 50 + + Public Sub New(pLogConfig As LogConfig) + MyBase.New(pLogConfig) + End Sub + + Public Function AddAnnotationInteractive(pGDViewer As GdViewer, pText As String) As Boolean + pGDViewer.AddTextAnnotationInteractive(pText, Color.Black, "Arial", Drawing.FontStyle.Bold Or Drawing.FontStyle.Underline, 12, True, Color.Red, Color.White, 1, 0) + If pGDViewer.GetStat = GdPictureStatus.OK Then + Return True + Else + Return False + End If + End Function + + Public Function AddAnnotation(pGDViewer As GdViewer, pText As String) As Boolean + Try + Dim oStatus As GdPictureStatus = GdPictureStatus.OK + Using oManager As AnnotationManager = pGDViewer.GetAnnotationManager() + If oManager.InitFromGdViewer(pGDViewer) = GdPictureStatus.OK AndAlso oManager.PageCount > 0 AndAlso oManager.SelectPage(1) = GdPictureStatus.OK Then + Using oAnnotation As AnnotationText = oManager.AddTextAnnot(0, 0, 0, 0, pText) + If oManager.GetStat = GdPictureStatus.OK AndAlso oAnnotation IsNot Nothing Then + oAnnotation.Alignment = StringAlignment.Near + oAnnotation.Author = Environment.UserName + oAnnotation.Fill = True + oAnnotation.FillColor = Color.LightYellow + oAnnotation.FontSize = 16 + oAnnotation.ForeColor = Color.Black + oAnnotation.Opacity = 0.7F + oAnnotation.StrokeColor = Color.Yellow + oAnnotation.Top = DEFAULT_TOP + oAnnotation.Left = DEFAULT_LEFT + oAnnotation.Width = DEFAULT_WIDTH + oAnnotation.Height = DEFAULT_HEIGHT + oAnnotation.Text = pText + + 'pGDViewer.ann + + If oManager.SaveAnnotationsToPage() = GdPictureStatus.OK Then + oManager.BurnAnnotationsToPage(True) + End If + End If + End Using + End If + oStatus = oManager.GetStat() + End Using + + If oStatus = GdPictureStatus.OK Then + Return True + Else + Return False + End If + Catch ex As Exception + Return False + End Try + End Function + + +End Class diff --git a/Controls.DocumentViewer_old/Classes/Search.vb b/Controls.DocumentViewer_old/Classes/Search.vb new file mode 100644 index 00000000..26b6eb39 --- /dev/null +++ b/Controls.DocumentViewer_old/Classes/Search.vb @@ -0,0 +1,137 @@ +Imports DigitalData.Modules.Base +Imports DigitalData.Modules.Logging +Imports GdPicture14 + +Public Class Search + Inherits BaseClass + + Public Property SearchQuery As String = "" + Public Property CaseSensitive As Boolean = False + Public Property WholeWords As Boolean = False + + Private _Viewer As GdViewer = Nothing + Private _AnnotationManager As New AnnotationManager() + + Private _CurrentPage As Integer = 0 + Private _CurrentQuery As String = "" + Private _CurrentOccurrenceCount = 0 + Private _CurrentSelectedOccurrence = 0 + + Public Sub New(pLogConfig As LogConfig, pGDViewer As GdViewer) + MyBase.New(pLogConfig) + _Viewer = pGDViewer + _AnnotationManager.InitFromGdViewer(pGDViewer) + + AddHandler _Viewer.PageDisplayed, AddressOf Viewer_PageDisplayed + End Sub + + Public Sub SearchAll(pQuery As String) + ' Exit, if query has not changed + If _CurrentQuery = pQuery Then + Exit Sub + End If + + ' Save query + _CurrentQuery = pQuery + + ' Reset previous highlights, then search for the new query + _Viewer.RemoveAllRegions() + DoSearchText() + + ' Select the next occurrence + NextHighlight() + End Sub + + Public Sub NextHighlight() + ' This also applies when the page has *NO* occurrences, so 0 = 0 + If _CurrentOccurrenceCount = _CurrentSelectedOccurrence Then + Dim oCount = 0 + ' If there are no occurrences on the current page, got to the *next page* + While _CurrentOccurrenceCount = _CurrentSelectedOccurrence And _CurrentPage <= _Viewer.PageCount + oCount += 1 + If _CurrentPage = _Viewer.PageCount Then + _Viewer.DisplayFirstPage() + Else + _Viewer.DisplayNextPage() + End If + If oCount > 333 Then + Exit While + End If + End While + + ' Safeguard against selecting a non-existing occurrence on the last page + If _CurrentOccurrenceCount > 0 Then + SelectHighlight(1) + Else + ' Disable next button + End If + Else + ' Otherwise just select the next occurrence + SelectHighlight(_CurrentSelectedOccurrence + 1) + End If + End Sub + + Public Sub PrevHighlight() + If _CurrentOccurrenceCount = 0 Or _CurrentSelectedOccurrence = 1 Then + Dim oCount = 0 + While (_CurrentOccurrenceCount = 0 Or _CurrentSelectedOccurrence = 1) And _CurrentPage >= 1 + oCount += 1 + If _CurrentPage = 1 Then + _Viewer.DisplayLastPage() + Else + _Viewer.DisplayPreviousPage() + End If + If oCount > 333 Then + Exit While + End If + End While + + If _CurrentOccurrenceCount > 0 Then + SelectHighlight(_CurrentOccurrenceCount) + End If + + Else + ' Otherwise just select the previous occurrence + SelectHighlight(_CurrentSelectedOccurrence - 1) + End If + End Sub + + Private Sub SelectHighlight(pOccurrence As Integer) + Dim oFound = _Viewer.SearchText(_CurrentQuery, pOccurrence, CaseSensitive, WholeWords) + If _Viewer.GetStat() = GdPictureStatus.OK And _Viewer.IsRect() Then + _Viewer.RectIsEditable = False + _Viewer.CenterOnRect() + + _CurrentSelectedOccurrence = pOccurrence + Else + _CurrentSelectedOccurrence = 0 + End If + End Sub + + Private Sub Viewer_PageDisplayed() + If _CurrentPage <> _Viewer.CurrentPage Then + _CurrentPage = _Viewer.CurrentPage + + If _CurrentQuery.Length > 0 Then + DoSearchText() + End If + End If + End Sub + + Private Sub DoSearchText() + + + _Viewer.SearchText(_CurrentQuery, 0, CaseSensitive, WholeWords) + + Dim oRegionCount = _Viewer.RegionCount() + For index = 1 To oRegionCount + Dim oId = _Viewer.GetRegionID(index) + _Viewer.SetRegionEditable(oId, False) + Next + + + _CurrentOccurrenceCount = _Viewer.GetTextOccurrenceCount(_CurrentPage, _CurrentQuery, CaseSensitive, WholeWords) + _CurrentSelectedOccurrence = 0 + End Sub + +End Class diff --git a/Controls.DocumentViewer_old/Config.vb b/Controls.DocumentViewer_old/Config.vb new file mode 100644 index 00000000..54d76ae6 --- /dev/null +++ b/Controls.DocumentViewer_old/Config.vb @@ -0,0 +1,10 @@ +Public Class Config + Public Enum PageFitSetting + Undefined + FitPage + FitWidth + End Enum + + Public Property PageFit + +End Class diff --git a/Controls.DocumentViewer_old/DocumentViewer.Designer.vb b/Controls.DocumentViewer_old/DocumentViewer.Designer.vb new file mode 100644 index 00000000..fc9328c1 --- /dev/null +++ b/Controls.DocumentViewer_old/DocumentViewer.Designer.vb @@ -0,0 +1,536 @@ + +Partial Class DocumentViewer + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DocumentViewer)) + Me.OpenFileDialog = New System.Windows.Forms.OpenFileDialog() + Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components) + Me.ToolbarDocumentViewer = New DevExpress.XtraBars.Bar() + Me.buttonPrint = New DevExpress.XtraBars.BarButtonItem() + Me.buttonFitWidth = New DevExpress.XtraBars.BarButtonItem() + Me.buttonFitPage = New DevExpress.XtraBars.BarButtonItem() + Me.buttonZoomIn = New DevExpress.XtraBars.BarButtonItem() + Me.buttonZoomOut = New DevExpress.XtraBars.BarButtonItem() + Me.buttonRotateLeft = New DevExpress.XtraBars.BarButtonItem() + Me.buttonRotateRight = New DevExpress.XtraBars.BarButtonItem() + Me.buttonFlipX = New DevExpress.XtraBars.BarButtonItem() + Me.buttonFlipY = New DevExpress.XtraBars.BarButtonItem() + Me.buttonFirstPage = New DevExpress.XtraBars.BarButtonItem() + Me.buttonPrevPage = New DevExpress.XtraBars.BarButtonItem() + Me.txtCurrentPage = New DevExpress.XtraBars.BarEditItem() + Me.RepositoryItemTextEdit2 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit() + Me.labelPageCount = New DevExpress.XtraBars.BarStaticItem() + Me.buttonNextPage = New DevExpress.XtraBars.BarButtonItem() + Me.buttonLastPage = New DevExpress.XtraBars.BarButtonItem() + Me.buttonSettings = New DevExpress.XtraBars.BarButtonItem() + Me.txtSearch = New DevExpress.XtraBars.BarEditItem() + Me.RepositoryItemTextEdit3 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit() + Me.btnSearch2 = New DevExpress.XtraBars.BarButtonItem() + Me.btnPrevHighlight = New DevExpress.XtraBars.BarButtonItem() + Me.btnNextHighlight = New DevExpress.XtraBars.BarButtonItem() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() + Me.btnSearch = New DevExpress.XtraBars.BarButtonItem() + Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit() + Me.RepositoryItemColorEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemColorEdit() + Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() + Me.RepositoryItemSearchControl1 = New DevExpress.XtraEditors.Repository.RepositoryItemSearchControl() + Me.SpreadsheetControl1 = New DevExpress.XtraSpreadsheet.SpreadsheetControl() + Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument() + Me.lbFileNotLoaded = New DevExpress.XtraEditors.LabelControl() + Me.RichEditControl1 = New DevExpress.XtraRichEdit.RichEditControl() + Me.lblInfo = New System.Windows.Forms.Label() + Me.GdViewer = New GdPicture14.GdViewer() + CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemTextEdit3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemColorEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemSearchControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'OpenFileDialog + ' + Me.OpenFileDialog.FileName = "OpenFileDialog1" + ' + 'BarManager1 + ' + Me.BarManager1.Bars.AddRange(New DevExpress.XtraBars.Bar() {Me.ToolbarDocumentViewer}) + Me.BarManager1.DockControls.Add(Me.barDockControlTop) + Me.BarManager1.DockControls.Add(Me.barDockControlBottom) + Me.BarManager1.DockControls.Add(Me.barDockControlLeft) + Me.BarManager1.DockControls.Add(Me.barDockControlRight) + Me.BarManager1.Form = Me + Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.buttonPrint, Me.buttonFitPage, Me.buttonFitWidth, Me.buttonZoomIn, Me.buttonZoomOut, Me.buttonRotateRight, Me.buttonRotateLeft, Me.buttonFlipX, Me.buttonFlipY, Me.buttonSettings, Me.buttonPrevPage, Me.buttonNextPage, Me.buttonFirstPage, Me.buttonLastPage, Me.txtCurrentPage, Me.BarStaticItem1, Me.labelPageCount, Me.txtSearch, Me.btnPrevHighlight, Me.btnNextHighlight, Me.btnSearch, Me.btnSearch2}) + Me.BarManager1.MainMenu = Me.ToolbarDocumentViewer + Me.BarManager1.MaxItemId = 34 + Me.BarManager1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1, Me.RepositoryItemTextEdit2, Me.RepositoryItemColorEdit1, Me.RepositoryItemComboBox1, Me.RepositoryItemSearchControl1, Me.RepositoryItemTextEdit3}) + ' + 'ToolbarDocumentViewer + ' + Me.ToolbarDocumentViewer.BarName = "Hauptmenü" + Me.ToolbarDocumentViewer.DockCol = 0 + Me.ToolbarDocumentViewer.DockRow = 0 + Me.ToolbarDocumentViewer.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.ToolbarDocumentViewer.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.buttonPrint), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFitWidth), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFitPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonZoomIn), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonZoomOut), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonRotateLeft), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonRotateRight), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFlipX), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFlipY), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFirstPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonPrevPage), New DevExpress.XtraBars.LinkPersistInfo(Me.txtCurrentPage), New DevExpress.XtraBars.LinkPersistInfo(Me.labelPageCount), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonNextPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonLastPage), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.buttonSettings, DevExpress.XtraBars.BarItemPaintStyle.Standard), New DevExpress.XtraBars.LinkPersistInfo(Me.txtSearch), New DevExpress.XtraBars.LinkPersistInfo(Me.btnSearch2), New DevExpress.XtraBars.LinkPersistInfo(Me.btnPrevHighlight), New DevExpress.XtraBars.LinkPersistInfo(Me.btnNextHighlight)}) + Me.ToolbarDocumentViewer.OptionsBar.AllowCollapse = True + Me.ToolbarDocumentViewer.OptionsBar.AllowQuickCustomization = False + Me.ToolbarDocumentViewer.OptionsBar.DrawDragBorder = False + Me.ToolbarDocumentViewer.OptionsBar.UseWholeRow = True + Me.ToolbarDocumentViewer.Text = "Hauptmenü" + ' + 'buttonPrint + ' + Me.buttonPrint.Caption = "Drucken" + Me.buttonPrint.Id = 0 + Me.buttonPrint.ImageOptions.SvgImage = CType(resources.GetObject("buttonPrint.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.buttonPrint.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25) + Me.buttonPrint.Name = "buttonPrint" + ' + 'buttonFitWidth + ' + Me.buttonFitWidth.Caption = "An Breite anpassen" + Me.buttonFitWidth.Id = 2 + Me.buttonFitWidth.ImageOptions.SvgImage = Global.DigitalData.Controls.DocumentViewer.My.Resources.Resources.fittowidth + Me.buttonFitWidth.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25) + Me.buttonFitWidth.Name = "buttonFitWidth" + ' + 'buttonFitPage + ' + Me.buttonFitPage.Caption = "An Seite Anpassen" + Me.buttonFitPage.Id = 1 + Me.buttonFitPage.ImageOptions.SvgImage = Global.DigitalData.Controls.DocumentViewer.My.Resources.Resources.fittopage + Me.buttonFitPage.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25) + Me.buttonFitPage.Name = "buttonFitPage" + ' + 'buttonZoomIn + ' + Me.buttonZoomIn.Caption = "Zoom +" + Me.buttonZoomIn.Id = 3 + Me.buttonZoomIn.ImageOptions.SvgImage = Global.DigitalData.Controls.DocumentViewer.My.Resources.Resources.zoomin + Me.buttonZoomIn.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25) + Me.buttonZoomIn.Name = "buttonZoomIn" + ' + 'buttonZoomOut + ' + Me.buttonZoomOut.Caption = "Zoom -" + Me.buttonZoomOut.Id = 4 + Me.buttonZoomOut.ImageOptions.SvgImage = CType(resources.GetObject("buttonZoomOut.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.buttonZoomOut.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25) + Me.buttonZoomOut.Name = "buttonZoomOut" + ' + 'buttonRotateLeft + ' + Me.buttonRotateLeft.Caption = "Drehen -90 Grad" + Me.buttonRotateLeft.Id = 6 + Me.buttonRotateLeft.ImageOptions.SvgImage = Global.DigitalData.Controls.DocumentViewer.My.Resources.Resources.rotatecounterclockwise + Me.buttonRotateLeft.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25) + Me.buttonRotateLeft.Name = "buttonRotateLeft" + ' + 'buttonRotateRight + ' + Me.buttonRotateRight.Caption = "Drehen 90 Grad" + Me.buttonRotateRight.Id = 5 + Me.buttonRotateRight.ImageOptions.SvgImage = Global.DigitalData.Controls.DocumentViewer.My.Resources.Resources.rotateclockwise + Me.buttonRotateRight.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25) + Me.buttonRotateRight.Name = "buttonRotateRight" + ' + 'buttonFlipX + ' + Me.buttonFlipX.Caption = "Spiegeln Horizontal" + Me.buttonFlipX.Id = 7 + Me.buttonFlipX.ImageOptions.SvgImage = Global.DigitalData.Controls.DocumentViewer.My.Resources.Resources.flipimage_horizontal + Me.buttonFlipX.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25) + Me.buttonFlipX.Name = "buttonFlipX" + ' + 'buttonFlipY + ' + Me.buttonFlipY.Caption = "Spiegeln Vertikal" + Me.buttonFlipY.Id = 8 + Me.buttonFlipY.ImageOptions.SvgImage = Global.DigitalData.Controls.DocumentViewer.My.Resources.Resources.flipimage_vertical + Me.buttonFlipY.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25) + Me.buttonFlipY.Name = "buttonFlipY" + ' + 'buttonFirstPage + ' + Me.buttonFirstPage.Caption = "Erste Seite" + Me.buttonFirstPage.Id = 13 + Me.buttonFirstPage.ImageOptions.SvgImage = Global.DigitalData.Controls.DocumentViewer.My.Resources.Resources.doublefirst + Me.buttonFirstPage.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25) + Me.buttonFirstPage.Name = "buttonFirstPage" + ' + 'buttonPrevPage + ' + Me.buttonPrevPage.Caption = "Zurück" + Me.buttonPrevPage.Id = 11 + Me.buttonPrevPage.ImageOptions.SvgImage = Global.DigitalData.Controls.DocumentViewer.My.Resources.Resources.prev + Me.buttonPrevPage.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25) + Me.buttonPrevPage.Name = "buttonPrevPage" + ' + 'txtCurrentPage + ' + Me.txtCurrentPage.Caption = "BarEditItem1" + Me.txtCurrentPage.Edit = Me.RepositoryItemTextEdit2 + Me.txtCurrentPage.Id = 16 + Me.txtCurrentPage.Name = "txtCurrentPage" + ' + 'RepositoryItemTextEdit2 + ' + Me.RepositoryItemTextEdit2.AutoHeight = False + Me.RepositoryItemTextEdit2.DisplayFormat.FormatType = DevExpress.Utils.FormatType.Numeric + Me.RepositoryItemTextEdit2.EditFormat.FormatType = DevExpress.Utils.FormatType.Numeric + Me.RepositoryItemTextEdit2.Name = "RepositoryItemTextEdit2" + ' + 'labelPageCount + ' + Me.labelPageCount.Caption = "/ 0" + Me.labelPageCount.Id = 24 + Me.labelPageCount.Name = "labelPageCount" + ' + 'buttonNextPage + ' + Me.buttonNextPage.Caption = "Vor" + Me.buttonNextPage.Id = 12 + Me.buttonNextPage.ImageOptions.SvgImage = Global.DigitalData.Controls.DocumentViewer.My.Resources.Resources._next + Me.buttonNextPage.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25) + Me.buttonNextPage.Name = "buttonNextPage" + ' + 'buttonLastPage + ' + Me.buttonLastPage.Caption = "Letzte Seite" + Me.buttonLastPage.Id = 14 + Me.buttonLastPage.ImageOptions.SvgImage = Global.DigitalData.Controls.DocumentViewer.My.Resources.Resources.doublelast + Me.buttonLastPage.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25) + Me.buttonLastPage.Name = "buttonLastPage" + ' + 'buttonSettings + ' + Me.buttonSettings.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right + Me.buttonSettings.Caption = "Einstellungen" + Me.buttonSettings.Id = 9 + Me.buttonSettings.ImageOptions.SvgImage = Global.DigitalData.Controls.DocumentViewer.My.Resources.Resources.viewsettings + Me.buttonSettings.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25) + Me.buttonSettings.Name = "buttonSettings" + Me.buttonSettings.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'txtSearch + ' + Me.txtSearch.Caption = "Suchtext" + Me.txtSearch.Edit = Me.RepositoryItemTextEdit3 + Me.txtSearch.Id = 27 + Me.txtSearch.Name = "txtSearch" + ' + 'RepositoryItemTextEdit3 + ' + Me.RepositoryItemTextEdit3.AutoHeight = False + Me.RepositoryItemTextEdit3.Name = "RepositoryItemTextEdit3" + ' + 'btnSearch2 + ' + Me.btnSearch2.Caption = "Text suchen" + Me.btnSearch2.Id = 32 + Me.btnSearch2.ImageOptions.SvgImage = CType(resources.GetObject("btnSearch2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.btnSearch2.Name = "btnSearch2" + ' + 'btnPrevHighlight + ' + Me.btnPrevHighlight.Caption = "Vorheriges Ergebnis" + Me.btnPrevHighlight.Enabled = False + Me.btnPrevHighlight.Id = 28 + Me.btnPrevHighlight.ImageOptions.SvgImage = CType(resources.GetObject("btnPrevHighlight.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.btnPrevHighlight.Name = "btnPrevHighlight" + ' + 'btnNextHighlight + ' + Me.btnNextHighlight.Caption = "Nächstes Ergebnis" + Me.btnNextHighlight.Enabled = False + Me.btnNextHighlight.Id = 29 + Me.btnNextHighlight.ImageOptions.SvgImage = CType(resources.GetObject("btnNextHighlight.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.btnNextHighlight.Name = "btnNextHighlight" + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Manager = Me.BarManager1 + Me.barDockControlTop.Size = New System.Drawing.Size(841, 33) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 555) + Me.barDockControlBottom.Manager = Me.BarManager1 + Me.barDockControlBottom.Size = New System.Drawing.Size(841, 0) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 33) + Me.barDockControlLeft.Manager = Me.BarManager1 + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 522) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(841, 33) + Me.barDockControlRight.Manager = Me.BarManager1 + Me.barDockControlRight.Size = New System.Drawing.Size(0, 522) + ' + 'BarStaticItem1 + ' + Me.BarStaticItem1.Caption = "Seiten" + Me.BarStaticItem1.Id = 17 + Me.BarStaticItem1.Name = "BarStaticItem1" + ' + 'btnSearch + ' + Me.btnSearch.Caption = "Search" + Me.btnSearch.Id = 31 + Me.btnSearch.ImageOptions.SvgImage = CType(resources.GetObject("btnSearch.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.btnSearch.Name = "btnSearch" + ' + 'RepositoryItemTextEdit1 + ' + Me.RepositoryItemTextEdit1.AutoHeight = False + Me.RepositoryItemTextEdit1.Name = "RepositoryItemTextEdit1" + ' + 'RepositoryItemColorEdit1 + ' + Me.RepositoryItemColorEdit1.AutoHeight = False + Me.RepositoryItemColorEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemColorEdit1.Name = "RepositoryItemColorEdit1" + Me.RepositoryItemColorEdit1.ShowCustomColors = False + Me.RepositoryItemColorEdit1.ShowSystemColors = False + Me.RepositoryItemColorEdit1.ShowWebColors = False + ' + 'RepositoryItemComboBox1 + ' + Me.RepositoryItemComboBox1.AutoHeight = False + Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemComboBox1.Items.AddRange(New Object() {"Arrow", "Text"}) + Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1" + ' + 'RepositoryItemSearchControl1 + ' + Me.RepositoryItemSearchControl1.AutoHeight = False + Me.RepositoryItemSearchControl1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Repository.ClearButton(), New DevExpress.XtraEditors.Repository.SearchButton()}) + Me.RepositoryItemSearchControl1.Name = "RepositoryItemSearchControl1" + ' + 'SpreadsheetControl1 + ' + Me.SpreadsheetControl1.Location = New System.Drawing.Point(59, 181) + Me.SpreadsheetControl1.MenuManager = Me.BarManager1 + Me.SpreadsheetControl1.Name = "SpreadsheetControl1" + Me.SpreadsheetControl1.ReadOnly = True + Me.SpreadsheetControl1.Size = New System.Drawing.Size(268, 161) + Me.SpreadsheetControl1.TabIndex = 0 + Me.SpreadsheetControl1.TabStop = False + Me.SpreadsheetControl1.Text = "SpreadsheetControl1" + Me.SpreadsheetControl1.Visible = False + ' + 'lbFileNotLoaded + ' + Me.lbFileNotLoaded.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbFileNotLoaded.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbFileNotLoaded.Appearance.Options.UseFont = True + Me.lbFileNotLoaded.Appearance.Options.UseTextOptions = True + Me.lbFileNotLoaded.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbFileNotLoaded.Appearance.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Center + Me.lbFileNotLoaded.AutoEllipsis = True + Me.lbFileNotLoaded.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbFileNotLoaded.Location = New System.Drawing.Point(3, 74) + Me.lbFileNotLoaded.Name = "lbFileNotLoaded" + Me.lbFileNotLoaded.Size = New System.Drawing.Size(835, 72) + Me.lbFileNotLoaded.TabIndex = 0 + Me.lbFileNotLoaded.Tag = "" + Me.lbFileNotLoaded.Text = "Die Datei konnte nicht geladen werden" + Me.lbFileNotLoaded.Visible = False + ' + 'RichEditControl1 + ' + Me.RichEditControl1.Location = New System.Drawing.Point(385, 166) + Me.RichEditControl1.MenuManager = Me.BarManager1 + Me.RichEditControl1.Name = "RichEditControl1" + Me.RichEditControl1.Size = New System.Drawing.Size(400, 200) + Me.RichEditControl1.TabIndex = 5 + Me.RichEditControl1.Visible = False + ' + 'lblInfo + ' + Me.lblInfo.Location = New System.Drawing.Point(0, 0) + Me.lblInfo.Name = "lblInfo" + Me.lblInfo.Size = New System.Drawing.Size(100, 23) + Me.lblInfo.TabIndex = 0 + ' + 'GdViewer + ' + Me.GdViewer.AllowDropFile = False + Me.GdViewer.AnimateGIF = True + Me.GdViewer.AnnotationDropShadow = True + Me.GdViewer.AnnotationEnableMultiSelect = True + Me.GdViewer.AnnotationResizeRotateHandlesColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.GdViewer.AnnotationResizeRotateHandlesScale = 1.0! + Me.GdViewer.AnnotationSelectionLineColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GdViewer.AutoScrollMargin = New System.Drawing.Size(0, 0) + Me.GdViewer.AutoScrollMinSize = New System.Drawing.Size(0, 0) + Me.GdViewer.BackColor = System.Drawing.Color.Black + Me.GdViewer.BackgroundImage = Nothing + Me.GdViewer.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.GdViewer.ClipAnnotsToPageBounds = True + Me.GdViewer.ClipRegionsToPageBounds = True + Me.GdViewer.ContinuousViewMode = True + Me.GdViewer.DisplayQuality = GdPicture14.DisplayQuality.DisplayQualityAutomatic + Me.GdViewer.DisplayQualityAuto = True + Me.GdViewer.DocumentAlignment = GdPicture14.ViewerDocumentAlignment.DocumentAlignmentMiddleCenter + Me.GdViewer.DocumentPosition = GdPicture14.ViewerDocumentPosition.DocumentPositionMiddleCenter + Me.GdViewer.DrawPageBorders = True + Me.GdViewer.EnableDeferredPainting = True + Me.GdViewer.EnabledProgressBar = True + Me.GdViewer.EnableFuzzySearch = False + Me.GdViewer.EnableICM = False + Me.GdViewer.EnableMenu = True + Me.GdViewer.EnableMouseWheel = True + Me.GdViewer.EnableTextSelection = True + Me.GdViewer.ForceScrollBars = False + Me.GdViewer.ForceTemporaryMode = False + Me.GdViewer.ForeColor = System.Drawing.Color.Black + Me.GdViewer.Gamma = 1.0! + Me.GdViewer.HQAnnotationRendering = True + Me.GdViewer.IgnoreDocumentResolution = False + Me.GdViewer.KeepDocumentPosition = False + Me.GdViewer.Location = New System.Drawing.Point(290, 372) + Me.GdViewer.LockViewer = False + Me.GdViewer.MagnifierHeight = 90 + Me.GdViewer.MagnifierWidth = 160 + Me.GdViewer.MagnifierZoomX = 2.0! + Me.GdViewer.MagnifierZoomY = 2.0! + Me.GdViewer.MouseButtonForMouseMode = GdPicture14.MouseButton.MouseButtonLeft + Me.GdViewer.MouseMode = GdPicture14.ViewerMouseMode.MouseModePan + Me.GdViewer.MouseWheelMode = GdPicture14.ViewerMouseWheelMode.MouseWheelModeVerticalScroll + Me.GdViewer.Name = "GdViewer" + Me.GdViewer.PageBordersColor = System.Drawing.Color.Black + Me.GdViewer.PageBordersPenSize = 1 + Me.GdViewer.PageDisplayMode = GdPicture14.PageDisplayMode.MultiplePagesView + Me.GdViewer.PdfDisplayFormField = True + Me.GdViewer.PdfEnableFileLinks = True + Me.GdViewer.PdfEnableLinks = True + Me.GdViewer.PdfIncreaseTextContrast = False + Me.GdViewer.PdfShowDialogForPassword = True + Me.GdViewer.PdfShowOpenFileDialogForDecryption = True + Me.GdViewer.PdfVerifyDigitalCertificates = False + Me.GdViewer.PreserveViewRotation = True + Me.GdViewer.RectBorderColor = System.Drawing.Color.Black + Me.GdViewer.RectBorderSize = 1 + Me.GdViewer.RectIsEditable = True + Me.GdViewer.RegionsAreEditable = True + Me.GdViewer.RenderGdPictureAnnots = True + Me.GdViewer.ScrollBars = True + Me.GdViewer.ScrollLargeChange = CType(50, Short) + Me.GdViewer.ScrollSmallChange = CType(1, Short) + Me.GdViewer.SilentMode = True + Me.GdViewer.Size = New System.Drawing.Size(128, 128) + Me.GdViewer.TabIndex = 0 + Me.GdViewer.ViewRotation = System.Drawing.RotateFlipType.RotateNoneFlipNone + Me.GdViewer.Zoom = 1.0R + Me.GdViewer.ZoomCenterAtMousePosition = False + Me.GdViewer.ZoomMode = GdPicture14.ViewerZoomMode.ZoomMode100 + Me.GdViewer.ZoomStep = 25 + ' + 'DocumentViewer + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.RichEditControl1) + Me.Controls.Add(Me.lbFileNotLoaded) + Me.Controls.Add(Me.SpreadsheetControl1) + Me.Controls.Add(Me.GdViewer) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.Name = "DocumentViewer" + Me.Size = New System.Drawing.Size(841, 555) + CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemTextEdit3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemColorEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemSearchControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents GdViewer As GdPicture14.GdViewer + Friend WithEvents OpenFileDialog As OpenFileDialog + Friend WithEvents SpreadsheetControl1 As DevExpress.XtraSpreadsheet.SpreadsheetControl + Friend WithEvents PrintDocument1 As Printing.PrintDocument + Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager + Friend WithEvents ToolbarDocumentViewer As DevExpress.XtraBars.Bar + Friend WithEvents buttonPrint As DevExpress.XtraBars.BarButtonItem + Friend WithEvents buttonFitWidth As DevExpress.XtraBars.BarButtonItem + Friend WithEvents buttonFitPage As DevExpress.XtraBars.BarButtonItem + Friend WithEvents buttonZoomIn As DevExpress.XtraBars.BarButtonItem + Friend WithEvents buttonZoomOut As DevExpress.XtraBars.BarButtonItem + Friend WithEvents buttonRotateRight As DevExpress.XtraBars.BarButtonItem + Friend WithEvents buttonRotateLeft As DevExpress.XtraBars.BarButtonItem + Friend WithEvents buttonFlipX As DevExpress.XtraBars.BarButtonItem + Friend WithEvents buttonFlipY As DevExpress.XtraBars.BarButtonItem + Friend WithEvents buttonSettings As DevExpress.XtraBars.BarButtonItem + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents buttonFirstPage As DevExpress.XtraBars.BarButtonItem + Friend WithEvents buttonPrevPage As DevExpress.XtraBars.BarButtonItem + Friend WithEvents buttonNextPage As DevExpress.XtraBars.BarButtonItem + Friend WithEvents buttonLastPage As DevExpress.XtraBars.BarButtonItem + Friend WithEvents txtCurrentPage As DevExpress.XtraBars.BarEditItem + Friend WithEvents RepositoryItemTextEdit2 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit + Friend WithEvents RepositoryItemTextEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit + Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem + Friend WithEvents RepositoryItemColorEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemColorEdit + Friend WithEvents RepositoryItemComboBox1 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox + Friend WithEvents labelPageCount As DevExpress.XtraBars.BarStaticItem + Friend WithEvents txtSearch As DevExpress.XtraBars.BarEditItem + Friend WithEvents RepositoryItemTextEdit3 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit + Friend WithEvents btnPrevHighlight As DevExpress.XtraBars.BarButtonItem + Friend WithEvents btnNextHighlight As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RepositoryItemSearchControl1 As DevExpress.XtraEditors.Repository.RepositoryItemSearchControl + Friend WithEvents lbFileNotLoaded As DevExpress.XtraEditors.LabelControl + Friend WithEvents btnSearch As DevExpress.XtraBars.BarButtonItem + Friend WithEvents btnSearch2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RichEditControl1 As DevExpress.XtraRichEdit.RichEditControl + Friend WithEvents lblInfo As Label +End Class diff --git a/Controls.DocumentViewer_old/DocumentViewer.resx b/Controls.DocumentViewer_old/DocumentViewer.resx new file mode 100644 index 00000000..35b2f2dc --- /dev/null +++ b/Controls.DocumentViewer_old/DocumentViewer.resx @@ -0,0 +1,254 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 6, 19 + + + 285, 22 + + + 25 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iUHJpbnRfMV8i + Pg0KICAgIDxwYXRoIGQ9Ik0xMCw0aDEydjhoMlYySDh2MTBoMlY0eiBNMjgsMTBoLTJ2M2MwLDAuNi0w + LjQsMS0xLDFIN2MtMC42LDAtMS0wLjQtMS0xdi0zSDRjLTEuMSwwLTIsMC45LTIsMiAgIHYxMmMwLDEu + MSwwLjksMiwyLDJoNHY0aDE2di00aDRjMS4xLDAsMi0wLjksMi0yVjEyQzMwLDEwLjksMjkuMSwxMCwy + OCwxMHogTTIyLDI0djJ2MkgxMHYtMnYtMnYtNGgxMlYyNHoiIGlkPSJQcmludCIgY2xhc3M9IkJsYWNr + IiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAM8CAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iWm9vbV9JbiIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + Qmx1ZXtmaWxsOiMxMTc3RDc7fQo8L3N0eWxlPg0KICA8ZyBpZD0iWm9vbV9PdXQiPg0KICAgIDxyZWN0 + IHg9IjgiIHk9IjEyIiB3aWR0aD0iMTAiIGhlaWdodD0iMiIgcng9IjAiIHJ5PSIwIiBjbGFzcz0iQmx1 + ZSIgLz4NCiAgICA8cGF0aCBkPSJNMjkuNywyNy4zbC03LjktNy45YzEuMy0xLjgsMi4xLTQsMi4xLTYu + NWMwLTYuMS00LjktMTEtMTEtMTFDNi45LDIsMiw2LjksMiwxM3M0LjksMTEsMTEsMTEgICBjMi40LDAs + NC42LTAuOCw2LjUtMi4xbDcuOSw3LjljMC4zLDAuMywwLjksMC4zLDEuMiwwbDEuMi0xLjJDMzAuMSwy + OC4yLDMwLjEsMjcuNiwyOS43LDI3LjN6IE00LDEzYzAtNSw0LTksOS05YzUsMCw5LDQsOSw5ICAgcy00 + LDktOSw5QzgsMjIsNCwxOCw0LDEzeiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iQmFja3dhcmQiPg0KICAgIDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZz + Ni4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYsMnogTTI0LDE4aC04djZsLTgtOGw4LTh2 + Nmg4VjE4eiIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iRm9yd2FyZF8xXyI+DQogICAgPHBhdGggZD0iTTE2LDJDOC4zLDIsMiw4LjMsMiwx + NnM2LjMsMTQsMTQsMTRzMTQtNi4zLDE0LTE0UzIzLjcsMiwxNiwyeiBNMTYsMjR2LTZIOHYtNGg4Vjhs + OCw4TDE2LDI0eiIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFQEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRW5hYmxlU2Vh + cmNoIj4NCiAgICA8cGF0aCBkPSJNMTQuNSwxNy44QzEwLjgsMTcuMSw4LDEzLjksOCwxMGMwLTQuNCwz + LjYtOCw4LThzOCwzLjYsOCw4YzAsMS41LTAuNCwyLjgtMS4xLDRjMCwwLDAuMSwwLDAuMSwwICAgYzAu + NywwLDEuNCwwLjEsMi4xLDAuMmMwLjYtMS4zLDAuOS0yLjcsMC45LTQuMmMwLTUuNS00LjUtMTAtMTAt + MTBDMTAuNSwwLDYsNC41LDYsMTBjMCwyLjEsMC43LDQuMSwxLjgsNS43bC03LjUsNy42ICAgYy0wLjQs + MC4zLTAuNCwwLjksMCwxLjNsMS4yLDEuMmMwLjMsMC4zLDAuOSwwLjMsMS4yLDBsNy42LTcuNmMwLjks + MC42LDEuOSwxLjEsMi45LDEuNEMxMy42LDE5LDE0LDE4LjQsMTQuNSwxNy44eiIgY2xhc3M9IkJsdWUi + IC8+DQogICAgPHBhdGggZD0iTTIzLDE2Yy00LjQsMC04LjEsMy05LDdjMC45LDQsNC42LDcsOSw3YzQu + NCwwLDguMS0zLDktN0MzMS4xLDE5LDI3LjQsMTYsMjMsMTZ6IE0yMywyOGMtMy4zLDAtNi4xLTItNy01 + ICAgYzAuOS0zLDMuNy01LDctNXM2LjEsMiw3LDVDMjkuMSwyNiwyNi4zLDI4LDIzLDI4eiBNMjMsMjZj + LTEuNywwLTMtMS4zLTMtM3MxLjMtMywzLTNzMywxLjMsMywzUzI0LjcsMjYsMjMsMjZ6IiBjbGFzcz0i + QmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ilpvb20iPg0KICAgIDxwYXRoIGQ9Ik0yNy43LDI1LjNM + MjAuNSwxOGMxLTEuNCwxLjUtMy4yLDEuNS01YzAtNS00LTktOS05cy05LDQtOSw5YzAsNSw0LDksOSw5 + YzEuOSwwLDMuNi0wLjYsNS0xLjVsNy4zLDcuMyAgIGMwLjMsMC4zLDAuOSwwLjMsMS4yLDBsMS4yLTEu + MkMyOC4xLDI2LjIsMjguMSwyNS42LDI3LjcsMjUuM3ogTTYsMTNjMC0zLjksMy4xLTcsNy03czcsMy4x + LDcsN2MwLDMuOS0zLjEsNy03LDdTNiwxNi45LDYsMTN6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4N + Cjwvc3ZnPgs= + + + + 152, 18 + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/DocumentViewer.resx.bak b/Controls.DocumentViewer_old/DocumentViewer.resx.bak new file mode 100644 index 00000000..39f91ea5 --- /dev/null +++ b/Controls.DocumentViewer_old/DocumentViewer.resx.bak @@ -0,0 +1,364 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 6, 19 + + + 285, 22 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iUHJpbnRfMV8i + Pg0KICAgIDxwYXRoIGQ9Ik0xMCw0aDEydjhoMlYySDh2MTBoMlY0eiBNMjgsMTBoLTJ2M2MwLDAuNi0w + LjQsMS0xLDFIN2MtMC42LDAtMS0wLjQtMS0xdi0zSDRjLTEuMSwwLTIsMC45LTIsMiAgIHYxMmMwLDEu + MSwwLjksMiwyLDJoNHY0aDE2di00aDRjMS4xLDAsMi0wLjksMi0yVjEyQzMwLDEwLjksMjkuMSwxMCwy + OCwxMHogTTIyLDI0djJ2MkgxMHYtMnYtMnYtNGgxMlYyNHoiIGlkPSJQcmludCIgY2xhc3M9IkJsYWNr + IiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDIw + IDIwIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiNhNTI0MzE7fS5jbHMtMntmaWxsOiM2NDYzNjM7fTwv + c3R5bGU+DQogIDwvZGVmcz4NCiAgPHBvbHlnb24gcG9pbnRzPSIyLjkyMSAwLjg5MyAyLjkyMSAxLjg5 + MyAzLjkyMSAxLjg5MyA0LjAzOCAxLjg5MyA0LjAzOCAxNC40MzYgMy45MjEgMTQuNDM2IDIuOTIxIDE0 + LjQzNiAyLjkyMSAxNS40MzYgNS4wMzggMTUuNDM2IDUuMDM4IDAuODkzIDIuOTIxIDAuODkzIiBjbGFz + cz0iY2xzLTEiIC8+DQogIDxwb2x5Z29uIHBvaW50cz0iNi41MzggMTYuOTg5IDYuNTM4IDE5LjEwNyA3 + LjYgMTkuMTA3IDcuNiAxOC4xMDcgNy41OTkgMTguMTA3IDcuNTk5IDE3Ljk4OSA3LjYgMTcuOTg5IDE2 + LjAxOCAxNy45ODkgMTYuMDE4IDE4LjEwNyAxNi4wMTggMTkuMTA3IDE3LjA3OSAxOS4xMDcgMTcuMDc5 + IDE2Ljk4OSA2LjUzOCAxNi45ODkiIGNsYXNzPSJjbHMtMSIgLz4NCiAgPHBhdGggZD0iTTExLjM3Mjks + Mi44OTM1bDMuNzA2MywzLjQ5MzRWMTMuNDM2SDguNTM4MVYyLjg5MzVoMi44MzQ4bS43OTQxLTJINi41 + MzgxVjE1LjQzNkgxNy4wNzkyVjUuNTIzN0wxMi4xNjcuODkzNVoiIGNsYXNzPSJjbHMtMiIgLz4NCjwv + c3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDIw + IDIwIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiM3MDZmNmY7fTwvc3R5bGU+DQogIDwvZGVmcz4NCiAg + PHJlY3QgeD0iNi4wNTg2IiB5PSI3LjYwNzUiIHdpZHRoPSI3Ljg4MzgiIGhlaWdodD0iMS41MDgxIiBy + eD0iMCIgcnk9IjAiIGNsYXNzPSJjbHMtMSIgLz4NCiAgPHJlY3QgeD0iNi4wNTg2IiB5PSIxMC44ODQ0 + IiB3aWR0aD0iNy44ODM4IiBoZWlnaHQ9IjEuNTA4MSIgcng9IjAiIHJ5PSIwIiBjbGFzcz0iY2xzLTEi + IC8+DQogIDxyZWN0IHg9IjYuMDU4NiIgeT0iMTQuMTYxOSIgd2lkdGg9IjcuODgzOCIgaGVpZ2h0PSIx + LjUwODEiIHJ4PSIwIiByeT0iMCIgY2xhc3M9ImNscy0xIiAvPg0KICA8cmVjdCB4PSI2LjA1ODYiIHk9 + IjQuMzMiIHdpZHRoPSIzLjc3OTMiIGhlaWdodD0iMS41MDgxIiByeD0iMCIgcnk9IjAiIGNsYXNzPSJj + bHMtMSIgLz4NCiAgPHBhdGggZD0iTTE3LDE5LjEwNjVIM1YuODkzNWg4Ljc1MUwxNyw2LjE3MVpNNSwx + Ny4wOTU2SDE1VjcuMDAzNkwxMC45MjI5LDIuOTA0NEg1WiIgY2xhc3M9ImNscy0xIiAvPg0KPC9zdmc+ + Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPMCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iWm9vbV9JbiIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + Qmx1ZXtmaWxsOiMxMTc3RDc7fQo8L3N0eWxlPg0KICA8cG9seWdvbiBwb2ludHM9IjE4LDEyIDE0LDEy + IDE0LDggMTIsOCAxMiwxMiA4LDEyIDgsMTQgMTIsMTQgMTIsMTggMTQsMTggMTQsMTQgMTgsMTQgIiBj + bGFzcz0iQmx1ZSIgLz4NCiAgPHBhdGggZD0iTTI5LjcsMjcuM0wyMiwxOS42YzAsMC0wLjEtMC4xLTAu + MS0wLjFjMS4zLTEuOCwyLjEtNC4xLDIuMS02LjVjMC02LjEtNC45LTExLTExLTExQzYuOSwyLDIsNi45 + LDIsMTMgIHM0LjksMTEsMTEsMTFjMi40LDAsNC43LTAuOCw2LjUtMi4xYzAsMCwwLDAuMSwwLjEsMC4x + bDcuNyw3LjdjMC4zLDAuMywwLjksMC4zLDEuMiwwbDEuMi0xLjJDMzAuMSwyOC4yLDMwLjEsMjcuNiwy + OS43LDI3LjN6ICAgTTQsMTNjMC01LDQtOSw5LTljNSwwLDksNCw5LDlzLTQsOS05LDlDOCwyMiw0LDE4 + LDQsMTN6IiBjbGFzcz0iQmxhY2siIC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAM8CAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iWm9vbV9JbiIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + Qmx1ZXtmaWxsOiMxMTc3RDc7fQo8L3N0eWxlPg0KICA8ZyBpZD0iWm9vbV9PdXQiPg0KICAgIDxyZWN0 + IHg9IjgiIHk9IjEyIiB3aWR0aD0iMTAiIGhlaWdodD0iMiIgcng9IjAiIHJ5PSIwIiBjbGFzcz0iQmx1 + ZSIgLz4NCiAgICA8cGF0aCBkPSJNMjkuNywyNy4zbC03LjktNy45YzEuMy0xLjgsMi4xLTQsMi4xLTYu + NWMwLTYuMS00LjktMTEtMTEtMTFDNi45LDIsMiw2LjksMiwxM3M0LjksMTEsMTEsMTEgICBjMi40LDAs + NC42LTAuOCw2LjUtMi4xbDcuOSw3LjljMC4zLDAuMywwLjksMC4zLDEuMiwwbDEuMi0xLjJDMzAuMSwy + OC4yLDMwLjEsMjcuNiwyOS43LDI3LjN6IE00LDEzYzAtNSw0LTksOS05YzUsMCw5LDQsOSw5ICAgcy00 + LDktOSw5QzgsMjIsNCwxOCw0LDEzeiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHIBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDIw + IDIwIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiNhNTI0MzE7fTwvc3R5bGU+DQogIDwvZGVmcz4NCiAg + PHBhdGggZD0iTTExLjI5MiwxOC42OTh2LTJBNi42OTgsNi42OTgsMCwxLDAsNC41OTM4LDEwaC0yQTgu + Njk4Myw4LjY5ODMsMCwxLDEsMTEuMjkyLDE4LjY5OFoiIGNsYXNzPSJjbHMtMSIgLz4NCiAgPHBvbHls + aW5lIHBvaW50cz0iMC4wMSAxMCAzLjU2NiAxNC45MjQgNy4xMjIgMTAiIGNsYXNzPSJjbHMtMSIgLz4N + Cjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHMBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDIw + IDIwIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiNhNTI0MzE7fTwvc3R5bGU+DQogIDwvZGVmcz4NCiAg + PHBhdGggZD0iTTguNzA4LDE4LjY5OHYtMkE2LjY5OCw2LjY5OCwwLDEsMSwxNS40MDYyLDEwaDJBOC42 + OTgzLDguNjk4MywwLDEsMCw4LjcwOCwxOC42OThaIiBjbGFzcz0iY2xzLTEiIC8+DQogIDxwb2x5bGlu + ZSBwb2ludHM9IjE5Ljk5IDEwIDE2LjQzNCAxNC45MjQgMTIuODc4IDEwIiBjbGFzcz0iY2xzLTEiIC8+ + DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIIBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDIw + IDIwIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiNhNTI0MzE7fS5jbHMtMntmaWxsOiM2NDYzNjM7fTwv + c3R5bGU+DQogIDwvZGVmcz4NCiAgPHJlY3QgeD0iMi45ODk3IiB5PSIyLjk5MDEiIHdpZHRoPSI3LjAx + MDMiIGhlaWdodD0iMTQuMDIiIHJ4PSIwIiByeT0iMCIgY2xhc3M9ImNscy0xIiAvPg0KICA8cGF0aCBk + PSJNMTkuMDEsMTkuMDFILjk5Vi45OUgxOS4wMVpNMi45OSwxNy4wMUgxNy4wMVYyLjk5SDIuOTlaIiBj + bGFzcz0iY2xzLTIiIC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIABAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDIw + IDIwIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiNhNTI0MzE7fS5jbHMtMntmaWxsOiM2NDYzNjM7fTwv + c3R5bGU+DQogIDwvZGVmcz4NCiAgPHJlY3QgeD0iMi45ODk3IiB5PSIyLjk5IiB3aWR0aD0iMTQuMDIw + NSIgaGVpZ2h0PSI3LjAxIiByeD0iMCIgcnk9IjAiIGNsYXNzPSJjbHMtMSIgLz4NCiAgPHBhdGggZD0i + TTE5LjAxLDE5LjAxSC45OVYuOTlIMTkuMDFaTTIuOTksMTcuMDFIMTcuMDFWMi45OUgyLjk5WiIgY2xh + c3M9ImNscy0yIiAvPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANUBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDIw + IDIwIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiNhNTI0MzE7fTwvc3R5bGU+DQogIDwvZGVmcz4NCiAg + PHBhdGggZD0iTTIwLDIwLDYuNjY2NywxMC4wMDA3LDIwLDBaIiBjbGFzcz0iY2xzLTEiIC8+DQogIDxw + YXRoIGQ9Ik0xMy4zMzMzLDE1VjVsLTYuNjY2Niw1WiIgY2xhc3M9ImNscy0xIiAvPg0KICA8cG9seWdv + biBwb2ludHM9IjEyLjYzIDE2LjQwNSA1Ljk2MyAxMS40MDUgNC4wOTEgMTAuMDAxIDUuOTYzIDguNTk2 + IDEyLjYzIDMuNTk2IDEzLjMzMyAzLjA2OCAxMy4zMzMgMCAwIDEwLjAwMSAxMy4zMzMgMjAgMTMuMzMz + IDE2LjkzMiAxMi42MyAxNi40MDUiIGNsYXNzPSJjbHMtMSIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAP8AAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDIw + IDIwIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiNhNTI0MzE7fTwvc3R5bGU+DQogIDwvZGVmcz4NCiAg + PHBhdGggZD0iTTE2LjY2NjcsMjAsMy4zMzMzLDEwLjAwMDcsMTYuNjY2NywwWiIgY2xhc3M9ImNscy0x + IiAvPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAP0AAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDIw + IDIwIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiNhNTI0MzE7fTwvc3R5bGU+DQogIDwvZGVmcz4NCiAg + PHBhdGggZD0iTTMuMzMzMywyMGwxMy4zMzM0LTkuOTk5M0wzLjMzMzMsMFoiIGNsYXNzPSJjbHMtMSIg + Lz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAM4BAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDIw + IDIwIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiNhNTI0MzE7fTwvc3R5bGU+DQogIDwvZGVmcz4NCiAg + PHBhdGggZD0iTTAsMjBsMTMuMzMzMy05Ljk5OTNMMCwwWiIgY2xhc3M9ImNscy0xIiAvPg0KICA8cGF0 + aCBkPSJNNi42NjY3LDE1VjVsNi42NjY2LDVaIiBjbGFzcz0iY2xzLTEiIC8+DQogIDxwb2x5Z29uIHBv + aW50cz0iNy4zNyAxNi40MDUgMTQuMDM3IDExLjQwNSAxNS45MDkgMTAuMDAxIDE0LjAzNyA4LjU5NiA3 + LjM3IDMuNTk2IDYuNjY3IDMuMDY4IDYuNjY3IDAgMjAgMTAuMDAxIDYuNjY3IDIwIDYuNjY3IDE2Ljkz + MiA3LjM3IDE2LjQwNSIgY2xhc3M9ImNscy0xIiAvPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGQEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDIw + IDIwIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiNhNTI0MzE7fTwvc3R5bGU+DQogIDwvZGVmcz4NCiAg + PHBhdGggZD0iTTE5LjY5NDEsMTAuOTM3M0E3Ljc5NjcsNy43OTY3LDAsMCwwLDE5Ljc0MzUsMTBhNy43 + OTczLDcuNzk3MywwLDAsMC0uMDQ5NC0uOTM3NEwxNi44NDUyLDguMDM5YTcuMDYsNy4wNiwwLDAsMC0u + NjI5MS0xLjUwNDhsMS4yOTUxLTIuNzI1NmE4Ljk4OTMsOC45ODkzLDAsMCwwLTEuMzItMS4zMzIxbC0y + LjcyNTcsMS4yOTVhNy4zOSw3LjM5LDAsMCwwLTEuNTE3LS42MTY2TDEwLjkzNzQuMzA1OEE3LjgxOTIs + Ny44MTkyLDAsMCwwLDEwLC4yNTY1YTcuODE5Miw3LjgxOTIsMCwwLDAtLjkzNzQuMDQ5M0w4LjA1MTIs + My4xNTQ5YTcuMzksNy4zOSwwLDAsMC0xLjUxNy42MTY2TDMuODA4NSwyLjQ3NjVhOC45ODkzLDguOTg5 + MywwLDAsMC0xLjMyLDEuMzMyMUwzLjc4MzksNi41MzQyQTYuNDgwNiw2LjQ4MDYsMCwwLDAsMy4xNTQ4 + LDguMDM5TC4zMDU5LDkuMDYyNkE3Ljc5NzMsNy43OTczLDAsMCwwLC4yNTY1LDEwYTcuNzk2Nyw3Ljc5 + NjcsMCwwLDAsLjA0OTQuOTM3M2wyLjg0ODksMS4wMTE0YTYuNDc5MSw2LjQ3OTEsMCwwLDAsLjYyOTEs + MS41MDQ2TDIuNDg4OCwxNi4xOTE0YTkuNTQ3Miw5LjU0NzIsMCwwLDAsMS4zMiwxLjMybDIuNzI1Ny0x + LjI5NWE4LjIwMTQsOC4yMDE0LDAsMCwwLDEuNTE3LjYyOWwxLjAxMTQsMi44NDlBNy44MTksNy44MTks + MCwwLDAsMTAsMTkuNzQzNWE3LjgxOSw3LjgxOSwwLDAsMCwuOTM3NC0uMDQ5NGwxLjAxMTQtMi44NDlh + OC4yMDE0LDguMjAxNCwwLDAsMCwxLjUxNy0uNjI5bDIuNzI1NywxLjI5NWE5LjU0NzIsOS41NDcyLDAs + MCwwLDEuMzItMS4zMmwtMS4yOTUxLTIuNzM4MWE3LjA1NzksNy4wNTc5LDAsMCwwLC42MjkxLTEuNTA0 + NlpNMTAsMTQuMTNBNC4xMzMxLDQuMTMzMSwwLDEsMSwxNC4xMzMxLDkuOTk3LDQuMTMzMiw0LjEzMzIs + MCwwLDEsMTAsMTQuMTNaIiBjbGFzcz0iY2xzLTEiIC8+DQo8L3N2Zz4L + + + + 152, 18 + + \ No newline at end of file diff --git a/Controls.ChatNewConv/ChatNewConv.sln b/Controls.DocumentViewer_old/DocumentViewer.sln similarity index 53% rename from Controls.ChatNewConv/ChatNewConv.sln rename to Controls.DocumentViewer_old/DocumentViewer.sln index 7fbe294b..e8b5868d 100644 --- a/Controls.ChatNewConv/ChatNewConv.sln +++ b/Controls.DocumentViewer_old/DocumentViewer.sln @@ -1,9 +1,9 @@  Microsoft Visual Studio Solution File, Format Version 12.00 -# Visual Studio Version 16 -VisualStudioVersion = 16.0.29728.190 +# Visual Studio Version 17 +VisualStudioVersion = 17.14.36915.13 d17.14 MinimumVisualStudioVersion = 10.0.40219.1 -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ChatNewConv", "ChatNewConv.vbproj", "{1F278760-4F6B-42E8-B82D-01D4C8618340}" +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DocumentViewer", "DocumentViewer.vbproj", "{0958CDDF-4A16-41F6-8837-8335F71D599C}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution @@ -11,15 +11,15 @@ Global Release|Any CPU = Release|Any CPU EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution - {1F278760-4F6B-42E8-B82D-01D4C8618340}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {1F278760-4F6B-42E8-B82D-01D4C8618340}.Debug|Any CPU.Build.0 = Debug|Any CPU - {1F278760-4F6B-42E8-B82D-01D4C8618340}.Release|Any CPU.ActiveCfg = Release|Any CPU - {1F278760-4F6B-42E8-B82D-01D4C8618340}.Release|Any CPU.Build.0 = Release|Any CPU + {0958CDDF-4A16-41F6-8837-8335F71D599C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {0958CDDF-4A16-41F6-8837-8335F71D599C}.Debug|Any CPU.Build.0 = Debug|Any CPU + {0958CDDF-4A16-41F6-8837-8335F71D599C}.Release|Any CPU.ActiveCfg = Release|Any CPU + {0958CDDF-4A16-41F6-8837-8335F71D599C}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection GlobalSection(ExtensibilityGlobals) = postSolution - SolutionGuid = {7A1345F2-0B32-4B54-AD8C-2DA579BFF116} + SolutionGuid = {55D5ACAE-4E08-41A6-823A-891E94822613} EndGlobalSection EndGlobal diff --git a/Controls.DocumentViewer_old/DocumentViewer.vb b/Controls.DocumentViewer_old/DocumentViewer.vb new file mode 100644 index 00000000..125bc1ab --- /dev/null +++ b/Controls.DocumentViewer_old/DocumentViewer.vb @@ -0,0 +1,851 @@ +Imports System.IO +Imports DevExpress +Imports DevExpress.Spreadsheet +Imports DevExpress.XtraRichEdit.Commands +Imports DevExpress.Office.Utils +Imports GdPicture14 +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Messaging +Imports DigitalData.Modules.Config + +Public Class DocumentViewer + Private Enum ZoomMode + Zoom50 + Zoom100 + Zoom150 + Zoom200 + ZoomSelectedArea + ZoomFitToViewer + ZoomFitWidth + ZoomFitHeight + End Enum + + Private Enum ViewerMode + GDPicture + Excel + Richtext + End Enum + + Private Enum FileLoadMode + File + Stream + End Enum + + Public ReadOnly Property PdfViewer As GdViewer + Get + Return GdViewer + End Get + End Property + + Private _logConfig As LogConfig + Private _logger As Logger + Private _Config As ConfigManager(Of Config) + Private _email As Email2 + + Private _ViewerMode As ViewerMode + + Private _licenseKey As String = String.Empty + Private _licenseManager As New GdPicture14.LicenseManager() + + Private _Search As Search + Private _Annotations As Annotations + Private _AnnotationsPending As Boolean = False + + Private _ToolbarSettings As New ToolbarSettings + + Private _hide_file_info_from_user As Boolean = False + + + Private _FileStream As Stream + Private _FilePath As String + Private _FileInfo As FileInfo + Private _FileLoadMode As FileLoadMode = FileLoadMode.File + Private _ViewOverride As String = "" + + ' List of all created temp files when converting msg files + Private _TempFiles As New List(Of String) + + Private Sub DocumentViewer_Load(sender As Object, e As EventArgs) Handles Me.Load + ' Ensure search is initialized once the control (and GdViewer) exists + EnsureSearchInitialized() + UpdateMainUi() + End Sub + 'hallo + Public Class ToolbarSettings + Public Property ShowPrintButton As Boolean = True + Public Property ShowFitWidthButton As Boolean = True + Public Property ShowFitPageButton As Boolean = True + Public Property ShowZoomButton As Boolean = True + Public Property ShowRotateButton As Boolean = True + Public Property ShowFlipButton As Boolean = True + Public Property ShowSearchButton As Boolean = True + Public Property ShowSettingButton As Boolean = True + End Class + + Public Property FileLoaded As Boolean = False + Public Property Viewer_ForceTemporaryMode As Boolean = False + Public ReadOnly Property AnnotationsSaved As Boolean + Get + Return Not _AnnotationsPending + End Get + End Property + + ''' + ''' Initialize the Viewer + ''' + ''' A LogConfig object + ''' The GDPicture.NET License Key + Public Function Init(pLogConfig As LogConfig, pLicenseKey As String, Optional pToolbarSettings As ToolbarSettings = Nothing) As Boolean + _logConfig = pLogConfig + _logger = pLogConfig.GetLogger() + + If pToolbarSettings Is Nothing Then + pToolbarSettings = New ToolbarSettings + End If + + Try + _email = New Email2(pLogConfig) + If pLicenseKey = String.Empty Then + _logger.Warn("License key was not provided during init-process!") + Return False + End If + _licenseKey = pLicenseKey + _licenseManager.RegisterKEY(_licenseKey) + _Annotations = New Annotations(pLogConfig) + ' Defer creating Search until GdViewer is ready + EnsureSearchInitialized() + _ToolbarSettings = pToolbarSettings + + Dim oConfigPath = ConfigPath() + _Config = New ConfigManager(Of Config)(pLogConfig, oConfigPath) + Return True + Catch ex As Exception + _logger.Error(ex) + Return False + End Try + End Function + + ' Create the Search helper only when both the log config and the GdViewer control exist + Private Sub EnsureSearchInitialized() + Try + If _Search Is Nothing AndAlso _logConfig IsNot Nothing AndAlso GdViewer IsNot Nothing Then + _Search = New Search(_logConfig, GdViewer) + End If + Catch ex As Exception + _logger?.Error(ex) + End Try + End Sub + + ''' + ''' Load a file from a path and display it + ''' + Public Sub LoadFile(FilePath As String) + FileLoaded = False + If _licenseKey = String.Empty Then + _logger.Warn("License key was not provided. File {0} not loaded.", FilePath) + Exit Sub + End If + + If FilePath Is Nothing OrElse FilePath.Trim().Length = 0 Then + _logger.Warn("FilePath was not provided. File not loaded.") + Exit Sub + End If + + _FilePath = FilePath + _FileLoadMode = FileLoadMode.File + _FileInfo = New FileInfo(FilePath) + + _logger.Info("Loading file [{0}] from Filesystem", FilePath) + SetViewerMode(_FileInfo.Extension) + FileLoaded = DoLoadFile(FilePath) + UpdateMainUi() + End Sub + + ''' + ''' Load a file from a stream and display it + ''' + Public Sub LoadFile(FileName As String, Stream As Stream) + FileLoaded = False + + + + Dim oExtension As String = FileName.Substring(FileName.LastIndexOf(".")) + + _FileStream = Stream + _FileLoadMode = FileLoadMode.Stream + + _logger.Info("Loading file [{0}] from Stream", FileName) + FileLoaded = DoLoadFile(Stream, oExtension) + + SetViewerMode(oExtension) + UpdateMainUi() + End Sub + + ''' + ''' Terminate Viewer, freeing up resources and deleting temp files + ''' + Public Sub Done() + Try + _logger.Debug("Done: Deleting Temp Files") + DeleteTempFiles() + + _logger.Debug("Done: Closing Documents") + FreeFile() + + _logger.Debug("Done: Triggering GC") + GC.Collect() + Catch ex As Exception + _logger.Warn("Error while cleaning up DocumentViewer") + _logger.Error(ex) + End Try + End Sub + + Public Function AddAnnotation(pText As String) As Boolean + Dim oFontStyle = FontStyle.Regular + Dim oFontColor = Color.Black + Dim oFontFamily = "Arial" + Dim oFontSize = 8 + Dim oBorderColor = Color.Red + Dim oBackColor = Color.LightYellow + Dim oOpacity = 1.0F + Dim oRotation = 0.0F + + GdViewer.AddTextAnnotationInteractive(pText, oFontColor, oFontFamily, oFontStyle, oFontSize, Fill:=True, oBorderColor, oBackColor, oOpacity, oRotation) + _AnnotationsPending = True + + Return True + End Function + + Public Function Save() As Boolean + Dim oSaveResult As GdPictureStatus = GdPictureStatus.OK + + If GdViewer.BurnAnnotationsToPage(True, False) = GdPictureStatus.OK Then + If _FileLoadMode = FileLoadMode.Stream Then + oSaveResult = GdViewer.SaveDocumentToPDF(_FileStream) + Else + oSaveResult = GdViewer.SaveDocumentToPDF(_FilePath) + End If + End If + + If oSaveResult = GdPictureStatus.OK Then + _AnnotationsPending = False + Return True + Else + Return False + End If + End Function + + Public Sub CloseDocument() + Try + ' Null-sicher schließen + If GdViewer IsNot Nothing Then + Try + GdViewer.CloseDocument() + Catch exInner As Exception + _logger?.Warn("Fehler beim Schließen von GdViewer") + _logger?.Error(exInner) + End Try + Else + _logger?.Debug("CloseDocument: GdViewer ist Nothing – nichts zu schließen") + End If + + _FileInfo = Nothing + _FilePath = Nothing + _FileStream = Nothing + + UpdateMainUi() + Catch ex As Exception + _logger.Error(ex) + End Try + End Sub + + ''' + ''' Configures the viewer to hide the file path to the end-user. + ''' + ''' + ''' True means that all file info should be hidden from the end-user + ''' False means the end user may see the filepath or other info about the file + ''' + Public Sub SetViewOnly(ViewOnly As Boolean) + If ViewOnly Then + buttonPrint.Visibility = XtraBars.BarItemVisibility.Never + Else + buttonPrint.Visibility = XtraBars.BarItemVisibility.Always + End If + + _hide_file_info_from_user = ViewOnly + End Sub + + Public Sub SetAllowAnnotations(AllowAnnotations As Boolean) + + End Sub + + ''' + ''' DEPRECATED: Use SetViewOnly + ''' + Public Sub RightViewOnly(ViewOnly As Boolean) + SetViewOnly(ViewOnly) + End Sub + + ''' + ''' DEPRECATED: Use SetViewOnly + ''' + Public Sub RightOnlyView(ViewOnly As Boolean) + SetViewOnly(ViewOnly) + End Sub + + + + + +#Region "Form Events" + + Private Sub btnFitWidth_Click(ByVal sender As Object, ByVal e As EventArgs) Handles buttonFitWidth.ItemClick + FitToWidth() + _Config.Config.PageFit = Config.PageFitSetting.FitWidth + _Config.Save() + End Sub + + Private Sub btnFitPage_Click(ByVal sender As Object, ByVal e As EventArgs) Handles buttonFitPage.ItemClick + FitToPage() + _Config.Config.PageFit = Config.PageFitSetting.FitPage + _Config.Save() + End Sub + + Private Sub btnOpen_Click(sender As Object, e As EventArgs) + GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer + GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter + + If OpenFileDialog.ShowDialog() = DialogResult.OK Then + GdViewer.DisplayFromFile(OpenFileDialog.FileName) + End If + + GdViewer.Focus() + UpdateMainUi() + End Sub + Private Sub BtnFirstPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonFirstPage.ItemClick + GdViewer.DisplayFirstPage() + End Sub + + Private Sub BtnPreviousPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonPrevPage.ItemClick + GdViewer.DisplayPreviousPage() + End Sub + + Private Sub BtnNextPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonNextPage.ItemClick + GdViewer.DisplayNextPage() + End Sub + + Private Sub BtnLastPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonLastPage.ItemClick + GdViewer.DisplayLastPage() + End Sub + + Private Sub TbCurrentPage_Leave(ByVal sender As System.Object, ByVal e As EventArgs) Handles txtCurrentPage.EditValueChanged + Dim page As Integer = 0 + If Integer.TryParse(txtCurrentPage.EditValue, page) Then + If page > 0 And page <= GdViewer.PageCount Then + GdViewer.DisplayPage(page) + UpdateaNavigationToolbar() + End If + End If + End Sub + + Private Sub GdViewer1_PageChanged() Handles GdViewer.PageChanged + UpdateaNavigationToolbar() + End Sub + + Private Sub GdViewer1_AfterZoomChange() Handles GdViewer.AfterZoomChange + UpdateaNavigationToolbar() + If GdViewer.MouseMode = ViewerMouseMode.MouseModeAreaZooming Then + GdViewer.MouseMode = ViewerMouseMode.MouseModePan + End If + End Sub + + Private Sub btnZoomOut_Click(sender As Object, e As EventArgs) Handles buttonZoomOut.ItemClick + GdViewer.ZoomOUT() + End Sub + + Private Sub btnZoomIn_Click(sender As Object, e As EventArgs) Handles buttonZoomIn.ItemClick + GdViewer.ZoomIN() + End Sub + + Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles buttonPrint.ItemClick + If GdViewer.PageCount = 0 Then + Return + End If + + GdViewer.PrintDialog() + End Sub + + Private Sub BtnRotateLeft_Click(sender As Object, e As EventArgs) Handles buttonRotateLeft.ItemClick + GdViewer.Rotate(RotateFlipType.Rotate270FlipNone) + End Sub + + Private Sub BtnRotateRight_Click(sender As Object, e As EventArgs) Handles buttonRotateRight.ItemClick + GdViewer.Rotate(RotateFlipType.Rotate90FlipNone) + End Sub + + Private Sub btnFlipX_Click(sender As Object, e As EventArgs) Handles buttonFlipX.ItemClick + GdViewer.Rotate(RotateFlipType.RotateNoneFlipX) + End Sub + + Private Sub btnFlipY_Click(sender As Object, e As EventArgs) Handles buttonFlipY.ItemClick + GdViewer.Rotate(RotateFlipType.RotateNoneFlipY) + End Sub + + Private Sub GdViewer1_TransferEnded(ByVal status As GdPictureStatus, ByVal download As System.Boolean) Handles GdViewer.TransferEnded + GdViewer.Focus() + UpdateMainUi() + 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 = GdViewer.AddRegionInches("SearchResult" & occurence, leftCoordinate, topCoordinate, regionWidth, regionheight, ForegroundMixMode.ForegroundMixModeMASKPEN, Color.Yellow) + GdViewer.SetRegionEditable(searchRegion, False) + If ensureVisibility Then + GdViewer.EnsureRegionVisibility(searchRegion) + End If + End Sub + + Private Sub BtnSettings_Click(ByVal sender As Object, ByVal e As EventArgs) Handles buttonSettings.ItemClick + Using frmSettings As New frmViewerSettings(GdViewer) + frmSettings.ShowDialog(Me) + End Using + UpdateaNavigationToolbar() + End Sub +#End Region + +#Region "Private Functions" + Private Function ConfigPath() As String + Return Path.Combine(Application.UserAppDataPath, "DocumentViewer") + End Function + + Private Sub UpdateaNavigationToolbar() + Try + Dim oCurrentZoom As Double = GdViewer.Zoom + Dim oCurrentPage As Integer = GdViewer.CurrentPage + Dim oPageCount As Integer = GdViewer.PageCount + txtCurrentPage.EditValue = oCurrentPage + labelPageCount.Caption = $"/ {oPageCount}" + + If oCurrentPage = oPageCount Then + buttonLastPage.Enabled = False + buttonNextPage.Enabled = False + buttonPrevPage.Enabled = True + buttonFirstPage.Enabled = True + ElseIf oCurrentPage = 1 Then + buttonPrevPage.Enabled = False + buttonFirstPage.Enabled = False + buttonLastPage.Enabled = True + buttonNextPage.Enabled = True + Else + buttonPrevPage.Enabled = True + buttonFirstPage.Enabled = True + buttonLastPage.Enabled = True + buttonNextPage.Enabled = True + End If + Catch ex As Exception + _logger.Error(ex) + End Try + End Sub + + Public Sub DeleteTempFiles() + For Each oFile In _TempFiles + Try + _logger.Debug("Deleting temp file [{0}]", oFile) + File.Delete(oFile) + Catch ex As Exception + _logger.Warn("Could not delete temp file [{0}]", oFile) + End Try + Next + End Sub + + Private Sub SetViewerMode(Extension As String) + If _ViewOverride = "Richtext" Then + _ViewerMode = ViewerMode.Richtext + Else + Select Case Extension.ToUpper + Case "CSV" + _ViewerMode = ViewerMode.Excel + 'Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT" + ' _ViewerMode = ViewerMode.RichText + Case Else + _ViewerMode = ViewerMode.GDPicture + End Select + End If + End Sub + Private Sub FreeFile() + Try + If Len(_FilePath) = 0 OrElse _FileInfo Is Nothing Then + Exit Sub + End If + Dim oExtension As String = _FileInfo.Extension.ToUpper + Select Case _ViewerMode + Case ViewerMode.Excel + _logger.Debug("Closing Excel Editor") + SpreadsheetControl1.CreateNewDocument() + Case Else + _logger.Debug("Closing GDPicture Viewer") + GdViewer.CloseDocument() + End Select + Catch ex As Exception + _logger.Warn($"Unexpected error in FreeFile: {ex.Message}") + End Try + End Sub + Private Function DoLoadFile(FilePath As String, Optional ViewOverride As String = "") As Boolean + Try + lblInfo.Visible = False + Dim oFileInfo = New FileInfo(FilePath) + Dim oExtension As String = oFileInfo.Extension.ToUpper + + lbFileNotLoaded.Visible = False + + SpreadsheetControl1.Visible = False + RichEditControl1.Visible = False + + SpreadsheetControl1.Dock = DockStyle.None + RichEditControl1.Dock = DockStyle.None + + Dim override_Spreadsheet As Boolean = False + If oExtension.ToLower = ".xlsx" Then + If oFileInfo.Length > 15000 Then + _logger.Info("Override") + override_Spreadsheet = True + End If + End If + + If ViewOverride = "Richtext" Then + RichEditControl1.LoadDocument(FilePath, GetDocumentFormat(oExtension)) + RichEditControl1.Visible = True + GdViewer.Visible = False + RichEditControl1.Dock = DockStyle.Fill + _ViewOverride = "Richtext" + _ViewerMode = ViewerMode.Richtext + lblInfo.Visible = True + lblInfo.Text = "This docx-file contains a generic error and will be displayed in a reduced viewer. Please try to open the file in WORD" + ElseIf override_Spreadsheet = True Then + Dim oFormat = GetSpreadsheetFormat(oExtension) + SpreadsheetControl1.LoadDocument(FilePath, oFormat) + + Dim oRange = SpreadsheetControl1.ActiveWorksheet.GetUsedRange() + oRange.AutoFitColumns() + + SpreadsheetControl1.Visible = True + GdViewer.Visible = False + SpreadsheetControl1.Dock = DockStyle.Fill + Else + _ViewOverride = "" + Select Case oExtension.ToUpper + Case ".CSV" + Dim oFormat = GetSpreadsheetFormat(oExtension) + SpreadsheetControl1.LoadDocument(FilePath, oFormat) + + Dim oRange = SpreadsheetControl1.ActiveWorksheet.GetUsedRange() + oRange.AutoFitColumns() + + SpreadsheetControl1.Visible = True + GdViewer.Visible = False + SpreadsheetControl1.Dock = DockStyle.Fill + + 'Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT" + ' RichEditControl1.LoadDocument(FilePath, GetDocumentFormat(oExtension)) + + ' RichEditControl1.Visible = True + ' GdViewer.Visible = False + ' RichEditControl1.Dock = DockStyle.Fill + Case Else + Select Case oExtension.ToUpper + Case ".EML", ".DOC", ".DOCX", ".XLS", ".XLSX", ".ODT", ".RTF", ".TXT" + GdViewer.ForceTemporaryMode = False + End Select + + GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer + GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter + If Viewer_ForceTemporaryMode = True Then + GdViewer.ForceTemporaryMode = True + End If + + GdViewer.AnnotationDropShadow = True + GdViewer.BackColor = Color.White + + Dim oGDPState As GdPicture14.GdPictureStatus = GdViewer.DisplayFromFile(FilePath) + If oGDPState <> GdPictureStatus.OK Then + _logger.Warn($"GdPictureStatus is [{oGDPState}]") + If oExtension.ToUpper = ".DOCX" And oGDPState = GdPictureStatus.GenericError Then + DoLoadFile(FilePath, "Richtext") + Else + Dim oFileName = IO.Path.GetFileName(FilePath) + lbFileNotLoaded.Text = String.Format("Datei konnte nicht geladen werden:{0}{1}", vbCrLf, oFileName) + lbFileNotLoaded.Visible = True + End If + + Else + If GdViewer.Visible = False Then + GdViewer.Visible = True + End If + End If + + End Select + End If + If _ViewOverride = "Richtext" Then + _ViewerMode = ViewerMode.Richtext + End If + + + Return True + Catch ex As Exception + _logger.Error(ex) + Return False + End Try + End Function + + + ' Ensures the embedded GdViewer control exists and is added to the visual tree + Private Function EnsureViewerReady() As Boolean + Try + ' If the control field is Nothing (e.g., designer not yet created), try to lazy-create and add it + If GdViewer Is Nothing Then + ' Attempt to find an existing instance by name in Controls collection + Dim existing = Me.Controls.OfType(Of GdPicture14.GdViewer)().FirstOrDefault() + If existing IsNot Nothing Then + ' Assign the designer field via reflection if needed, otherwise use it directly + GdViewer = existing + Else + ' Last resort: create a new viewer and add it + Dim viewer = New GdPicture14.GdViewer() + viewer.Dock = DockStyle.Fill + Me.Controls.Add(viewer) + GdViewer = viewer + End If + End If + + Return GdViewer IsNot Nothing + Catch ex As Exception + _logger?.Error(ex) + Return False + End Try + End Function + + Private Sub FitToPage() + If Not GdViewer Is Nothing Then + GdViewer.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer + End If + End Sub + + Private Sub FitToWidth() + If Not GdViewer Is Nothing Then + GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer + End If + + End Sub + + Private Function DoLoadFile(Stream As Stream, Extension As String) As Boolean + + Try + + SpreadsheetControl1.Visible = False + SpreadsheetControl1.Dock = DockStyle.None + + Select Case Extension.ToUpper + + Case ".CSV" + SpreadsheetControl1.LoadDocument(Stream, GetSpreadsheetFormat(Extension)) + + Dim oRange = SpreadsheetControl1.ActiveWorksheet.GetUsedRange() + oRange.AutoFitColumns() + + SpreadsheetControl1.Visible = True + SpreadsheetControl1.Dock = DockStyle.Fill + + Case Else + If Not GdViewer Is Nothing Then + GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer + GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter + If Viewer_ForceTemporaryMode = True Then + GdViewer.ForceTemporaryMode = True + End If + GdViewer.AnnotationDropShadow = True + + GdViewer.DisplayFromStream(Stream) + End If + + + End Select + + UpdateMainUi() + + Return True + Catch ex As Exception + _logger.Error(ex) + Return False + End Try + End Function + Private Function StreamFile(Stream As Stream, Extension As String) As Boolean + Try + + SpreadsheetControl1.Visible = False + SpreadsheetControl1.Dock = DockStyle.None + + Select Case Extension.ToUpper + + Case ".CSV" + SpreadsheetControl1.LoadDocument(Stream, GetSpreadsheetFormat(Extension)) + + Dim oRange = SpreadsheetControl1.ActiveWorksheet.GetUsedRange() + oRange.AutoFitColumns() + + SpreadsheetControl1.Visible = True + SpreadsheetControl1.Dock = DockStyle.Fill + + Case Else + GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer + GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter + GdViewer.ForceTemporaryMode = True + GdViewer.AnnotationDropShadow = True + + GdViewer.DisplayFromStream(Stream) + + End Select + + UpdateMainUi() + + Return True + Catch ex As Exception + _logger.Error(ex) + Return False + End Try + End Function + + Private Function GetSpreadsheetFormat(Extension) As Spreadsheet.DocumentFormat + Dim oFormat As Spreadsheet.DocumentFormat = Spreadsheet.DocumentFormat.Undefined + + Select Case Extension.ToUpper + Case ".XLSX" : oFormat = Spreadsheet.DocumentFormat.Xlsx + Case ".XLS" : oFormat = Spreadsheet.DocumentFormat.Xls + Case ".CSV" : oFormat = Spreadsheet.DocumentFormat.Csv + End Select + + Return oFormat + End Function + + Private Function GetDocumentFormat(Extension) As XtraRichEdit.DocumentFormat + Dim oFormat As XtraRichEdit.DocumentFormat = XtraRichEdit.DocumentFormat.Undefined + + Select Case Extension.ToUpper + Case ".EML" : oFormat = XtraRichEdit.DocumentFormat.Mht + Case ".DOC" : oFormat = XtraRichEdit.DocumentFormat.Doc + Case ".DOCX" : oFormat = XtraRichEdit.DocumentFormat.OpenXml + Case ".ODT" : oFormat = XtraRichEdit.DocumentFormat.OpenDocument + Case ".RTF" : oFormat = XtraRichEdit.DocumentFormat.Rtf + Case ".TXT" : oFormat = XtraRichEdit.DocumentFormat.PlainText + End Select + + Return oFormat + End Function + + Private Function ToVisibility(pBoolean As Boolean) As XtraBars.BarItemVisibility + If (pBoolean = True) Then + Return XtraBars.BarItemVisibility.Always + Else + Return XtraBars.BarItemVisibility.Never + End If + End Function + + Private Sub UpdateMainUi() + + Select Case _Config?.Config?.PageFit + Case Config.PageFitSetting.FitPage + FitToPage() + + Case Config.PageFitSetting.FitWidth + FitToWidth() + + End Select + + If _FileStream Is Nothing And _FilePath Is Nothing Then + lbFileNotLoaded.Visible = False + End If + + Select Case _ViewerMode + Case ViewerMode.GDPicture + ToolbarDocumentViewer.Visible = True + + buttonPrint.Visibility = ToVisibility(_ToolbarSettings.ShowPrintButton) + buttonFitWidth.Visibility = ToVisibility(_ToolbarSettings.ShowFitWidthButton) + buttonFitPage.Visibility = ToVisibility(_ToolbarSettings.ShowFitPageButton) + buttonZoomIn.Visibility = ToVisibility(_ToolbarSettings.ShowZoomButton) + buttonZoomOut.Visibility = ToVisibility(_ToolbarSettings.ShowZoomButton) + buttonRotateLeft.Visibility = ToVisibility(_ToolbarSettings.ShowRotateButton) + buttonRotateRight.Visibility = ToVisibility(_ToolbarSettings.ShowRotateButton) + buttonFlipX.Visibility = ToVisibility(_ToolbarSettings.ShowFlipButton) + buttonFlipY.Visibility = ToVisibility(_ToolbarSettings.ShowFlipButton) + buttonSettings.Visibility = ToVisibility(_ToolbarSettings.ShowSettingButton) + txtSearch.Visibility = ToVisibility(_ToolbarSettings.ShowSearchButton) + btnSearch2.Visibility = ToVisibility(_ToolbarSettings.ShowSearchButton) + btnNextHighlight.Visibility = ToVisibility(_ToolbarSettings.ShowSearchButton) + btnPrevHighlight.Visibility = ToVisibility(_ToolbarSettings.ShowSearchButton) + buttonFirstPage.Visibility = ToVisibility(True) + buttonPrevPage.Visibility = ToVisibility(True) + buttonNextPage.Visibility = ToVisibility(True) + buttonLastPage.Visibility = ToVisibility(True) + txtCurrentPage.Visibility = ToVisibility(True) + + Case ViewerMode.Excel + ToolbarDocumentViewer.Visible = False + + buttonPrint.Visibility = ToVisibility(False) + buttonFitWidth.Visibility = ToVisibility(False) + buttonFitPage.Visibility = ToVisibility(False) + buttonZoomIn.Visibility = ToVisibility(False) + buttonZoomOut.Visibility = ToVisibility(False) + buttonRotateLeft.Visibility = ToVisibility(False) + buttonRotateRight.Visibility = ToVisibility(False) + buttonFlipX.Visibility = ToVisibility(False) + buttonFlipY.Visibility = ToVisibility(False) + buttonFirstPage.Visibility = ToVisibility(False) + buttonPrevPage.Visibility = ToVisibility(False) + buttonNextPage.Visibility = ToVisibility(False) + buttonLastPage.Visibility = ToVisibility(False) + buttonSettings.Visibility = ToVisibility(False) + txtCurrentPage.Visibility = ToVisibility(False) + txtSearch.Visibility = ToVisibility(False) + btnSearch2.Visibility = ToVisibility(False) + btnNextHighlight.Visibility = ToVisibility(False) + btnPrevHighlight.Visibility = ToVisibility(False) + Case Else + ToolbarDocumentViewer.Visible = False + End Select + End Sub + + Private Sub btnSearch2_ItemClick(sender As Object, e As XtraBars.ItemClickEventArgs) Handles btnSearch2.ItemClick + EnsureSearchInitialized() + If _Search IsNot Nothing AndAlso Not String.IsNullOrEmpty(txtSearch.EditValue) Then + _Search.SearchAll(txtSearch.EditValue?.ToString) + + End If + End Sub + + Private Sub btnPrevHighlight_ItemClick(sender As Object, e As XtraBars.ItemClickEventArgs) Handles btnPrevHighlight.ItemClick + EnsureSearchInitialized() + _Search?.PrevHighlight() + End Sub + + Private Sub btnNextHighlight_ItemClick(sender As Object, e As XtraBars.ItemClickEventArgs) Handles btnNextHighlight.ItemClick + EnsureSearchInitialized() + _Search?.NextHighlight() + End Sub + + Private Sub txtSearch_EditValueChanged(sender As Object, e As EventArgs) Handles txtSearch.EditValueChanged + If String.IsNullOrEmpty(txtSearch.EditValue) Then + btnPrevHighlight.Enabled = False + btnNextHighlight.Enabled = False + + Else + btnPrevHighlight.Enabled = True + btnNextHighlight.Enabled = True + End If + End Sub +#End Region + + + + +End Class diff --git a/Controls.DocumentViewer_old/DocumentViewer.vbproj b/Controls.DocumentViewer_old/DocumentViewer.vbproj new file mode 100644 index 00000000..e0494014 --- /dev/null +++ b/Controls.DocumentViewer_old/DocumentViewer.vbproj @@ -0,0 +1,357 @@ + + + + + Debug + AnyCPU + {0958CDDF-4A16-41F6-8837-8335F71D599C} + Library + + + DigitalData.Controls.DocumentViewer + DigitalData.Controls.DocumentViewer + 512 + Windows + v4.6.2 + true + + + + + + AnyCPU + true + full + true + true + bin\Debug\ + DigitalData.Controls.DocumentViewer.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + DigitalData.Controls.DocumentViewer.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + ..\packages\BouncyCastle.Cryptography.2.5.0\lib\net461\BouncyCastle.Cryptography.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + ..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll + + + ..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll + + + ..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll + + + ..\..\DDModules\Messaging\bin\Debug\DigitalData.Modules.Messaging.dll + + + ..\packages\DocumentFormat.OpenXml.3.2.0\lib\net46\DocumentFormat.OpenXml.dll + + + ..\packages\DocumentFormat.OpenXml.Framework.3.2.0\lib\net46\DocumentFormat.OpenXml.Framework.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.1d.writer.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.2d.writer.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.DWG.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Common.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Document.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Email.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.HTML.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.Conversion.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Rendering.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.MSOfficeBinary.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenDocument.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.Templating.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.PDF.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.RTF.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.SVG.dll + + + ..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.wia.gateway.dll + True + + + ..\packages\Microsoft.Bcl.AsyncInterfaces.8.0.0\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll + + + + ..\packages\Newtonsoft.Json.13.0.3\lib\net45\Newtonsoft.Json.dll + + + ..\packages\Newtonsoft.Json.Bson.1.0.2\lib\net45\Newtonsoft.Json.Bson.dll + + + ..\packages\NLog.5.0.5\lib\net46\NLog.dll + + + ..\packages\OpenMcdf.2.4.1\lib\net40\OpenMcdf.dll + + + + + ..\packages\protobuf-net.3.2.46\lib\net462\protobuf-net.dll + + + ..\packages\protobuf-net.Core.3.2.46\lib\net462\protobuf-net.Core.dll + + + ..\packages\RtfPipe.2.0.7677.4303\lib\net45\RtfPipe.dll + + + + ..\packages\System.Buffers.4.6.0\lib\net462\System.Buffers.dll + + + ..\packages\System.CodeDom.8.0.0\lib\net462\System.CodeDom.dll + + + ..\packages\System.Collections.Immutable.8.0.0\lib\net462\System.Collections.Immutable.dll + + + + + + + + ..\packages\System.IO.Packaging.8.0.1\lib\net462\System.IO.Packaging.dll + + + + ..\packages\System.Memory.4.6.0\lib\net462\System.Memory.dll + + + ..\packages\Microsoft.AspNet.WebApi.Client.6.0.0\lib\net45\System.Net.Http.Formatting.dll + + + + ..\packages\System.Numerics.Vectors.4.6.0\lib\net462\System.Numerics.Vectors.dll + + + ..\packages\System.Runtime.CompilerServices.Unsafe.6.1.0\lib\net462\System.Runtime.CompilerServices.Unsafe.dll + + + + + ..\packages\System.Security.Cryptography.Pkcs.8.0.1\lib\net462\System.Security.Cryptography.Pkcs.dll + + + + ..\packages\System.Text.Encodings.Web.8.0.0\lib\net462\System.Text.Encodings.Web.dll + + + ..\packages\System.Text.Json.8.0.6\lib\net462\System.Text.Json.dll + + + ..\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll + + + + ..\packages\System.ValueTuple.4.5.0\lib\net461\System.ValueTuple.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + DocumentViewer.vb + + + UserControl + + + frmViewerSettings.vb + + + Form + + + + True + Application.myapp + True + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + + DocumentViewer.vb + + + frmViewerSettings.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}". + + + + \ No newline at end of file diff --git a/Controls.ChatNewConv/ChatNewConv.vbproj.bak b/Controls.DocumentViewer_old/DocumentViewer.vbproj.bak similarity index 60% rename from Controls.ChatNewConv/ChatNewConv.vbproj.bak rename to Controls.DocumentViewer_old/DocumentViewer.vbproj.bak index 1f103073..336688a5 100644 --- a/Controls.ChatNewConv/ChatNewConv.vbproj.bak +++ b/Controls.DocumentViewer_old/DocumentViewer.vbproj.bak @@ -4,34 +4,35 @@ Debug AnyCPU - {86D27FFA-480F-481D-8D23-26DEAE92FE6C} + {0958CDDF-4A16-41F6-8837-8335F71D599C} Library - DigitalData.Controls.ChatNewConv - DigitalData.Controls.ChatNewConv + + + DigitalData.Controls.DocumentViewer + DigitalData.Controls.DocumentViewer 512 Windows v4.6.1 - true - + true + AnyCPU true full true true bin\Debug\ - DigitalData.Controls.ChatNewConv.xml - _MYFORMS=True + DigitalData.Controls.DocumentViewer.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + AnyCPU pdbonly false true true bin\Release\ - DigitalData.Controls.ChatNewConv.xml - _MYFORMS=True + DigitalData.Controls.DocumentViewer.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 @@ -47,30 +48,46 @@ On + + + + + + - - + + + + + + - + + - - ..\Controls.LookupGrid\obj\Debug\DigitalData.Controls.LookupGrid.dll + + + + + D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll ..\packages\NLog.4.7.10\lib\net45\NLog.dll + - + - + + @@ -79,7 +96,6 @@ - @@ -96,17 +112,24 @@ + + DocumentViewer.vb + + + UserControl + + + frmViewerSettings.vb + + + Form + + True Application.myapp + True - - UserControl - - - ChatNewConv.vb - - True True @@ -119,8 +142,11 @@ - - ChatNewConv.vb + + DocumentViewer.vb + + + frmViewerSettings.vb @@ -131,7 +157,6 @@ - MyApplicationCodeGenerator Application.Designer.vb @@ -141,32 +166,30 @@ My Settings.Designer.vb + - - - - - {eaf0ea75-5fa7-485d-89c7-b2d843b03a96} - Database - - {903b2d7d-3b80-4be9-8713-7447b704e1b0} + {903B2D7D-3B80-4BE9-8713-7447B704E1B0} Logging + + {af664d85-0a4b-4bab-a2f8-83110c06553a} + Messaging + - + - + - + - + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/MailLicense.xml b/Controls.DocumentViewer_old/MailLicense.xml new file mode 100644 index 00000000..05105264 --- /dev/null +++ b/Controls.DocumentViewer_old/MailLicense.xml @@ -0,0 +1,23 @@ + + + 4dc5ef40-f1a9-468b-994c-b7ed600ad878 + Mail.dll + 2022-07-29 + Digital Data GmbH + single developer + Digital Data GmbH + + + + + + + + + + 75MRtl4ipYelIZYlpT8O7QDX9Zc= + + + Raxfkz6DfQVs/sMvH+F2nH0eHXD8FoUFSdP3t7AgBUdpABJQx86srlyuMSEhXPlc1THCqPouEVob4RsWnd9OXvTiPPSOUSK9zuNG6uz93KLAhpSD5PraAgBCF4jwZArlAp7aCNfZpHqQ3w6TRHS+CfravUU0AHHG3MZ1ZcRkGuo= + + \ No newline at end of file diff --git a/Controls.ChatAddUser/My Project/Application.Designer.vb b/Controls.DocumentViewer_old/My Project/Application.Designer.vb similarity index 100% rename from Controls.ChatAddUser/My Project/Application.Designer.vb rename to Controls.DocumentViewer_old/My Project/Application.Designer.vb diff --git a/Controls.ChatAddUser/My Project/Application.myapp b/Controls.DocumentViewer_old/My Project/Application.myapp similarity index 80% rename from Controls.ChatAddUser/My Project/Application.myapp rename to Controls.DocumentViewer_old/My Project/Application.myapp index 758895de..7373f02e 100644 --- a/Controls.ChatAddUser/My Project/Application.myapp +++ b/Controls.DocumentViewer_old/My Project/Application.myapp @@ -1,10 +1,10 @@  - false + true + frmTest false 0 true 0 - 1 true - + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/My Project/AssemblyInfo.vb b/Controls.DocumentViewer_old/My Project/AssemblyInfo.vb new file mode 100644 index 00000000..3d6979a4 --- /dev/null +++ b/Controls.DocumentViewer_old/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Allgemeine Informationen über eine Assembly werden über die folgenden +' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, +' die einer Assembly zugeordnet sind. + +' Werte der Assemblyattribute überprüfen + + + + + + + + + + +'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird. + + +' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: +' +' Hauptversion +' Nebenversion +' Buildnummer +' Revision +' +' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden, +' übernehmen, indem Sie "*" eingeben: +' + + + diff --git a/Controls.DocumentViewer_old/My Project/Resources.Designer.vb b/Controls.DocumentViewer_old/My Project/Resources.Designer.vb new file mode 100644 index 00000000..2927fe4d --- /dev/null +++ b/Controls.DocumentViewer_old/My Project/Resources.Designer.vb @@ -0,0 +1,223 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DigitalData.Controls.DocumentViewer.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property _next() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("next", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property doublefirst() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("doublefirst", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property doublelast() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("doublelast", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property fittopage() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("fittopage", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property fittowidth() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("fittowidth", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property flipimage_horizontal() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("flipimage_horizontal", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property flipimage_vertical() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("flipimage_vertical", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property floatingobjectoutlinecolor() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("floatingobjectoutlinecolor", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property prev() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("prev", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property rotateclockwise() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("rotateclockwise", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property rotatecounterclockwise() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("rotatecounterclockwise", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property tooltips() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("tooltips", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property tooltips1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("tooltips1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property viewsettings() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("viewsettings", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property ZooFlow_10() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("ZooFlow-10", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property zoomin() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("zoomin", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + End Module +End Namespace diff --git a/Controls.ChatControl/My Project/Resources.resx b/Controls.DocumentViewer_old/My Project/Resources.resx similarity index 59% rename from Controls.ChatControl/My Project/Resources.resx rename to Controls.DocumentViewer_old/My Project/Resources.resx index 5bfe3c6f..bc91f3a0 100644 --- a/Controls.ChatControl/My Project/Resources.resx +++ b/Controls.DocumentViewer_old/My Project/Resources.resx @@ -118,25 +118,52 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ..\Resources\Action_Workflow_Deactivate.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\doublelast.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\crop.php.jpeg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\tooltips1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\Send_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\doublefirst.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\Action_Workflow_Activate.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\flipimage_vertical.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\kisspng-computer-icons-hamburger-button-menu-new-menu-5b34724c3cb0f7.1188475115301637882486.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\rotatecounterclockwise.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\tooltips.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\fittopage.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\fittowidth.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\floatingobjectoutlinecolor.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\next.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\flipimage_horizontal.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\zoomin.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\prev.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\ZooFlow-10.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\rotateclockwise.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\viewsettings.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/Controls.ChatNewConv/My Project/Resources.resx b/Controls.DocumentViewer_old/My Project/Resources.resx.bak similarity index 86% rename from Controls.ChatNewConv/My Project/Resources.resx rename to Controls.DocumentViewer_old/My Project/Resources.resx.bak index c8bf3f12..64ac3874 100644 --- a/Controls.ChatNewConv/My Project/Resources.resx +++ b/Controls.DocumentViewer_old/My Project/Resources.resx.bak @@ -118,16 +118,16 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ..\Resources\crop.php.jpeg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\tooltips.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\Send_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ZooFlow-10.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\Action_Workflow_Activate.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\floatingobjectoutlinecolor.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\Action_Workflow_Deactivate.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\tooltips1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/Controls.ChatControl/My Project/Settings.Designer.vb b/Controls.DocumentViewer_old/My Project/Settings.Designer.vb similarity index 81% rename from Controls.ChatControl/My Project/Settings.Designer.vb rename to Controls.DocumentViewer_old/My Project/Settings.Designer.vb index 994ad963..7b984b5f 100644 --- a/Controls.ChatControl/My Project/Settings.Designer.vb +++ b/Controls.DocumentViewer_old/My Project/Settings.Designer.vb @@ -13,17 +13,17 @@ Option Explicit On Namespace My - - + + _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()), MySettings) - + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + #Region "Automatische My.Settings-Speicherfunktion" -#If _MYTYPE = "WindowsForms" Then +#If _MyType = "WindowsForms" Then Private Shared addedHandler As Boolean Private Shared addedHandlerLockObject As New Object @@ -36,11 +36,11 @@ Namespace My End Sub #End If #End Region - + Public Shared ReadOnly Property [Default]() As MySettings Get - -#If _MYTYPE = "WindowsForms" Then + +#If _MyType = "WindowsForms" Then If Not addedHandler Then SyncLock addedHandlerLockObject If Not addedHandler Then @@ -57,16 +57,16 @@ Namespace My End Namespace Namespace My - - + + _ Friend Module MySettingsProperty - - - Friend ReadOnly Property Settings() As Global.DigitalData.Controls.ChatControl.My.MySettings + + _ + Friend ReadOnly Property Settings() As Global.DigitalData.Controls.DocumentViewer.My.MySettings Get - Return Global.DigitalData.Controls.ChatControl.My.MySettings.Default + Return Global.DigitalData.Controls.DocumentViewer.My.MySettings.Default End Get End Property End Module diff --git a/Controls.ChatAddUser/My Project/Settings.settings b/Controls.DocumentViewer_old/My Project/Settings.settings similarity index 100% rename from Controls.ChatAddUser/My Project/Settings.settings rename to Controls.DocumentViewer_old/My Project/Settings.settings diff --git a/Controls.DocumentViewer_old/My Project/licenses.licx b/Controls.DocumentViewer_old/My Project/licenses.licx new file mode 100644 index 00000000..73f111c0 --- /dev/null +++ b/Controls.DocumentViewer_old/My Project/licenses.licx @@ -0,0 +1,5 @@ +DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraRichEdit.RichEditControl, DevExpress.XtraRichEdit.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraSpreadsheet.SpreadsheetControl, DevExpress.XtraSpreadsheet.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Controls.DocumentViewer_old/My Project/licenses.licx.bak b/Controls.DocumentViewer_old/My Project/licenses.licx.bak new file mode 100644 index 00000000..4ce8af85 --- /dev/null +++ b/Controls.DocumentViewer_old/My Project/licenses.licx.bak @@ -0,0 +1,5 @@ +DevExpress.XtraSpreadsheet.SpreadsheetControl, DevExpress.XtraSpreadsheet.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraRichEdit.RichEditControl, DevExpress.XtraRichEdit.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Controls.DocumentViewer_old/README.txt b/Controls.DocumentViewer_old/README.txt new file mode 100644 index 00000000..58cbced4 --- /dev/null +++ b/Controls.DocumentViewer_old/README.txt @@ -0,0 +1,5 @@ +BASE MODULE +=========== + +This module is intended for often used constants and datastructures. +Therefor it is important that this module does not have any dependencies on other modules!! \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/ZooFlow-10.svg b/Controls.DocumentViewer_old/Resources/ZooFlow-10.svg new file mode 100644 index 00000000..0cdbf1a1 --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/ZooFlow-10.svg @@ -0,0 +1 @@ + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/doublefirst.svg b/Controls.DocumentViewer_old/Resources/doublefirst.svg new file mode 100644 index 00000000..3c189725 --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/doublefirst.svg @@ -0,0 +1,9 @@ + + + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/doublelast.svg b/Controls.DocumentViewer_old/Resources/doublelast.svg new file mode 100644 index 00000000..6ed1db63 --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/doublelast.svg @@ -0,0 +1,9 @@ + + + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/fittopage.svg b/Controls.DocumentViewer_old/Resources/fittopage.svg new file mode 100644 index 00000000..bea60725 --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/fittopage.svg @@ -0,0 +1,17 @@ + + + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/fittowidth.svg b/Controls.DocumentViewer_old/Resources/fittowidth.svg new file mode 100644 index 00000000..44770ee7 --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/fittowidth.svg @@ -0,0 +1,21 @@ + + + + + + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/flipimage_horizontal.svg b/Controls.DocumentViewer_old/Resources/flipimage_horizontal.svg new file mode 100644 index 00000000..f4f2a41f --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/flipimage_horizontal.svg @@ -0,0 +1,20 @@ + + + + + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/flipimage_vertical.svg b/Controls.DocumentViewer_old/Resources/flipimage_vertical.svg new file mode 100644 index 00000000..536c131e --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/flipimage_vertical.svg @@ -0,0 +1,20 @@ + + + + + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/floatingobjectoutlinecolor.svg b/Controls.DocumentViewer_old/Resources/floatingobjectoutlinecolor.svg new file mode 100644 index 00000000..5af7cef5 --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/floatingobjectoutlinecolor.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/next.svg b/Controls.DocumentViewer_old/Resources/next.svg new file mode 100644 index 00000000..e87edcfa --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/next.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/prev.svg b/Controls.DocumentViewer_old/Resources/prev.svg new file mode 100644 index 00000000..0eae3489 --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/prev.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/rotateclockwise.svg b/Controls.DocumentViewer_old/Resources/rotateclockwise.svg new file mode 100644 index 00000000..d3f0be0a --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/rotateclockwise.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/rotatecounterclockwise.svg b/Controls.DocumentViewer_old/Resources/rotatecounterclockwise.svg new file mode 100644 index 00000000..8b8e24b1 --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/rotatecounterclockwise.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/tooltips.svg b/Controls.DocumentViewer_old/Resources/tooltips.svg new file mode 100644 index 00000000..0a0fd012 --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/tooltips.svg @@ -0,0 +1,16 @@ + + + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/tooltips1.svg b/Controls.DocumentViewer_old/Resources/tooltips1.svg new file mode 100644 index 00000000..0a0fd012 --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/tooltips1.svg @@ -0,0 +1,16 @@ + + + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/viewsettings.svg b/Controls.DocumentViewer_old/Resources/viewsettings.svg new file mode 100644 index 00000000..d7243dcb --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/viewsettings.svg @@ -0,0 +1,17 @@ + + + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/Resources/zoomin.svg b/Controls.DocumentViewer_old/Resources/zoomin.svg new file mode 100644 index 00000000..1bf31d16 --- /dev/null +++ b/Controls.DocumentViewer_old/Resources/zoomin.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/Controls.DocumentViewer_old/frmViewerSettings.Designer.vb b/Controls.DocumentViewer_old/frmViewerSettings.Designer.vb new file mode 100644 index 00000000..37e0efc6 --- /dev/null +++ b/Controls.DocumentViewer_old/frmViewerSettings.Designer.vb @@ -0,0 +1,451 @@ + _ +Partial Class frmViewerSettings + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + 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.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.chkEnableICM = New System.Windows.Forms.CheckBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.chkHQAnnotationsRendering = New System.Windows.Forms.CheckBox() + Me.chkAnnotationsDropShadow = New System.Windows.Forms.CheckBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.chkEnableDeferredPainting = New System.Windows.Forms.CheckBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.cbPageDisplayMode = New System.Windows.Forms.ComboBox() + 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.GroupBox4.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.GroupBox1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtZoomStep, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'GroupBox4 + ' + 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(309, 101) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(291, 184) + Me.GroupBox4.TabIndex = 103 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "PDF viewing options" + ' + 'chkPDFVerifyDigitalCertificates + ' + Me.chkPDFVerifyDigitalCertificates.AutoSize = True + Me.chkPDFVerifyDigitalCertificates.CheckAlign = System.Drawing.ContentAlignment.MiddleRight + Me.chkPDFVerifyDigitalCertificates.Location = New System.Drawing.Point(6, 119) + Me.chkPDFVerifyDigitalCertificates.Name = "chkPDFVerifyDigitalCertificates" + Me.chkPDFVerifyDigitalCertificates.Size = New System.Drawing.Size(136, 17) + 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(6, 96) + Me.chkPDFIncreaseTextContrast.Name = "chkPDFIncreaseTextContrast" + Me.chkPDFIncreaseTextContrast.Size = New System.Drawing.Size(128, 17) + 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(6, 73) + Me.chkPDFEnableLinks.Name = "chkPDFEnableLinks" + Me.chkPDFEnableLinks.Size = New System.Drawing.Size(83, 17) + 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(6, 50) + Me.chkPDFEnableFileLinks.Name = "chkPDFEnableFileLinks" + Me.chkPDFEnableFileLinks.Size = New System.Drawing.Size(99, 17) + 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(6, 27) + Me.chkPDFDisplayFormFields.Name = "chkPDFDisplayFormFields" + Me.chkPDFDisplayFormFields.Size = New System.Drawing.Size(110, 17) + Me.chkPDFDisplayFormFields.TabIndex = 15 + Me.chkPDFDisplayFormFields.Text = "Display form fields" + Me.chkPDFDisplayFormFields.UseVisualStyleBackColor = True + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.chkEnableICM) + Me.GroupBox3.Location = New System.Drawing.Point(12, 314) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(291, 46) + Me.GroupBox3.TabIndex = 101 + 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(6, 19) + Me.chkEnableICM.Name = "chkEnableICM" + Me.chkEnableICM.Size = New System.Drawing.Size(81, 17) + Me.chkEnableICM.TabIndex = 12 + Me.chkEnableICM.Text = "Enable ICM" + Me.chkEnableICM.UseVisualStyleBackColor = True + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.chkHQAnnotationsRendering) + Me.GroupBox2.Controls.Add(Me.chkAnnotationsDropShadow) + Me.GroupBox2.Location = New System.Drawing.Point(309, 12) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(291, 83) + Me.GroupBox2.TabIndex = 102 + 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(6, 42) + Me.chkHQAnnotationsRendering.Name = "chkHQAnnotationsRendering" + Me.chkHQAnnotationsRendering.Size = New System.Drawing.Size(147, 17) + 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(6, 19) + Me.chkAnnotationsDropShadow.Name = "chkAnnotationsDropShadow" + Me.chkAnnotationsDropShadow.Size = New System.Drawing.Size(146, 17) + Me.chkAnnotationsDropShadow.TabIndex = 13 + Me.chkAnnotationsDropShadow.Text = "Annotations drop shadow" + Me.chkAnnotationsDropShadow.UseVisualStyleBackColor = True + ' + '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(12, 12) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(291, 296) + Me.GroupBox1.TabIndex = 100 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "General options" + ' + 'chkEnableDeferredPainting + ' + Me.chkEnableDeferredPainting.AutoSize = True + Me.chkEnableDeferredPainting.CheckAlign = System.Drawing.ContentAlignment.MiddleRight + Me.chkEnableDeferredPainting.Location = New System.Drawing.Point(6, 270) + Me.chkEnableDeferredPainting.Name = "chkEnableDeferredPainting" + Me.chkEnableDeferredPainting.Size = New System.Drawing.Size(141, 17) + Me.chkEnableDeferredPainting.TabIndex = 17 + Me.chkEnableDeferredPainting.Text = "Enable deferred painting" + Me.chkEnableDeferredPainting.UseVisualStyleBackColor = True + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(6, 95) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(70, 13) + Me.Label8.TabIndex = 16 + Me.Label8.Text = "Display mode" + ' + 'cbPageDisplayMode + ' + Me.cbPageDisplayMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbPageDisplayMode.FormattingEnabled = True + Me.cbPageDisplayMode.Location = New System.Drawing.Point(116, 93) + Me.cbPageDisplayMode.Name = "cbPageDisplayMode" + Me.cbPageDisplayMode.Size = New System.Drawing.Size(130, 21) + Me.cbPageDisplayMode.TabIndex = 4 + ' + 'chkIgnoreDocumentResolution + ' + Me.chkIgnoreDocumentResolution.AutoSize = True + Me.chkIgnoreDocumentResolution.CheckAlign = System.Drawing.ContentAlignment.MiddleRight + Me.chkIgnoreDocumentResolution.Location = New System.Drawing.Point(6, 248) + Me.chkIgnoreDocumentResolution.Name = "chkIgnoreDocumentResolution" + Me.chkIgnoreDocumentResolution.Size = New System.Drawing.Size(154, 17) + 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(116, 198) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(21, 21) + Me.PictureBox1.TabIndex = 3 + Me.PictureBox1.TabStop = False + ' + 'txtZoomStep + ' + Me.txtZoomStep.Location = New System.Drawing.Point(69, 18) + 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(79, 20) + 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(116, 171) + Me.cbMouseWheelMode.Name = "cbMouseWheelMode" + Me.cbMouseWheelMode.Size = New System.Drawing.Size(107, 21) + Me.cbMouseWheelMode.TabIndex = 7 + ' + 'cbDocumentPosition + ' + Me.cbDocumentPosition.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbDocumentPosition.FormattingEnabled = True + Me.cbDocumentPosition.Location = New System.Drawing.Point(116, 145) + Me.cbDocumentPosition.Name = "cbDocumentPosition" + Me.cbDocumentPosition.Size = New System.Drawing.Size(107, 21) + Me.cbDocumentPosition.TabIndex = 6 + ' + 'cbDocumentAlignment + ' + Me.cbDocumentAlignment.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbDocumentAlignment.FormattingEnabled = True + Me.cbDocumentAlignment.Location = New System.Drawing.Point(116, 119) + Me.cbDocumentAlignment.Name = "cbDocumentAlignment" + Me.cbDocumentAlignment.Size = New System.Drawing.Size(107, 21) + Me.cbDocumentAlignment.TabIndex = 5 + ' + 'chkEnableMenu + ' + Me.chkEnableMenu.AutoSize = True + Me.chkEnableMenu.CheckAlign = System.Drawing.ContentAlignment.MiddleRight + Me.chkEnableMenu.Location = New System.Drawing.Point(6, 225) + Me.chkEnableMenu.Name = "chkEnableMenu" + Me.chkEnableMenu.Size = New System.Drawing.Size(140, 17) + 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(6, 202) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(91, 13) + Me.Label6.TabIndex = 9 + Me.Label6.Text = "Background color" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(7, 173) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(99, 13) + Me.Label5.TabIndex = 8 + Me.Label5.Text = "Mouse wheel mode" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(7, 147) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(95, 13) + Me.Label4.TabIndex = 7 + Me.Label4.Text = "Document position" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(7, 121) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(104, 13) + Me.Label3.TabIndex = 6 + Me.Label3.Text = "Document alignment" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(6, 69) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(74, 13) + 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(116, 67) + Me.cbDisplayQuality.Name = "cbDisplayQuality" + Me.cbDisplayQuality.Size = New System.Drawing.Size(107, 21) + Me.cbDisplayQuality.TabIndex = 3 + ' + 'chkContinuousViewMode + ' + Me.chkContinuousViewMode.AutoSize = True + Me.chkContinuousViewMode.CheckAlign = System.Drawing.ContentAlignment.MiddleRight + Me.chkContinuousViewMode.Location = New System.Drawing.Point(6, 42) + Me.chkContinuousViewMode.Name = "chkContinuousViewMode" + Me.chkContinuousViewMode.Size = New System.Drawing.Size(133, 17) + 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(6, 20) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(57, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Zoom step" + ' + 'btnApply + ' + Me.btnApply.Location = New System.Drawing.Point(529, 338) + Me.btnApply.Name = "btnApply" + Me.btnApply.Size = New System.Drawing.Size(75, 23) + Me.btnApply.TabIndex = 104 + Me.btnApply.Text = "Apply" + Me.btnApply.UseVisualStyleBackColor = True + ' + 'frmViewerSettings + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(625, 377) + 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.Name = "frmViewerSettings" + Me.Text = "frmViewerSettings" + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtZoomStep, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents GroupBox4 As GroupBox + Friend WithEvents chkPDFVerifyDigitalCertificates As CheckBox + Friend WithEvents chkPDFIncreaseTextContrast As CheckBox + Friend WithEvents chkPDFEnableLinks As CheckBox + Friend WithEvents chkPDFEnableFileLinks As CheckBox + Friend WithEvents chkPDFDisplayFormFields As CheckBox + Friend WithEvents GroupBox3 As GroupBox + Friend WithEvents chkEnableICM As CheckBox + Friend WithEvents GroupBox2 As GroupBox + Friend WithEvents chkHQAnnotationsRendering As CheckBox + Friend WithEvents chkAnnotationsDropShadow As CheckBox + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents chkEnableDeferredPainting As CheckBox + Friend WithEvents Label8 As Label + Friend WithEvents cbPageDisplayMode As ComboBox + Friend WithEvents chkIgnoreDocumentResolution As CheckBox + Friend WithEvents PictureBox1 As PictureBox + Friend WithEvents txtZoomStep As NumericUpDown + Friend WithEvents cbMouseWheelMode As ComboBox + Friend WithEvents cbDocumentPosition As ComboBox + Friend WithEvents cbDocumentAlignment As ComboBox + Friend WithEvents chkEnableMenu As CheckBox + Friend WithEvents Label6 As Label + Friend WithEvents Label5 As Label + Friend WithEvents Label4 As Label + Friend WithEvents Label3 As Label + Friend WithEvents Label2 As Label + Friend WithEvents cbDisplayQuality As ComboBox + Friend WithEvents chkContinuousViewMode As CheckBox + Friend WithEvents Label1 As Label + Friend WithEvents btnApply As Button +End Class diff --git a/Controls.ChatAddUser/My Project/Resources.resx b/Controls.DocumentViewer_old/frmViewerSettings.resx similarity index 82% rename from Controls.ChatAddUser/My Project/Resources.resx rename to Controls.DocumentViewer_old/frmViewerSettings.resx index c8bf3f12..1af7de15 100644 --- a/Controls.ChatAddUser/My Project/Resources.resx +++ b/Controls.DocumentViewer_old/frmViewerSettings.resx @@ -117,17 +117,4 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\Resources\crop.php.jpeg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Send_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Action_Workflow_Activate.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Action_Workflow_Deactivate.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - \ No newline at end of file diff --git a/Controls.DocumentViewer_old/frmViewerSettings.vb b/Controls.DocumentViewer_old/frmViewerSettings.vb new file mode 100644 index 00000000..a7232461 --- /dev/null +++ b/Controls.DocumentViewer_old/frmViewerSettings.vb @@ -0,0 +1,100 @@ +Option Strict On +Option Explicit On + +Imports GdPicture14 + +Public Class frmViewerSettings + + 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 _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 _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 + chkPDFVerifyDigitalCertificates.Checked = _owner.PdfVerifyDigitalCertificates + End Sub + + Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click + + End Sub + +End Class \ No newline at end of file diff --git a/Controls.DocumentViewer_old/packages.config b/Controls.DocumentViewer_old/packages.config new file mode 100644 index 00000000..18dc42d5 --- /dev/null +++ b/Controls.DocumentViewer_old/packages.config @@ -0,0 +1,32 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/DDMonorepo.sln b/DDMonorepo.sln index 084a7c6d..b69c8d62 100644 --- a/DDMonorepo.sln +++ b/DDMonorepo.sln @@ -58,12 +58,6 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "GUIs.Test.EDMIBenchmark", " EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ChatClient", "ChatClient\ChatClient.vbproj", "{9713484C-6EE3-4D7E-B6E6-F32CF6B6BB6C}" EndProject -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ChatControl", "Controls.ChatControl\ChatControl.vbproj", "{1F278760-4F6B-42E8-B82D-01D4C8618340}" -EndProject -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ChatNewConv", "Controls.ChatNewConv\ChatNewConv.vbproj", "{86D27FFA-480F-481D-8D23-26DEAE92FE6C}" -EndProject -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ChatAddUser", "Controls.ChatAddUser\ChatAddUser.vbproj", "{F0A807CC-BE14-4B5B-9200-27C16156BD8A}" -EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SnapPanel", "Controls.SnapPanel\SnapPanel.vbproj", "{3E19C413-3197-4635-944E-558FC04C3475}" EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "GlobalIndexer", "GUIs.GlobalIndexer\GlobalIndexer.vbproj", "{40384B94-1F94-4249-9A5A-D02E0B346738}" @@ -150,18 +144,6 @@ Global {9713484C-6EE3-4D7E-B6E6-F32CF6B6BB6C}.Debug|Any CPU.Build.0 = Debug|Any CPU {9713484C-6EE3-4D7E-B6E6-F32CF6B6BB6C}.Release|Any CPU.ActiveCfg = Release|Any CPU {9713484C-6EE3-4D7E-B6E6-F32CF6B6BB6C}.Release|Any CPU.Build.0 = Release|Any CPU - {1F278760-4F6B-42E8-B82D-01D4C8618340}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {1F278760-4F6B-42E8-B82D-01D4C8618340}.Debug|Any CPU.Build.0 = Debug|Any CPU - {1F278760-4F6B-42E8-B82D-01D4C8618340}.Release|Any CPU.ActiveCfg = Release|Any CPU - {1F278760-4F6B-42E8-B82D-01D4C8618340}.Release|Any CPU.Build.0 = Release|Any CPU - {86D27FFA-480F-481D-8D23-26DEAE92FE6C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {86D27FFA-480F-481D-8D23-26DEAE92FE6C}.Debug|Any CPU.Build.0 = Debug|Any CPU - {86D27FFA-480F-481D-8D23-26DEAE92FE6C}.Release|Any CPU.ActiveCfg = Release|Any CPU - {86D27FFA-480F-481D-8D23-26DEAE92FE6C}.Release|Any CPU.Build.0 = Release|Any CPU - {F0A807CC-BE14-4B5B-9200-27C16156BD8A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {F0A807CC-BE14-4B5B-9200-27C16156BD8A}.Debug|Any CPU.Build.0 = Debug|Any CPU - {F0A807CC-BE14-4B5B-9200-27C16156BD8A}.Release|Any CPU.ActiveCfg = Release|Any CPU - {F0A807CC-BE14-4B5B-9200-27C16156BD8A}.Release|Any CPU.Build.0 = Release|Any CPU {3E19C413-3197-4635-944E-558FC04C3475}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {3E19C413-3197-4635-944E-558FC04C3475}.Debug|Any CPU.Build.0 = Debug|Any CPU {3E19C413-3197-4635-944E-558FC04C3475}.Release|Any CPU.ActiveCfg = Release|Any CPU @@ -208,9 +190,6 @@ Global {CBE9322E-67A1-4CC5-B25F-4A1B4C9FC55C} = {7AF3F9C2-C939-4A08-95C1-0453207E298A} {5FDEC007-7AE0-4829-B1AE-6165E29375DA} = {CC368D6A-6AC4-4EB9-A092-14700FABEF7A} {9713484C-6EE3-4D7E-B6E6-F32CF6B6BB6C} = {CC368D6A-6AC4-4EB9-A092-14700FABEF7A} - {1F278760-4F6B-42E8-B82D-01D4C8618340} = {F98C0329-C004-417F-B2AB-7466E88D8220} - {86D27FFA-480F-481D-8D23-26DEAE92FE6C} = {F98C0329-C004-417F-B2AB-7466E88D8220} - {F0A807CC-BE14-4B5B-9200-27C16156BD8A} = {F98C0329-C004-417F-B2AB-7466E88D8220} {3E19C413-3197-4635-944E-558FC04C3475} = {F98C0329-C004-417F-B2AB-7466E88D8220} {40384B94-1F94-4249-9A5A-D02E0B346738} = {8FFE925E-8B84-45F1-93CB-32B1C96F41EB} {9D4AC920-C78E-41C3-994E-91690FF79380} = {8FFE925E-8B84-45F1-93CB-32B1C96F41EB} diff --git a/GUIs.Common/Common.vbproj b/GUIs.Common/Common.vbproj index eb752d43..6cf2db3a 100644 --- a/GUIs.Common/Common.vbproj +++ b/GUIs.Common/Common.vbproj @@ -70,7 +70,8 @@ False - + + False ..\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll @@ -402,12 +403,6 @@ True Application.myapp - - NNfrmNotification_Startup.vb - - - Form - frmNotification_Startup.vb @@ -501,15 +496,6 @@ frmLanguage_Select.vb - - NNfrmNotification_Startup.vb - - - NNfrmNotification_Startup.vb - - - NNfrmNotification_Startup.vb - frmNotification_Startup.vb diff --git a/GUIs.Common/DocumentResultList/frmDocumentResultList.Designer.vb b/GUIs.Common/DocumentResultList/frmDocumentResultList.Designer.vb index 6410bcdd..101cc2ae 100644 --- a/GUIs.Common/DocumentResultList/frmDocumentResultList.Designer.vb +++ b/GUIs.Common/DocumentResultList/frmDocumentResultList.Designer.vb @@ -885,7 +885,7 @@ Partial Class frmDocumentResultList Me.LayoutControlItem1.Name = "LayoutControlItem1" Me.LayoutControlItem1.Size = New System.Drawing.Size(224, 24) resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1") - Me.LayoutControlItem1.TextSize = New System.Drawing.Size(126, 13) + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(124, 13) ' 'LayoutControlItem2 ' @@ -894,7 +894,7 @@ Partial Class frmDocumentResultList Me.LayoutControlItem2.Name = "LayoutControlItem2" Me.LayoutControlItem2.Size = New System.Drawing.Size(224, 24) resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2") - Me.LayoutControlItem2.TextSize = New System.Drawing.Size(126, 13) + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(124, 13) ' 'EmptySpaceItem1 ' diff --git a/GUIs.Common/DocumentResultList/frmDocumentResultList.resx b/GUIs.Common/DocumentResultList/frmDocumentResultList.resx index 09670053..57f77673 100644 --- a/GUIs.Common/DocumentResultList/frmDocumentResultList.resx +++ b/GUIs.Common/DocumentResultList/frmDocumentResultList.resx @@ -521,7 +521,7 @@ DocumentViewer1 - DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=2.7.2.0, Culture=neutral, PublicKeyToken=null + DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=2.7.3.0, Culture=neutral, PublicKeyToken=null DockPanel1_Container @@ -587,7 +587,7 @@ CtrlObjectPropertyDialog - DigitalData.GUIs.Common.ctrlObjectPropertyDialog, DigitalData.GUIs.Common, Version=2.7.2.0, Culture=neutral, PublicKeyToken=null + DigitalData.GUIs.Common.ctrlObjectPropertyDialog, DigitalData.GUIs.Common, Version=2.8.0.0, Culture=neutral, PublicKeyToken=null DockPanel3_Container @@ -638,10 +638,10 @@ 0 - 162, 45 + 160, 45 - 82, 20 + 84, 20 4 @@ -662,7 +662,7 @@ - 162, 69 + 160, 69 Combo @@ -671,7 +671,7 @@ Combo - 82, 20 + 84, 20 5 diff --git a/GUIs.Common/My Project/AssemblyInfo.vb b/GUIs.Common/My Project/AssemblyInfo.vb index 425352f9..b122dce5 100644 --- a/GUIs.Common/My Project/AssemblyInfo.vb +++ b/GUIs.Common/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/GUIs.Common/NNfrmNotification_Startup.Designer.vb b/GUIs.Common/NNfrmNotification_Startup.Designer.vb deleted file mode 100644 index 3121d9a5..00000000 --- a/GUIs.Common/NNfrmNotification_Startup.Designer.vb +++ /dev/null @@ -1,156 +0,0 @@ - -Partial Class NNfrmNotification_Startup - Inherits DevExpress.XtraBars.Ribbon.RibbonForm - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - - 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. - - Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(NNfrmNotification_Startup)) - Me.ListBoxControl1 = New DevExpress.XtraEditors.ListBoxControl() - Me.RichEditControl1 = New DevExpress.XtraRichEdit.RichEditControl() - Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() - Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() - Me.bbtnitmMarkRead = New DevExpress.XtraBars.BarButtonItem() - Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() - Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() - Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'ListBoxControl1 - ' - resources.ApplyResources(Me.ListBoxControl1, "ListBoxControl1") - Me.ListBoxControl1.Name = "ListBoxControl1" - ' - 'RichEditControl1 - ' - resources.ApplyResources(Me.RichEditControl1, "RichEditControl1") - Me.RichEditControl1.MenuManager = Me.RibbonControl1 - Me.RichEditControl1.Name = "RichEditControl1" - Me.RichEditControl1.Options.HorizontalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden - Me.RichEditControl1.Options.VerticalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden - ' - 'RibbonControl1 - ' - Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green - Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.bbtnitmMarkRead, Me.BarStaticItem1}) - resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 5 - Me.RibbonControl1.Name = "RibbonControl1" - Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) - Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] - Me.RibbonControl1.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False] - Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 - ' - 'BarButtonItem1 - ' - resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1") - Me.BarButtonItem1.Id = 1 - Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.BarButtonItem1.Name = "BarButtonItem1" - ' - 'bbtnitmMarkRead - ' - resources.ApplyResources(Me.bbtnitmMarkRead, "bbtnitmMarkRead") - Me.bbtnitmMarkRead.Id = 3 - Me.bbtnitmMarkRead.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmMarkRead.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.bbtnitmMarkRead.Name = "bbtnitmMarkRead" - Me.bbtnitmMarkRead.Visibility = DevExpress.XtraBars.BarItemVisibility.Never - ' - 'BarStaticItem1 - ' - Me.BarStaticItem1.Id = 4 - Me.BarStaticItem1.Name = "BarStaticItem1" - ' - 'RibbonPage1 - ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) - Me.RibbonPage1.Name = "RibbonPage1" - resources.ApplyResources(Me.RibbonPage1, "RibbonPage1") - ' - 'RibbonPageGroup1 - ' - Me.RibbonPageGroup1.AllowTextClipping = False - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) - Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmMarkRead) - Me.RibbonPageGroup1.Name = "RibbonPageGroup1" - resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1") - ' - 'RibbonStatusBar1 - ' - Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem1) - resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1") - Me.RibbonStatusBar1.Name = "RibbonStatusBar1" - Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - ' - 'RibbonPage2 - ' - Me.RibbonPage2.Name = "RibbonPage2" - resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") - ' - 'frmNotification_Startup - ' - resources.ApplyResources(Me, "$this") - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.IconOptions.SvgImage = CType(resources.GetObject("frmNotification_Startup.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.Name = "frmNotification_Startup" - Me.Ribbon = Me.RibbonControl1 - Me.StatusBar = Me.RibbonStatusBar1 - Me.TopMost = True - CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - - End Sub - - Friend WithEvents ListBoxControl1 As DevExpress.XtraEditors.ListBoxControl - Friend WithEvents RichEditControl1 As DevExpress.XtraRichEdit.RichEditControl - Friend WithEvents DocumentViewer1 As Controls.DocumentViewer.DocumentViewer - Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl - Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar - Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents bbtnitmMarkRead As DevExpress.XtraBars.BarButtonItem - Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem - - ''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. - ' - 'Private Sub InitializeComponent() - ' Me.SuspendLayout() - ' ' - ' 'frmNotification_Startup2 - ' ' - ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - ' Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - ' Me.ClientSize = New System.Drawing.Size(1046, 634) - ' Me.Name = "frmNotification_Startup" - ' Me.Text = "frmNotification_Startup" - ' Me.ResumeLayout(False) - - 'End Sub -End Class diff --git a/GUIs.Common/NNfrmNotification_Startup.en-US.resx b/GUIs.Common/NNfrmNotification_Startup.en-US.resx deleted file mode 100644 index cf5e3a47..00000000 --- a/GUIs.Common/NNfrmNotification_Startup.en-US.resx +++ /dev/null @@ -1,199 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Close messages - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAM0DAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ - LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD - MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh - Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw - MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu - bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQ2xvc2UiPg0KICAgIDxwYXRoIGQ9 - Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs - MnogTTIzLjcsMjEuN2MwLjQsMC40LDAuNCwxLDAsMS40bC0wLjYsMC42ICAgYy0wLjQsMC40LTEsMC40 - LTEuNCwwTDE2LDE4bC01LjcsNS43Yy0wLjQsMC40LTEsMC40LTEuNCwwbC0wLjYtMC42Yy0wLjQtMC40 - LTAuNC0xLDAtMS40TDE0LDE2bC01LjctNS43Yy0wLjQtMC40LTAuNC0xLDAtMS40ICAgbDAuNi0wLjZj - MC40LTAuNCwxLTAuNCwxLjQsMEwxNiwxNGw1LjctNS43YzAuNC0wLjQsMS0wLjQsMS40LDBsMC42LDAu - NmMwLjQsMC40LDAuNCwxLDAsMS40TDE4LDE2TDIzLjcsMjEuN3oiIGNsYXNzPSJSZWQiIC8+DQogIDwv - Zz4NCjwvc3ZnPgs= - - - - Mark as read - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKMCAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku - WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz - OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh - Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl - Pg0KICA8ZyBpZD0iQ2hlY2tCb3giPg0KICAgIDxwYXRoIGQ9Ik0yNyw0SDVDNC41LDQsNCw0LjUsNCw1 - djIyYzAsMC41LDAuNSwxLDEsMWgyMmMwLjUsMCwxLTAuNSwxLTFWNUMyOCw0LjUsMjcuNSw0LDI3LDR6 - IE0xNCwyMmwtNi02bDItMmw0LDQgICBsOC04bDIsMkwxNCwyMnoiIGNsYXNzPSJHcmVlbiIgLz4NCiAg - PC9nPg0KPC9zdmc+Cw== - - - - functions - - - Home - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAkDAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iQ29tcGF0aWJpbGl0eSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5l - dyAwIDAgMzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIx - MTU7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0K - ICA8cGF0aCBkPSJNMTYuNCwxMS40YzAuNi0wLjksMS41LTEuNCwyLjYtMS40czIuMSwwLjUsMi42LDEu - NEwyMiwxMlY0SDNDMi40LDQsMiwzLjYsMiwzYzAtMC42LDAuNC0xLDEtMWgxOVYxICBjMC0wLjYtMC40 - LTEtMS0xSDNDMS4zLDAsMCwxLjMsMCwzdjIwYzAsMS43LDEuMywzLDMsM2g0LjRMMTYuNCwxMS40eiIg - Y2xhc3M9IkJsdWUiIC8+DQogIDxwYXRoIGQ9Ik0xOC4xLDEyLjVMOC4xLDI4LjZDNy43LDI5LjIsOC4z - LDMwLDkuMSwzMGgxOS45YzAuOCwwLDEuMy0wLjgsMC45LTEuNGwtOS45LTE2LjEgIEMxOS41LDExLjgs - MTguNSwxMS44LDE4LjEsMTIuNXoiIGNsYXNzPSJZZWxsb3ciIC8+DQogIDxwYXRoIGQ9Ik0yMCwyNGgt - MnYtOGgyVjI0eiBNMjAsMjZoLTJ2MmgyVjI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KPC9zdmc+Cw== - - - - Messages - - \ No newline at end of file diff --git a/GUIs.Common/NNfrmNotification_Startup.fr-FR.resx b/GUIs.Common/NNfrmNotification_Startup.fr-FR.resx deleted file mode 100644 index be86f6cd..00000000 --- a/GUIs.Common/NNfrmNotification_Startup.fr-FR.resx +++ /dev/null @@ -1,196 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Fermer les messages - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAM0DAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ - LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD - MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh - Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw - MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu - bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQ2xvc2UiPg0KICAgIDxwYXRoIGQ9 - Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs - MnogTTIzLjcsMjEuN2MwLjQsMC40LDAuNCwxLDAsMS40bC0wLjYsMC42ICAgYy0wLjQsMC40LTEsMC40 - LTEuNCwwTDE2LDE4bC01LjcsNS43Yy0wLjQsMC40LTEsMC40LTEuNCwwbC0wLjYtMC42Yy0wLjQtMC40 - LTAuNC0xLDAtMS40TDE0LDE2bC01LjctNS43Yy0wLjQtMC40LTAuNC0xLDAtMS40ICAgbDAuNi0wLjZj - MC40LTAuNCwxLTAuNCwxLjQsMEwxNiwxNGw1LjctNS43YzAuNC0wLjQsMS0wLjQsMS40LDBsMC42LDAu - NmMwLjQsMC40LDAuNCwxLDAsMS40TDE4LDE2TDIzLjcsMjEuN3oiIGNsYXNzPSJSZWQiIC8+DQogIDwv - Zz4NCjwvc3ZnPgs= - - - - Marquer comme lu - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKMCAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku - WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz - OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh - Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl - Pg0KICA8ZyBpZD0iQ2hlY2tCb3giPg0KICAgIDxwYXRoIGQ9Ik0yNyw0SDVDNC41LDQsNCw0LjUsNCw1 - djIyYzAsMC41LDAuNSwxLDEsMWgyMmMwLjUsMCwxLTAuNSwxLTFWNUMyOCw0LjUsMjcuNSw0LDI3LDR6 - IE0xNCwyMmwtNi02bDItMmw0LDQgICBsOC04bDIsMkwxNCwyMnoiIGNsYXNzPSJHcmVlbiIgLz4NCiAg - PC9nPg0KPC9zdmc+Cw== - - - - Début - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAkDAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iQ29tcGF0aWJpbGl0eSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5l - dyAwIDAgMzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIx - MTU7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0K - ICA8cGF0aCBkPSJNMTYuNCwxMS40YzAuNi0wLjksMS41LTEuNCwyLjYtMS40czIuMSwwLjUsMi42LDEu - NEwyMiwxMlY0SDNDMi40LDQsMiwzLjYsMiwzYzAtMC42LDAuNC0xLDEtMWgxOVYxICBjMC0wLjYtMC40 - LTEtMS0xSDNDMS4zLDAsMCwxLjMsMCwzdjIwYzAsMS43LDEuMywzLDMsM2g0LjRMMTYuNCwxMS40eiIg - Y2xhc3M9IkJsdWUiIC8+DQogIDxwYXRoIGQ9Ik0xOC4xLDEyLjVMOC4xLDI4LjZDNy43LDI5LjIsOC4z - LDMwLDkuMSwzMGgxOS45YzAuOCwwLDEuMy0wLjgsMC45LTEuNGwtOS45LTE2LjEgIEMxOS41LDExLjgs - MTguNSwxMS44LDE4LjEsMTIuNXoiIGNsYXNzPSJZZWxsb3ciIC8+DQogIDxwYXRoIGQ9Ik0yMCwyNGgt - MnYtOGgyVjI0eiBNMjAsMjZoLTJ2MmgyVjI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KPC9zdmc+Cw== - - - - Messages - - \ No newline at end of file diff --git a/GUIs.Common/NNfrmNotification_Startup.resx b/GUIs.Common/NNfrmNotification_Startup.resx deleted file mode 100644 index cdf3cf67..00000000 --- a/GUIs.Common/NNfrmNotification_Startup.resx +++ /dev/null @@ -1,319 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - Left - - - - 0, 158 - - - 248, 559 - - - - 0 - - - ListBoxControl1 - - - DevExpress.XtraEditors.ListBoxControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - 682, 211 - - - Hinweise schließen - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAM0DAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ - LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD - MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh - Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw - MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu - bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQ2xvc2UiPg0KICAgIDxwYXRoIGQ9 - Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs - MnogTTIzLjcsMjEuN2MwLjQsMC40LDAuNCwxLDAsMS40bC0wLjYsMC42ICAgYy0wLjQsMC40LTEsMC40 - LTEuNCwwTDE2LDE4bC01LjcsNS43Yy0wLjQsMC40LTEsMC40LTEuNCwwbC0wLjYtMC42Yy0wLjQtMC40 - LTAuNC0xLDAtMS40TDE0LDE2bC01LjctNS43Yy0wLjQtMC40LTAuNC0xLDAtMS40ICAgbDAuNi0wLjZj - MC40LTAuNCwxLTAuNCwxLjQsMEwxNiwxNGw1LjctNS43YzAuNC0wLjQsMS0wLjQsMS40LDBsMC42LDAu - NmMwLjQsMC40LDAuNCwxLDAsMS40TDE4LDE2TDIzLjcsMjEuN3oiIGNsYXNzPSJSZWQiIC8+DQogIDwv - Zz4NCjwvc3ZnPgs= - - - - Als gelesen markieren - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKMCAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku - WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz - OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh - Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl - Pg0KICA8ZyBpZD0iQ2hlY2tCb3giPg0KICAgIDxwYXRoIGQ9Ik0yNyw0SDVDNC41LDQsNCw0LjUsNCw1 - djIyYzAsMC41LDAuNSwxLDEsMWgyMmMwLjUsMCwxLTAuNSwxLTFWNUMyOCw0LjUsMjcuNSw0LDI3LDR6 - IE0xNCwyMmwtNi02bDItMmw0LDQgICBsOC04bDIsMkwxNCwyMnoiIGNsYXNzPSJHcmVlbiIgLz4NCiAg - PC9nPg0KPC9zdmc+Cw== - - - - 0, 0 - - - Funktionen - - - Start - - - 1134, 0 - - - 0, 717 - - - 1134, 20 - - - RibbonStatusBar1 - - - DevExpress.XtraBars.Ribbon.RibbonStatusBar, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - RibbonControl1 - - - DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - 269, 425 - - - 1 - - - False - - - RichEditControl1 - - - DevExpress.XtraRichEdit.RichEditControl, DevExpress.XtraRichEdit.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - RibbonPage2 - - - True - - - 6, 13 - - - 1308, 775 - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAkDAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iQ29tcGF0aWJpbGl0eSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5l - dyAwIDAgMzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIx - MTU7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0K - ICA8cGF0aCBkPSJNMTYuNCwxMS40YzAuNi0wLjksMS41LTEuNCwyLjYtMS40czIuMSwwLjUsMi42LDEu - NEwyMiwxMlY0SDNDMi40LDQsMiwzLjYsMiwzYzAtMC42LDAuNC0xLDEtMWgxOVYxICBjMC0wLjYtMC40 - LTEtMS0xSDNDMS4zLDAsMCwxLjMsMCwzdjIwYzAsMS43LDEuMywzLDMsM2g0LjRMMTYuNCwxMS40eiIg - Y2xhc3M9IkJsdWUiIC8+DQogIDxwYXRoIGQ9Ik0xOC4xLDEyLjVMOC4xLDI4LjZDNy43LDI5LjIsOC4z - LDMwLDkuMSwzMGgxOS45YzAuOCwwLDEuMy0wLjgsMC45LTEuNGwtOS45LTE2LjEgIEMxOS41LDExLjgs - MTguNSwxMS44LDE4LjEsMTIuNXoiIGNsYXNzPSJZZWxsb3ciIC8+DQogIDxwYXRoIGQ9Ik0yMCwyNGgt - MnYtOGgyVjI0eiBNMjAsMjZoLTJ2MmgyVjI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KPC9zdmc+Cw== - - - - CenterScreen - - - Hinweise - - - BarButtonItem1 - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - bbtnitmMarkRead - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - BarStaticItem1 - - - DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - RibbonPage1 - - - DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - RibbonPageGroup1 - - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - RibbonPage2 - - - DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - frmNotification_Startup - - - DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - \ No newline at end of file diff --git a/GUIs.Common/NNfrmNotification_Startup.vb b/GUIs.Common/NNfrmNotification_Startup.vb deleted file mode 100644 index 13124db9..00000000 --- a/GUIs.Common/NNfrmNotification_Startup.vb +++ /dev/null @@ -1,204 +0,0 @@ -Imports System.Drawing -Imports System.Threading -Imports DigitalData.Modules.EDMI.API -Imports DigitalData.Modules.Logging -Imports DigitalData.Modules.ZooFlow -Imports DigitalData.Modules.ZooFlow.Constants -Public Class NNfrmNotification_Startup - Private ReadOnly NotificationItems As New List(Of NotificationItem) - Private oDTNotifications As DataTable - Private ReadOnly Property LogConfig As LogConfig - Private ReadOnly Property Logger As Logger - Private ReadOnly Environment As Environment - Private GDPictureKey As String - Private MyCaption As String - Private NOTIFY_ID As Integer - Private Property OperationMode As OperationMode - Private Client As Client - Friend Class NotificationItem - Public Id As Integer - Public Title As String - Public MSGSTRING As String - - Public Overrides Function ToString() As String - Return Title - End Function - End Class - Public Sub New(DTNotifications As DataTable, pLogConfig As LogConfig, pGDPictureKey As String, pCaption As String, pEnvironment As Environment) - oDTNotifications = DTNotifications - LogConfig = pLogConfig - Logger = pLogConfig.GetLogger() - GDPictureKey = pGDPictureKey - MyCaption = pCaption - Environment = pEnvironment - - ' Dieser Aufruf ist für den Designer erforderlich. - InitializeComponent() - Try - ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - Dim cultureInfo As System.Globalization.CultureInfo - cultureInfo = New System.Globalization.CultureInfo(Environment.User.Language) - cultureInfo.DateTimeFormat.ShortDatePattern = Environment.User.DateFormat - Thread.CurrentThread.CurrentCulture = cultureInfo - Thread.CurrentThread.CurrentUICulture = cultureInfo - Catch ex As Exception - - End Try - - - End Sub - - Private Sub frmNotification_Startup_Load(sender As Object, e As EventArgs) Handles Me.Load - Try - DocumentViewer1.Init(LogConfig, GDPictureKey, New DigitalData.Controls.DocumentViewer.DocumentViewer.ToolbarSettings() With { - .ShowPrintButton = True, - .ShowRotateButton = True, - .ShowFlipButton = True, - .ShowSettingButton = True - }) - OperationMode = GetOperationMode() - Client = Environment.Service.Client - Me.Text = MyCaption - If oDTNotifications.Rows.Count = 1 Then - Me.ListBoxControl1.Visible = False - Load_Profile(oDTNotifications.Rows(0).Item("GUID")) - Else - - - For Each oRow As DataRow In oDTNotifications.Rows - NotificationItems.Add(New NotificationItem With { - .Id = CInt(oRow.Item("GUID")), - .Title = oRow.Item("TITLE").ToString - }) - Next - - ' ListBoxControl1.Items.Clear() - 'ListBoxControl1.Items.AddRange(NotificationItems) - - - - ListBoxControl1.DataSource = oDTNotifications - ListBoxControl1.ValueMember = "GUID" - ListBoxControl1.DisplayMember = "TITLE" - End If - Catch ex As Exception - Dim oMsgBox As New frmDialog(ex.Message, "Unexpected Error loading form:", frmDialog.DialogType.Error) - oMsgBox.ShowDialog() - End Try - End Sub - Sub Load_Profile(oIndex As Integer) - Try - DocumentViewer1.Visible = False - RichEditControl1.Visible = False - Dim oType As String, oMSG_STRING As String, oMarkasRead As Boolean - - If oDTNotifications.Rows.Count = 1 Then - oType = oDTNotifications.Rows(0).Item("DISPLAY_TYPE") - oMSG_STRING = oDTNotifications.Rows(0).Item("MSG_STRING") - oMarkasRead = oDTNotifications.Rows(0).Item("VALIDATE_READ") - NOTIFY_ID = oDTNotifications.Rows(0).Item("GUID") - Else - Dim oCount As Integer = 0 - For Each orow As DataRow In oDTNotifications.Rows - If oIndex = oCount Then - oType = orow.Item("DISPLAY_TYPE") - oMSG_STRING = orow.Item("MSG_STRING") - oMarkasRead = orow.Item("VALIDATE_READ") - NOTIFY_ID = orow.Item("GUID") - Exit For - Else - oCount += 1 - End If - - Next - End If - - If oType = "MESSAGE" Then - RichEditControl1.Text = oMSG_STRING - RichEditControl1.Visible = True - RichEditControl1.Dock = Windows.Forms.DockStyle.Fill - Else - If IO.File.Exists(oMSG_STRING) Then - DocumentViewer1.LoadFile_FromPath(oMSG_STRING) - DocumentViewer1.Visible = True - DocumentViewer1.Dock = Windows.Forms.DockStyle.Fill - Else - Dim oMsgBox As New frmDialog("File not existing!", "Load Notification File", frmDialog.DialogType.Warning) - oMsgBox.ShowDialog() - End If - End If - If oMarkasRead = True Then - bbtnitmMarkRead.Visibility = DevExpress.XtraBars.BarItemVisibility.Always - Else - bbtnitmMarkRead.Visibility = DevExpress.XtraBars.BarItemVisibility.Never - End If - - Catch ex As Exception - Dim oMsgBox As New frmDialog(ex.Message, "Unexpected Error loading Message:", frmDialog.DialogType.Error) - oMsgBox.ShowDialog() - End Try - End Sub - - Private Sub ListBoxControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxControl1.SelectedValueChanged - If ListBoxControl1.SelectedIndex <> -1 Then - Try - Load_Profile(ListBoxControl1.SelectedIndex) - Catch ex As Exception - Dim oMsgBox As New frmDialog(ex.Message, "Unexpected Error switching Notifications:", frmDialog.DialogType.Error) - oMsgBox.ShowDialog() - End Try - End If - End Sub - - Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick - Me.Close() - End Sub - - Private Sub bbtnitmMarkRead_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmMarkRead.ItemClick - Dim oSuccess As Boolean = True - Try - - Dim oInsert = $"INSERT INTO [dbo].[TBDD_NOTIFICATIONS_USER_HISTORY] - ([NOTIFY_ID] - ,[USR_ID]) - VALUES - ({NOTIFY_ID} - ,{Environment.User.UserId})" - If OperationMode = OperationMode.ZooFlow Or OperationMode = OperationMode.WithAppServer Then - Dim oResponse = Client.ExecuteNonQueryFromECM(oInsert) - If Not oResponse.OK Then - oSuccess = False - End If - Else - oSuccess = Environment.Database.ExecuteNonQuery(oInsert) - - End If - If oSuccess = False Then - BarStaticItem1.Caption = "Error while setting History!" - BarStaticItem1.ItemAppearance.Normal.BackColor = Color.Red - Else - BarStaticItem1.Caption = "History successfully saved!" - BarStaticItem1.ItemAppearance.Normal.BackColor = Color.Green - If oDTNotifications.Rows.Count = 1 Then - Me.Close() - End If - End If - Catch ex As Exception - Dim oMsgBox As New frmDialog(ex.Message, "Unexpected Error HistoryInsert:", frmDialog.DialogType.Error) - oMsgBox.ShowDialog() - oSuccess = False - End Try - - End Sub - Private Function GetOperationMode() As OperationMode - Dim oOperationMode As OperationMode - - If Environment.Service.Client?.IsOnline AndAlso Environment.Service.Address <> String.Empty Then - oOperationMode = OperationMode.WithAppServer - Else - oOperationMode = OperationMode.NoAppServer - End If - - Return oOperationMode - End Function -End Class \ No newline at end of file diff --git a/GUIs.Common/ObjectPropertyDialog/AttributeControls.vb b/GUIs.Common/ObjectPropertyDialog/AttributeControls.vb index f7aa0de0..e8443a12 100644 --- a/GUIs.Common/ObjectPropertyDialog/AttributeControls.vb +++ b/GUIs.Common/ObjectPropertyDialog/AttributeControls.vb @@ -91,29 +91,33 @@ Public Class AttributeControls End Sub Public Async Function LoadControlValuesForAttributes(pObjectId As Long, LayoutRoot As LayoutControlGroup) As Task - For Each oItem As BaseLayoutItem In LayoutRoot.Items + Dim oSnapshot = LayoutRoot.Items.Cast(Of BaseLayoutItem)().ToList() + + For Each oItem As BaseLayoutItem In oSnapshot If TypeOf oItem Is LayoutControlGroup Then - Await LoadControlValuesForAttributes(pObjectId, oItem) + Await LoadControlValuesForAttributes(pObjectId, DirectCast(oItem, LayoutControlGroup)) ElseIf TypeOf oItem Is LayoutControlItem Then Dim oControlItem As LayoutControlItem = oItem If TypeOf oControlItem.Control Is BaseEdit Then Dim oEdit = DirectCast(oControlItem.Control, BaseEdit) + + ' Handler nur einmalig registrieren + RemoveHandler oEdit.EditValueChanged, Sub() RaiseEvent EditValueChanged(oItem, Nothing) + AddHandler oEdit.EditValueChanged, Sub() RaiseEvent EditValueChanged(oItem, Nothing) + oEdit.EditValue = Nothing Dim oValue = Await GetAttributeValue(oItem.Name, pObjectId) oEdit.EditValue = oValue - AddHandler oEdit.EditValueChanged, Sub() RaiseEvent EditValueChanged(oItem, Nothing) ElseIf TypeOf oControlItem.Control Is GridControl Then Dim oValueTable = Await GetAttributeValueAsTable(oItem.Name, pObjectId) Dim oGrid = DirectCast(oControlItem.Control, GridControl) oGrid.DataSource = Nothing - oGrid.DataSource = oValueTable - End If End If Next diff --git a/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb b/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb index 2c6c0515..1cb3e20a 100644 --- a/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb +++ b/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb @@ -76,6 +76,13 @@ Public Class ctrlObjectPropertyDialog End Function Public Async Function LoadObject(pObjectId As Long) As Task(Of Boolean) + If pObjectId = 0 Then + Return True + End If + ' Bereits laufenden Ladevorgang abbrechen + If IsLoading Then + Return False + End If ' Load Business Entities Dim oEntityIds = Await GetBusinessEntitiesForObjectId(pObjectId) Dim oActiveEntity = oEntityIds.FirstOrDefault() diff --git a/Service.EDMIService/EDMIService.vb b/Service.EDMIService/EDMIService.vb index b88f8f5b..4992bcc7 100644 --- a/Service.EDMIService/EDMIService.vb +++ b/Service.EDMIService/EDMIService.vb @@ -27,38 +27,102 @@ Public Class EDMIService Public Const TBIDB_DOC_INFO = "TBIDB_DOC_INFO" Public Const TBIDB_ACCESSRIGHT = "TBIDB_ACCESSRIGHT" + ' ── Aktive Sessions: SessionId → Username (thread-safe) ────────────────── + Private Shared ReadOnly _ActiveSessions As New Collections.Concurrent.ConcurrentDictionary(Of String, String) + + Public Shared ReadOnly Property ActiveSessions As Integer + Get + Return _ActiveSessions.Count + End Get + End Property + + Public Shared ReadOnly Property ActiveSessionUsers As IReadOnlyCollection(Of String) + Get + Return _ActiveSessions.Values.Distinct().OrderBy(Function(u) u).ToList().AsReadOnly() + End Get + End Property + ' ───────────────────────────────────────────────────────────────────────── Private ReadOnly _Logger As Logger Private ReadOnly _Debug As Boolean = False Private ReadOnly _Username As String Private ReadOnly _IDBHelpers As IDB.Helpers + ' ── Konfigurationswerte für späteres Logging in New() ──────────────────── + Private Shared _ConfiguredEndpoint As String = String.Empty + Private Shared _ConfiguredMaxCalls As Integer = 0 + Private Shared _ConfiguredMaxSessions As Integer = 0 + ' ───────────────────────────────────────────────────────────────────────── Public Shared Sub Configure(Config As ServiceConfiguration) Dim oBaseAddress = Config.BaseAddresses.Item(0) Dim oBinding = API.Channel.GetBinding() Dim oAddress = New EndpointAddress(oBaseAddress) - ' See: https://stackoverflow.com/questions/42327988/addserviceendpoint-throws-key-is-null Dim oDescription = ContractDescription.GetContract(GetType(IEDMIService), GetType(EDMIService)) Dim oEndpoint As New ServiceEndpoint(oDescription, oBinding, oAddress) Config.AddServiceEndpoint(oEndpoint) Config.Description.Behaviors.Add(New ServiceDebugBehavior With {.IncludeExceptionDetailInFaults = True}) + + Dim oThrottling = Config.Description.Behaviors.Find(Of ServiceThrottlingBehavior)() + If oThrottling Is Nothing Then + oThrottling = New ServiceThrottlingBehavior() + Config.Description.Behaviors.Add(oThrottling) + End If + Dim oCpuCores As Integer = Environment.ProcessorCount + oThrottling.MaxConcurrentCalls = Math.Max(200, 32 * oCpuCores) ' war 16× + oThrottling.MaxConcurrentSessions = Math.Max(400, 150 * oCpuCores) ' war 100× + oThrottling.MaxConcurrentInstances = Integer.MaxValue + + ' ── Werte für späteres Logging speichern ───────────────────────────── + _ConfiguredEndpoint = oBaseAddress.ToString() + _ConfiguredMaxCalls = oThrottling.MaxConcurrentCalls + _ConfiguredMaxSessions = oThrottling.MaxConcurrentSessions + ' ───────────────────────────────────────────────────────────────────── End Sub Public Sub New() Dim oOperationContext As OperationContext = OperationContext.Current Dim oInstanceContext As InstanceContext = oOperationContext.InstanceContext Dim oUsername = StripDomainFromUsername(oOperationContext.ServiceSecurityContext.WindowsIdentity.Name) + Dim oSessionId As String = If(oOperationContext.SessionId, $"no-session_{Guid.NewGuid().ToString("N").Substring(0, 8)}") - _Username = oUsername - + _Username = If(String.IsNullOrWhiteSpace(oUsername), "unknown", oUsername) _Logger = LogConfig.GetLogger() - _Logger.Debug("New Request by User [{0}]", _Username) - _IDBHelpers = New IDB.Helpers(LogConfig, MSSQL_IDB) - End Sub + ' ── Konfiguration beim ersten Aufruf loggen ─────────────────────────── + If Not String.IsNullOrEmpty(_ConfiguredEndpoint) Then + _Logger.Info("✔ EDMIService configured | Endpoint=[{0}] | MaxCalls=[{1}] | MaxSessions=[{2}] | CPUs=[{3}]", + _ConfiguredEndpoint, _ConfiguredMaxCalls, _ConfiguredMaxSessions, Environment.ProcessorCount) + _ConfiguredEndpoint = String.Empty + End If + ' ───────────────────────────────────────────────────────────────────── + + ' ── Session registrieren ────────────────────────────────────────────── + _ActiveSessions(oSessionId) = _Username + BuildUserList() + + AddHandler oInstanceContext.Closed, Sub() + Dim oRemoved As String = Nothing + _ActiveSessions.TryRemove(oSessionId, oRemoved) + BuildUserList() + End Sub + + AddHandler oInstanceContext.Faulted, Sub() + Dim oRemoved As String = Nothing + _ActiveSessions.TryRemove(oSessionId, oRemoved) + _Logger.Warn("⚠ Session faulted | User=[{0}] | ActiveSessions=[{1}]", + _Username, _ActiveSessions.Count) + End Sub + + End Sub + ''' + ''' Erstellt die User-Liste nur wenn nötig (Debug-Guard vorher prüfen). + ''' + Private Shared Function BuildUserList() As String + Return String.Join(", ", _ActiveSessions.Values.Distinct().OrderBy(Function(u) u)) + End Function #Region "=== Base ===" Public Function Heartbeat() As Boolean Implements IEDMIService.Heartbeat Return True @@ -69,6 +133,20 @@ Public Class EDMIService Dim oGetClientConfig As New Base.GetClientConfig.GetClientConfigMethod(LogConfig, MSSQL_IDB, MSSQL_ECM, GlobalState) Return oGetClientConfig.Run() End Function + ''' + ''' Returns a snapshot of all currently active sessions for monitoring purposes + ''' + Public Function GetServiceStatus() As Messages.ServiceStatusResponse Implements IEDMIService.GetServiceStatus + _Logger.Debug("GetServiceStatus called by User=[{0}]", _Username) + ' Snapshot nur einmal erstellen, nicht zweimal iterieren: + Dim oSnapshot = _ActiveSessions.ToArray() + Return New Messages.ServiceStatusResponse With { + .ActiveSessionCount = oSnapshot.Length, + .ActiveUsers = oSnapshot.Select(Function(p) p.Value).Distinct().OrderBy(Function(u) u).ToList(), + .ActiveSessions = oSnapshot.ToDictionary(Function(p) p.Key, Function(p) p.Value), + .Timestamp = DateTime.Now + } + End Function #End Region Public Function NewFile(Data As NewFile.NewFileRequest) As NewFile.NewFileResponse Implements IEDMIService.NewFile @@ -121,9 +199,16 @@ Public Class EDMIService #Region "=== Database ===" + Private Shared _CachedTablesSnapshot As List(Of String) = Nothing + Private Shared _CachedTablesExpiry As DateTime = DateTime.MinValue + Public Function GetCachedTables() As List(Of String) Implements IEDMIService.GetCachedTables Try - Return GlobalState.GetCachedTables() + If _CachedTablesSnapshot Is Nothing OrElse DateTime.Now > _CachedTablesExpiry Then + _CachedTablesSnapshot = GlobalState.GetCachedTables() + _CachedTablesExpiry = DateTime.Now.AddSeconds(30) + End If + Return _CachedTablesSnapshot Catch ex As Exception _Logger.Error(ex) Return New List(Of String) @@ -167,7 +252,7 @@ Public Class EDMIService #Region "=== Database (MSSQL IDB) ===" Public Function ReturnDatatable_MSSQL_IDB(SQL As String) As TableResult Implements IEDMIService.ReturnDatatable_MSSQL_IDB Try - _Logger.Info($"ReturnDatatable_MSSQL_IDB, SQL: {SQL}") + _Logger.Debug($"ReturnDatatable_MSSQL_IDB, SQL: {SQL}") Dim oResult As DataTable = MSSQL_IDB.GetDatatable(SQL) oResult.TableName = "DD_RESULT" Return New TableResult(oResult) @@ -585,7 +670,7 @@ Public Class EDMIService Dim oRow As DataRow = oRows.First() Dim oRightAsInt = oRow.Item("ACCESSRIGHT") - Select Case oRight + Select Case oRightAsInt Case 1 oRight = AccessRight.VIEW_ONLY Case 2 diff --git a/Service.EDMIService/EDMIService.vbproj b/Service.EDMIService/EDMIService.vbproj index 1e749d54..77b88c2a 100644 --- a/Service.EDMIService/EDMIService.vbproj +++ b/Service.EDMIService/EDMIService.vbproj @@ -155,6 +155,8 @@ + + diff --git a/Service.EDMIService/GetServiceStatus.vb b/Service.EDMIService/GetServiceStatus.vb new file mode 100644 index 00000000..df7fd77c --- /dev/null +++ b/Service.EDMIService/GetServiceStatus.vb @@ -0,0 +1,6 @@ +Imports System.Runtime.Serialization + +Public Class GetServiceStatus + + +End Class diff --git a/Service.EDMIService/IEDMIService.vb b/Service.EDMIService/IEDMIService.vb index c75fbec9..58a0b090 100644 --- a/Service.EDMIService/IEDMIService.vb +++ b/Service.EDMIService/IEDMIService.vb @@ -16,6 +16,8 @@ Interface IEDMIService Function GetClientConfig() As Base.GetClientConfig.GetClientConfigResponse + + Function GetServiceStatus() As Messages.ServiceStatusResponse #End Region #Region "Database" diff --git a/Service.EDMIService/Messages/GetServiceStatus.vb b/Service.EDMIService/Messages/GetServiceStatus.vb new file mode 100644 index 00000000..34c75466 --- /dev/null +++ b/Service.EDMIService/Messages/GetServiceStatus.vb @@ -0,0 +1,11 @@ +Imports System.Runtime.Serialization + +Namespace Messages + + Public Class ServiceStatusResponse + Public Property ActiveSessionCount As Integer + Public Property ActiveUsers As List(Of String) ' Distinct, sortiert + Public Property ActiveSessions As Dictionary(Of String, String) ' SessionId → Username + Public Property Timestamp As DateTime + End Class +End Namespace \ No newline at end of file diff --git a/Service.EDMIService/My Project/AssemblyInfo.vb b/Service.EDMIService/My Project/AssemblyInfo.vb index 993ffb98..8ffdcb7c 100644 --- a/Service.EDMIService/My Project/AssemblyInfo.vb +++ b/Service.EDMIService/My Project/AssemblyInfo.vb @@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices - + @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Service.EDMIService/WindowsService.vb b/Service.EDMIService/WindowsService.vb index 4167d825..db69c91f 100644 --- a/Service.EDMIService/WindowsService.vb +++ b/Service.EDMIService/WindowsService.vb @@ -137,7 +137,7 @@ Public Class WindowsService Logger.Error(ex) GracefullyStop() End Try - Logger.Info("✔ Service [{0}] started successfully!", SERVICE_DISPLAY_NAME) + Logger.Info("✔ Service [{0}] started and initialized successfully!", SERVICE_DISPLAY_NAME) Catch ex As Exception Logger.Warn("⚠ Unexpected Error while starting the service: {0}", ex.Message) Logger.Error(ex)