This commit is contained in:
2022-05-20 11:26:03 +02:00
parent 90e31c01b5
commit a0f99ba5a4
21 changed files with 432 additions and 228 deletions

View File

@@ -124,6 +124,12 @@
<Compile Include="DataResultList\frmDataResultList.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmDialog.Designer.vb">
<DependentUpon>frmDialog.vb</DependentUpon>
</Compile>
<Compile Include="frmDialog.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="DocumentResultList\CheckInOut.vb" />
<Compile Include="DocumentResultList\Layout.vb" />
<Compile Include="DocumentResultList\Loader.vb" />
@@ -210,6 +216,9 @@
<EmbeddedResource Include="DataResultList\frmDataResultList.resx">
<DependentUpon>frmDataResultList.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmDialog.resx">
<DependentUpon>frmDialog.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmDocumentResultList.en-US.resx">
<DependentUpon>frmDocumentResultList.vb</DependentUpon>
</EmbeddedResource>

113
GUIs.Common/frmDialog.Designer.vb generated Normal file
View File

@@ -0,0 +1,113 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmDialog
Inherits DevExpress.XtraEditors.XtraForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.OK_Button = New System.Windows.Forms.Button()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblMeldung = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.SuspendLayout()
'
'OK_Button
'
Me.OK_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.OK_Button.Location = New System.Drawing.Point(3, 10)
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(86, 32)
Me.OK_Button.TabIndex = 0
Me.OK_Button.Text = "OK"
'
'Cancel_Button
'
Me.Cancel_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Cancel_Button.Location = New System.Drawing.Point(358, 10)
Me.Cancel_Button.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(91, 32)
Me.Cancel_Button.TabIndex = 1
Me.Cancel_Button.Text = "Abbrechen"
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.OrangeRed
Me.Panel1.Controls.Add(Me.lblMeldung)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(452, 180)
Me.Panel1.TabIndex = 2
'
'lblMeldung
'
Me.lblMeldung.AutoSize = True
Me.lblMeldung.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblMeldung.Location = New System.Drawing.Point(3, 9)
Me.lblMeldung.Name = "lblMeldung"
Me.lblMeldung.Size = New System.Drawing.Size(56, 21)
Me.lblMeldung.TabIndex = 0
Me.lblMeldung.Text = "Label1"
'
'Panel2
'
Me.Panel2.Controls.Add(Me.OK_Button)
Me.Panel2.Controls.Add(Me.Cancel_Button)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 180)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(452, 45)
Me.Panel2.TabIndex = 3
'
'frmDialog
'
Me.AcceptButton = Me.OK_Button
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel_Button
Me.ClientSize = New System.Drawing.Size(452, 225)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmDialog"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Dialog1"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.Panel2.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents Panel1 As Windows.Forms.Panel
Friend WithEvents Panel2 As Windows.Forms.Panel
Friend WithEvents lblMeldung As Windows.Forms.Label
End Class

120
GUIs.Common/frmDialog.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

39
GUIs.Common/frmDialog.vb Normal file
View File

@@ -0,0 +1,39 @@
Imports System.Drawing
Imports System.Windows.Forms
Public Class frmDialog
Public Sub New(pMessageText As String, pTitle As String, IsError As Boolean)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.lblMeldung.Text = pMessageText
Me.Text = pTitle
If IsError Then
Panel1.BackColor = Color.Red
Cancel_Button.Visible = False
Else
Panel1.BackColor = Color.OrangeRed
Cancel_Button.Visible = True
End If
End Sub
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Public Sub CancelButtonInvisible()
Cancel_Button.Visible = False
End Sub
Public Sub CancelButtonVisible()
Cancel_Button.Visible = True
End Sub
End Class

View File

