diff --git a/EnvelopeGenerator.Form/Config.vb b/EnvelopeGenerator.Form/Config.vb new file mode 100644 index 00000000..76538c1b --- /dev/null +++ b/EnvelopeGenerator.Form/Config.vb @@ -0,0 +1,6 @@ +Imports DigitalData.Modules.Config.ConfigAttributes + +Public Class Config + + Property ConnectionString As String = "" +End Class diff --git a/EnvelopeGenerator.Form/Constants.vb b/EnvelopeGenerator.Form/Constants.vb new file mode 100644 index 00000000..41e1ab33 --- /dev/null +++ b/EnvelopeGenerator.Form/Constants.vb @@ -0,0 +1,7 @@ +Public Class Constants + + Public Enum EnvelopeStatus + Created + End Enum + +End Class diff --git a/EnvelopeGenerator.Form/Controllers/EnvelopeController.vb b/EnvelopeGenerator.Form/Controllers/EnvelopeController.vb new file mode 100644 index 00000000..7c154f3e --- /dev/null +++ b/EnvelopeGenerator.Form/Controllers/EnvelopeController.vb @@ -0,0 +1,72 @@ +Imports DevExpress.Utils.DirectXPaint +Imports System.Data.SqlClient +Imports System.Runtime.Remoting.Messaging +Imports DigitalData.Modules.Base +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.Logging + +Public Class EnvelopeController + Inherits BaseClass + + Private ReadOnly Database As MSSQLServer + + Public Sub New(pState As State) + MyBase.New(pState.LogConfig) + Database = pState.Database + End Sub + + Public Function SaveEnvelope(pEnvelope As Envelope) As Boolean + If pEnvelope.Id > 0 Then + Try + Dim oSql = "UPDATE [dbo].[TBSIG_ENVELOPE] SET [SUBJECT] = @SUBJECT, [MESSAGE] = @MESSAGE, [ENVELOPE_UUID] = @UUID WHERE GUID = @ID AND USER_ID = @USER_ID" + Dim oCommand As New SqlCommand(oSql) + oCommand.Parameters.Add("SUBJECT", SqlDbType.NVarChar).Value = pEnvelope.Subject + oCommand.Parameters.Add("MESSAGE", SqlDbType.NVarChar).Value = pEnvelope.Message + oCommand.Parameters.Add("UUID", SqlDbType.NVarChar).Value = pEnvelope.Uuid + oCommand.Parameters.Add("ID", SqlDbType.Int).Value = pEnvelope.Id + oCommand.Parameters.Add("USER_ID", SqlDbType.Int).Value = pEnvelope.UserId + + Dim oResult = Database.ExecuteNonQuery(oCommand) + If oResult = True Then + Return True + Else + Return False + End If + Catch ex As Exception + Logger.Error(ex) + End Try + + Else + Try + Dim oSql = "INSERT INTO [dbo].[TBSIG_ENVELOPE] (SUBJECT, MESSAGE, ENVELOPE_UUID, STATUS, USER_ID) VALUES (@SUBJECT, @MESSAGE, @UUID, @STATUS, @USER_ID)" + Dim oCommand As New SqlCommand(oSql) + oCommand.Parameters.Add("SUBJECT", SqlDbType.NVarChar).Value = pEnvelope.Subject + oCommand.Parameters.Add("MESSAGE", SqlDbType.NVarChar).Value = pEnvelope.Message + oCommand.Parameters.Add("UUID", SqlDbType.NVarChar).Value = pEnvelope.Uuid + oCommand.Parameters.Add("STATUS", SqlDbType.NVarChar).Value = pEnvelope.Status.ToString() + oCommand.Parameters.Add("USER_ID", SqlDbType.Int).Value = pEnvelope.UserId + + Dim oResult = Database.ExecuteNonQuery(oCommand) + If oResult = True Then + pEnvelope.Id = GetEnvelopeId(pEnvelope.UserId) + Return True + Else + Return False + End If + + Catch ex As Exception + Logger.Error(ex) + End Try + End If + End Function + + Private Function GetEnvelopeId(pUserId As Integer) As Integer + Try + Return Database.GetScalarValue($"SELECT MAX(GUID) FROM TBSIG_ENVELOPE WHERE USER_ID = {pUserId}") + + Catch ex As Exception + Logger.Error(ex) + Return Nothing + End Try + End Function +End Class diff --git a/EnvelopeGenerator.Form/DbConfig.vb b/EnvelopeGenerator.Form/DbConfig.vb new file mode 100644 index 00000000..582eb8aa --- /dev/null +++ b/EnvelopeGenerator.Form/DbConfig.vb @@ -0,0 +1,3 @@ +Public Class DbConfig + Public Property DocumentPath As String = "" +End Class diff --git a/EnvelopeGenerator.Form/Entities/Envelope.vb b/EnvelopeGenerator.Form/Entities/Envelope.vb new file mode 100644 index 00000000..b472866d --- /dev/null +++ b/EnvelopeGenerator.Form/Entities/Envelope.vb @@ -0,0 +1,39 @@ +Public Class Envelope + Public Property Id As Integer = 0 + Public Property Subject As String + Public Property Message As String + Public Property UserId As Integer + Public Property Uuid As String = Guid.NewGuid.ToString() + Public Property Status As Constants.EnvelopeStatus = Constants.EnvelopeStatus.Created + + Public Property Documents As New List(Of EnvelopeFile) + Public Property Receivers As New List(Of EnvelopeReceiver) + + Public Sub New(pSubject As String, pMessage As String, pUserId As Integer) + Subject = pSubject + Message = pMessage + UserId = pUserId + End Sub + + Public Function Validate() As List(Of String) + Dim oErrors As New List(Of String) + + If String.IsNullOrWhiteSpace(Subject) Then + oErrors.Add(My.Resources.Envelope.Missing_Subject) + End If + + If String.IsNullOrWhiteSpace(Message) Then + oErrors.Add(My.Resources.Envelope.Missing_Message) + End If + + If Documents.Count = 0 Then + oErrors.Add(My.Resources.Envelope.Missing_Documents) + End If + + If Receivers.Count = 0 Then + oErrors.Add(My.Resources.Envelope.Missing_Receivers) + End If + + Return oErrors + End Function +End Class diff --git a/EnvelopeGenerator.Form/Entities/EnvelopeFile.vb b/EnvelopeGenerator.Form/Entities/EnvelopeFile.vb new file mode 100644 index 00000000..3e59ecb3 --- /dev/null +++ b/EnvelopeGenerator.Form/Entities/EnvelopeFile.vb @@ -0,0 +1,15 @@ +Imports System.IO + +Public Class EnvelopeFile + Private Property FileInfo As FileInfo + + Public ReadOnly Property Filename As String + Get + Return FileInfo.Name + End Get + End Property + + Public Sub New(pFilePath As String) + FileInfo = New FileInfo(pFilePath) + End Sub +End Class diff --git a/EnvelopeGenerator.Form/Entities/EnvelopeReceiver.vb b/EnvelopeGenerator.Form/Entities/EnvelopeReceiver.vb new file mode 100644 index 00000000..146ca6d3 --- /dev/null +++ b/EnvelopeGenerator.Form/Entities/EnvelopeReceiver.vb @@ -0,0 +1,4 @@ +Public Class EnvelopeReceiver + Public Property Name As String + Public Property Email As String +End Class diff --git a/EnvelopeGenerator.Form/Entities/State.vb b/EnvelopeGenerator.Form/Entities/State.vb new file mode 100644 index 00000000..b3a52da3 --- /dev/null +++ b/EnvelopeGenerator.Form/Entities/State.vb @@ -0,0 +1,10 @@ +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.Logging + +Public Class State + Public Property UserId As Integer + Public Property Config As Config + Public Property DbConfig As DbConfig + Public Property LogConfig As LogConfig + Public Property Database As MSSQLServer +End Class diff --git a/EnvelopeGenerator.Form/EnvelopeGenerator.Form.vbproj b/EnvelopeGenerator.Form/EnvelopeGenerator.Form.vbproj new file mode 100644 index 00000000..1837ff54 --- /dev/null +++ b/EnvelopeGenerator.Form/EnvelopeGenerator.Form.vbproj @@ -0,0 +1,176 @@ + + + Debug + x86 + 8.0.30703 + 2.0 + {6D56C01F-D6CB-4D8A-BD3D-4FD34326998C} + WinExe + EnvelopeGenerator.Form + EnvelopeGenerator.Form + v4.6.2 + 512 + On + Binary + Off + On + + + AnyCPU + true + full + false + bin\Debug\ + true + true + prompt + + + AnyCPU + pdbonly + true + bin\Release\ + false + true + prompt + + + WindowsForms + + + EnvelopeGenerator.Form.My.MyApplication + + + + + + + + + + + + + + + ..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll + + + ..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll + + + ..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll + + + ..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll + + + ..\packages\NLog.5.0.5\lib\net46\NLog.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Form + + + frmEditor.vb + + + frmMain.vb + + + Form + + + True + Application.myapp + True + + + + True + True + Envelope.resx + + + frmEditor.vb + + + frmMain.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + True + Resources.resx + + + My.Resources + ResXFileCodeGenerator + Envelope.Designer.vb + + + + + SettingsSingleFileGenerator + Settings.Designer.vb + + + + True + Settings.settings + True + + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + + + \ No newline at end of file diff --git a/EnvelopeGenerator.Form/My Project/Application.Designer.vb b/EnvelopeGenerator.Form/My Project/Application.Designer.vb new file mode 100644 index 00000000..8fa106f6 --- /dev/null +++ b/EnvelopeGenerator.Form/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' 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 + + 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten + ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer. + ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im + ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.EnvelopeGenerator.Form.frmMain + End Sub + End Class +End Namespace diff --git a/EnvelopeGenerator.Form/My Project/Application.myapp b/EnvelopeGenerator.Form/My Project/Application.myapp new file mode 100644 index 00000000..a22a9177 --- /dev/null +++ b/EnvelopeGenerator.Form/My Project/Application.myapp @@ -0,0 +1,11 @@ + + + true + frmMain + false + 0 + true + 0 + true + false + \ No newline at end of file diff --git a/EnvelopeGenerator.Form/My Project/AssemblyInfo.vb b/EnvelopeGenerator.Form/My Project/AssemblyInfo.vb new file mode 100644 index 00000000..a27beed8 --- /dev/null +++ b/EnvelopeGenerator.Form/My Project/AssemblyInfo.vb @@ -0,0 +1,36 @@ +Imports System.Reflection +Imports System.Runtime.CompilerServices +Imports System.Runtime.InteropServices + +' General Information about an assembly is controlled through the following +' set of attributes. Change these attribute values to modify the information +' associated with an assembly. + + + + + + + + + +' Setting ComVisible to false makes the types in this assembly not visible +' to COM components. If you need to access a type in this assembly from +' COM, set the ComVisible attribute to true on that type. + + +' The following GUID is for the ID of the typelib if this project is exposed to COM + + +' Version information for an assembly consists of the following four values: +' +' Major Version +' Minor Version +' Build Number +' Revision +' +' You can specify all the values or you can default the Build and Revision Numbers +' by using the '*' as shown below: +' [assembly: AssemblyVersion("1.0.*")] + + diff --git a/EnvelopeGenerator.Form/My Project/DataSources/EnvelopeReceiver.datasource b/EnvelopeGenerator.Form/My Project/DataSources/EnvelopeReceiver.datasource new file mode 100644 index 00000000..e14d3711 --- /dev/null +++ b/EnvelopeGenerator.Form/My Project/DataSources/EnvelopeReceiver.datasource @@ -0,0 +1,10 @@ + + + + EnvelopeGenerator.Form.EnvelopeReceiver, EnvelopeGenerator.Form, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/EnvelopeGenerator.Form/My Project/DataSources/frmEditor.datasource b/EnvelopeGenerator.Form/My Project/DataSources/frmEditor.datasource new file mode 100644 index 00000000..be09506f --- /dev/null +++ b/EnvelopeGenerator.Form/My Project/DataSources/frmEditor.datasource @@ -0,0 +1,10 @@ + + + + EnvelopeGenerator.Form.frmEditor, EnvelopeGenerator.Form, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/EnvelopeGenerator.Form/My Project/Resources.Designer.vb b/EnvelopeGenerator.Form/My Project/Resources.Designer.vb new file mode 100644 index 00000000..e5336e72 --- /dev/null +++ b/EnvelopeGenerator.Form/My Project/Resources.Designer.vb @@ -0,0 +1,61 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.18034 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Namespace My.Resources + + + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + ' This class was auto-generated by the StronglyTypedResourceBuilder + ' class via a tool like ResGen or Visual Studio. + ' To add or remove a member, edit your .ResX file then rerun ResGen + ' with the /str option, or rebuild your VS project. + + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ' internal Resources() + ' { + ' } + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If (resourceMan Is Nothing) Then + Dim temp As New Global.System.Resources.ResourceManager("Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/EnvelopeGenerator/My Project/Resources.resx b/EnvelopeGenerator.Form/My Project/Resources.resx similarity index 100% rename from EnvelopeGenerator/My Project/Resources.resx rename to EnvelopeGenerator.Form/My Project/Resources.resx diff --git a/EnvelopeGenerator.Form/My Project/Settings.Designer.vb b/EnvelopeGenerator.Form/My Project/Settings.Designer.vb new file mode 100644 index 00000000..9b8067d9 --- /dev/null +++ b/EnvelopeGenerator.Form/My Project/Settings.Designer.vb @@ -0,0 +1,26 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.18034 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Namespace My + + + + Friend NotInheritable Partial Class Settings + Inherits System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As Settings = (CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New Settings()), Settings)) + + Public Shared ReadOnly Property [Default]() As Settings + Get + Return defaultInstance + End Get + End Property + End Class +End Namespace diff --git a/EnvelopeGenerator/My Project/Settings.settings b/EnvelopeGenerator.Form/My Project/Settings.settings similarity index 100% rename from EnvelopeGenerator/My Project/Settings.settings rename to EnvelopeGenerator.Form/My Project/Settings.settings diff --git a/EnvelopeGenerator.Form/My Project/licenses.licx b/EnvelopeGenerator.Form/My Project/licenses.licx new file mode 100644 index 00000000..8b14b005 --- /dev/null +++ b/EnvelopeGenerator.Form/My Project/licenses.licx @@ -0,0 +1,5 @@ +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.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.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/EnvelopeGenerator.Form/Strings/Envelope.Designer.vb b/EnvelopeGenerator.Form/Strings/Envelope.Designer.vb new file mode 100644 index 00000000..d3637dfe --- /dev/null +++ b/EnvelopeGenerator.Form/Strings/Envelope.Designer.vb @@ -0,0 +1,103 @@ +'------------------------------------------------------------------------------ +' +' 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 Class Envelope + + Private Shared resourceMan As Global.System.Resources.ResourceManager + + Private Shared resourceCulture As Global.System.Globalization.CultureInfo + + _ + Friend Sub New() + MyBase.New + End Sub + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend Shared 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("EnvelopeGenerator.Form.Envelope", GetType(Envelope).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 Shared Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Missing Documents ähnelt. + ''' + Friend Shared ReadOnly Property Missing_Documents() As String + Get + Return ResourceManager.GetString("Missing Documents", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Missing Message ähnelt. + ''' + Friend Shared ReadOnly Property Missing_Message() As String + Get + Return ResourceManager.GetString("Missing Message", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Missing Receivers ähnelt. + ''' + Friend Shared ReadOnly Property Missing_Receivers() As String + Get + Return ResourceManager.GetString("Missing Receivers", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Missing Subject ähnelt. + ''' + Friend Shared ReadOnly Property Missing_Subject() As String + Get + Return ResourceManager.GetString("Missing Subject", resourceCulture) + End Get + End Property + End Class +End Namespace diff --git a/EnvelopeGenerator.Form/Strings/Envelope.resx b/EnvelopeGenerator.Form/Strings/Envelope.resx new file mode 100644 index 00000000..26863d2a --- /dev/null +++ b/EnvelopeGenerator.Form/Strings/Envelope.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + Missing Documents + + + Missing Message + + + Missing Receivers + + + Missing Subject + + \ No newline at end of file diff --git a/EnvelopeGenerator/app.config b/EnvelopeGenerator.Form/app.config similarity index 100% rename from EnvelopeGenerator/app.config rename to EnvelopeGenerator.Form/app.config diff --git a/EnvelopeGenerator.Form/frmEditor.Designer.vb b/EnvelopeGenerator.Form/frmEditor.Designer.vb new file mode 100644 index 00000000..b1c08691 --- /dev/null +++ b/EnvelopeGenerator.Form/frmEditor.Designer.vb @@ -0,0 +1,474 @@ +Imports DevExpress.XtraEditors +Imports DevExpress.XtraLayout + +Partial Public Class frmEditor + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + ''' + ''' Required designer variable. + ''' + Private components As System.ComponentModel.IContainer = Nothing + + ''' + ''' Clean up any resources being used. + ''' + ''' true if managed resources should be disposed; otherwise, false. + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso (components IsNot Nothing) Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + +#Region "Windows Form Designer generated code" + + ''' + ''' Required method for Designer support - do not modify + ''' the contents of this method with the code editor. + ''' + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmEditor)) + Dim TableColumnDefinition1 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + 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 TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Me.colFilename = New DevExpress.XtraGrid.Columns.TileViewColumn() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.btnSave = New DevExpress.XtraBars.BarButtonItem() + Me.btnCancel = New DevExpress.XtraBars.BarButtonItem() + Me.btnNewFile = New DevExpress.XtraBars.BarButtonItem() + Me.btnDeleteFile = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.GridDocuments = New DevExpress.XtraGrid.GridControl() + Me.ViewDocuments = New DevExpress.XtraGrid.Views.Tile.TileView() + Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl() + Me.PanelControl2 = New DevExpress.XtraEditors.PanelControl() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.txtSubject = New DevExpress.XtraEditors.TextEdit() + Me.txtMessage = New DevExpress.XtraEditors.MemoEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.PanelControl1 = New DevExpress.XtraEditors.PanelControl() + Me.GridReceivers = New DevExpress.XtraGrid.GridControl() + Me.envelopeReceiverBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.ViewReceivers = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colEmail = New DevExpress.XtraGrid.Columns.GridColumn() + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.RepositoryItemEmailEdit = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.Panel1.SuspendLayout() + CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.Panel2.SuspendLayout() + Me.SplitContainerControl1.SuspendLayout() + CType(Me.GridDocuments, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ViewDocuments, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl2.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl2.Panel1.SuspendLayout() + CType(Me.SplitContainerControl2.Panel2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl2.Panel2.SuspendLayout() + Me.SplitContainerControl2.SuspendLayout() + CType(Me.PanelControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.PanelControl2.SuspendLayout() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.txtSubject.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtMessage.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.PanelControl1.SuspendLayout() + CType(Me.GridReceivers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.envelopeReceiverBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ViewReceivers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemEmailEdit, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'colFilename + ' + Me.colFilename.Caption = "Dateiname" + Me.colFilename.FieldName = "Filename" + Me.colFilename.Name = "colFilename" + Me.colFilename.Visible = True + Me.colFilename.VisibleIndex = 0 + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.btnSave, Me.btnCancel, Me.btnNewFile, Me.btnDeleteFile, Me.BarButtonItem1, Me.BarButtonItem2}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 8 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.Size = New System.Drawing.Size(1164, 158) + ' + 'btnSave + ' + Me.btnSave.Caption = "Save" + Me.btnSave.Id = 1 + Me.btnSave.ImageOptions.SvgImage = CType(resources.GetObject("btnSave.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.btnSave.Name = "btnSave" + ' + 'btnCancel + ' + Me.btnCancel.Caption = "Cancel" + Me.btnCancel.Id = 2 + Me.btnCancel.ImageOptions.SvgImage = CType(resources.GetObject("btnCancel.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.btnCancel.Name = "btnCancel" + ' + 'btnNewFile + ' + Me.btnNewFile.Caption = "New File" + Me.btnNewFile.Id = 3 + Me.btnNewFile.ImageOptions.SvgImage = CType(resources.GetObject("btnNewFile.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.btnNewFile.Name = "btnNewFile" + ' + 'btnDeleteFile + ' + Me.btnDeleteFile.Caption = "Delete File" + Me.btnDeleteFile.Id = 4 + Me.btnDeleteFile.ImageOptions.SvgImage = CType(resources.GetObject("btnDeleteFile.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.btnDeleteFile.Name = "btnDeleteFile" + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Send Envelope" + Me.BarButtonItem1.Id = 6 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Edit Sign Fields" + Me.BarButtonItem2.Id = 7 + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.btnSave) + Me.RibbonPageGroup1.ItemLinks.Add(Me.btnCancel) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.ItemLinks.Add(Me.btnNewFile) + Me.RibbonPageGroup2.ItemLinks.Add(Me.btnDeleteFile) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "RibbonPageGroup2" + ' + 'RibbonPageGroup3 + ' + Me.RibbonPageGroup3.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup3.Name = "RibbonPageGroup3" + Me.RibbonPageGroup3.Text = "RibbonPageGroup3" + ' + 'RibbonPageGroup4 + ' + Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup4.Name = "RibbonPageGroup4" + Me.RibbonPageGroup4.Text = "RibbonPageGroup4" + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.Horizontal = False + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 158) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + ' + 'SplitContainerControl1.Panel1 + ' + Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridDocuments) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + ' + 'SplitContainerControl1.Panel2 + ' + Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2) + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(1164, 526) + Me.SplitContainerControl1.SplitterPosition = 251 + Me.SplitContainerControl1.TabIndex = 1 + ' + 'GridDocuments + ' + Me.GridDocuments.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridDocuments.Location = New System.Drawing.Point(0, 0) + Me.GridDocuments.MainView = Me.ViewDocuments + Me.GridDocuments.MenuManager = Me.RibbonControl1 + Me.GridDocuments.Name = "GridDocuments" + Me.GridDocuments.Size = New System.Drawing.Size(1164, 251) + Me.GridDocuments.TabIndex = 0 + Me.GridDocuments.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewDocuments}) + ' + 'ViewDocuments + ' + Me.ViewDocuments.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colFilename}) + Me.ViewDocuments.GridControl = Me.GridDocuments + Me.ViewDocuments.Name = "ViewDocuments" + Me.ViewDocuments.OptionsTiles.ItemSize = New System.Drawing.Size(248, 202) + Me.ViewDocuments.TileColumns.Add(TableColumnDefinition1) + TableRowDefinition1.Length.Value = 152.0R + TableRowDefinition2.Length.Value = 34.0R + Me.ViewDocuments.TileRows.Add(TableRowDefinition1) + Me.ViewDocuments.TileRows.Add(TableRowDefinition2) + TileViewItemElement1.Column = Me.colFilename + TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze + TileViewItemElement1.RowIndex = 1 + TileViewItemElement1.Text = "colFilename" + TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + Me.ViewDocuments.TileTemplate.Add(TileViewItemElement1) + ' + 'SplitContainerControl2 + ' + Me.SplitContainerControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl2.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl2.Name = "SplitContainerControl2" + ' + 'SplitContainerControl2.Panel1 + ' + Me.SplitContainerControl2.Panel1.Controls.Add(Me.PanelControl2) + Me.SplitContainerControl2.Panel1.Text = "Panel1" + ' + 'SplitContainerControl2.Panel2 + ' + Me.SplitContainerControl2.Panel2.Controls.Add(Me.PanelControl1) + Me.SplitContainerControl2.Panel2.Text = "Panel2" + Me.SplitContainerControl2.Size = New System.Drawing.Size(1164, 265) + Me.SplitContainerControl2.SplitterPosition = 492 + Me.SplitContainerControl2.TabIndex = 0 + ' + 'PanelControl2 + ' + Me.PanelControl2.Controls.Add(Me.LayoutControl1) + Me.PanelControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.PanelControl2.Location = New System.Drawing.Point(0, 0) + Me.PanelControl2.Name = "PanelControl2" + Me.PanelControl2.Size = New System.Drawing.Size(492, 265) + Me.PanelControl2.TabIndex = 1 + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.txtSubject) + Me.LayoutControl1.Controls.Add(Me.txtMessage) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(2, 2) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(488, 261) + Me.LayoutControl1.TabIndex = 0 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'txtSubject + ' + Me.txtSubject.Location = New System.Drawing.Point(67, 10) + Me.txtSubject.MenuManager = Me.RibbonControl1 + Me.txtSubject.Name = "txtSubject" + Me.txtSubject.Size = New System.Drawing.Size(411, 20) + Me.txtSubject.StyleController = Me.LayoutControl1 + Me.txtSubject.TabIndex = 4 + ' + 'txtMessage + ' + Me.txtMessage.Location = New System.Drawing.Point(67, 40) + Me.txtMessage.MenuManager = Me.RibbonControl1 + Me.txtMessage.Name = "txtMessage" + Me.txtMessage.Size = New System.Drawing.Size(411, 211) + Me.txtMessage.StyleController = Me.LayoutControl1 + Me.txtMessage.TabIndex = 6 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem3}) + Me.Root.Name = "Root" + Me.Root.Padding = New DevExpress.XtraLayout.Utils.Padding(0, 0, 0, 0) + Me.Root.Size = New System.Drawing.Size(488, 261) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.txtSubject + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 5) + Me.LayoutControlItem1.Size = New System.Drawing.Size(488, 35) + Me.LayoutControlItem1.Text = "Betreff" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(45, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.txtMessage + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 35) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 5, 10) + Me.LayoutControlItem3.Size = New System.Drawing.Size(488, 226) + Me.LayoutControlItem3.Text = "Nachricht" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(45, 13) + ' + 'PanelControl1 + ' + Me.PanelControl1.Controls.Add(Me.GridReceivers) + Me.PanelControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.PanelControl1.Location = New System.Drawing.Point(0, 0) + Me.PanelControl1.Name = "PanelControl1" + Me.PanelControl1.Padding = New System.Windows.Forms.Padding(10) + Me.PanelControl1.Size = New System.Drawing.Size(662, 265) + Me.PanelControl1.TabIndex = 1 + ' + 'GridReceivers + ' + Me.GridReceivers.DataSource = Me.envelopeReceiverBindingSource + Me.GridReceivers.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridReceivers.Location = New System.Drawing.Point(12, 12) + Me.GridReceivers.MainView = Me.ViewReceivers + Me.GridReceivers.MenuManager = Me.RibbonControl1 + Me.GridReceivers.Name = "GridReceivers" + Me.GridReceivers.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemEmailEdit}) + Me.GridReceivers.Size = New System.Drawing.Size(638, 241) + Me.GridReceivers.TabIndex = 0 + Me.GridReceivers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewReceivers}) + ' + 'envelopeReceiverBindingSource + ' + Me.envelopeReceiverBindingSource.DataMember = "Receivers" + Me.envelopeReceiverBindingSource.DataSource = GetType(EnvelopeGenerator.Form.frmEditor) + ' + 'ViewReceivers + ' + Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colEmail}) + Me.ViewReceivers.GridControl = Me.GridReceivers + Me.ViewReceivers.Name = "ViewReceivers" + Me.ViewReceivers.OptionsView.NewItemRowPosition = DevExpress.XtraGrid.Views.Grid.NewItemRowPosition.Bottom + Me.ViewReceivers.OptionsView.ShowGroupPanel = False + Me.ViewReceivers.OptionsView.ShowIndicator = False + ' + 'colName + ' + Me.colName.FieldName = "Name" + Me.colName.Name = "colName" + Me.colName.Visible = True + Me.colName.VisibleIndex = 0 + ' + 'colEmail + ' + Me.colEmail.ColumnEdit = Me.RepositoryItemEmailEdit + Me.colEmail.FieldName = "Email" + Me.colEmail.Name = "colEmail" + Me.colEmail.Visible = True + Me.colEmail.VisibleIndex = 1 + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + Me.OpenFileDialog1.Filter = "PDF Files|*.pdf" + ' + 'RepositoryItemEmailEdit + ' + Me.RepositoryItemEmailEdit.AutoHeight = False + Me.RepositoryItemEmailEdit.MaskSettings.Set("MaskManagerType", GetType(DevExpress.Data.Mask.RegExpMaskManager)) + Me.RepositoryItemEmailEdit.MaskSettings.Set("mask", "\w+@\w+\.\w+") + Me.RepositoryItemEmailEdit.Name = "RepositoryItemEmailEdit" + ' + 'frmEditor + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1164, 684) + Me.Controls.Add(Me.SplitContainerControl1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmEditor" + Me.Ribbon = Me.RibbonControl1 + Me.Text = "Form1" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.Panel1.ResumeLayout(False) + CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.Panel2.ResumeLayout(False) + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.GridDocuments, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ViewDocuments, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl2.Panel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl2.Panel1.ResumeLayout(False) + CType(Me.SplitContainerControl2.Panel2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl2.Panel2.ResumeLayout(False) + CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl2.ResumeLayout(False) + CType(Me.PanelControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.PanelControl2.ResumeLayout(False) + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.txtSubject.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtMessage.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.PanelControl1.ResumeLayout(False) + CType(Me.GridReceivers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.envelopeReceiverBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ViewReceivers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemEmailEdit, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + 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 SplitContainerControl1 As SplitContainerControl + Friend WithEvents GridDocuments As DevExpress.XtraGrid.GridControl + Friend WithEvents ViewDocuments As DevExpress.XtraGrid.Views.Tile.TileView + Friend WithEvents SplitContainerControl2 As SplitContainerControl + Friend WithEvents LayoutControl1 As LayoutControl + Friend WithEvents Root As LayoutControlGroup + Friend WithEvents GridReceivers As DevExpress.XtraGrid.GridControl + Friend WithEvents ViewReceivers As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents txtSubject As TextEdit + Friend WithEvents txtMessage As MemoEdit + Friend WithEvents LayoutControlItem1 As LayoutControlItem + Friend WithEvents LayoutControlItem3 As LayoutControlItem + Friend WithEvents colFilename As DevExpress.XtraGrid.Columns.TileViewColumn + Friend WithEvents btnSave As DevExpress.XtraBars.BarButtonItem + Friend WithEvents btnCancel As DevExpress.XtraBars.BarButtonItem + Friend WithEvents btnNewFile As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents btnDeleteFile As DevExpress.XtraBars.BarButtonItem + Friend WithEvents OpenFileDialog1 As OpenFileDialog + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents PanelControl1 As PanelControl + Friend WithEvents PanelControl2 As PanelControl + Friend WithEvents envelopeReceiverBindingSource As BindingSource + Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colEmail As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents RepositoryItemEmailEdit As Repository.RepositoryItemTextEdit + +#End Region + +End Class diff --git a/EnvelopeGenerator.Form/frmEditor.resx b/EnvelopeGenerator.Form/frmEditor.resx new file mode 100644 index 00000000..5a3ee7ed --- /dev/null +++ b/EnvelopeGenerator.Form/frmEditor.resx @@ -0,0 +1,224 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku + WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4 + N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk + aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRoLTN2MTBI + OFY0SDVDNC40LDQsNCw0LjQsNCw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTFW + NUMyOCw0LjQsMjcuNiw0LDI3LDR6IE0yNCwyNEg4di02ICBoMTZWMjR6IE0xMCw0djhoMTBWNEgxMHog + TTE0LDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAD0DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4N + CiAgICA8Zz4NCiAgICAgIDxwYXRoIGQ9Ik0xOC44LDE2bDYuOS02LjljMC40LTAuNCwwLjQtMSwwLTEu + NGwtMS40LTEuNGMtMC40LTAuNC0xLTAuNC0xLjQsMEwxNiwxMy4yTDkuMSw2LjNjLTAuNC0wLjQtMS0w + LjQtMS40LDAgICAgTDYuMyw3LjdjLTAuNCwwLjQtMC40LDEsMCwxLjRsNi45LDYuOWwtNi45LDYuOWMt + MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks + Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44 + LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOsCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLlJlZHtmaWxsOiNEMTFD + MUM7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7Zmls + bDojNzI3MjcyO30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuNzU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iQWRkRmlsZSI+DQogICAgPHBhdGggZD0iTTE2LDI2SDZWNGgxOHYxNGgyVjNjMC0w + LjUtMC41LTEtMS0xSDVDNC41LDIsNCwyLjUsNCwzdjI0YzAsMC41LDAuNSwxLDEsMWgxMVYyNnoiIGNs + YXNzPSJCbGFjayIgLz4NCiAgICA8cG9seWdvbiBwb2ludHM9IjMwLDI0IDI2LDI0IDI2LDIwIDIyLDIw + IDIyLDI0IDE4LDI0IDE4LDI4IDIyLDI4IDIyLDMyIDI2LDMyIDI2LDI4IDMwLDI4ICAiIGNsYXNzPSJH + cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPECAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iRGVsZXRlTGlzdCI+DQogICAgPHBhdGggZD0iTTYsMjZWNGgxOHYxMy4ybDItMlYz + YzAtMC42LTAuNC0xLTEtMUg1QzQuNCwyLDQsMi40LDQsM3YyNGMwLDAuNiwwLjQsMSwxLDFoOC4ybDIt + Mkg2eiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwb2x5Z29uIHBvaW50cz0iMjgsMjAgMjYsMTggMjIs + MjIgMTgsMTggMTYsMjAgMjAsMjQgMTYsMjggMTgsMzAgMjIsMjYgMjYsMzAgMjgsMjggMjQsMjQgICIg + Y2xhc3M9IlJlZCIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAADUCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNlbmQiPg0KICAgIDxwb2x5Z29uIHBvaW50cz0iMiwy + MCA4LDIyLjQgMjQsMTAgMTIsMjQgMTIsMzAgMTYuMywyNS43IDIyLDI4IDMwLDIgICIgY2xhc3M9IkJs + dWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + 159, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/EnvelopeGenerator.Form/frmEditor.vb b/EnvelopeGenerator.Form/frmEditor.vb new file mode 100644 index 00000000..ee1d5d07 --- /dev/null +++ b/EnvelopeGenerator.Form/frmEditor.vb @@ -0,0 +1,69 @@ +Imports System.ComponentModel +Imports System.Data.SqlClient +Imports System.Text +Imports DevExpress.XtraGrid.Views.Tile +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.Logging + +Partial Public Class frmEditor + Private ReadOnly Documents As New List(Of EnvelopeFile) + + Public Property Receivers As New List(Of EnvelopeReceiver) + + Private Controller As EnvelopeController + Private Logger As Logger + + Public Property State As State + + Public Sub New() + InitializeComponent() + End Sub + + Private Sub btnNewFile_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnNewFile.ItemClick + If OpenFileDialog1.ShowDialog() = DialogResult.OK Then + Documents.Add(New EnvelopeFile(OpenFileDialog1.FileName)) + + GridDocuments.DataSource = Nothing + GridDocuments.DataSource = Documents + End If + End Sub + + Private Sub frmEditor_Load(sender As Object, e As EventArgs) Handles Me.Load + Logger = State.LogConfig.GetLogger() + Controller = New EnvelopeController(State) + + GridReceivers.DataSource = envelopeReceiverBindingSource + End Sub + + Private Sub btnDeleteFile_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnDeleteFile.ItemClick + If ViewDocuments.GetSelectedRows().Count > 0 Then + ViewDocuments.DeleteSelectedRows() + End If + End Sub + + Private Sub btnSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnSave.ItemClick + Try + Dim oSubject = txtSubject.EditValue?.ToString + Dim oMessage = txtMessage.EditValue?.ToString + Dim oReceivers As BindingList(Of EnvelopeReceiver) = envelopeReceiverBindingSource.List + Dim oEnv = New Envelope(oSubject, oMessage, State.UserId) With { + .Receivers = oReceivers.ToList, + .Documents = Documents + } + + Dim oErrors = oEnv.Validate() + If oErrors.Any Then + Dim oError = "Fehler beim Speichern des Umschlags:" & vbNewLine & vbNewLine & String.Join(vbNewLine, oErrors) + MsgBox(oError, MsgBoxStyle.Exclamation, Text) + ElseIf Controller.SaveEnvelope(oEnv) = False Then + MsgBox("Fehler beim Speichern des Umschlags!", MsgBoxStyle.Critical, Text) + Else + 'YAY! + End If + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + + +End Class diff --git a/EnvelopeGenerator.Form/frmMain.Designer.vb b/EnvelopeGenerator.Form/frmMain.Designer.vb new file mode 100644 index 00000000..f7a0784b --- /dev/null +++ b/EnvelopeGenerator.Form/frmMain.Designer.vb @@ -0,0 +1,91 @@ + _ +Partial Class frmMain + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) + Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl + ' + Me.RibbonControl.ExpandCollapseItem.Id = 0 + Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.BarButtonItem1}) + Me.RibbonControl.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl.MaxItemId = 2 + Me.RibbonControl.Name = "RibbonControl" + Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl.Size = New System.Drawing.Size(1088, 158) + Me.RibbonControl.StatusBar = Me.RibbonStatusBar + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Neuer Umschlag" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonStatusBar + ' + Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 657) + Me.RibbonStatusBar.Name = "RibbonStatusBar" + Me.RibbonStatusBar.Ribbon = Me.RibbonControl + Me.RibbonStatusBar.Size = New System.Drawing.Size(1088, 24) + ' + 'frmMain + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1088, 681) + Me.Controls.Add(Me.RibbonStatusBar) + Me.Controls.Add(Me.RibbonControl) + Me.Name = "frmMain" + Me.Ribbon = Me.RibbonControl + Me.StatusBar = Me.RibbonStatusBar + Me.Text = "frmMain" + CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + +End Class diff --git a/EnvelopeGenerator.Form/frmMain.resx b/EnvelopeGenerator.Form/frmMain.resx new file mode 100644 index 00000000..e0a64c58 --- /dev/null +++ b/EnvelopeGenerator.Form/frmMain.resx @@ -0,0 +1,140 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKUCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkVudmVsb3BlQ2xvc2UiPg0KICAgIDxwYXRoIGQ9Ik0x + NiwxNmwxMi02LjlWOWMwLTAuNS0wLjUtMS0xLTFINUM0LjUsOCw0LDguNSw0LDl2MC4xTDE2LDE2eiIg + Y2xhc3M9IlllbGxvdyIgLz4NCiAgICA8cGF0aCBkPSJNMTYsMTguM0w0LDExLjRWMjNjMCwwLjUsMC41 + LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVYxMS40TDE2LDE4LjN6IiBjbGFzcz0iWWVsbG93IiAvPg0K + ICA8L2c+DQo8L3N2Zz4L + + + \ No newline at end of file diff --git a/EnvelopeGenerator.Form/frmMain.vb b/EnvelopeGenerator.Form/frmMain.vb new file mode 100644 index 00000000..ebf5f598 --- /dev/null +++ b/EnvelopeGenerator.Form/frmMain.vb @@ -0,0 +1,61 @@ +Imports System.Diagnostics.Eventing.Reader +Imports DigitalData.Modules.Config +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Base + +Public Class frmMain + Private LogConfig As LogConfig + Private Logger As Logger + Private Database As MSSQLServer + Private ConfigManager As ConfigManager(Of Config) + Private DbConfig As DbConfig + + Private UserId As Integer = 0 + + Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Dim oLogPath = IO.Path.Combine(Application.LocalUserAppDataPath, "Log") + LogConfig = New LogConfig(LogConfig.PathType.CustomPath, oLogPath, CompanyName:="Digital Data", ProductName:="Envelope Generator") + Logger = LogConfig.GetLogger() + + Try + ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath) + Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString) + Database = New MSSQLServer(LogConfig, oConnectionString) + + If Database.DBInitialized = True Then + DbConfig = GetDatabaseConfig() + + Dim oUserId = Database.GetScalarValue($"SELECT GUID FROM TBDD_USER WHERE USERNAME = '{Environment.UserName}'") + UserId = CInt(oUserId) + End If + + Catch ex As Exception + Logger.Error(ex) + End Try + + End Sub + + Private Function GetDatabaseConfig() As DbConfig + Dim oSql As String = "SELECT TOP 1 * FROM TBSIG_CONFIG" + Dim oTable As DataTable = Database.GetDatatable(oSql) + Dim oRow = oTable.Rows.Item(0) + + Return New DbConfig() With { + .DocumentPath = oRow.ItemEx("DOCUMENT_PATH", "") + } + End Function + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + Dim oForm As New frmEditor() With { + .State = New State With { + .UserId = UserId, + .Config = ConfigManager.Config, + .DbConfig = DbConfig, + .LogConfig = LogConfig, + .Database = Database + } + } + oForm.ShowDialog() + End Sub +End Class \ No newline at end of file diff --git a/EnvelopeGenerator.Form/packages.config b/EnvelopeGenerator.Form/packages.config new file mode 100644 index 00000000..ce98cd21 --- /dev/null +++ b/EnvelopeGenerator.Form/packages.config @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/EnvelopeGenerator/EnvelopeGenerator.vbproj b/EnvelopeGenerator.Test/EnvelopeGenerator.Test.vbproj similarity index 75% rename from EnvelopeGenerator/EnvelopeGenerator.vbproj rename to EnvelopeGenerator.Test/EnvelopeGenerator.Test.vbproj index 3020f581..2bc37e2f 100644 --- a/EnvelopeGenerator/EnvelopeGenerator.vbproj +++ b/EnvelopeGenerator.Test/EnvelopeGenerator.Test.vbproj @@ -45,17 +45,35 @@ + + + + + + ..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll + + + False + ..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll + + + + ..\packages\NLog.5.0.5\lib\net46\NLog.dll + + + + @@ -77,19 +95,19 @@ - + Form - - Form1.vb + + frmMain.vb True Application.myapp - - Form1.vb + + frmMain.vb @@ -112,6 +130,7 @@ Settings.settings True + diff --git a/EnvelopeGenerator/My Project/Application.Designer.vb b/EnvelopeGenerator.Test/My Project/Application.Designer.vb similarity index 95% rename from EnvelopeGenerator/My Project/Application.Designer.vb rename to EnvelopeGenerator.Test/My Project/Application.Designer.vb index 0eddd516..d3f0179e 100644 --- a/EnvelopeGenerator/My Project/Application.Designer.vb +++ b/EnvelopeGenerator.Test/My Project/Application.Designer.vb @@ -32,7 +32,7 @@ Namespace My _ Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.EnvelopeGenerator.Form1 + Me.MainForm = Global.EnvelopeGenerator.frmMain End Sub End Class End Namespace diff --git a/EnvelopeGenerator/My Project/Application.myapp b/EnvelopeGenerator.Test/My Project/Application.myapp similarity index 100% rename from EnvelopeGenerator/My Project/Application.myapp rename to EnvelopeGenerator.Test/My Project/Application.myapp diff --git a/EnvelopeGenerator/My Project/AssemblyInfo.vb b/EnvelopeGenerator.Test/My Project/AssemblyInfo.vb similarity index 100% rename from EnvelopeGenerator/My Project/AssemblyInfo.vb rename to EnvelopeGenerator.Test/My Project/AssemblyInfo.vb diff --git a/EnvelopeGenerator/My Project/Resources.Designer.vb b/EnvelopeGenerator.Test/My Project/Resources.Designer.vb similarity index 100% rename from EnvelopeGenerator/My Project/Resources.Designer.vb rename to EnvelopeGenerator.Test/My Project/Resources.Designer.vb diff --git a/EnvelopeGenerator.Test/My Project/Resources.resx b/EnvelopeGenerator.Test/My Project/Resources.resx new file mode 100644 index 00000000..901f10d6 --- /dev/null +++ b/EnvelopeGenerator.Test/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/EnvelopeGenerator/My Project/Settings.Designer.vb b/EnvelopeGenerator.Test/My Project/Settings.Designer.vb similarity index 100% rename from EnvelopeGenerator/My Project/Settings.Designer.vb rename to EnvelopeGenerator.Test/My Project/Settings.Designer.vb diff --git a/EnvelopeGenerator.Test/My Project/Settings.settings b/EnvelopeGenerator.Test/My Project/Settings.settings new file mode 100644 index 00000000..39645652 --- /dev/null +++ b/EnvelopeGenerator.Test/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/EnvelopeGenerator.Test/My Project/licenses.licx b/EnvelopeGenerator.Test/My Project/licenses.licx new file mode 100644 index 00000000..d2f3d6aa --- /dev/null +++ b/EnvelopeGenerator.Test/My Project/licenses.licx @@ -0,0 +1,6 @@ +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/EnvelopeGenerator.Test/app.config b/EnvelopeGenerator.Test/app.config new file mode 100644 index 00000000..917d5961 --- /dev/null +++ b/EnvelopeGenerator.Test/app.config @@ -0,0 +1,41 @@ + + + + +
+ + + + + + System + + + True + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/EnvelopeGenerator.Test/frmMain.Designer.vb b/EnvelopeGenerator.Test/frmMain.Designer.vb new file mode 100644 index 00000000..e37e4025 --- /dev/null +++ b/EnvelopeGenerator.Test/frmMain.Designer.vb @@ -0,0 +1,145 @@ +Partial Public Class frmMain + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + ''' + ''' Required designer variable. + ''' + Private components As System.ComponentModel.IContainer = Nothing + + ''' + ''' Clean up any resources being used. + ''' + ''' true if managed resources should be disposed; otherwise, false. + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso (components IsNot Nothing) Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + +#Region "Windows Form Designer generated code" + + ''' + ''' Required method for Designer support - do not modify + ''' the contents of this method with the code editor. + ''' + Private Sub InitializeComponent() + Me.ribbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.ribbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.ribbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer() + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + CType(Me.ribbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'ribbonControl1 + ' + Me.ribbonControl1.ExpandCollapseItem.Id = 0 + Me.ribbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonControl1.ExpandCollapseItem, Me.ribbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem3}) + Me.ribbonControl1.Location = New System.Drawing.Point(0, 0) + Me.ribbonControl1.MaxItemId = 7 + Me.ribbonControl1.Name = "ribbonControl1" + Me.ribbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.ribbonPage1}) + Me.ribbonControl1.Size = New System.Drawing.Size(1125, 158) + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Interactive" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Load PDF" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "Save" + Me.BarButtonItem4.Id = 4 + Me.BarButtonItem4.Name = "BarButtonItem4" + ' + 'BarButtonItem5 + ' + Me.BarButtonItem5.Caption = "Load" + Me.BarButtonItem5.Id = 5 + Me.BarButtonItem5.Name = "BarButtonItem5" + ' + 'ribbonPage1 + ' + Me.ribbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.ribbonPageGroup1, Me.RibbonPageGroup2}) + Me.ribbonPage1.Name = "ribbonPage1" + Me.ribbonPage1.Text = "ribbonPage1" + ' + 'ribbonPageGroup1 + ' + Me.ribbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.ribbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4) + Me.ribbonPageGroup1.ItemLinks.Add(Me.BarButtonItem5) + Me.ribbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) + Me.ribbonPageGroup1.Name = "ribbonPageGroup1" + Me.ribbonPageGroup1.Text = "ribbonPageGroup1" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "RibbonPageGroup2" + ' + 'DocumentViewer1 + ' + Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.DocumentViewer1.FileLoaded = False + Me.DocumentViewer1.Location = New System.Drawing.Point(0, 158) + Me.DocumentViewer1.Name = "DocumentViewer1" + Me.DocumentViewer1.Size = New System.Drawing.Size(1125, 500) + Me.DocumentViewer1.TabIndex = 3 + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + Me.OpenFileDialog1.Filter = "PDF Files|*.pdf" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Delete" + Me.BarButtonItem3.Id = 6 + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'Form1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1125, 658) + Me.Controls.Add(Me.DocumentViewer1) + Me.Controls.Add(Me.ribbonControl1) + Me.Name = "Form1" + Me.Ribbon = Me.ribbonControl1 + Me.Text = "Form1" + CType(Me.ribbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + +#End Region + + Private WithEvents ribbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Private WithEvents ribbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Private WithEvents ribbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents OpenFileDialog1 As OpenFileDialog + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem +End Class diff --git a/EnvelopeGenerator/Form1.resx b/EnvelopeGenerator.Test/frmMain.resx similarity index 96% rename from EnvelopeGenerator/Form1.resx rename to EnvelopeGenerator.Test/frmMain.resx index 1af7de15..33c7f672 100644 --- a/EnvelopeGenerator/Form1.resx +++ b/EnvelopeGenerator.Test/frmMain.resx @@ -117,4 +117,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 17, 17 + \ No newline at end of file diff --git a/EnvelopeGenerator.Test/frmMain.vb b/EnvelopeGenerator.Test/frmMain.vb new file mode 100644 index 00000000..b88bfe68 --- /dev/null +++ b/EnvelopeGenerator.Test/frmMain.vb @@ -0,0 +1,147 @@ +Imports System.ComponentModel +Imports System.Text +Imports DigitalData.Modules.Logging +Imports GdPicture14 +Imports GdPicture14.Annotations + +Partial Public Class frmMain + Private LogConfig As LogConfig + Private Logger As Logger + + Private GDViewer As GdViewer + Private Manager As AnnotationManager + + Public Sub New() + InitializeComponent() + End Sub + + Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load + LogConfig = New LogConfig(LogConfig.PathType.CustomPath, Application.StartupPath, CompanyName:="Digital Data", ProductName:="EnvelopeGenerator") + Logger = LogConfig.GetLogger() + + DocumentViewer1.Init(LogConfig, "21182889975216572111813147150675976632") + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + If GDViewer IsNot Nothing Then + + AddHandler GDViewer.BeforeAnnotationAddedByUser, AddressOf Viewer_BeforeAnnotationAddedByUser + AddHandler GDViewer.AnnotationAddedByUser, AddressOf Viewer_AnnotationAddedByUser + + GDViewer.AddStickyNoteAnnotationInteractive("SIGNATUR", Color.Black, "Arial", FontStyle.Regular, 10, 1, 0) + + + End If + End Sub + + Private Sub Viewer_AnnotationAddedByUser(AnnotationIdx As Integer) + Dim oAnnotation = GDViewer.GetAnnotationFromIdx(AnnotationIdx) + + If TypeOf oAnnotation Is AnnotationStickyNote Then + Dim oStickyNote As AnnotationStickyNote = oAnnotation + oStickyNote.Width = 1 + oStickyNote.Height = 1 + + ApplyAnnotationStyle(oAnnotation) + End If + + oAnnotation.CanRotate = False + oAnnotation.CanEdit = False + oAnnotation.CanResize = False + End Sub + + Private Sub Viewer_BeforeAnnotationAddedByUser(AnnotationIdx As Integer) + 'NOOP + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + If OpenFileDialog1.ShowDialog() = DialogResult.OK Then + Dim oFilePath = OpenFileDialog1.FileName + DocumentViewer1.LoadFile(oFilePath) + + If DocumentViewer1.PdfViewer IsNot Nothing Then + GDViewer = DocumentViewer1.PdfViewer + Manager = GDViewer.GetAnnotationManager() + Manager.InitFromGdViewer(GDViewer) + End If + End If + End Sub + + Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick + Dim oAnnotationCount = GDViewer.GetAnnotationCount() + For index = 0 To oAnnotationCount + Dim oAnnotation As Annotation = GDViewer.GetAnnotationFromIdx(index) + + If TypeOf oAnnotation Is AnnotationStickyNote Then + Dim oStickyNote As AnnotationStickyNote = oAnnotation + + Dim oWidth = InchToPixel(oStickyNote.Width) + Dim oHeight = InchToPixel(oStickyNote.Height) + Dim oTop = InchToPixel(oStickyNote.Top) + Dim oLeft = InchToPixel(oStickyNote.Left) + End If + Next + + End Sub + + Private Function InchToPixel(pInch As Single) As Single + Return pInch * 96 + End Function + + Private Function PixelToInch(pPixel As Single) As Single + Return pPixel / 96 + End Function + + Private Sub ApplyAnnotationStyle(ByRef pAnnotation As Annotation) + If TypeOf pAnnotation Is AnnotationStickyNote Then + Dim oStickyNote As AnnotationStickyNote = pAnnotation + oStickyNote.Fill = True + oStickyNote.FillColor = Color.LightGoldenrodYellow + oStickyNote.Text = "SIGNATUR" + oStickyNote.Alignment = StringAlignment.Center + oStickyNote.LineAlignment = StringAlignment.Center + End If + End Sub + + Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick + + Dim oAnnotation As AnnotationStickyNote = Manager.AddStickyNoteAnnot(0, 0, 0, 0, "SIGNATUR") + + + If Manager.GetStat() = GdPictureStatus.OK Then + oAnnotation.Width = 2 + oAnnotation.Height = 2 + oAnnotation.Left = 1 + oAnnotation.Top = 1 + oAnnotation.Fill = True + oAnnotation.FillColor = Color.DarkRed + oAnnotation.Text = "SIGNATUR JUNGE" + + + If Manager.SaveAnnotationsToPage() = GdPictureStatus.OK Then + 'oManager.BurnAnnotationsToPage(True) + + 'GDViewer.ReloadAnnotations() + 'GDViewer.Redraw() + End If + End If + End Sub + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) + + End Sub + + Private Sub BarButtonItem3_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + Dim oSelected = GDViewer.GetSelectedAnnotationIdx() + + If oSelected = -1 Then + Exit Sub + End If + + If MsgBox("Wollen Sie die Annotation löschen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, Text) = DialogResult.Yes Then + GDViewer.DeleteAnnotation(oSelected) + End If + End Sub +End Class + + diff --git a/EnvelopeGenerator.Test/packages.config b/EnvelopeGenerator.Test/packages.config new file mode 100644 index 00000000..ce98cd21 --- /dev/null +++ b/EnvelopeGenerator.Test/packages.config @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/EnvelopeGenerator.sln b/EnvelopeGenerator.sln index 0a015949..606f701e 100644 --- a/EnvelopeGenerator.sln +++ b/EnvelopeGenerator.sln @@ -3,7 +3,9 @@ Microsoft Visual Studio Solution File, Format Version 12.00 # Visual Studio Version 17 VisualStudioVersion = 17.5.33516.290 MinimumVisualStudioVersion = 10.0.40219.1 -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EnvelopeGenerator", "EnvelopeGenerator\EnvelopeGenerator.vbproj", "{089D5634-FB6B-42D0-B912-7AA7457044E7}" +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EnvelopeGenerator.Test", "EnvelopeGenerator.Test\EnvelopeGenerator.Test.vbproj", "{089D5634-FB6B-42D0-B912-7AA7457044E7}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EnvelopeGenerator.Form", "EnvelopeGenerator.Form\EnvelopeGenerator.Form.vbproj", "{6D56C01F-D6CB-4D8A-BD3D-4FD34326998C}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution @@ -15,8 +17,15 @@ Global {089D5634-FB6B-42D0-B912-7AA7457044E7}.Debug|Any CPU.Build.0 = Debug|Any CPU {089D5634-FB6B-42D0-B912-7AA7457044E7}.Release|Any CPU.ActiveCfg = Release|Any CPU {089D5634-FB6B-42D0-B912-7AA7457044E7}.Release|Any CPU.Build.0 = Release|Any CPU + {6D56C01F-D6CB-4D8A-BD3D-4FD34326998C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {6D56C01F-D6CB-4D8A-BD3D-4FD34326998C}.Debug|Any CPU.Build.0 = Debug|Any CPU + {6D56C01F-D6CB-4D8A-BD3D-4FD34326998C}.Release|Any CPU.ActiveCfg = Release|Any CPU + {6D56C01F-D6CB-4D8A-BD3D-4FD34326998C}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {73E60370-756D-45AD-A19A-C40A02DACCC7} + EndGlobalSection EndGlobal diff --git a/EnvelopeGenerator/Form1.Designer.vb b/EnvelopeGenerator/Form1.Designer.vb deleted file mode 100644 index 6abe5483..00000000 --- a/EnvelopeGenerator/Form1.Designer.vb +++ /dev/null @@ -1,86 +0,0 @@ -Partial Public Class Form1 - Inherits DevExpress.XtraBars.Ribbon.RibbonForm - - ''' - ''' Required designer variable. - ''' - Private components As System.ComponentModel.IContainer = Nothing - - ''' - ''' Clean up any resources being used. - ''' - ''' true if managed resources should be disposed; otherwise, false. - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - If disposing AndAlso (components IsNot Nothing) Then - components.Dispose() - End If - MyBase.Dispose(disposing) - End Sub - -#Region "Windows Form Designer generated code" - - ''' - ''' Required method for Designer support - do not modify - ''' the contents of this method with the code editor. - ''' - Private Sub InitializeComponent() - Me.ribbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() - Me.ribbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.ribbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.PdfViewer1 = New DevExpress.XtraPdfViewer.PdfViewer() - CType(Me.ribbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'ribbonControl1 - ' - Me.ribbonControl1.ExpandCollapseItem.Id = 0 - Me.ribbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonControl1.ExpandCollapseItem, Me.ribbonControl1.SearchEditItem}) - Me.ribbonControl1.Location = New System.Drawing.Point(0, 0) - Me.ribbonControl1.MaxItemId = 1 - Me.ribbonControl1.Name = "ribbonControl1" - Me.ribbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.ribbonPage1}) - Me.ribbonControl1.Size = New System.Drawing.Size(1125, 158) - ' - 'ribbonPage1 - ' - Me.ribbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.ribbonPageGroup1}) - Me.ribbonPage1.Name = "ribbonPage1" - Me.ribbonPage1.Text = "ribbonPage1" - ' - 'ribbonPageGroup1 - ' - Me.ribbonPageGroup1.Name = "ribbonPageGroup1" - Me.ribbonPageGroup1.Text = "ribbonPageGroup1" - ' - 'PdfViewer1 - ' - Me.PdfViewer1.Dock = System.Windows.Forms.DockStyle.Fill - Me.PdfViewer1.Location = New System.Drawing.Point(0, 158) - Me.PdfViewer1.MenuManager = Me.ribbonControl1 - Me.PdfViewer1.Name = "PdfViewer1" - Me.PdfViewer1.Size = New System.Drawing.Size(1125, 500) - Me.PdfViewer1.TabIndex = 1 - ' - 'Form1 - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1125, 658) - Me.Controls.Add(Me.PdfViewer1) - Me.Controls.Add(Me.ribbonControl1) - Me.Name = "Form1" - Me.Ribbon = Me.ribbonControl1 - Me.Text = "Form1" - CType(Me.ribbonControl1, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - -#End Region - - Private WithEvents ribbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl - Private WithEvents ribbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage - Private WithEvents ribbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents PdfViewer1 As DevExpress.XtraPdfViewer.PdfViewer -End Class diff --git a/EnvelopeGenerator/Form1.vb b/EnvelopeGenerator/Form1.vb deleted file mode 100644 index cce55e5c..00000000 --- a/EnvelopeGenerator/Form1.vb +++ /dev/null @@ -1,9 +0,0 @@ -Imports System.ComponentModel -Imports System.Text - - -Partial Public Class Form1 - Public Sub New() - InitializeComponent() - End Sub -End Class diff --git a/EnvelopeGenerator/My Project/licenses.licx b/EnvelopeGenerator/My Project/licenses.licx deleted file mode 100644 index a3ad70c7..00000000 --- a/EnvelopeGenerator/My Project/licenses.licx +++ /dev/null @@ -1,2 +0,0 @@ -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a