@@ -24,6 +24,13 @@ Partial Class frmWorkflow_Adhoc_start
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWorkflow_Adhoc_start))
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 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()
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 TableColumnDefinition3 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableColumnDefinition4 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
@@ -31,25 +38,32 @@ Partial Class frmWorkflow_Adhoc_start
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()
Me.ColTitle = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.TileViewColumn2 = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.TileViewColumn4 = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.colEmail = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.colFullName = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.colImage = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem3 = 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.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.cmbWorkflowSelect = New System.Windows.Forms.ComboBox()
Me.LookUpEdit1 = New DevExpress.XtraEditors.LookUpEdit()
Me.GroupControl1 = New DevExpress.XtraEditors.GroupControl()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.GroupControl2 = New DevExpress.XtraEditors.GroupControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.GridControlWorkflows = New DevExpress.XtraGrid.GridControl()
Me.TileViewWorkflows = New DevExpress.XtraGrid.Views.Tile.TileView()
Me.TileViewColumn3 = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GroupControl3 = New DevExpress.XtraEditors.GroupControl()
Me.GridPredefinedSearches = New DevExpress.XtraGrid.GridControl()
Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView()
Me.colName = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.colDescription = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.GridSelectedUsers = New DevExpress.XtraGrid.GridControl()
Me.TileViewUser = New DevExpress.XtraGrid.Views.Tile.TileView()
Me.colCount = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.colImage = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components)
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -58,45 +72,119 @@ Partial Class frmWorkflow_Adhoc_start
Me.GroupControl1.SuspendLayout()
CType(Me.GroupControl2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupControl2.SuspendLayout()
CType(Me.GridControlWorkflows, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TileViewWorkflows, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GroupControl3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupControl3.SuspendLayout()
CType(Me.GridPredefinedSearches, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridSelectedUsers, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TileViewUser, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ColTitle
'
Me.ColTitle.Caption = "Title"
Me.ColTitle.FieldName = "Title"
Me.ColTitle.Name = "ColTitle"
Me.ColTitle.Visible = True
Me.ColTitle.VisibleIndex = 0
'
'TileViewColumn2
'
Me.TileViewColumn2.Caption = "Description"
Me.TileViewColumn2.FieldName = "Description"
Me.TileViewColumn2.Name = "TileViewColumn2"
Me.TileViewColumn2.Visible = True
Me.TileViewColumn2.VisibleIndex = 1
'
'TileViewColumn4
'
Me.TileViewColumn4.Caption = "Image"
Me.TileViewColumn4.FieldName = "Image"
Me.TileViewColumn4.Name = "TileViewColumn4"
Me.TileViewColumn4.Visible = True
Me.TileViewColumn4.VisibleIndex = 3
'
'colEmail
'
Me.colEmail.Caption = "ColEmail"
Me.colEmail.FieldName = "Email"
Me.colEmail.Name = "colEmail"
Me.colEmail.Visible = True
Me.colEmail.VisibleIndex = 0
'
'colFullName
'
Me.colFullName.Caption = "colFullName"
Me.colFullName.FieldName = "FullName"
Me.colFullName.Name = "colFullName"
Me.colFullName.Visible = True
Me.colFullName.VisibleIndex = 1
'
'colImage
'
Me.colImage.Caption = "Image"
Me.colImage.FieldName = "Image"
Me.colImage.Name = "colImage"
Me.colImage.Visible = True
Me.colImage.VisibleIndex = 3
'
'RibbonControl1
'
Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green
Me.RibbonControl1.EmptyAreaImageOptions.ImagePadding = New System.Windows.Forms.Padding(35, 39, 35, 39)
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1})
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.RibbonControl1.MaxItemId = 2
Me.RibbonControl1.MaxItemId = 4
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.OptionsMenuMinWidth = 385
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.Size = New System.Drawing.Size(933, 158)
Me.RibbonControl1.Size = New System.Drawing.Size(1061, 158)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "Speichern und Schliessen"
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'BarButtonItem2
'
Me.BarButtonItem2.Caption = "Abbrechen und Schliessen"
Me.BarButtonItem2.Id = 2
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'BarButtonItem3
'
Me.BarButtonItem3.Caption = "Gewählten User entfernen"
Me.BarButtonItem3.Id = 3
Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem3.Name = "BarButtonItem3"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "RibbonPage1"
Me.RibbonPage1.Text = "Start"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Funktionen"
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "Aktionen Auswahl"
'
'RibbonStatusBar1
'
@@ -104,22 +192,13 @@ Partial Class frmWorkflow_Adhoc_start
Me.RibbonStatusBar1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(933, 24)
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1061, 24)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'cmbWorkflowSelect
'
Me.cmbWorkflowSelect.FormattingEnabled = True
Me.cmbWorkflowSelect.Location = New System.Drawing.Point(5, 32)
Me.cmbWorkflowSelect.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.cmbWorkflowSelect.Name = "cmbWorkflowSelect"
Me.cmbWorkflowSelect.Size = New System.Drawing.Size(337, 21)
Me.cmbWorkflowSelect.TabIndex = 2
'
'LookUpEdit1
'
Me.LookUpEdit1.Location = New System.Drawing.Point(5, 30)
@@ -128,6 +207,7 @@ Partial Class frmWorkflow_Adhoc_start
Me.LookUpEdit1.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LookUpEdit1.Properties.Appearance.Options.UseFont = True
Me.LookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.LookUpEdit1.Properties.SearchMode = DevExpress.XtraEditors.Controls.SearchMode.AutoSuggest
Me.LookUpEdit1.Size = New System.Drawing.Size(337, 24)
Me.LookUpEdit1.TabIndex = 8
'
@@ -137,93 +217,142 @@ Partial Class frmWorkflow_Adhoc_start
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupControl1.Appearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(19, Byte), Integer))
Me.GroupControl1.Appearance.Options.UseBorderColor = True
Me.GroupControl1.Controls.Add(Me.SimpleButton1)
Me.GroupControl1.Controls.Add(Me.LookUpEdit1)
Me.GroupControl1.Location = New System.Drawing.Point(12, 242)
Me.GroupControl1.Location = New System.Drawing.Point(12, 321)
Me.GroupControl1.Name = "GroupControl1"
Me.GroupControl1.Size = New System.Drawing.Size(909, 70)
Me.GroupControl1.Size = New System.Drawing.Size(1037, 70)
Me.GroupControl1.TabIndex = 10
Me.GroupControl1.Text = "Benutzerauswahl"
'
'SimpleButton1
'
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton1.Location = New System.Drawing.Point(348, 23)
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light
Me.SimpleButton1.Size = New System.Drawing.Size(108, 31)
Me.SimpleButton1.TabIndex = 9
Me.SimpleButton1.Text = "Hinzufügen"
'
'GroupControl2
'
Me.GroupControl2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupControl2.Appearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(19, Byte), Integer))
Me.GroupControl2.Appearance.Options.UseBorderColor = True
Me.GroupControl2.Controls.Add(Me.cmbWorkflowSelect)
Me.GroupControl2.Controls.Add(Me.GridControlWorkflows)
Me.GroupControl2.Location = New System.Drawing.Point(12, 173)
Me.GroupControl2.Name = "GroupControl2"
Me.GroupControl2.Size = New System.Drawing.Size(909, 63)
Me.GroupControl2.Size = New System.Drawing.Size(1037, 142)
Me.GroupControl2.TabIndex = 11
Me.GroupControl2.Text = "Workflow Auswahl"
'
'BarButtonItem1
'GridControlWorkflows
'
Me.BarButtonItem1.Caption = "Speichern und Schliessen"
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
Me.GridControlWorkflows.Location = New System.Drawing.Point(5, 26)
Me.GridControlWorkflows.MainView = Me.TileViewWorkflows
Me.GridControlWorkflows.MenuManager = Me.RibbonControl1
Me.GridControlWorkflows.Name = "GridControlWorkflows"
Me.GridControlWorkflows.Size = New System.Drawing.Size(1027, 111)
Me.GridControlWorkflows.TabIndex = 3
Me.GridControlWorkflows.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileViewWorkflows, Me.GridView2})
'
'TileViewWorkflows
'
Me.TileViewWorkflows.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColTitle, Me.TileViewColumn2, Me.TileViewColumn3, Me.TileViewColumn4})
Me.TileViewWorkflows.GridControl = Me.GridControlWorkflows
Me.TileViewWorkflows.Name = "TileViewWorkflows"
Me.TileViewWorkflows.OptionsTiles.AllowItemHover = True
Me.TileViewWorkflows.OptionsTiles.ItemSize = New System.Drawing.Size(190, 80)
Me.TileViewWorkflows.OptionsTiles.Orientation = System.Windows.Forms.Orientation.Vertical
Me.TileViewWorkflows.OptionsTiles.RowCount = 2
Me.TileViewWorkflows.OptionsTiles.VerticalContentAlignment = DevExpress.Utils.VertAlignment.Center
TableColumnDefinition1.Length.Value = 35.0R
TableColumnDefinition1.PaddingRight = 5
TableColumnDefinition2.Length.Value = 129.0R
Me.TileViewWorkflows.TileColumns.Add(TableColumnDefinition1)
Me.TileViewWorkflows.TileColumns.Add(TableColumnDefinition2)
TableRowDefinition1.Length.Value = 21.0R
TableRowDefinition2.Length.Value = 43.0R
Me.TileViewWorkflows.TileRows.Add(TableRowDefinition1)
Me.TileViewWorkflows.TileRows.Add(TableRowDefinition2)
TileViewItemElement1.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TileViewItemElement1.Appearance.Normal.Options.UseFont = True
TileViewItemElement1.Column = Me.ColTitle
TileViewItemElement1.ColumnIndex = 1
TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement1.Text = "colName"
TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement2.Column = Me.TileViewColumn2
TileViewItemElement2.ColumnIndex = 1
TileViewItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement2.RowIndex = 1
TileViewItemElement2.Text = "colDescription"
TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement3.Column = Me.TileViewColumn4
TileViewItemElement3.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement3.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement3.RowIndex = 1
TileViewItemElement3.Text = "colImage"
TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
Me.TileViewWorkflows.TileTemplate.Add(TileViewItemElement1)
Me.TileViewWorkflows.TileTemplate.Add(TileViewItemElement2)
Me.TileViewWorkflows.TileTemplate.Add(TileViewItemElement3)
'
'TileViewColumn3
'
Me.TileViewColumn3.Caption = "ID"
Me.TileViewColumn3.FieldName = "ID"
Me.TileViewColumn3.Name = "TileViewColumn3"
Me.TileViewColumn3.Visible = True
Me.TileViewColumn3.VisibleIndex = 2
'
'GridView2
'
Me.GridView2.GridControl = Me.GridControlWorkflows
Me.GridView2.Name = "GridView2"
'
'GroupControl3
'
Me.GroupControl3.Appearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(19, Byte), Integer))
Me.GroupControl3.Appearance.Options.UseBorderColor = True
Me.GroupControl3.Controls.Add(Me.GridPredefinedSearches)
Me.GroupControl3.Location = New System.Drawing.Point(12, 318)
Me.GroupControl3.Controls.Add(Me.GridSelectedUsers)
Me.GroupControl3.Location = New System.Drawing.Point(12, 397)
Me.GroupControl3.Name = "GroupControl3"
Me.GroupControl3.Size = New System.Drawing.Size(909, 295)
Me.GroupControl3.Size = New System.Drawing.Size(1037, 243)
Me.GroupControl3.TabIndex = 15
Me.GroupControl3.Text = "GroupControl3"
Me.GroupControl3.Text = "Aktuelle User"
'
'GridPredefinedSearches
'GridSelectedUsers
'
Me.GridPredefinedSearches.Location = New System.Drawing.Point(25, 99)
Me.GridPredefinedSearches.MainView = Me.TileView1
Me.GridPredefinedSearches.MenuManager = Me.RibbonControl1
Me.GridPredefinedSearches.Name = "GridPredefinedSearches"
Me.GridPredefinedSearches.Size = New System.Drawing.Size(858, 96)
Me.GridPredefinedSearches.TabIndex = 2
Me.GridPredefinedSearches.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1, Me.GridView1})
Me.GridSelectedUsers.Location = New System.Drawing.Point(25, 41)
Me.GridSelectedUsers.MainView = Me.TileViewUser
Me.GridSelectedUsers.MenuManager = Me.RibbonControl1
Me.GridSelectedUsers.Name = "GridSelectedUsers"
Me.GridSelectedUsers.Size = New System.Drawing.Size(1007, 185)
Me.GridSelectedUsers.TabIndex = 2
Me.GridSelectedUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileViewUser, Me.GridView1})
'
'TileView1
'TileViewUser
'
Me.TileView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colDescription, Me.colCount, Me.colImage})
Me.TileView1.GridControl = Me.GridPredefinedSearches
Me.TileView1.Name = "TileView1"
Me.TileView1.OptionsTiles.AllowItemHover = True
Me.TileView1.OptionsTiles.ItemSize = New System.Drawing.Size(190, 80)
Me.TileView1.OptionsTiles.Orientation = System.Windows.Forms.Orientation.Vertical
Me.TileView1.OptionsTiles.RowCount = 2
Me.TileView1.OptionsTiles.VerticalContentAlignment = DevExpress.Utils.VertAlignment.Center
Me.TileViewUser.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colEmail, Me.colFullName, Me.colCount, Me.colImage})
Me.TileViewUser.GridControl = Me.GridSelectedUsers
Me.TileViewUser.Name = "TileViewUser"
Me.TileViewUser.OptionsTiles.AllowItemHover = True
Me.TileViewUser.OptionsTiles.ItemSize = New System.Drawing.Size(190, 80)
Me.TileViewUser.OptionsTiles.Orientation = System.Windows.Forms.Orientation.Vertical
Me.TileViewUser.OptionsTiles.RowCount = 2
Me.TileViewUser.OptionsTiles.VerticalContentAlignment = DevExpress.Utils.VertAlignment.Center
TableColumnDefinition3.Length.Value = 35.0R
TableColumnDefinition3.PaddingRight = 5
TableColumnDefinition4.Length.Value = 129.0R
Me.TileView1.TileColumns.Add(TableColumnDefinition3)
Me.TileView1.TileColumns.Add(TableColumnDefinition4)
Me.TileViewUser.TileColumns.Add(TableColumnDefinition3)
Me.TileViewUser.TileColumns.Add(TableColumnDefinition4)
TableRowDefinition3.Length.Value = 21.0R
TableRowDefinition4.Length.Value = 43.0R
Me.TileView1.TileRows.Add(TableRowDefinition3)
Me.TileView1.TileRows.Add(TableRowDefinition4)
Me.TileViewUser.TileRows.Add(TableRowDefinition3)
Me.TileViewUser.TileRows.Add(TableRowDefinition4)
TileViewItemElement4.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TileViewItemElement4.Appearance.Normal.Options.UseFont = True
TileViewItemElement4.Column = Me.colName
TileViewItemElement4.Column = Me.colEmail
TileViewItemElement4.ColumnIndex = 1
TileViewItemElement4.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement4.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement4.Text = "colName"
TileViewItemElement4.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement5.Column = Me.colDescription
TileViewItemElement5.Column = Me.colFullName
TileViewItemElement5.ColumnIndex = 1
TileViewItemElement5.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement5.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
@@ -236,57 +365,34 @@ Partial Class frmWorkflow_Adhoc_start
TileViewItemElement6.RowIndex = 1
TileViewItemElement6.Text = "colImage"
TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
Me.TileView1.TileTemplate.Add(TileViewItemElement4)
Me.TileView1.TileTemplate.Add(TileViewItemElement5)
Me.TileView1.TileTemplate.Add(TileViewItemElement6)
'
'colName
'
Me.colName.Caption = "Name"
Me.colName.FieldName = "DisplayName"
Me.colName.Name = "colName"
Me.colName.Visible = True
Me.colName.VisibleIndex = 0
'
'colDescription
'
Me.colDescription.Caption = "Beschreibung"
Me.colDescription.FieldName = "Description"
Me.colDescription.Name = "colDescription"
Me.colDescription.Visible = True
Me.colDescription.VisibleIndex = 1
Me.TileViewUser.TileTemplate.Add(TileViewItemElement4)
Me.TileViewUser.TileTemplate.Add(TileViewItemElement5)
Me.TileViewUser.TileTemplate.Add(TileViewItemElement6)
'
'colCount
'
Me.colCount.Caption = "Anzahl"
Me.colCount.FieldName = "Count"
Me.colCount.Caption = "UserID"
Me.colCount.FieldName = "ID"
Me.colCount.Name = "colCount"
Me.colCount.Visible = True
Me.colCount.VisibleIndex = 2
'
'colImage
'
Me.colImage.Caption = "Image"
Me.colImage.FieldName = "Image"
Me.colImage.Name = "colImage"
Me.colImage.Visible = True
Me.colImage.VisibleIndex = 3
'
'GridView1
'
Me.GridView1.GridControl = Me.GridPredefinedSearches
Me.GridView1.GridControl = Me.GridSelectedUsers
Me.GridView1.Name = "GridView1"
'
'SvgImageCollection1
'
Me.SvgImageCollection1.Add("actions_user", "image://svgimages/icon builder/actions_user.svg")
Me.SvgImageCollection1.Add("Workflow", "image://svgimages/diagramicons/relayoutparts.svg")
'
'frmWorkflow_Adhoc_start
'
Me.Appearance.Options.UseFont = True
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(933, 730)
Me.ClientSize = New System.Drawing.Size(1061, 730)
Me.Controls.Add(Me.GroupControl3)
Me.Controls.Add(Me.GroupControl2)
Me.Controls.Add(Me.GroupControl1)
@@ -304,10 +410,13 @@ Partial Class frmWorkflow_Adhoc_start
Me.GroupControl1.ResumeLayout(False)
CType(Me.GroupControl2, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupControl2.ResumeLayout(False)
CType(Me.GridControlWorkflows, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TileViewWorkflows, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GroupControl3, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupControl3.ResumeLayout(False)
CType(Me.GridPredefinedSearches, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridSelectedUsers, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TileViewUser, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
@@ -321,19 +430,26 @@ Partial Class frmWorkflow_Adhoc_start
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents cmbWorkflowSelect As Windows.Forms.ComboBox
Friend WithEvents LookUpEdit1 As DevExpress.XtraEditors.LookUpEdit
Friend WithEvents GroupControl1 As DevExpress.XtraEditors.GroupControl
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents GroupControl2 As DevExpress.XtraEditors.GroupControl
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents GroupControl3 As DevExpress.XtraEditors.GroupControl
Friend WithEvents GridPredefinedSearches As DevExpress.XtraGrid.GridControl
Friend WithEvents TileView1 As DevExpress.XtraGrid.Views.Tile.TileView
Friend WithEvents colName As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents colDescription As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents GridSelectedUsers As DevExpress.XtraGrid.GridControl
Friend WithEvents TileViewUser As DevExpress.XtraGrid.Views.Tile.TileView
Friend WithEvents colEmail As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents colFullName As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents colCount As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents colImage As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents GridControlWorkflows As DevExpress.XtraGrid.GridControl
Friend WithEvents TileViewWorkflows As DevExpress.XtraGrid.Views.Tile.TileView
Friend WithEvents ColTitle As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents TileViewColumn2 As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents TileViewColumn3 As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents TileViewColumn4 As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView
End Class

View File

@@ -144,11 +144,27 @@
Myw4TDI3LjcsMTAuNHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="SimpleButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy
b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj
RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww
LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw
bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi
IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L
</value>
</data>
<data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFICAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
@@ -156,10 +172,9 @@
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0
QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0
LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
Cjwvc3ZnPgs=
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlJlbW92ZSI+DQogICAgPHBhdGggZD0iTTI3LDE4SDVj
LTAuNiwwLTEtMC41LTEtMXYtMmMwLTAuNiwwLjQtMSwxLTFoMjJjMC41LDAsMSwwLjQsMSwxdjJDMjgs
MTcuNSwyNy41LDE4LDI3LDE4eiIgY2xhc3M9IlJlZCIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value>
</data>
<metadata name="SvgImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

View File

@@ -7,6 +7,7 @@ Imports DevExpress.XtraEditors
Imports System.Drawing
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports DevExpress.Utils.Svg
Imports DevExpress.XtraGrid
Public Class frmWorkflow_Adhoc_start
Private ReadOnly Property LogConfig As LogConfig
@@ -16,7 +17,8 @@ Public Class frmWorkflow_Adhoc_start
Private ReadOnly AdHocWorkflow As AdHocWorkflow
Private Client As Client
Private IsLoading As Boolean = True
Private WFUserList As List(Of WFUSer)
Private WFUserList As List(Of User2Workflow)
Private WorkflowList As List(Of Workflows)
Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pAdhocWorkflow As AdHocWorkflow)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -44,7 +46,8 @@ Public Class frmWorkflow_Adhoc_start
OperationMode = GetOperationMode()
Client = Environment.Service.Client
WFUserList = New List(Of User2Workflow)
WorkflowList = New List(Of Workflows)
' Initialize Viewer with GDPicture.NET License
' Hide options relating to a filepath for zooflow
If OperationMode = OperationMode.ZooFlow Then
@@ -92,16 +95,23 @@ Public Class frmWorkflow_Adhoc_start
oDatatableWFSelect = Environment.Database.GetDatatable(oSQL)
End If
If Not IsNothing(oDatatableWFSelect) Then
cmbWorkflowSelect.DataSource = oDatatableWFSelect
cmbWorkflowSelect.ValueMember = oDatatableWFSelect.Columns(0).ColumnName
cmbWorkflowSelect.DisplayMember = oDatatableWFSelect.Columns(1).ColumnName
For Each oRow As DataRow In oDatatableWFSelect.Rows
WorkflowList.Add(New Workflows() With {
.ID = oRow.Item(0),
.Description = IIf(IsDBNull(oRow.Item(2)), "", oRow.Item(2)),
.Title = oRow.Item(1),
.Image = SvgImageCollection1.Item("Workflow")
})
Next
End If
GridControlWorkflows.DataSource = WorkflowList
TileViewWorkflows.FocusedRowHandle = GridControl.InvalidRowHandle
If OperationMode = OperationMode.NoAppServer Then
' panelContainerStatus.Visibility = Docking.DockVisibility.Hidden
End If
WFUserList = New List(Of WFUSer)
WFUserList = New List(Of User2Workflow)
' Hide the complete Navigation Ribbon Group if desired
Catch ex As Exception
@@ -115,21 +125,15 @@ Public Class frmWorkflow_Adhoc_start
End Try
End Sub
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
Dim oUser As New WFUSer() With {
.Mail = "Heute",
.UserID = "Dokumente, die heute abgelegt wurden",
.Image = SvgImageCollection1.Item("actions_user")
}
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs)
End Sub
Private Class ListItem
Public Name As String
Public email As String
End Class
Friend Class WFUSer
Public Property Mail As String
Friend Class User2Workflow
Public Property UserID As Integer
Public Property EMail As String
Public Property FullName As String
Public Property Image As SvgImage
Public Property Count As Integer = 0
@@ -140,4 +144,58 @@ Public Class frmWorkflow_Adhoc_start
End Property
End Class
Friend Class Workflows
Public Property Description As String
Public Property Title As String
Public Property ID As Integer
Public Property Image As SvgImage
Public Property Count As Integer = 0
Public ReadOnly Property DisplayName As String
Get
Return ID
End Get
End Property
End Class
Private Sub LookUpEdit1_EditValueChanged(sender As Object, e As EventArgs) Handles LookUpEdit1.EditValueChanged
Dim editor As DevExpress.XtraEditors.LookUpEdit = CType(sender, DevExpress.XtraEditors.LookUpEdit)
Dim row As DataRowView = CType(editor.Properties.GetDataSourceRowByKeyValue(editor.EditValue), DataRowView)
Dim UsID As Object = row("ID")
Dim UsFname As Object = row("FullName")
Dim UsEmail As Object = row("Email")
WFUserList.Add(New User2Workflow() With {
.UserID = UsID,
.FullName = UsFname,
.EMail = UsEmail,
.Image = SvgImageCollection1.Item("actions_user")
})
GridSelectedUsers.DataSource = Nothing
GridSelectedUsers.DataSource = WFUserList
TileViewUser.FocusedRowHandle = GridControl.InvalidRowHandle
'Else
' Dim omsg = "Bitte wählen Sie zuerst einen Workflow"
' If Environment.User.Language <> "de-DE" Then
' omsg = "Please choose a workflow first"
' End If
' Dim oMsgBox As New frmDialog(omsg, "Error", False)
' oMsgBox.ShowDialog()
'End If
End Sub
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
Dim oUserRow = TileViewUser.GetRow(TileViewUser.FocusedRowHandle)
If oUserRow IsNot Nothing AndAlso TypeOf oUserRow Is User2Workflow Then
Dim oDateSearch As User2Workflow = oUserRow
WFUserList.Remove(oDateSearch)
GridSelectedUsers.DataSource = Nothing
GridSelectedUsers.DataSource = WFUserList
End If
End Sub
End Class