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

Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/TaskFlow

Browse Source
This commit is contained in:
SchreiberM 2023-06-15 17:08:47 +02:00
commit a7b9fc14e8
26 changed files with 1171 additions and 1856 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/SetupVS19/Product.wxs
View File

@ -125,15 +125,13 @@
<File Id="DDLanguage" Name="DigitalData.Modules.Language.dll" Source="DigitalData.Modules.Language.dll"/> <File Id="DDLanguage" Name="DigitalData.Modules.Language.dll" Source="DigitalData.Modules.Language.dll"/>
<File Id="DDFilesystem" Name="DigitalData.Modules.Filesystem.dll" Source="DigitalData.Modules.Filesystem.dll"/> <File Id="DDFilesystem" Name="DigitalData.Modules.Filesystem.dll" Source="DigitalData.Modules.Filesystem.dll"/>
<File Id="DDEncryption" Name="DigitalData.Modules.Encryption.dll" Source="DigitalData.Modules.Encryption.dll"/> <File Id="DDEncryption" Name="DigitalData.Modules.Encryption.dll" Source="DigitalData.Modules.Encryption.dll"/>
<File Id="DDWindream" Name="DigitalData.Modules.Windream.dll" Source="DigitalData.Modules.Windream.dll"/> <File Id="DDWindream" Name="DigitalData.Modules.Windream.dll" Source="DigitalData.Modules.Windream.dll"/>
<File Id="DDWindows" Name="DigitalData.Modules.Windows.dll" Source="DigitalData.Modules.Windows.dll"/> <File Id="DDWindows" Name="DigitalData.Modules.Windows.dll" Source="DigitalData.Modules.Windows.dll"/>
<File Id="DDZooflow" Name="DigitalData.Modules.Zooflow.dll" Source="DigitalData.Modules.Zooflow.dll"/> <File Id="DDZooflow" Name="DigitalData.Modules.Zooflow.dll" Source="DigitalData.Modules.Zooflow.dll"/>
<File Id="DDDatabase" Name="DigitalData.Modules.Database.dll" Source="DigitalData.Modules.Database.dll"/> <File Id="DDDatabase" Name="DigitalData.Modules.Database.dll" Source="DigitalData.Modules.Database.dll"/>
<File Id="DDPatterns" Name="DigitalData.Modules.Patterns.dll" Source="DigitalData.Modules.Patterns.dll"/> <File Id="DDPatterns" Name="DigitalData.Modules.Patterns.dll" Source="DigitalData.Modules.Patterns.dll"/>
<File Id="DDEDMIAPI" Name="DigitalData.Modules.EDMI.API.dll" Source="DigitalData.Modules.EDMI.API.dll"/> <File Id="DDEDMIAPI" Name="DigitalData.Modules.EDMI.API.dll" Source="DigitalData.Modules.EDMI.API.dll"/>
<File Id="DDDocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" Source="DigitalData.Controls.DocumentViewer.dll"/> <File Id="DDDocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" Source="DigitalData.Controls.DocumentViewer.dll"/>
<File Id="DDChatControl" Name="DigitalData.Controls.ChatControl.dll" Source="DigitalData.Controls.ChatControl.dll"/>
<File Id="DDNewConv" Name="DigitalData.Controls.ChatNewConv.dll" Source="DigitalData.Controls.ChatNewConv.dll"/>
<File Id="Messaging" Name="DigitalData.Modules.Messaging.dll" Source="DigitalData.Modules.Messaging.dll" KeyPath="no" /> <File Id="Messaging" Name="DigitalData.Modules.Messaging.dll" Source="DigitalData.Modules.Messaging.dll" KeyPath="no" />
<File Id="Messaging.License" Name="MailLicense.xml" Source="MailLicense.xml" KeyPath="no" /> <File Id="Messaging.License" Name="MailLicense.xml" Source="MailLicense.xml" KeyPath="no" />
<File Id="Limilabs.Mail" Name="Mail.dll" Source="Mail.dll" KeyPath="no" /> <File Id="Limilabs.Mail" Name="Mail.dll" Source="Mail.dll" KeyPath="no" />

8
app/TaskFlow/Changelog.md Normal file
View File

@ -0,0 +1,8 @@
# CHANGELOG
## 2.5.0.0
### Features
- Modernisierung von verschiedenen Elementen (Validator, Startseite)
- Format Strings für Textboxen (Währung, Fließkommazahlen, Datum & Uhrzeit)

3
app/TaskFlow/ClassAllgemeineFunktionen.vb
View File

@ -102,9 +102,8 @@ Public Class ClassAllgemeineFunktionen
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Error in Insert_LogEntry: " & ex.Message) LOGGER.Info("Error in Insert_LogEntry: " & ex.Message)
End Try End Try
End Function End Function
Public Function ExecuteonMSSQL(ByVal sqlcommand As String, ConString As String) Public Function ExecuteonMSSQL(ByVal sqlcommand As String, ConString As String)
Try Try
' die nötigen Variablen definieren ' die nötigen Variablen definieren

360
app/TaskFlow/ClassControlCreator.vb
View File

@ -14,9 +14,11 @@ Imports DigitalData.Controls.LookupGrid
Imports DigitalData.Modules.Language.Utils Imports DigitalData.Modules.Language.Utils
Imports DigitalData.GUIs.Common Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Language
Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
Imports DigitalData.Modules.EDMI.API.Constants Imports DigitalData.Modules.EDMI.API.Constants
Imports DigitalData.Modules.Language.DataTableEx Imports DigitalData.Modules.Language.DataTableEx
Imports DigitalData.Modules.Base
Public Class ClassControlCreator Public Class ClassControlCreator
@ -62,13 +64,14 @@ Public Class ClassControlCreator
Public Const CONTROL_TYPE_DATETIME = "DATETIME" Public Const CONTROL_TYPE_DATETIME = "DATETIME"
Public Shared Property Logger As Logger Public ReadOnly Property Logger As Logger
Public ReadOnly Property LogConfig As LogConfig
''' <summary> ''' <summary>
''' Saves the column data for each grid and each column in that grid ''' Saves the column data for each grid and each column in that grid
''' </summary> ''' </summary>
Public Shared Property GridTables As New Dictionary(Of Integer, Dictionary(Of String, RepositoryItem)) Public Property GridTables As New Dictionary(Of Integer, Dictionary(Of String, RepositoryItem))
Public Shared Property GridColumns As New Dictionary(Of Integer, DataTable) Public Property GridColumns As New Dictionary(Of Integer, DataTable)
''' <summary> ''' <summary>
''' Standard Eigenschaften für alle Controls ''' Standard Eigenschaften für alle Controls
@ -86,9 +89,15 @@ Public Class ClassControlCreator
Public Guid As Integer Public Guid As Integer
Public Name As String Public Name As String
Public [ReadOnly] As Boolean = False Public [ReadOnly] As Boolean = False
Public BackColor As Color = Color.White
End Class End Class
Private Shared Function TransformDataRow(row As DataRow) As ControlDBProps Public Sub New(pLogConfig As LogConfig)
LogConfig = pLogConfig
Logger = pLogConfig.GetLogger()
End Sub
Private Function TransformDataRow(row As DataRow) As ControlDBProps
Dim x As Integer = row.Item("X_LOC") Dim x As Integer = row.Item("X_LOC")
Dim y As Integer = row.Item("Y_LOC") Dim y As Integer = row.Item("Y_LOC")
Dim style As FontStyle = NotNull(row.Item("FONT_STYLE"), DEFAULT_FONT_STYLE) Dim style As FontStyle = NotNull(row.Item("FONT_STYLE"), DEFAULT_FONT_STYLE)
@ -113,7 +122,7 @@ Public Class ClassControlCreator
} }
End Function End Function
Public Shared Function CreateBaseControl(ctrl As Control, OControlRow As DataRow, designMode As Boolean) As Control Public Function CreateBaseControl(ctrl As Control, OControlRow As DataRow, designMode As Boolean) As Control
Try Try
Dim props As ControlDBProps = TransformDataRow(OControlRow) Dim props As ControlDBProps = TransformDataRow(OControlRow)
@ -146,8 +155,8 @@ Public Class ClassControlCreator
' ----------------------- NEW CONTROLS ----------------------- ' ----------------------- NEW CONTROLS -----------------------
Public Shared Function CreateNewTextBox(location As Point) As TextBox Public Function CreateNewTextBox(location As Point) As TextEdit
Dim control As New TextBox With { Dim control As New TextEdit With {
.Name = $"{PREFIX_TEXTBOX}_{clsTools.ShortGuid()}", .Name = $"{PREFIX_TEXTBOX}_{clsTools.ShortGuid()}",
.Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT), .Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT),
.Location = location, .Location = location,
@ -159,7 +168,7 @@ Public Class ClassControlCreator
Return control Return control
End Function End Function
Public Shared Function CreateNewLabel(location As Point) As Label Public Function CreateNewLabel(location As Point) As Label
Dim control As New Label With { Dim control As New Label With {
.Name = $"{PREFIX_LABEL}_{clsTools.ShortGuid}", .Name = $"{PREFIX_LABEL}_{clsTools.ShortGuid}",
.Text = DEFAULT_TEXT, .Text = DEFAULT_TEXT,
@ -171,7 +180,7 @@ Public Class ClassControlCreator
Return control Return control
End Function End Function
Public Shared Function CreateNewCheckbox(location As Point) As CheckBox Public Function CreateNewCheckbox(location As Point) As CheckBox
Dim control As New CheckBox With { Dim control As New CheckBox With {
.Name = $"{PREFIX_CHECKBOX}_{clsTools.ShortGuid}", .Name = $"{PREFIX_CHECKBOX}_{clsTools.ShortGuid}",
.AutoSize = True, .AutoSize = True,
@ -184,8 +193,8 @@ Public Class ClassControlCreator
Return control Return control
End Function End Function
Public Shared Function CreateNewCombobox(location As Point) As ComboBox Public Function CreateNewCombobox(location As Point) As Windows.Forms.ComboBox
Dim control As New ComboBox With { Dim control As New Windows.Forms.ComboBox With {
.Name = $"{PREFIX_COMBOBOX}_{clsTools.ShortGuid}", .Name = $"{PREFIX_COMBOBOX}_{clsTools.ShortGuid}",
.Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT), .Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT),
.Cursor = Cursors.Hand, .Cursor = Cursors.Hand,
@ -195,7 +204,7 @@ Public Class ClassControlCreator
Return control Return control
End Function End Function
Public Shared Function CreateNewDatetimepicker(location As Point) As DateTimePicker Public Function CreateNewDatetimepicker(location As Point) As DateTimePicker
Dim control As New DateTimePicker With { Dim control As New DateTimePicker With {
.Name = $"{PREFIX_DATETIMEPICKER}_{clsTools.ShortGuid}", .Name = $"{PREFIX_DATETIMEPICKER}_{clsTools.ShortGuid}",
.Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT), .Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT),
@ -207,7 +216,7 @@ Public Class ClassControlCreator
Return control Return control
End Function End Function
Public Shared Function CreateNewDatagridview(location As Point) As DataGridView Public Function CreateNewDatagridview(location As Point) As DataGridView
Dim control As New DataGridView With { Dim control As New DataGridView With {
.Name = $"{PREFIX_DATAGRIDVIEW}_{clsTools.ShortGuid}", .Name = $"{PREFIX_DATAGRIDVIEW}_{clsTools.ShortGuid}",
.Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT_TABLE), .Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT_TABLE),
@ -227,7 +236,7 @@ Public Class ClassControlCreator
Return control Return control
End Function End Function
Friend Shared Function CreateNewLookupControl(location As Point) As LookupControl3 Friend Function CreateNewLookupControl(location As Point) As LookupControl3
Dim control As New LookupControl3 With { Dim control As New LookupControl3 With {
.Name = $"{PREFIX_LOOKUP}_{clsTools.ShortGuid}", .Name = $"{PREFIX_LOOKUP}_{clsTools.ShortGuid}",
.Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT), .Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT),
@ -237,14 +246,14 @@ Public Class ClassControlCreator
Return control Return control
End Function End Function
Public Shared Function CreateNewTable(location As Point) As GridControl Public Function CreateNewTable(location As Point) As GridControl
Dim oControl As New GridControl With { Dim oControl As New GridControl With {
.Name = $"{PREFIX_TABLE}_{clsTools.ShortGuid}", .Name = $"{PREFIX_TABLE}_{clsTools.ShortGuid}",
.Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT_TABLE), .Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT_TABLE),
.Cursor = Cursors.Hand, .Cursor = Cursors.Hand,
.Location = location .Location = location,
.UseEmbeddedNavigator = True
} }
oControl.UseEmbeddedNavigator = True
oControl.ForceInitialize() oControl.ForceInitialize()
Dim oView As GridView = oControl.DefaultView Dim oView As GridView = oControl.DefaultView
oView.OptionsView.ShowGroupPanel = False oView.OptionsView.ShowGroupPanel = False
@ -257,7 +266,7 @@ Public Class ClassControlCreator
Return oControl Return oControl
End Function End Function
Public Shared Function CreateNewLine(location As Point) As LineLabel Public Function CreateNewLine(location As Point) As LineLabel
Dim control As New LineLabel With { Dim control As New LineLabel With {
.Name = $"{PREFIX_LINE}_{clsTools.ShortGuid}", .Name = $"{PREFIX_LINE}_{clsTools.ShortGuid}",
.Text = "---------------------------------", .Text = "---------------------------------",
@ -267,7 +276,7 @@ Public Class ClassControlCreator
Return control Return control
End Function End Function
Public Shared Function CreateNewButton(location As Point) As Button Public Function CreateNewButton(location As Point) As Button
Dim control As New Button With { Dim control As New Button With {
.Name = $"{PREFIX_BUTTON}_{clsTools.ShortGuid}", .Name = $"{PREFIX_BUTTON}_{clsTools.ShortGuid}",
.Size = New Size(108, 28), .Size = New Size(108, 28),
@ -280,38 +289,59 @@ Public Class ClassControlCreator
' ----------------------- EXISITING CONTROLS ----------------------- ' ----------------------- EXISITING CONTROLS -----------------------
Public Shared Function CreateExistingTextbox(oControlRow As DataRow, designMode As Boolean) As TextBox Public Function CreateExistingTextbox(oControlRow As DataRow, designMode As Boolean) As BaseEdit
Try Try
Dim control As TextBox = CreateBaseControl(New TextBox(), oControlRow, designMode) Dim oHeight = oControlRow.ItemEx("HEIGHT", 0)
Dim oWidth = oControlRow.ItemEx("WIDTH", 0)
Dim oReadOnly = oControlRow.ItemEx("READ_ONLY", False)
Dim oFormatString = oControlRow.ItemEx("FORMAT_STRING", String.Empty)
Dim oBackColorIf = oControlRow.ItemEx("CTRL_BACKCOLOR_IF", String.Empty)
control.BackColor = Color.White Dim oControl As BaseEdit = Nothing
If oControlRow.Item("HEIGHT") > 27 Then
control.Multiline = True
If oHeight > 27 Then
oControl = CreateBaseControl(New MemoEdit(), oControlRow, designMode)
Else
oControl = CreateBaseControl(New TextEdit(), oControlRow, designMode)
End If End If
control.Height = oControlRow.Item("HEIGHT") Dim oMeta As ControlMetadata = oControl.Tag
control.Width = oControlRow.Item("WIDTH")
oControl.BackColor = Color.White
oMeta.BackColor = Color.White
oControl.Height = oHeight
oControl.Width = oWidth
If Not designMode Then If Not designMode Then
control.AcceptsReturn = True oControl.ReadOnly = oReadOnly
control.ReadOnly = oControlRow.Item("READ_ONLY") oControl.TabStop = Not oReadOnly
control.TabStop = Not oControlRow.Item("READ_ONLY") oControl.BackColor = IIf(oReadOnly, Color.LightGray, Color.White)
control.BackColor = IIf(oControlRow.Item("READ_ONLY"), Color.LightGray, Color.White)
control.ScrollBars = ScrollBars.Vertical ' If there is a format string defined, set it for display only.
' Editing will be without format string, according to current user-culture.
If oFormatString <> String.Empty Then
oControl.Properties.DisplayFormat.FormatType = FormatType.Custom
oControl.Properties.DisplayFormat.FormatString = ClassFormat.GetFormatString(oFormatString)
End If
' For read only controls, don't show the raw value when a user clicks into it
If oReadOnly Then
oControl.Properties.EditFormat.FormatType = FormatType.Custom
oControl.Properties.EditFormat.FormatString = ClassFormat.GetFormatString(oFormatString)
End If
Else Else
control.ReadOnly = True oControl.ReadOnly = True
End If End If
Return control Return oControl
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
Return Nothing
End Try End Try
End Function End Function
Public Shared Function CreateExistingLabel(row As DataRow, designMode As Boolean) As Label Public Function CreateExistingLabel(row As DataRow, designMode As Boolean) As Label
Dim control As Label = CreateBaseControl(New Label(), row, designMode) Dim control As Label = CreateBaseControl(New Label(), row, designMode)
Try Try
control.Text = row.Item("CTRL_CAPTION_LANG") control.Text = row.Item("CTRL_CAPTION_LANG")
@ -324,7 +354,8 @@ Public Class ClassControlCreator
Return control Return control
End Function End Function
Public Shared Function CreateExistingButton(row As DataRow, designMode As Boolean) As Button
Public Function CreateExistingButton(row As DataRow, designMode As Boolean) As Button
Dim oControl As Button = CreateBaseControl(New Button(), row, designMode) Dim oControl As Button = CreateBaseControl(New Button(), row, designMode)
Dim ctrl_image As Bitmap = Nothing Dim ctrl_image As Bitmap = Nothing
@ -353,7 +384,7 @@ Public Class ClassControlCreator
Return oControl Return oControl
End Function End Function
Public Shared Function CreateExistingCombobox(row As DataRow, designMode As Boolean) As Windows.Forms.ComboBox Public Function CreateExistingCombobox(row As DataRow, designMode As Boolean) As Windows.Forms.ComboBox
Dim control As Windows.Forms.ComboBox = CreateBaseControl(New Windows.Forms.ComboBox(), row, designMode) Dim control As Windows.Forms.ComboBox = CreateBaseControl(New Windows.Forms.ComboBox(), row, designMode)
control.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT")) control.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT"))
@ -370,7 +401,7 @@ Public Class ClassControlCreator
Return control Return control
End Function End Function
Public Shared Function CreateExistingDatepicker(row As DataRow, designMode As Boolean) As DateTimePicker Public Function CreateExistingDatepicker(row As DataRow, designMode As Boolean) As DateTimePicker
Dim control As DateTimePicker = CreateBaseControl(New DateTimePicker(), row, designMode) Dim control As DateTimePicker = CreateBaseControl(New DateTimePicker(), row, designMode)
control.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT")) control.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT"))
@ -384,7 +415,7 @@ Public Class ClassControlCreator
Return control Return control
End Function End Function
Public Shared Function CreateExisingCheckbox(row As DataRow, designMode As Boolean) As CheckBox Public Function CreateExisingCheckbox(row As DataRow, designMode As Boolean) As CheckBox
Dim oCheckBox As CheckBox = CreateBaseControl(New CheckBox(), row, designMode) Dim oCheckBox As CheckBox = CreateBaseControl(New CheckBox(), row, designMode)
oCheckBox.AutoSize = True oCheckBox.AutoSize = True
@ -403,7 +434,7 @@ Public Class ClassControlCreator
Return oCheckBox Return oCheckBox
End Function End Function
Public Shared Function CreateExistingDataGridView(row As DataRow, designMode As Boolean) As DataGridView Public Function CreateExistingDataGridView(row As DataRow, designMode As Boolean) As DataGridView
Dim control As DataGridView = CreateBaseControl(New DataGridView(), row, designMode) Dim control As DataGridView = CreateBaseControl(New DataGridView(), row, designMode)
control.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT")) control.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT"))
@ -427,7 +458,7 @@ Public Class ClassControlCreator
Return control Return control
End Function End Function
Public Shared Function CreateExistingLookupControl(row As DataRow, designMode As Boolean) As LookupControl3 Public Function CreateExistingLookupControl(row As DataRow, designMode As Boolean) As LookupControl3
Dim control As LookupControl3 = CreateBaseControl(New LookupControl3(), row, designMode) Dim control As LookupControl3 = CreateBaseControl(New LookupControl3(), row, designMode)
control.Properties.Name = control.Name control.Properties.Name = control.Name
control.Width = row.Item("WIDTH") control.Width = row.Item("WIDTH")
@ -440,10 +471,10 @@ Public Class ClassControlCreator
Return control Return control
End Function End Function
Public Shared Function CreateExistingGridControl(row As DataRow, DT_MY_COLUMNS As DataTable, designMode As Boolean) As GridControl Public Function CreateExistingGridControl(row As DataRow, DT_MY_COLUMNS As DataTable, designMode As Boolean) As GridControl
Dim oGridControlCreator = New ControlCreator.GridControl(LogConfig, GridTables)
Dim oControl As GridControl = CreateBaseControl(New GridControl(), row, designMode) Dim oControl As GridControl = CreateBaseControl(New GridControl(), row, designMode)
Dim oControlId = DirectCast(oControl.Tag, ControlMetadata).Guid Dim oControlId = DirectCast(oControl.Tag, ControlMetadata).Guid
Dim oDatatable As New DataTable
Dim oView As GridView Dim oView As GridView
oControl.ForceInitialize() oControl.ForceInitialize()
@ -510,64 +541,8 @@ Public Class ClassControlCreator
GridTables.Add(oControlId, New Dictionary(Of String, RepositoryItem)()) GridTables.Add(oControlId, New Dictionary(Of String, RepositoryItem)())
End If End If
For Each oRow As DataRow In DT_MY_COLUMNS.Rows Dim oDataTable = oGridControlCreator.CreateGridColumns(DT_MY_COLUMNS)
' Create Columns in Datatable GridTables = oGridControlCreator.FillGridTables(DT_MY_COLUMNS, oControlId, oControl.Name)
Dim oColumn = New DataColumn() With {
.ColumnName = oRow.Item("SPALTENNAME"),
.Caption = oRow.Item("SPALTEN_HEADER_LANG"),
.ReadOnly = False
}
Select Case oRow.Item("TYPE_COLUMN")
Case CONTROL_TYPE_TEXT
oColumn.DataType = GetType(String)
Case CONTROL_TYPE_INTEGER
oColumn.DataType = GetType(Integer)
Case CONTROL_TYPE_DOUBLE
oColumn.DataType = GetType(Double)
Case CONTROL_TYPE_CURRENCY
oColumn.DataType = GetType(Double)
Case CONTROL_TYPE_BOOLEAN
oColumn.DataType = GetType(Boolean)
Case Else
oColumn.DataType = GetType(String)
End Select
oDatatable.Columns.Add(oColumn)
' Fetch and cache Combobox results
Dim oConnectionId As Integer = NotNull(oRow.Item("CONNECTION_ID"), 0)
Dim oSqlCommand As String = NotNull(oRow.Item("SQL_COMMAND"), "")
If oConnectionId > 0 And oSqlCommand <> "" Then
Try
Dim oComboboxDataTable As DataTable = Nothing
Dim oColumnName As String = oRow.Item("SPALTENNAME")
Logger.Debug("Working on SQL for Column[{0}]...", oColumnName)
If Not clsPatterns.HasComplexPatterns(oSqlCommand) Then
Logger.Debug("SQL has no complex patterns!")
'oComboboxDataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oConnectionId)
oComboboxDataTable = DatabaseFallback.GetDatatable(New GetDatatableOptions(oSqlCommand, DatabaseType.ECM) With {
.ConnectionId = oConnectionId
})
Else
Logger.Debug("...has complex patterns!!")
End If
Dim oRepositoryItem = GridTables_GetRepositoryItemForColumn(oColumnName, oComboboxDataTable, oRow.Item("ADVANCED_LOOKUP"))
If GridTables.Item(oControlId).ContainsKey(oColumnName) Then
GridTables.Item(oControlId).Item(oColumnName) = oRepositoryItem
Else
GridTables.Item(oControlId).Add(oColumnName, oRepositoryItem)
End If
Catch ex As Exception
Logger.Warn("Could not load data for column {0} in control {1}", oRow.Item("SPALTENNAME"), oControl.Name)
Logger.Error(ex)
End Try
End If
Next
oView.PopulateColumns(oDatatable) oView.PopulateColumns(oDatatable)
oControl.DataSource = oDatatable oControl.DataSource = oDatatable
oControl.RefreshDataSource() oControl.RefreshDataSource()
@ -596,79 +571,80 @@ Public Class ClassControlCreator
End Try End Try
End If End If
oGridControlCreator.ConfigureViewColumns(DT_MY_COLUMNS, oView)
Dim oShouldDisplayFooter As Boolean = False ' Dim oShouldDisplayFooter As Boolean = False
'
'For Each oCol As GridColumn In oView.Columns
' Dim oColumnData As DataRow = DT_MY_COLUMNS.
' Select($"SPALTENNAME = '{oCol.FieldName}'").
' FirstOrDefault()
For Each oCol As GridColumn In oView.Columns ' If oColumnData Is Nothing Then
Dim oColumnData As DataRow = DT_MY_COLUMNS. ' Continue For
Select($"SPALTENNAME = '{oCol.FieldName}'"). ' End If
FirstOrDefault()
If oColumnData Is Nothing Then ' Dim oSequence As Integer = oColumnData.Item("SEQUENCE")
Continue For ' oCol.VisibleIndex = oSequence
End If
Dim oSequence As Integer = oColumnData.Item("SEQUENCE") ' Dim oColumnType As String = oColumnData.Item("TYPE_COLUMN")
oCol.VisibleIndex = oSequence
Dim oColumnType As String = oColumnData.Item("TYPE_COLUMN") ' Select Case oColumnType
' Case "INTEGER"
' oCol.DisplayFormat.FormatType = FormatType.Custom
' oCol.DisplayFormat.FormatString = "N0"
Select Case oColumnType ' Case "DOUBLE"
Case "INTEGER" ' oCol.DisplayFormat.FormatType = FormatType.Custom
oCol.DisplayFormat.FormatType = FormatType.Custom ' oCol.DisplayFormat.FormatString = "N2"
oCol.DisplayFormat.FormatString = "N0"
Case "DOUBLE" ' Case "CURRENCY"
oCol.DisplayFormat.FormatType = FormatType.Custom ' oCol.DisplayFormat.FormatType = FormatType.Custom
oCol.DisplayFormat.FormatString = "N2" ' oCol.DisplayFormat.FormatString = "C2"
' End Select
Case "CURRENCY" ' Dim oSummaryFunction As String = oColumnData.Item("SUMMARY_FUNCTION")
oCol.DisplayFormat.FormatType = FormatType.Custom
oCol.DisplayFormat.FormatString = "C2"
End Select
Dim oSummaryFunction As String = oColumnData.Item("SUMMARY_FUNCTION") ' Select Case oSummaryFunction
' Case AGGREGATE_TOTAL_INTEGER
' oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Sum
' oCol.SummaryItem.DisplayFormat = "SUM: {0:N0}"
' oShouldDisplayFooter = True
Select Case oSummaryFunction ' Case AGGREGATE_TOTAL_FLOAT
Case AGGREGATE_TOTAL_INTEGER ' oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Sum
oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Sum ' oCol.SummaryItem.DisplayFormat = "SUM: {0:N2}"
oCol.SummaryItem.DisplayFormat = "SUM: {0:N0}" ' oShouldDisplayFooter = True
oShouldDisplayFooter = True
Case AGGREGATE_TOTAL_FLOAT ' Case AGGREGATE_TOTAL_CURRENCY
oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Sum ' oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Sum
oCol.SummaryItem.DisplayFormat = "SUM: {0:N2}" ' oCol.SummaryItem.DisplayFormat = "SUM: {0:C2}"
oShouldDisplayFooter = True ' oShouldDisplayFooter = True
Case AGGREGATE_TOTAL_CURRENCY ' Case AGGREGATE_TOTAL_AVG
oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Sum ' oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Average
oCol.SummaryItem.DisplayFormat = "SUM: {0:C2}" ' oCol.SummaryItem.DisplayFormat = "AVG: {0}"
oShouldDisplayFooter = True ' oShouldDisplayFooter = True
Case AGGREGATE_TOTAL_AVG ' Case AGGREGATE_TOTAL_MAX
oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Average ' oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Max
oCol.SummaryItem.DisplayFormat = "AVG: {0}" ' oCol.SummaryItem.DisplayFormat = "MAX: {0}"
oShouldDisplayFooter = True ' oShouldDisplayFooter = True
Case AGGREGATE_TOTAL_MAX ' Case AGGREGATE_TOTAL_MIN
oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Max ' oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Min
oCol.SummaryItem.DisplayFormat = "MAX: {0}" ' oCol.SummaryItem.DisplayFormat = "MIN: {0}"
oShouldDisplayFooter = True ' oShouldDisplayFooter = True
Case AGGREGATE_TOTAL_MIN ' Case AGGREGATE_TOTAL_COUNT
oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Min ' oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Count
oCol.SummaryItem.DisplayFormat = "MIN: {0}" ' oCol.SummaryItem.DisplayFormat = "NUM: {0}"
oShouldDisplayFooter = True ' oShouldDisplayFooter = True
Case AGGREGATE_TOTAL_COUNT ' End Select
oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Count 'Next
oCol.SummaryItem.DisplayFormat = "NUM: {0}" '
oShouldDisplayFooter = True ' oView.OptionsView.ShowFooter = oShouldDisplayFooter
End Select
Next
oView.OptionsView.ShowFooter = oShouldDisplayFooter
AddHandler oView.InitNewRow, Sub(sender As Object, e As InitNewRowEventArgs) AddHandler oView.InitNewRow, Sub(sender As Object, e As InitNewRowEventArgs)
Try Try
@ -734,18 +710,7 @@ Public Class ClassControlCreator
AddHandler oView.ShowingEditor, AddressOf View_ShowingEditor AddHandler oView.ShowingEditor, AddressOf View_ShowingEditor
AddHandler oView.ShownEditor, AddressOf View_ShownEditor AddHandler oView.ShownEditor, AddressOf View_ShownEditor
AddHandler oView.ValidateRow, AddressOf View_ValidateRow AddHandler oView.ValidateRow, AddressOf View_ValidateRow
AddHandler oControl.LostFocus, Sub(sender As GridControl, e As EventArgs) AddHandler oControl.LostFocus, AddressOf Control_LostFocus
Dim oView2 As GridView = sender.FocusedView
' 19.08.2022:
' Calling UpdateCurrentRow when newRowModified Is true
' leads to some weird jumping of focus in the current cell.
' This seems to fix it.
If newRowModified = False Then
oView2.UpdateCurrentRow()
End If
End Sub
' 08.11.2021: Fix editor being empty on first open ' 08.11.2021: Fix editor being empty on first open
oView.FocusInvalidRow() oView.FocusInvalidRow()
@ -753,9 +718,21 @@ Public Class ClassControlCreator
Return oControl Return oControl
End Function End Function
Private Shared newRowModified As Boolean = False Private newRowModified As Boolean = False
Private Shared Sub View_ShowingEditor(sender As Object, e As CancelEventArgs) Private Sub Control_LostFocus(sender As GridControl, e As EventArgs)
Dim oView2 As GridView = sender.FocusedView
' 19.08.2022:
' Calling UpdateCurrentRow when newRowModified Is true
' leads to some weird jumping of focus in the current cell.
' This seems to fix it.
If newRowModified = False Then
oView2.UpdateCurrentRow()
End If
End Sub
Private Sub View_ShowingEditor(sender As Object, e As CancelEventArgs)
Dim view As GridView = TryCast(sender, GridView) Dim view As GridView = TryCast(sender, GridView)
Logger.Debug("Showing editor.") Logger.Debug("Showing editor.")
If view.IsNewItemRow(view.FocusedRowHandle) AndAlso Not newRowModified Then If view.IsNewItemRow(view.FocusedRowHandle) AndAlso Not newRowModified Then
@ -764,7 +741,7 @@ Public Class ClassControlCreator
End If End If
End Sub End Sub
Private Shared Sub View_ShownEditor(sender As Object, e As EventArgs) Private Sub View_ShownEditor(sender As Object, e As EventArgs)
Dim view As GridView = TryCast(sender, GridView) Dim view As GridView = TryCast(sender, GridView)
If view.IsNewItemRow(view.FocusedRowHandle) Then If view.IsNewItemRow(view.FocusedRowHandle) Then
Logger.Debug("Attaching Modified Handler.") Logger.Debug("Attaching Modified Handler.")
@ -775,7 +752,7 @@ Public Class ClassControlCreator
End If End If
End Sub End Sub
Private Shared Sub View_ValidateRow(sender As Object, e As ValidateRowEventArgs) Private Sub View_ValidateRow(sender As Object, e As ValidateRowEventArgs)
Dim view As GridView = TryCast(sender, GridView) Dim view As GridView = TryCast(sender, GridView)
If view.IsNewItemRow(e.RowHandle) AndAlso Not newRowModified Then If view.IsNewItemRow(e.RowHandle) AndAlso Not newRowModified Then
Logger.Debug("Deleting unused row") Logger.Debug("Deleting unused row")
@ -786,7 +763,7 @@ Public Class ClassControlCreator
newRowModified = False newRowModified = False
End Sub End Sub
Private Shared Sub View_ValidatingEditor(sender As Object, e As BaseContainerValidateEditorEventArgs) Private Sub View_ValidatingEditor(sender As Object, e As BaseContainerValidateEditorEventArgs)
Dim oValue As String = NotNull(e.Value, "") Dim oValue As String = NotNull(e.Value, "")
If oValue.Contains(" | ") Then If oValue.Contains(" | ") Then
@ -795,11 +772,11 @@ Public Class ClassControlCreator
End If End If
End Sub End Sub
Private Shared Sub View_InvalidRowException(sender As Object, e As InvalidRowExceptionEventArgs) Private Sub View_InvalidRowException(sender As Object, e As InvalidRowExceptionEventArgs)
e.ExceptionMode = ExceptionMode.NoAction e.ExceptionMode = ExceptionMode.NoAction
End Sub End Sub
Public Shared Function CreateExistingLine(row As DataRow, designMode As Boolean) As LineLabel Public Function CreateExistingLine(row As DataRow, designMode As Boolean) As LineLabel
Dim control As LineLabel = CreateBaseControl(New LineLabel(), row, designMode) Dim control As LineLabel = CreateBaseControl(New LineLabel(), row, designMode)
control.Text = "------------------------------" control.Text = "------------------------------"
control.BorderStyle = BorderStyle.None control.BorderStyle = BorderStyle.None
@ -827,7 +804,7 @@ Public Class ClassControlCreator
End Sub End Sub
End Class End Class
Public Shared Function GET_CONTROL_PROPERTIES(DT_CONTROL As DataTable, ControlName As String) Public Function GET_CONTROL_PROPERTIES(DT_CONTROL As DataTable, ControlName As String)
Try Try
CURRENT_CONTROL_ID = 0 CURRENT_CONTROL_ID = 0
CURR_CON_ID = 0 CURR_CON_ID = 0
@ -861,7 +838,7 @@ Public Class ClassControlCreator
End Try End Try
End Function End Function
Public Shared Function GET_CONTROL_PROPERTY(DT_CONTROL As DataTable, ControlGUID As Integer, ColNAME As String) Public Function GET_CONTROL_PROPERTY(DT_CONTROL As DataTable, ControlGUID As Integer, ColNAME As String)
Try Try
CURRENT_CONTROL_ID = 0 CURRENT_CONTROL_ID = 0
CURR_CON_ID = 0 CURR_CON_ID = 0
@ -888,7 +865,8 @@ Public Class ClassControlCreator
End Try End Try
End Function End Function
Public Shared Function GET_DEPENDING_CONTROLS(DT_CONTROLS As DataTable, ControlName As String)
Public Function GetDependingControls(DT_CONTROLS As DataTable, ControlName As String) As Boolean
Try Try
Dim dt As New DataTable Dim dt As New DataTable
dt = DT_CONTROLS dt = DT_CONTROLS
@ -904,13 +882,12 @@ Public Class ClassControlCreator
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
Logger.Info("Unexpected Error in GET_DEPENDING_CONTROLS (" & ControlName & "):" & ex.Message) Logger.Info("Unexpected Error in GET_DEPENDING_CONTROLS (" & ControlName & "):" & ex.Message)
Return 0 Return False
End Try End Try
End Function End Function
Public Shared Function GET_CONNECTION_INFO(CON_ID As Integer) Public Function GET_CONNECTION_INFO(CON_ID As Integer) As DataRow()
Try Try
Dim dt As New DataTable Dim dt As New DataTable
dt = BASEDATA_DT_TBDD_CONNECTION dt = BASEDATA_DT_TBDD_CONNECTION
' Define the filter ' Define the filter
@ -927,10 +904,9 @@ Public Class ClassControlCreator
Logger.Info("Unexpected Error in GET_CONNECTION_INFO (" & CON_ID.ToString & "):" & ex.Message) Logger.Info("Unexpected Error in GET_CONNECTION_INFO (" & CON_ID.ToString & "):" & ex.Message)
Return Nothing Return Nothing
End Try End Try
End Function End Function
Public Shared Sub GridTables_CacheDatatableForColumn(pControlId As Object, pColumnName As Object, pSqlStatement As Object, pConnectionId As Integer, pAdvancedLookup As Boolean) Public Sub GridTables_CacheDatatableForColumn(pControlId As Object, pColumnName As Object, pSqlStatement As Object, pConnectionId As Integer, pAdvancedLookup As Boolean)
Try Try
'Dim oTable As DataTable = ClassDatabase.Return_Datatable_ConId(pSqlStatement, pConnectionId) 'Dim oTable As DataTable = ClassDatabase.Return_Datatable_ConId(pSqlStatement, pConnectionId)
Dim oTable As DataTable = DatabaseFallback.GetDatatable(New GetDatatableOptions(pSqlStatement, DatabaseType.ECM) With { Dim oTable As DataTable = DatabaseFallback.GetDatatable(New GetDatatableOptions(pSqlStatement, DatabaseType.ECM) With {
@ -955,7 +931,7 @@ Public Class ClassControlCreator
End Try End Try
End Sub End Sub
Public Shared Function GridTables_GetRepositoryItemForColumn(pColumnName As String, pDataTable As DataTable, pIsAdvancedLookup As Boolean) As RepositoryItem Public Function GridTables_GetRepositoryItemForColumn(pColumnName As String, pDataTable As DataTable, pIsAdvancedLookup As Boolean) As RepositoryItem
If pIsAdvancedLookup Then If pIsAdvancedLookup Then
Dim oEditor = New RepositoryItemLookupControl3 Dim oEditor = New RepositoryItemLookupControl3
@ -985,7 +961,9 @@ Public Class ClassControlCreator
Dim oValue = oRow2.Item(0) Dim oValue = oRow2.Item(0)
Try Try
oValue &= $" | {oRow2.Item(1)}" If oRow2.ItemArray.Length > 1 Then
oValue &= $" | {oRow2.Item(1)}"
End If
Catch ex As Exception Catch ex As Exception
End Try End Try
@ -998,7 +976,7 @@ Public Class ClassControlCreator
End If End If
End Function End Function
Public Shared Sub GridTables_HandleControlValueChange(pControlPanel As Panel, pColumnsWithSqlAndControlPlaceholders As DataTable) Public Sub GridTables_HandleControlValueChange(pControlPanel As XtraScrollableControl, pColumnsWithSqlAndControlPlaceholders As DataTable)
If Not IsNothing(pColumnsWithSqlAndControlPlaceholders) AndAlso pColumnsWithSqlAndControlPlaceholders.Rows.Count > 0 Then If Not IsNothing(pColumnsWithSqlAndControlPlaceholders) AndAlso pColumnsWithSqlAndControlPlaceholders.Rows.Count > 0 Then
For Each oRow As DataRow In pColumnsWithSqlAndControlPlaceholders.Rows For Each oRow As DataRow In pColumnsWithSqlAndControlPlaceholders.Rows
Try Try
@ -1040,7 +1018,7 @@ Public Class ClassControlCreator
End If End If
End Sub End Sub
Private Shared Function GridTables_TestEditorExistsByControlAndColumn(oControlId As Integer, pColumn As String) As Boolean Private Function GridTables_TestEditorExistsByControlAndColumn(oControlId As Integer, pColumn As String) As Boolean
If GridTables.ContainsKey(oControlId) Then If GridTables.ContainsKey(oControlId) Then
Dim oContainsKey = GridTables.Item(oControlId).ContainsKey(pColumn) Dim oContainsKey = GridTables.Item(oControlId).ContainsKey(pColumn)
If oContainsKey AndAlso GridTables.Item(oControlId).Item(pColumn) IsNot Nothing Then If oContainsKey AndAlso GridTables.Item(oControlId).Item(pColumn) IsNot Nothing Then
@ -1053,7 +1031,7 @@ Public Class ClassControlCreator
End If End If
End Function End Function
Private Shared Function GridTables_ValidateColumn(pView As GridView, pColumnDefinition As DataTable, ColumnName As String, pValue As Object, ByRef pIsValid As Boolean, ByRef pErrorText As String) As Boolean Private Function GridTables_ValidateColumn(pView As GridView, pColumnDefinition As DataTable, ColumnName As String, pValue As Object, ByRef pIsValid As Boolean, ByRef pErrorText As String) As Boolean
Dim oColumn As DataRow = (From r As DataRow In pColumnDefinition.Rows Dim oColumn As DataRow = (From r As DataRow In pColumnDefinition.Rows
Where r.Item("SPALTENNAME") = ColumnName Where r.Item("SPALTENNAME") = ColumnName
Select r).FirstOrDefault() Select r).FirstOrDefault()

106
app/TaskFlow/ClassFormat.vb
View File

@ -9,82 +9,24 @@ Public Class ClassFormat
Public Const DATE_FORMAT = "d" Public Const DATE_FORMAT = "d"
Public Const DATETIME_FORMAT = "G" Public Const DATETIME_FORMAT = "G"
Public Shared Function GetFormattedValue(pControlName As String, pValueObject As Object, pFormatString As String) As String Public Shared Function GetFormatString(pFormatString As String) As String
Try Select Case pFormatString
If pFormatString <> String.Empty Then Case ClassControlCreator.CONTROL_TYPE_CURRENCY
' https://learn.microsoft.com/en-us/dotnet/api/system.datetime.tostring?view=net-7.0#system-datetime-tostring(system-string) Return CURRENCY_FORMAT
Select Case pFormatString Case ClassControlCreator.CONTROL_TYPE_DOUBLE
Case ClassControlCreator.CONTROL_TYPE_CURRENCY ' 16,325.63 € Return DECIMAL_FORMAT
If TypeOf pValueObject Is Double Then
Dim oFormattedValue As Double = pValueObject
Return oFormattedValue.ToString(CURRENCY_FORMAT)
ElseIf TypeOf pValueObject Is String Then Case ClassControlCreator.CONTROL_TYPE_DATE
Dim oFormattedValue As Double Return DATE_FORMAT
Double.TryParse(pValueObject, oFormattedValue)
Return oFormattedValue.ToString(CURRENCY_FORMAT)
Else Case ClassControlCreator.CONTROL_TYPE_DATETIME
Return Nothing Return DATETIME_FORMAT
End If Case Else
Return String.Empty
Case ClassControlCreator.CONTROL_TYPE_DOUBLE ' 16325,63 End Select
If TypeOf pValueObject Is Double Then
Dim oFormattedValue As Double = pValueObject
Return oFormattedValue.ToString(DECIMAL_FORMAT)
ElseIf TypeOf pValueObject Is String Then
Dim oFormattedValue As Double
Double.TryParse(pValueObject, oFormattedValue)
Return oFormattedValue.ToString(DECIMAL_FORMAT)
Else
Return Nothing
End If
Case ClassControlCreator.CONTROL_TYPE_DATE ' 15.06.2008
Dim oFormattedValue As DateTime
If TypeOf pValueObject Is DateTime Then
oFormattedValue = pValueObject
Return oFormattedValue.ToString(DATE_FORMAT)
ElseIf TypeOf pValueObject Is String Then
DateTime.TryParse(pValueObject, oFormattedValue)
Return oFormattedValue.ToString(DATE_FORMAT)
Else
Return Nothing
End If
Case ClassControlCreator.CONTROL_TYPE_DATETIME ' 15.06.2008 9:15:07
Dim oFormattedValue As DateTime
If TypeOf pValueObject Is DateTime Then
oFormattedValue = pValueObject
Return oFormattedValue.ToString(DATETIME_FORMAT)
ElseIf TypeOf pValueObject Is String Then
DateTime.TryParse(pValueObject, oFormattedValue)
Return oFormattedValue.ToString(DATETIME_FORMAT)
Else
Return Nothing
End If
Case Else ' Unknown Format String
LOGGER.Warn("Format String [{0}] for Control [{1}] is not valid!", pFormatString, pControlName)
Return Nothing
End Select
Else
Return Nothing
End If
Catch ex As Exception
LOGGER.Warn($"Unexpected error while formatting Value for Control [{0}]", pControlName)
LOGGER.Error(ex)
Return Nothing
End Try
End Function End Function
''' <summary> ''' <summary>
@ -115,4 +57,26 @@ Public Class ClassFormat
Return oConvertedValue Return oConvertedValue
End Function End Function
Public Shared Function GetStringValue(pValue As Object) As String
Select Case pValue.GetType
Case GetType(Single)
Return DirectCast(pValue, Single).ToString(CultureInfo.InvariantCulture)
Case GetType(Double)
Return DirectCast(pValue, Double).ToString(CultureInfo.InvariantCulture)
Case GetType(Decimal)
Return DirectCast(pValue, Decimal).ToString(CultureInfo.InvariantCulture)
Case GetType(Date)
Return DirectCast(pValue, Date).ToString(CultureInfo.InvariantCulture)
Case GetType(DateTime)
Return DirectCast(pValue, DateTime).ToString(CultureInfo.InvariantCulture)
Case Else
Return pValue.ToString
End Select
End Function
End Class End Class

1
app/TaskFlow/ClassIDBData.vb
View File

@ -133,7 +133,6 @@
End Function End Function
Public Function Delete_Term_Object_From_Metadata(oAttributeName As String, oTerm2Delete As String) As Object Public Function Delete_Term_Object_From_Metadata(oAttributeName As String, oTerm2Delete As String) As Object
Try Try
Dim oAttributeValue
Dim oID_IS_FOREIGN As Integer Dim oID_IS_FOREIGN As Integer
oID_IS_FOREIGN = 0 oID_IS_FOREIGN = 0
If IDB_USES_WMFILESTORE Then If IDB_USES_WMFILESTORE Then

3
app/TaskFlow/ClassValidator.vb Normal file
View File

@ -0,0 +1,3 @@
Public Class ClassValidator
End Class

21
app/TaskFlow/ControlCreator/Constants.vb Normal file
View File

@ -0,0 +1,21 @@
Namespace ControlCreator
Public Class Constants
Public Const CONTROL_TYPE_TEXT = "TEXT"
Public Const CONTROL_TYPE_INTEGER = "INTEGER"
Public Const CONTROL_TYPE_BOOLEAN = "BOOLEAN"
Public Const CONTROL_TYPE_DOUBLE = "DOUBLE"
Public Const CONTROL_TYPE_CURRENCY = "CURRENCY"
Public Const CONTROL_TYPE_DATE = "DATE"
Public Const CONTROL_TYPE_DATETIME = "DATETIME"
Public Const AGGREGATE_NONE = "NONE"
Public Const AGGREGATE_TOTAL_INTEGER = "TOTAL_INTEGER"
Public Const AGGREGATE_TOTAL_FLOAT = "TOTAL_FLOAT"
Public Const AGGREGATE_TOTAL_CURRENCY = "TOTAL_CURRENCY"
Public Const AGGREGATE_TOTAL_MIN = "TOTAL_MIN"
Public Const AGGREGATE_TOTAL_MAX = "TOTAL_MAX"
Public Const AGGREGATE_TOTAL_AVG = "TOTAL_AVG"
Public Const AGGREGATE_TOTAL_COUNT = "TOTAL_COUNT"
End Class
End Namespace

215
app/TaskFlow/ControlCreator/GridControl.vb Normal file
View File

@ -0,0 +1,215 @@
Imports DevExpress.Utils
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Grid
Imports DigitalData.Controls.LookupGrid
Imports DigitalData.Modules.EDMI.API.Constants
Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Base
Imports System.ComponentModel
Namespace ControlCreator
Public Class GridControl
Private ReadOnly _LogConfig As LogConfig
Private ReadOnly _GridTables As Dictionary(Of Integer, Dictionary(Of String, RepositoryItem))
Public Sub New(pLogConfig As LogConfig, pGridTables As Dictionary(Of Integer, Dictionary(Of String, RepositoryItem)))
_LogConfig = pLogConfig
_GridTables = pGridTables
End Sub
Public Function CreateGridColumns(pColumnTable As DataTable) As DataTable
Dim oDataTable As New DataTable
For Each oRow As DataRow In pColumnTable.Rows
' Create Columns in Datatable
Dim oColumn = New DataColumn() With {
.ColumnName = oRow.Item("SPALTENNAME"),
.Caption = oRow.Item("SPALTEN_HEADER_LANG"),
.ReadOnly = False
}
Select Case oRow.Item("TYPE_COLUMN")
Case Constants.CONTROL_TYPE_TEXT
oColumn.DataType = GetType(String)
Case Constants.CONTROL_TYPE_INTEGER
oColumn.DataType = GetType(Integer)
Case Constants.CONTROL_TYPE_DOUBLE
oColumn.DataType = GetType(Double)
Case Constants.CONTROL_TYPE_CURRENCY
oColumn.DataType = GetType(Double)
Case Constants.CONTROL_TYPE_BOOLEAN
oColumn.DataType = GetType(Boolean)
Case Else
oColumn.DataType = GetType(String)
End Select
oDataTable.Columns.Add(oColumn)
Next
Return oDataTable
End Function
Public Function FillGridTables(pColumnTable As DataTable, pControlId As Integer, pControlName As String) As Dictionary(Of Integer, Dictionary(Of String, RepositoryItem))
For Each oRow As DataRow In pColumnTable.Rows
' Fetch and cache Combobox results
Dim oConnectionId As Integer = oRow.ItemEx("CONNECTION_ID", 0)
Dim oSqlCommand As String = oRow.ItemEx("SQL_COMMAND", "")
If oConnectionId > 0 And oSqlCommand <> "" Then
Try
Dim oComboboxDataTable As DataTable = Nothing
Dim oColumnName As String = oRow.Item("SPALTENNAME")
LOGGER.Debug("Working on SQL for Column[{0}]...", oColumnName)
If Not clsPatterns.HasComplexPatterns(oSqlCommand) Then
LOGGER.Debug("SQL has no complex patterns!")
'oComboboxDataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oConnectionId)
oComboboxDataTable = DatabaseFallback.GetDatatable(New GetDatatableOptions(oSqlCommand, DatabaseType.ECM) With {
.ConnectionId = oConnectionId
})
Else
LOGGER.Debug("...has complex patterns!!")
End If
Dim oRepositoryItem = GridTables_GetRepositoryItemForColumn(oColumnName, oComboboxDataTable, oRow.Item("ADVANCED_LOOKUP"))
If _GridTables.Item(pControlId).ContainsKey(oColumnName) Then
_GridTables.Item(pControlId).Item(oColumnName) = oRepositoryItem
Else
_GridTables.Item(pControlId).Add(oColumnName, oRepositoryItem)
End If
Catch ex As Exception
LOGGER.Warn("Could not load data for column {0} in control {1}", oRow.Item("SPALTENNAME"), pControlName)
LOGGER.Error(ex)
End Try
End If
Next
Return _GridTables
End Function
Private Function GridTables_GetRepositoryItemForColumn(pColumnName As String, pDataTable As DataTable, pIsAdvancedLookup As Boolean) As RepositoryItem
If pIsAdvancedLookup Then
Dim oEditor = New RepositoryItemLookupControl3
If pDataTable IsNot Nothing Then
oEditor.DisplayMember = pDataTable.Columns.Item(0).ColumnName
oEditor.ValueMember = pDataTable.Columns.Item(0).ColumnName
oEditor.DataSource = pDataTable
End If
Return oEditor
Else
Dim oEditor = New RepositoryItemComboBox()
Dim oItems As New List(Of String)
AddHandler oEditor.Validating, Sub(_sender As ComboBoxEdit, _e As CancelEventArgs)
If oItems.Contains(_sender.EditValue) Then
_e.Cancel = False
Else
_e.Cancel = True
End If
End Sub
If pDataTable IsNot Nothing Then
For Each oRow2 As DataRow In pDataTable.Rows
Dim oValue = oRow2.Item(0)
Try
If oRow2.ItemArray.Length > 1 Then
oValue &= $" | {oRow2.Item(1)}"
End If
Catch ex As Exception
End Try
oEditor.Items.Add(oValue)
oItems.Add(oValue)
Next
End If
Return oEditor
End If
End Function
Public Sub ConfigureViewColumns(pColumnTable As DataTable, pGridView As GridView)
Dim oShouldDisplayFooter As Boolean = False
For Each oCol As GridColumn In pGridView.Columns
Dim oColumnData As DataRow = pColumnTable.
Select($"SPALTENNAME = '{oCol.FieldName}'").
FirstOrDefault()
If oColumnData Is Nothing Then
Continue For
End If
Dim oSequence As Integer = oColumnData.Item("SEQUENCE")
oCol.VisibleIndex = oSequence
Dim oColumnType As String = oColumnData.Item("TYPE_COLUMN")
Select Case oColumnType
Case "INTEGER"
oCol.DisplayFormat.FormatType = FormatType.Custom
oCol.DisplayFormat.FormatString = "N0"
Case "DOUBLE"
oCol.DisplayFormat.FormatType = FormatType.Custom
oCol.DisplayFormat.FormatString = "N2"
Case "CURRENCY"
oCol.DisplayFormat.FormatType = FormatType.Custom
oCol.DisplayFormat.FormatString = "C2"
End Select
Dim oSummaryFunction As String = oColumnData.Item("SUMMARY_FUNCTION")
Select Case oSummaryFunction
Case Constants.AGGREGATE_TOTAL_INTEGER
oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Sum
oCol.SummaryItem.DisplayFormat = "SUM: {0:N0}"
oShouldDisplayFooter = True
Case Constants.AGGREGATE_TOTAL_FLOAT
oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Sum
oCol.SummaryItem.DisplayFormat = "SUM: {0:N2}"
oShouldDisplayFooter = True
Case Constants.AGGREGATE_TOTAL_CURRENCY
oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Sum
oCol.SummaryItem.DisplayFormat = "SUM: {0:C2}"
oShouldDisplayFooter = True
Case Constants.AGGREGATE_TOTAL_AVG
oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Average
oCol.SummaryItem.DisplayFormat = "AVG: {0}"
oShouldDisplayFooter = True
Case Constants.AGGREGATE_TOTAL_MAX
oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Max
oCol.SummaryItem.DisplayFormat = "MAX: {0}"
oShouldDisplayFooter = True
Case Constants.AGGREGATE_TOTAL_MIN
oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Min
oCol.SummaryItem.DisplayFormat = "MIN: {0}"
oShouldDisplayFooter = True
Case Constants.AGGREGATE_TOTAL_COUNT
oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Count
oCol.SummaryItem.DisplayFormat = "NUM: {0}"
oShouldDisplayFooter = True
End Select
Next
pGridView.OptionsView.ShowFooter = oShouldDisplayFooter
End Sub
End Class
End Namespace

8
app/TaskFlow/ModuleControlProperties.vb
View File

@ -211,7 +211,7 @@ Public Module ModuleControlProperties
<Editor(GetType(MultilineStringEditor), GetType(UITypeEditor))> <Editor(GetType(MultilineStringEditor), GetType(UITypeEditor))>
Public Property RegexMessage As String Public Property RegexMessage As String
<DisplayName("Display Format String")> <DisplayName("Display Format")>
<Category(ClassConstants.CAT_DISPLAY)> <Category(ClassConstants.CAT_DISPLAY)>
<TypeConverter(GetType(DisplayFormatConverter))> <TypeConverter(GetType(DisplayFormatConverter))>
Public Property DisplayFormat As String Public Property DisplayFormat As String
@ -226,10 +226,10 @@ Public Module ModuleControlProperties
Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection
Dim displayFormatList = New List(Of String) From { Dim displayFormatList = New List(Of String) From {
ClassControlCreator.CONTROL_TYPE_TEXT, ClassControlCreator.CONTROL_TYPE_TEXT,
ClassControlCreator.CONTROL_TYPE_BOOLEAN,
ClassControlCreator.CONTROL_TYPE_INTEGER,
ClassControlCreator.CONTROL_TYPE_DOUBLE, ClassControlCreator.CONTROL_TYPE_DOUBLE,
ClassControlCreator.CONTROL_TYPE_CURRENCY ClassControlCreator.CONTROL_TYPE_CURRENCY,
ClassControlCreator.CONTROL_TYPE_DATE,
ClassControlCreator.CONTROL_TYPE_DATETIME
} }
Dim values As New StandardValuesCollection(displayFormatList) Dim values As New StandardValuesCollection(displayFormatList)
Return values Return values

4
app/TaskFlow/My Project/AssemblyInfo.vb
View File

@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")> <Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("TaskFlow")> <Assembly: AssemblyProduct("TaskFlow")>
<Assembly: AssemblyCopyright("Copyright © Digital Data 2023")> <Assembly: AssemblyCopyright("Copyright © Digital Data 2023")>
<Assembly: AssemblyTrademark("2.4.2.2")> <Assembly: AssemblyTrademark("2.4.4.2")>
<Assembly: ComVisible(False)> <Assembly: ComVisible(False)>
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.2.2")> <Assembly: AssemblyVersion("2.4.4.2")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

19
app/TaskFlow/TaskFlow.vbproj
View File

@ -143,12 +143,6 @@
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraVerticalGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraVerticalGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DigitalData.Controls.ChatControl">
<HintPath>..\..\..\DDMonorepo\Controls.ChatControl\bin\Debug\DigitalData.Controls.ChatControl.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Controls.ChatNewConv">
<HintPath>..\..\..\DDMonorepo\Controls.ChatNewConv\bin\Debug\DigitalData.Controls.ChatNewConv.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Controls.DocumentViewer, Version=1.0.3.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DigitalData.Controls.DocumentViewer, Version=1.0.3.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath> <HintPath>..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
@ -283,10 +277,13 @@
<Compile Include="ClassSQLEditor.vb" /> <Compile Include="ClassSQLEditor.vb" />
<Compile Include="ClassSQLTypeConverter.vb" /> <Compile Include="ClassSQLTypeConverter.vb" />
<Compile Include="ClassSQLValue.vb" /> <Compile Include="ClassSQLValue.vb" />
<Compile Include="ClassValidator.vb" />
<Compile Include="ClassVectorBehaviourListConverter.vb" /> <Compile Include="ClassVectorBehaviourListConverter.vb" />
<Compile Include="ClassWorkDoc.vb" /> <Compile Include="ClassWorkDoc.vb" />
<Compile Include="clsPatterns.vb" /> <Compile Include="clsPatterns.vb" />
<Compile Include="clsWMDocGrid.vb" /> <Compile Include="clsWMDocGrid.vb" />
<Compile Include="ControlCreator\Constants.vb" />
<Compile Include="ControlCreator\GridControl.vb" />
<Compile Include="FinalIndexDataSet.Designer.vb"> <Compile Include="FinalIndexDataSet.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
<DesignTime>True</DesignTime> <DesignTime>True</DesignTime>
@ -330,12 +327,6 @@
<Compile Include="frmAnnotations.vb"> <Compile Include="frmAnnotations.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmChat_NewConversation.Designer.vb">
<DependentUpon>frmChat_NewConversation.vb</DependentUpon>
</Compile>
<Compile Include="frmChat_NewConversation.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmClientLogin.designer.vb"> <Compile Include="frmClientLogin.designer.vb">
<DependentUpon>frmClientLogin.vb</DependentUpon> <DependentUpon>frmClientLogin.vb</DependentUpon>
</Compile> </Compile>
@ -569,9 +560,6 @@
<EmbeddedResource Include="frmAnnotations.resx"> <EmbeddedResource Include="frmAnnotations.resx">
<DependentUpon>frmAnnotations.vb</DependentUpon> <DependentUpon>frmAnnotations.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmChat_NewConversation.resx">
<DependentUpon>frmChat_NewConversation.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmClientLogin.en.resx"> <EmbeddedResource Include="frmClientLogin.en.resx">
<DependentUpon>frmClientLogin.vb</DependentUpon> <DependentUpon>frmClientLogin.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -941,6 +929,7 @@
<None Include="Resources\PM_mit_slogan.JPG" /> <None Include="Resources\PM_mit_slogan.JPG" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<None Include="Changelog.md" />
<Content Include="DD_Icons_ICO_PMANAGER_48px.ico" /> <Content Include="DD_Icons_ICO_PMANAGER_48px.ico" />
<Content Include="MailLicense.xml"> <Content Include="MailLicense.xml">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory> <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>

11
app/TaskFlow/clsPatterns.vb
View File

@ -4,6 +4,8 @@ Imports DigitalData.Controls.LookupGrid
Imports DevExpress.XtraGrid Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Columns Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraEditors
Imports DigitalData.Modules.Language
''' <summary> ''' <summary>
''' Defines common Functions for Checking for and replacing placeholders. ''' Defines common Functions for Checking for and replacing placeholders.
''' This Class also includes a child class `Pattern` for passing around Patterns. ''' This Class also includes a child class `Pattern` for passing around Patterns.
@ -67,7 +69,7 @@ Public Class clsPatterns
Return New Pattern(type, value).ToString Return New Pattern(type, value).ToString
End Function End Function
Public Shared Function ReplaceAllValues(input As String, panel As Panel, is_SQL As Boolean) As String Public Shared Function ReplaceAllValues(input As String, panel As DevExpress.XtraEditors.XtraScrollableControl, is_SQL As Boolean) As String
Try Try
Dim result = input Dim result = input
@ -176,7 +178,7 @@ Public Class clsPatterns
End Try End Try
End Function End Function
Public Shared Function ReplaceControlValues(pInput As String, oPanel As Panel, oIsSQL As Boolean) As String Public Shared Function ReplaceControlValues(pInput As String, oPanel As DevExpress.XtraEditors.XtraScrollableControl, oIsSQL As Boolean) As String
Dim oResult = pInput Dim oResult = pInput
Try Try
@ -209,6 +211,9 @@ Public Class clsPatterns
Case GetType(TextBox) Case GetType(TextBox)
oReplaceValue = oControl.Text oReplaceValue = oControl.Text
Case GetType(TextEdit)
oReplaceValue = Utils.NotNull(DirectCast(oControl, TextEdit).EditValue, String.Empty)
Case GetType(LookupControl3) Case GetType(LookupControl3)
Dim oLookupControl3 As LookupControl3 = oControl Dim oLookupControl3 As LookupControl3 = oControl
If oLookupControl3.Properties.SelectedValues.Count = 1 Then If oLookupControl3.Properties.SelectedValues.Count = 1 Then
@ -217,7 +222,7 @@ Public Class clsPatterns
oReplaceValue = ERROR_REPLACE_VALUE oReplaceValue = ERROR_REPLACE_VALUE
End If End If
Case GetType(ComboBox) Case GetType(Windows.Forms.ComboBox)
oReplaceValue = oControl.Text oReplaceValue = oControl.Text
Case GetType(CheckBox) Case GetType(CheckBox)

26
app/TaskFlow/frmAdministration.vb
View File

@ -197,7 +197,7 @@ Public Class frmAdministration
If tabctrl_Profilkonfig.SelectedIndex = 1 Then If tabctrl_Profilkonfig.SelectedIndex = 1 Then
CURRENT_OBJECTTYPE = cmbObjekttypen.Text CURRENT_OBJECTTYPE = cmbObjekttypen.Text
If TabControl2.SelectedIndex = 1 Then If TabControl2.SelectedIndex = 1 Then
Refresh_Final_indexe() Refresh_Final_Indexes()
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
@ -406,7 +406,7 @@ Public Class frmAdministration
EditMode_Profile("Unlock") EditMode_Profile("Unlock")
End Sub End Sub
Private Sub Refresh_Final_indexe() Private Sub Refresh_Final_Indexes()
_Logger.Debug("Loading Final Index Data") _Logger.Debug("Loading Final Index Data")
Try Try
@ -434,7 +434,7 @@ Public Class frmAdministration
RibbonPageGroup4.Enabled = False RibbonPageGroup4.Enabled = False
Case 1 Case 1
CURRENT_OBJECTTYPE = cmbObjekttypen.Text CURRENT_OBJECTTYPE = cmbObjekttypen.Text
Refresh_Final_indexe() Refresh_Final_Indexes()
CancelFinalIndexInsert() CancelFinalIndexInsert()
End Select End Select
@ -628,7 +628,7 @@ Public Class frmAdministration
Save_Profile() Save_Profile()
End If End If
If UNSAVED_CHANGES_FI Then If UNSAVED_CHANGES_FI Then
Save_FI() Save_Final_Indexes()
End If End If
e.Cancel = True e.Cancel = True
Else Else
@ -721,7 +721,7 @@ Public Class frmAdministration
pgFinalIndexes.Refresh() pgFinalIndexes.Refresh()
If oShouldRefreshGrid Then If oShouldRefreshGrid Then
Refresh_Final_indexe() Refresh_Final_Indexes()
End If End If
Catch ex As Exception Catch ex As Exception
_Logger.Error(ex) _Logger.Error(ex)
@ -1016,7 +1016,7 @@ Public Class frmAdministration
End Sub End Sub
Private Sub BarButtonItem15_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem15.ItemClick Private Sub BarButtonItem15_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem15.ItemClick
Refresh_Final_indexe() Refresh_Final_Indexes()
End Sub End Sub
Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick
@ -1033,7 +1033,7 @@ Public Class frmAdministration
If Not IsNothing(row) Then If Not IsNothing(row) Then
If MsgBox("Wollen Sie den Index wirklich löschen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question) = MsgBoxResult.Yes Then If MsgBox("Wollen Sie den Index wirklich löschen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question) = MsgBoxResult.Yes Then
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.DeleteFinalIndex(row.Item("GUID")) TBPM_PROFILE_FINAL_INDEXINGTableAdapter.DeleteFinalIndex(row.Item("GUID"))
Refresh_Final_indexe() Refresh_Final_Indexes()
MsgBox("Index erfolgreich gelöscht!", MsgBoxStyle.Information, "Hinweis:") MsgBox("Index erfolgreich gelöscht!", MsgBoxStyle.Information, "Hinweis:")
End If End If
@ -1041,11 +1041,10 @@ Public Class frmAdministration
End Sub End Sub
Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick
Save_FI() Save_Final_Indexes()
Refresh_Final_Indexes()
Refresh_Final_indexe()
End Sub End Sub
Private Sub Save_FI() Private Sub Save_Final_Indexes()
Try Try
'Dim obj As FinalIndexProperties = PropertyGrid1.SelectedObject 'Dim obj As FinalIndexProperties = PropertyGrid1.SelectedObject
Dim obj As FinalIndexProperties = pgFinalIndexes.SelectedObject Dim obj As FinalIndexProperties = pgFinalIndexes.SelectedObject
@ -1248,7 +1247,7 @@ Public Class frmAdministration
End If End If
If UNSAVED_CHANGES_FI Then If UNSAVED_CHANGES_FI Then
Save_FI() Save_Final_Indexes()
End If End If
Return True Return True
@ -1302,7 +1301,7 @@ Public Class frmAdministration
tsbStaticInfo.Caption = "" tsbStaticInfo.Caption = ""
Indexe_eintragen() Indexe_eintragen()
If tabctrl_Profilkonfig.SelectedIndex = 1 And TBPM_PROFILEBindingSource.Position <> -1 Then If tabctrl_Profilkonfig.SelectedIndex = 1 And TBPM_PROFILEBindingSource.Position <> -1 Then
Refresh_Final_indexe() Refresh_Final_Indexes()
End If End If
End Sub End Sub
Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter
@ -1341,7 +1340,6 @@ Public Class frmAdministration
End Function End Function
Private Sub BarButtonItem22_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem22.ItemClick Private Sub BarButtonItem22_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem22.ItemClick
Dim oUpdate As String
Dim oCtrlSeriesSQL As Button Dim oCtrlSeriesSQL As Button
Dim oCtrlSeriesType As ComboBox Dim oCtrlSeriesType As ComboBox
Dim oCtrlSeriesArgument As TextBox Dim oCtrlSeriesArgument As TextBox

52
app/TaskFlow/frmChat_NewConversation.Designer.vb generated
View File

@ -1,52 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmChat_NewConversation
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.ChatNewConv1 = New DigitalData.Controls.ChatNewConv.ChatNewConv()
Me.SuspendLayout()
'
'ChatNewConv1
'
Me.ChatNewConv1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ChatNewConv1.Location = New System.Drawing.Point(2, 1)
Me.ChatNewConv1.Name = "ChatNewConv1"
Me.ChatNewConv1.Size = New System.Drawing.Size(463, 472)
Me.ChatNewConv1.TabIndex = 0
'
'frmChat_NewConversation
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(474, 480)
Me.Controls.Add(Me.ChatNewConv1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmChat_NewConversation"
Me.Text = "Neue Konversation"
Me.ResumeLayout(False)
End Sub
Friend WithEvents ChatNewConv1 As DigitalData.Controls.ChatNewConv.ChatNewConv
End Class

120
app/TaskFlow/frmChat_NewConversation.resx
View File

@ -1,120 +0,0 @@
<?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>

24
app/TaskFlow/frmChat_NewConversation.vb
View File

@ -1,24 +0,0 @@
Public Class frmChat_NewConversation
Public Property NewConversation() As String
Get
Return oNewConversation
End Get
Set(value As String)
oNewConversation = value
End Set
End Property
Public oNewConversation As Long
Public Sub New(oDTUsers As DataTable, oDTGroups As DataTable)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
ChatNewConv1.Init(LOGCONFIG, CONNECTION_STRING_IDB, CURRENT_DOC_ID, USER_ID, USER_USERNAME, USER_LANGUAGE, oDTUsers, oDTGroups)
AddHandler ChatNewConv1.Conversation_Created, AddressOf onConversationCreated
End Sub
Sub onConversationCreated()
CURRENT_CONVERSATION_NEW = ChatNewConv1.NewConversation
Me.Close()
End Sub
End Class

88
app/TaskFlow/frmFormDesigner.vb
View File

@ -10,6 +10,7 @@ Imports DigitalData.Modules.Language
Imports System.Drawing Imports System.Drawing
Imports DigitalData.GUIs.Common Imports DigitalData.GUIs.Common
Imports DevExpress.Utils.Filtering.Internal Imports DevExpress.Utils.Filtering.Internal
Imports DevExpress.XtraEditors
Public Class frmFormDesigner Public Class frmFormDesigner
Public ProfileId As Integer Public ProfileId As Integer
@ -20,7 +21,9 @@ Public Class frmFormDesigner
' Control Variables ' Control Variables
Private CurrentControl As Control = Nothing Private CurrentControl As Control = Nothing
Private _Logger = LOGCONFIG.GetLogger() Private _Logger = LOGCONFIG.GetLogger()
Private ControlCreator As ClassControlCreator
' Movement Variables ' Movement Variables
Private Mouse_IsPressed As Boolean Private Mouse_IsPressed As Boolean
@ -55,8 +58,7 @@ Public Class frmFormDesigner
Private Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load
Try Try
ControlCreator = New ClassControlCreator(LOGCONFIG)
ClassControlCreator.Logger = LOGCONFIG.GetLoggerFor("ControlCreator")
BarButtonItem3.Caption = "Designer locked" BarButtonItem3.Caption = "Designer locked"
BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Red BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Red
Designer_Locked = True Designer_Locked = True
@ -256,34 +258,34 @@ Public Class frmFormDesigner
' Jetzt die Control spezifischen Eigenschaften zuweisen ' Jetzt die Control spezifischen Eigenschaften zuweisen
Select Case row.Item("CTRL_TYPE") Select Case row.Item("CTRL_TYPE")
Case "TXT" Case ClassControlCreator.PREFIX_TEXTBOX
Dim txt = ClassControlCreator.CreateExistingTextbox(row, True) Dim txt = ControlCreator.CreateExistingTextbox(row, True)
pnldesigner.Controls.Add(txt) pnldesigner.Controls.Add(txt)
SetMovementHandlers(txt) SetMovementHandlers(txt)
Case "LBL" Case ClassControlCreator.PREFIX_LABEL
Dim lbl = ClassControlCreator.CreateExistingLabel(row, True) Dim lbl = ControlCreator.CreateExistingLabel(row, True)
pnldesigner.Controls.Add(lbl) pnldesigner.Controls.Add(lbl)
SetMovementHandlers(lbl) SetMovementHandlers(lbl)
Case "CMB" Case "CMB"
Dim cmb = ClassControlCreator.CreateExistingCombobox(row, True) Dim cmb = ControlCreator.CreateExistingCombobox(row, True)
pnldesigner.Controls.Add(cmb) pnldesigner.Controls.Add(cmb)
SetMovementHandlers(cmb) SetMovementHandlers(cmb)
Case "DTP" Case "DTP"
Dim dtp = ClassControlCreator.CreateExistingDatepicker(row, True) Dim dtp = ControlCreator.CreateExistingDatepicker(row, True)
pnldesigner.Controls.Add(dtp) pnldesigner.Controls.Add(dtp)
SetMovementHandlers(dtp) SetMovementHandlers(dtp)
Case "CHK" Case "CHK"
Dim chk = ClassControlCreator.CreateExisingCheckbox(row, True) Dim chk = ControlCreator.CreateExisingCheckbox(row, True)
pnldesigner.Controls.Add(chk) pnldesigner.Controls.Add(chk)
SetMovementHandlers(chk) SetMovementHandlers(chk)
Case "DGV" Case "DGV"
Dim dgv = ClassControlCreator.CreateExistingDataGridView(row, True) Dim dgv = ControlCreator.CreateExistingDataGridView(row, True)
pnldesigner.Controls.Add(dgv) pnldesigner.Controls.Add(dgv)
SetMovementHandlers(dgv) SetMovementHandlers(dgv)
@ -295,7 +297,7 @@ Public Class frmFormDesigner
Dim oDTColumnsPerDevExGrid As DataTable = DatabaseFallback.GetDatatableECM(oSQL) ', "FDesignLaodControls") Dim oDTColumnsPerDevExGrid As DataTable = DatabaseFallback.GetDatatableECM(oSQL) ', "FDesignLaodControls")
Dim table = ClassControlCreator.CreateExistingGridControl(row, oDTColumnsPerDevExGrid, True) Dim table = ControlCreator.CreateExistingGridControl(row, oDTColumnsPerDevExGrid, True)
AddHandler table.MouseClick, AddressOf gridControl_MouseClick AddHandler table.MouseClick, AddressOf gridControl_MouseClick
' AddHandler table.ColumnHeaderMouseClick, AddressOf table_ColumnHeaderMouseClick ' AddHandler table.ColumnHeaderMouseClick, AddressOf table_ColumnHeaderMouseClick
@ -304,16 +306,16 @@ Public Class frmFormDesigner
SetMovementHandlers(table) SetMovementHandlers(table)
Case "LOOKUP" Case "LOOKUP"
Dim lookup = ClassControlCreator.CreateExistingLookupControl(row, True) Dim lookup = ControlCreator.CreateExistingLookupControl(row, True)
pnldesigner.Controls.Add(lookup) pnldesigner.Controls.Add(lookup)
SetMovementHandlers(lookup) SetMovementHandlers(lookup)
Case "LINE" Case "LINE"
Dim line = ClassControlCreator.CreateExistingLine(row, True) Dim line = ControlCreator.CreateExistingLine(row, True)
pnldesigner.Controls.Add(line) pnldesigner.Controls.Add(line)
SetMovementHandlers(line) SetMovementHandlers(line)
Case "BUTTON" Case "BUTTON"
Dim oButton = ClassControlCreator.CreateExistingButton(row, True) Dim oButton = ControlCreator.CreateExistingButton(row, True)
pnldesigner.Controls.Add(oButton) pnldesigner.Controls.Add(oButton)
SetMovementHandlers(oButton) SetMovementHandlers(oButton)
End Select End Select
@ -341,21 +343,21 @@ Public Class frmFormDesigner
Dim oMetadata = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata) Dim oMetadata = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata)
If oMetadata.ReadOnly = False Then If oMetadata.ReadOnly = False Then
Dim Type As String = oControl.GetType.ToString
Select Case Type Select Case oControl.GetType()
Case "System.Windows.Forms.TextBox" Case GetType(TextEdit)
oControl.BackColor = Color.White oControl.BackColor = Color.White
Case "System.Windows.Forms.ComboBox" Case GetType(System.Windows.Forms.ComboBox)
oControl.BackColor = Color.White oControl.BackColor = Color.White
Case "System.Windows.Forms.Label" Case GetType(System.Windows.Forms.Label)
oControl.BackColor = Color.Transparent oControl.BackColor = Color.Transparent
Case "System.Windows.Forms.CheckBox" Case GetType(System.Windows.Forms.CheckBox)
oControl.BackColor = Color.Transparent oControl.BackColor = Color.Transparent
Case "DD_ProcessManager.ClassControlCreator+LineLabel" Case GetType(DD_ProcessManager.ClassControlCreator.LineLabel)
oControl.BackColor = oControl.ForeColor oControl.BackColor = oControl.ForeColor
Case "DigitalData.Controls.LookupGrid.LookupControl3" Case GetType(DigitalData.Controls.LookupGrid.LookupControl3)
oControl.BackColor = Color.White oControl.BackColor = Color.White
Case "System.Windows.Forms.Button" Case GetType(System.Windows.Forms.Button)
oControl.BackColor = SystemColors.Control oControl.BackColor = SystemColors.Control
End Select End Select
End If End If
@ -664,8 +666,8 @@ Public Class frmFormDesigner
checkProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), "")) checkProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
checkProps.SetControlData = New SQLValue(NotNull(oRow.Item("SET_CONTROL_DATA"), "")) checkProps.SetControlData = New SQLValue(NotNull(oRow.Item("SET_CONTROL_DATA"), ""))
props = checkProps props = checkProps
ElseIf TypeOf sender Is TextBox Then ElseIf TypeOf sender Is TextEdit Then
Dim txt As TextBox = sender 'Dim txt As TextEdit = sender
Dim txtProps As TextboxProperties = CreatePropsObjectWithIndicies(New TextboxProperties, oRow, Source_AllIndicies) Dim txtProps As TextboxProperties = CreatePropsObjectWithIndicies(New TextboxProperties, oRow, Source_AllIndicies)
txtProps.Regex = NotNull(oRow.Item("REGEX_MATCH"), String.Empty) txtProps.Regex = NotNull(oRow.Item("REGEX_MATCH"), String.Empty)
txtProps.RegexMessage = NotNull(oRow.Item("REGEX_MESSAGE_DE"), String.Empty) txtProps.RegexMessage = NotNull(oRow.Item("REGEX_MESSAGE_DE"), String.Empty)
@ -676,8 +678,8 @@ Public Class frmFormDesigner
props = txtProps props = txtProps
ElseIf TypeOf sender Is ComboBox Then ElseIf TypeOf sender Is Windows.Forms.ComboBox Then
Dim cmb As ComboBox = sender Dim cmb As Windows.Forms.ComboBox = sender
Dim cmbProps As ComboboxProperties = CreatePropsObjectWithIndicies(New ComboboxProperties, oRow, Source_AllIndicies) Dim cmbProps As ComboboxProperties = CreatePropsObjectWithIndicies(New ComboboxProperties, oRow, Source_AllIndicies)
cmbProps.ChoiceLists = Windream_ChoiceLists cmbProps.ChoiceLists = Windream_ChoiceLists
cmbProps.ChoiceList = NotNull(oRow.Item("CHOICE_LIST"), String.Empty) cmbProps.ChoiceList = NotNull(oRow.Item("CHOICE_LIST"), String.Empty)
@ -1103,7 +1105,7 @@ Public Class frmFormDesigner
Try Try
Select Case ControlSelected Select Case ControlSelected
Case ClassControlCreator.PREFIX_LABEL Case ClassControlCreator.PREFIX_LABEL
Dim label = ClassControlCreator.CreateNewLabel(cursorPosition) Dim label = ControlCreator.CreateNewLabel(cursorPosition)
SetMovementHandlers(label) SetMovementHandlers(label)
TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, label.Name, "LBL", label.Text, label.Location.X, label.Location.Y, USER_USERNAME, label.Size.Height, label.Size.Width) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, label.Name, "LBL", label.Text, label.Location.X, label.Location.Y, USER_USERNAME, label.Size.Height, label.Size.Width)
@ -1118,7 +1120,7 @@ Public Class frmFormDesigner
pnldesigner.Controls.Add(label) pnldesigner.Controls.Add(label)
Case ClassControlCreator.PREFIX_TEXTBOX Case ClassControlCreator.PREFIX_TEXTBOX
Dim txt = ClassControlCreator.CreateNewTextBox(cursorPosition) Dim txt = ControlCreator.CreateNewTextBox(cursorPosition)
SetMovementHandlers(txt) SetMovementHandlers(txt)
TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, txt.Name, "TXT", txt.Name, txt.Location.X, txt.Location.Y, USER_USERNAME, txt.Size.Height, txt.Size.Width) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, txt.Name, "TXT", txt.Name, txt.Location.X, txt.Location.Y, USER_USERNAME, txt.Size.Height, txt.Size.Width)
@ -1132,7 +1134,7 @@ Public Class frmFormDesigner
pnldesigner.Controls.Add(txt) pnldesigner.Controls.Add(txt)
Case ClassControlCreator.PREFIX_COMBOBOX Case ClassControlCreator.PREFIX_COMBOBOX
Dim cmb = ClassControlCreator.CreateNewCombobox(cursorPosition) Dim cmb = ControlCreator.CreateNewCombobox(cursorPosition)
SetMovementHandlers(cmb) SetMovementHandlers(cmb)
TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, cmb.Name, "CMB", cmb.Name, cmb.Location.X, cmb.Location.Y, USER_USERNAME, cmb.Size.Height, cmb.Size.Width) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, cmb.Name, "CMB", cmb.Name, cmb.Location.X, cmb.Location.Y, USER_USERNAME, cmb.Size.Height, cmb.Size.Width)
@ -1146,7 +1148,7 @@ Public Class frmFormDesigner
pnldesigner.Controls.Add(cmb) pnldesigner.Controls.Add(cmb)
Case ClassControlCreator.PREFIX_DATETIMEPICKER Case ClassControlCreator.PREFIX_DATETIMEPICKER
Dim dtp = ClassControlCreator.CreateNewDatetimepicker(cursorPosition) Dim dtp = ControlCreator.CreateNewDatetimepicker(cursorPosition)
SetMovementHandlers(dtp) SetMovementHandlers(dtp)
TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, dtp.Name, "DTP", dtp.Name, dtp.Location.X, dtp.Location.Y, USER_USERNAME, dtp.Size.Height, dtp.Size.Width) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, dtp.Name, "DTP", dtp.Name, dtp.Location.X, dtp.Location.Y, USER_USERNAME, dtp.Size.Height, dtp.Size.Width)
@ -1160,7 +1162,7 @@ Public Class frmFormDesigner
pnldesigner.Controls.Add(dtp) pnldesigner.Controls.Add(dtp)
Case ClassControlCreator.PREFIX_CHECKBOX Case ClassControlCreator.PREFIX_CHECKBOX
Dim chk = ClassControlCreator.CreateNewCheckbox(cursorPosition) Dim chk = ControlCreator.CreateNewCheckbox(cursorPosition)
SetMovementHandlers(chk) SetMovementHandlers(chk)
TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, chk.Name, "CHK", chk.Text, chk.Location.X, chk.Location.Y, USER_USERNAME, chk.Size.Height, chk.Size.Width) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, chk.Name, "CHK", chk.Text, chk.Location.X, chk.Location.Y, USER_USERNAME, chk.Size.Height, chk.Size.Width)
@ -1174,7 +1176,7 @@ Public Class frmFormDesigner
pnldesigner.Controls.Add(chk) pnldesigner.Controls.Add(chk)
Case ClassControlCreator.PREFIX_LOOKUP Case ClassControlCreator.PREFIX_LOOKUP
Dim lc As LookupControl3 = ClassControlCreator.CreateNewLookupControl(cursorPosition) Dim lc As LookupControl3 = ControlCreator.CreateNewLookupControl(cursorPosition)
SetMovementHandlers(lc) SetMovementHandlers(lc)
@ -1189,7 +1191,7 @@ Public Class frmFormDesigner
pnldesigner.Controls.Add(lc) pnldesigner.Controls.Add(lc)
Case ClassControlCreator.PREFIX_TABLE Case ClassControlCreator.PREFIX_TABLE
Dim tb = ClassControlCreator.CreateNewTable(cursorPosition) Dim tb = ControlCreator.CreateNewTable(cursorPosition)
SetMovementHandlers(tb) SetMovementHandlers(tb)
AddHandler tb.MouseClick, AddressOf gridControl_MouseClick AddHandler tb.MouseClick, AddressOf gridControl_MouseClick
@ -1209,7 +1211,7 @@ Public Class frmFormDesigner
pnldesigner.Controls.Add(tb) pnldesigner.Controls.Add(tb)
Case ClassControlCreator.PREFIX_LINE Case ClassControlCreator.PREFIX_LINE
Dim line = ClassControlCreator.CreateNewLine(cursorPosition) Dim line = ControlCreator.CreateNewLine(cursorPosition)
SetMovementHandlers(line) SetMovementHandlers(line)
@ -1224,7 +1226,7 @@ Public Class frmFormDesigner
pnldesigner.Controls.Add(line) pnldesigner.Controls.Add(line)
Case ClassControlCreator.PREFIX_BUTTON Case ClassControlCreator.PREFIX_BUTTON
Dim oButton = ClassControlCreator.CreateNewButton(cursorPosition) Dim oButton = ControlCreator.CreateNewButton(cursorPosition)
SetMovementHandlers(oButton) SetMovementHandlers(oButton)
@ -1286,9 +1288,10 @@ Public Class frmFormDesigner
If CurrentControl Is Nothing = False Then If CurrentControl Is Nothing = False Then
Dim newHeight As Integer = CurrentControl.Height - 5 Dim newHeight As Integer = CurrentControl.Height - 5
If newHeight < 22 And TypeOf CurrentControl Is TextBox Then ' TODO: Implement Multiline TextBox
DirectCast(CurrentControl, TextBox).Multiline = True 'If newHeight < 22 And TypeOf CurrentControl Is TextBox Then
End If ' DirectCast(CurrentControl, TextBox).Multiline = True
'End If
' Verhindert, dass das Control unsichtbar wird ' Verhindert, dass das Control unsichtbar wird
If newHeight < 1 Then If newHeight < 1 Then
@ -1307,9 +1310,10 @@ Public Class frmFormDesigner
If CurrentControl Is Nothing = False Then If CurrentControl Is Nothing = False Then
Dim newHeight As Integer = CurrentControl.Height + 5 Dim newHeight As Integer = CurrentControl.Height + 5
If newHeight > 21 And TypeOf CurrentControl Is TextBox Then ' TODO: Implement Multiline Textbox
DirectCast(CurrentControl, TextBox).Multiline = True 'If newHeight > 21 And TypeOf CurrentControl Is TextBox Then
End If ' DirectCast(CurrentControl, TextBox).Multiline = True
'End If
CurrentControl.Size = New Size(CurrentControl.Width, newHeight) CurrentControl.Size = New Size(CurrentControl.Width, newHeight)
DirectCast(pgControlsNew.SelectedObject, BaseProperties).Size = CurrentControl.Size DirectCast(pgControlsNew.SelectedObject, BaseProperties).Size = CurrentControl.Size

7
app/TaskFlow/frmMain.Designer.vb generated
View File

@ -261,7 +261,9 @@ Partial Class frmMain
' '
Me.GridView_Docs.Appearance.EvenRow.BackColor = System.Drawing.Color.Azure Me.GridView_Docs.Appearance.EvenRow.BackColor = System.Drawing.Color.Azure
Me.GridView_Docs.Appearance.EvenRow.Options.UseBackColor = True Me.GridView_Docs.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView_Docs.Appearance.ViewCaption.Font = CType(resources.GetObject("GridView_Docs.Appearance.ViewCaption.Font"), System.Drawing.Font)
Me.GridView_Docs.Appearance.ViewCaption.ForeColor = System.Drawing.Color.Black Me.GridView_Docs.Appearance.ViewCaption.ForeColor = System.Drawing.Color.Black
Me.GridView_Docs.Appearance.ViewCaption.Options.UseFont = True
Me.GridView_Docs.Appearance.ViewCaption.Options.UseForeColor = True Me.GridView_Docs.Appearance.ViewCaption.Options.UseForeColor = True
Me.GridView_Docs.Appearance.ViewCaption.Options.UseTextOptions = True Me.GridView_Docs.Appearance.ViewCaption.Options.UseTextOptions = True
Me.GridView_Docs.Appearance.ViewCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near Me.GridView_Docs.Appearance.ViewCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near
@ -293,12 +295,13 @@ Partial Class frmMain
Me.NavBarControl1.Items.AddRange(New DevExpress.XtraNavBar.NavBarItem() {Me.NavBarItemOverview}) Me.NavBarControl1.Items.AddRange(New DevExpress.XtraNavBar.NavBarItem() {Me.NavBarItemOverview})
Me.NavBarControl1.Name = "NavBarControl1" Me.NavBarControl1.Name = "NavBarControl1"
Me.NavBarControl1.OptionsNavPane.ExpandedWidth = CType(resources.GetObject("resource.ExpandedWidth"), Integer) Me.NavBarControl1.OptionsNavPane.ExpandedWidth = CType(resources.GetObject("resource.ExpandedWidth"), Integer)
Me.NavBarControl1.View = New DevExpress.XtraNavBar.ViewInfo.StandardSkinExplorerBarViewInfoRegistrator("DevExpress Style") Me.NavBarControl1.PaintStyleKind = DevExpress.XtraNavBar.NavBarViewKind.NavigationPane
Me.NavBarControl1.ShowIcons = DevExpress.Utils.DefaultBoolean.[True]
Me.NavBarControl1.View = New DevExpress.XtraNavBar.ViewInfo.StandardSkinExplorerBarViewInfoRegistrator("Office 2019 White")
' '
'NavBarGroupProfiles 'NavBarGroupProfiles
' '
resources.ApplyResources(Me.NavBarGroupProfiles, "NavBarGroupProfiles") resources.ApplyResources(Me.NavBarGroupProfiles, "NavBarGroupProfiles")
Me.NavBarGroupProfiles.Expanded = True
Me.NavBarGroupProfiles.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText Me.NavBarGroupProfiles.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText
Me.NavBarGroupProfiles.ImageOptions.LargeImage = CType(resources.GetObject("NavBarGroupProfiles.ImageOptions.LargeImage"), System.Drawing.Image) Me.NavBarGroupProfiles.ImageOptions.LargeImage = CType(resources.GetObject("NavBarGroupProfiles.ImageOptions.LargeImage"), System.Drawing.Image)
Me.NavBarGroupProfiles.Name = "NavBarGroupProfiles" Me.NavBarGroupProfiles.Name = "NavBarGroupProfiles"

85
app/TaskFlow/frmMain.resx
View File

@ -124,46 +124,46 @@
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADu ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgIAAQoBAAEKARABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA CAAAAk1TRnQBSQFMAgEBAgEAARgBCgEYAQoBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AUADAAEQAwABAQEAAQgGAAEEGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AwABmQMAAcwCAAEzAwACMwIAATMBZgIAATMBmQIAATMBzAIAATMB/wIAAWYDAAFmATMCAAJmAgABZgGZ AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AgABZgHMAgABZgH/AgABmQMAAZkBMwIAAZkBZgIAApkCAAGZAcwCAAGZAf8CAAHMAwABzAEzAgABzAFm AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AgABzAGZAgACzAIAAcwB/wIAAf8BZgIAAf8BmQIAAf8BzAEAATMB/wIAAf8BAAEzAQABMwEAAWYBAAEz AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
AQABmQEAATMBAAHMAQABMwEAAf8BAAH/ATMCAAMzAQACMwFmAQACMwGZAQACMwHMAQACMwH/AQABMwFm ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AgABMwFmATMBAAEzAmYBAAEzAWYBmQEAATMBZgHMAQABMwFmAf8BAAEzAZkCAAEzAZkBMwEAATMBmQFm AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AQABMwKZAQABMwGZAcwBAAEzAZkB/wEAATMBzAIAATMBzAEzAQABMwHMAWYBAAEzAcwBmQEAATMCzAEA AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
ATMBzAH/AQABMwH/ATMBAAEzAf8BZgEAATMB/wGZAQABMwH/AcwBAAEzAv8BAAFmAwABZgEAATMBAAFm AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AQABZgEAAWYBAAGZAQABZgEAAcwBAAFmAQAB/wEAAWYBMwIAAWYCMwEAAWYBMwFmAQABZgEzAZkBAAFm AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
ATMBzAEAAWYBMwH/AQACZgIAAmYBMwEAA2YBAAJmAZkBAAJmAcwBAAFmAZkCAAFmAZkBMwEAAWYBmQFm AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AQABZgKZAQABZgGZAcwBAAFmAZkB/wEAAWYBzAIAAWYBzAEzAQABZgHMAZkBAAFmAswBAAFmAcwB/wEA AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AWYB/wIAAWYB/wEzAQABZgH/AZkBAAFmAf8BzAEAAcwBAAH/AQAB/wEAAcwBAAKZAgABmQEzAZkBAAGZ AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AQABmQEAAZkBAAHMAQABmQMAAZkCMwEAAZkBAAFmAQABmQEzAcwBAAGZAQAB/wEAAZkBZgIAAZkBZgEz AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
AQABmQEzAWYBAAGZAWYBmQEAAZkBZgHMAQABmQEzAf8BAAKZATMBAAKZAWYBAAOZAQACmQHMAQACmQH/ ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
AQABmQHMAgABmQHMATMBAAFmAcwBZgEAAZkBzAGZAQABmQLMAQABmQHMAf8BAAGZAf8CAAGZAf8BMwEA Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AZkBzAFmAQABmQH/AZkBAAGZAf8BzAEAAZkC/wEAAcwDAAGZAQABMwEAAcwBAAFmAQABzAEAAZkBAAHM AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AQABzAEAAZkBMwIAAcwCMwEAAcwBMwFmAQABzAEzAZkBAAHMATMBzAEAAcwBMwH/AQABzAFmAgABzAFm AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
ATMBAAGZAmYBAAHMAWYBmQEAAcwBZgHMAQABmQFmAf8BAAHMAZkCAAHMAZkBMwEAAcwBmQFmAQABzAKZ AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
AQABzAGZAcwBAAHMAZkB/wEAAswCAALMATMBAALMAWYBAALMAZkBAAPMAQACzAH/AQABzAH/AgABzAH/ ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
ATMBAAGZAf8BZgEAAcwB/wGZAQABzAH/AcwBAAHMAv8BAAHMAQABMwEAAf8BAAFmAQAB/wEAAZkBAAHM Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
ATMCAAH/AjMBAAH/ATMBZgEAAf8BMwGZAQAB/wEzAcwBAAH/ATMB/wEAAf8BZgIAAf8BZgEzAQABzAJm AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AQAB/wFmAZkBAAH/AWYBzAEAAcwBZgH/AQAB/wGZAgAB/wGZATMBAAH/AZkBZgEAAf8CmQEAAf8BmQHM AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AQAB/wGZAf8BAAH/AcwCAAH/AcwBMwEAAf8BzAFmAQAB/wHMAZkBAAH/AswBAAH/AcwB/wEAAv8BMwEA AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AcwB/wFmAQAC/wGZAQAC/wHMAQACZgH/AQABZgH/AWYBAAFmAv8BAAH/AmYBAAH/AWYB/wEAAv8BZgEA AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
ASEBAAGlAQADXwEAA3cBAAOGAQADlgEAA8sBAAOyAQAD1wEAA90BAAPjAQAD6gEAA/EBAAP4AQAB8AH7 AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
Af8BAAGkAqABAAOAAwAB/wIAAf8DAAL/AQAB/wMAAf8BAAH/AQAC/wIAA/9GAAEIBHIBCAoAARoBHAJ0 AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/0YAAQgEcgEICgABGgEc
ARwBGikAAXIBVQFaAlsBWgFVAU8IAAF0AXkBegLlAXoBeQF0JwACVQFaAVsC5AFbAVoCVQYAAXQCegTl AnQBHAEaKQABcgFVAVoCWwFaAVUBTwgAAXQBeQF6AuUBegF5AXQnAAJVAVoBWwLkAVsBWgJVBgABdAJ6
AXoBeQFSJQABTwFVAloEWwFaAlUBTwQAAVIBWQF6BuUBegJSIwABCAJVCFoCVQEIAgABGgFSAVkBegbl BOUBegF5AVIlAAFPAVUCWgRbAVoCVQFPBAABUgFZAXoG5QF6AlIjAAEIAlUIWgJVAQgCAAEaAVIBWQF6
AVkBWAFSARoiAAFPAlUHWgNVAU8CAAFMAVIKWQFSAUwiAAFPATQKVQE0AS4CAAFMAVIBUwhZAVMBUgFM BuUBWQFYAVIBGiIAAU8CVQdaA1UBTwIAAUwBUgpZAVIBTCIAAU8BNApVATQBLgIAAUwBUgFTCFkBUwFS
IgABLQMzBzQCMwEtAgACKwIyBlMCMgIrIgABTwEtATMIVQE0Ai0CAAFMAisIUwFSAisiAAEIAS0BVQiX AUwiAAEtAzMHNAIzAS0CAAIrAjIGUwIyAisiAAFPAS0BMwhVATQCLQIAAUwCKwhTAVICKyIAAQgBLQFV
AVUBLQEIAgABGgErAVIIdQFSASsBGiMAAQIBlwiYAZcBLQQAASoBdAiaAXQBKyUAAU8BCAEbBcIB8QFP CJcBVQEtAQgCAAEaASsBUgh1AVIBKwEaIwABAgGXCJgBlwEtBAABKgF0CJoBdAErJQABTwEIARsFwgHx
BgABTAEaARsEGgEbARoBUicAAU8BCAHzAv8B8wEIAXIIAAFMARoE9gEaAXQpAAEIBHIBCAoAARoEdAEa AU8GAAFMARoBGwQaARsBGgFSJwABTwEIAfMC/wHzAQgBcggAAUwBGgT2ARoBdCkAAQgEcgEICgABGgR0
ZQABQgFNAT4HAAE+AwABKAMAAUADAAEQAwABAQEAAQEFAAGAFwAD/wEABP8EAAH4AR8B+AEfBAAB8AEP ARplAAFCAU0BPgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/AQAE/wQAAfgBHwH4AR8EAAHw
AfABDwQAAeABBwHgAQcEAAHAAQMBwAEDBAABgAEBAYABAQQAAYABAQGAAQEEAAGAAQEBgAEBBAABgAEB AQ8B8AEPBAAB4AEHAeABBwQAAcABAwHAAQMEAAGAAQEBgAEBBAABgAEBAYABAQQAAYABAQGAAQEEAAGA
AYABAQQAAYABAQGAAQEEAAGAAQEBgAEBBAABwAEDAcABAwQAAeABBwHgAQcEAAHwAQ8B8AEPBAAB+AEf AQEBgAEBBAABgAEBAYABAQQAAYABAQGAAQEEAAHAAQMBwAEDBAAB4AEHAeABBwQAAfABDwHwAQ8EAAH4
AfgBHwQABP8EAAs= AR8B+AEfBAAE/wQACw==
</value> </value>
</data> </data>
<metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@ -204,6 +204,9 @@
<data name="GridControl_Docs.Location" type="System.Drawing.Point, System.Drawing"> <data name="GridControl_Docs.Location" type="System.Drawing.Point, System.Drawing">
<value>233, 0</value> <value>233, 0</value>
</data> </data>
<data name="GridView_Docs.Appearance.ViewCaption.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 12pt</value>
</data>
<data name="GridView_Docs.ViewCaption" xml:space="preserve"> <data name="GridView_Docs.ViewCaption" xml:space="preserve">
<value>Gesamtübersicht Workflows</value> <value>Gesamtübersicht Workflows</value>
</data> </data>
@ -501,7 +504,7 @@
<value>Out of Range - Fenster wiederherstellen</value> <value>Out of Range - Fenster wiederherstellen</value>
</data> </data>
<data name="ContextMenuNotifyIcon.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuNotifyIcon.Size" type="System.Drawing.Size, System.Drawing">
<value>283, 98</value> <value>283, 76</value>
</data> </data>
<data name="&gt;&gt;ContextMenuNotifyIcon.Name" xml:space="preserve"> <data name="&gt;&gt;ContextMenuNotifyIcon.Name" xml:space="preserve">
<value>ContextMenuNotifyIcon</value> <value>ContextMenuNotifyIcon</value>

7
app/TaskFlow/frmMain.vb
View File

@ -17,6 +17,7 @@ Imports DevExpress.XtraGrid.Views.BandedGrid
Imports DevExpress.XtraBars.Ribbon Imports DevExpress.XtraBars.Ribbon
Imports DigitalData.Modules.ZooFlow Imports DigitalData.Modules.ZooFlow
Imports DevExpress.LookAndFeel Imports DevExpress.LookAndFeel
Imports DigitalData.Modules.Base
Public Class frmMain Public Class frmMain
Private Property FormHelper As FormHelper Private Property FormHelper As FormHelper
@ -402,8 +403,10 @@ Public Class frmMain
Check_Timer_Notification() Check_Timer_Notification()
Timer_Inactivity_Reset_Disable("FormLoad") Timer_Inactivity_Reset_Disable("FormLoad")
Restore_Form_Position() 'Restore_Form_Position()
ScreenEx.RestoreFormPosition(Me, My.Settings.frmMainPosition)
ScreenEx.RestoreFormState(Me, My.Settings.frmMainWindowState)
Size = My.Settings.frmMainSize
If IDB_ACTIVE = False And ERROR_STATE = "" Then If IDB_ACTIVE = False And ERROR_STATE = "" Then
Try Try

44
app/TaskFlow/frmMassValidator.Designer.vb generated
View File

@ -1,4 +1,6 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Imports DevExpress.XtraEditors
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmMassValidator Partial Class frmMassValidator
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
@ -27,13 +29,14 @@ Partial Class frmMassValidator
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tslblCountDocs = New System.Windows.Forms.ToolStripStatusLabel() Me.tslblCountDocs = New System.Windows.Forms.ToolStripStatusLabel()
Me.TITLELabel1 = New System.Windows.Forms.Label() Me.TITLELabel1 = New System.Windows.Forms.Label()
Me.pnldesigner = New System.Windows.Forms.Panel()
Me.btnSave = New System.Windows.Forms.Button() Me.btnSave = New System.Windows.Forms.Button()
Me.DESCRIPTIONLabel = New System.Windows.Forms.Label() Me.DESCRIPTIONLabel = New System.Windows.Forms.Label()
Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.pnldesigner = New DevExpress.XtraEditors.PanelControl()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pnldesigner, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'ToolStrip1 'ToolStrip1
@ -56,7 +59,7 @@ Partial Class frmMassValidator
'tslblCountDocs 'tslblCountDocs
' '
Me.tslblCountDocs.Name = "tslblCountDocs" Me.tslblCountDocs.Name = "tslblCountDocs"
Me.tslblCountDocs.Size = New System.Drawing.Size(120, 17) Me.tslblCountDocs.Size = New System.Drawing.Size(119, 17)
Me.tslblCountDocs.Text = "ToolStripStatusLabel1" Me.tslblCountDocs.Text = "ToolStripStatusLabel1"
' '
'TITLELabel1 'TITLELabel1
@ -73,20 +76,6 @@ Partial Class frmMassValidator
Me.TITLELabel1.Text = "Label1" Me.TITLELabel1.Text = "Label1"
Me.TITLELabel1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.TITLELabel1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
' '
'pnldesigner
'
Me.pnldesigner.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnldesigner.AutoScroll = True
Me.pnldesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnldesigner.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.pnldesigner.Location = New System.Drawing.Point(15, 125)
Me.pnldesigner.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.pnldesigner.Name = "pnldesigner"
Me.pnldesigner.Size = New System.Drawing.Size(559, 331)
Me.pnldesigner.TabIndex = 21
'
'btnSave 'btnSave
' '
Me.btnSave.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Me.btnSave.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
@ -105,11 +94,13 @@ Partial Class frmMassValidator
' '
'DESCRIPTIONLabel 'DESCRIPTIONLabel
' '
Me.DESCRIPTIONLabel.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.DESCRIPTIONLabel.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.DESCRIPTIONLabel.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DESCRIPTIONLabel.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.DESCRIPTIONLabel.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.DESCRIPTIONLabel.Location = New System.Drawing.Point(12, 54) Me.DESCRIPTIONLabel.Location = New System.Drawing.Point(12, 54)
Me.DESCRIPTIONLabel.Name = "DESCRIPTIONLabel" Me.DESCRIPTIONLabel.Name = "DESCRIPTIONLabel"
Me.DESCRIPTIONLabel.Size = New System.Drawing.Size(725, 67) Me.DESCRIPTIONLabel.Size = New System.Drawing.Size(562, 67)
Me.DESCRIPTIONLabel.TabIndex = 20 Me.DESCRIPTIONLabel.TabIndex = 20
Me.DESCRIPTIONLabel.Text = "Label3" Me.DESCRIPTIONLabel.Text = "Label3"
' '
@ -121,10 +112,12 @@ Partial Class frmMassValidator
'TableAdapterManager 'TableAdapterManager
' '
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.Connection = Nothing
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing
Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing
Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing
Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing
@ -134,15 +127,25 @@ Partial Class frmMassValidator
Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
' '
'pnldesigner
'
Me.pnldesigner.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnldesigner.Location = New System.Drawing.Point(15, 125)
Me.pnldesigner.Name = "pnldesigner"
Me.pnldesigner.Size = New System.Drawing.Size(559, 332)
Me.pnldesigner.TabIndex = 23
'
'frmMassValidator 'frmMassValidator
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(586, 540) Me.ClientSize = New System.Drawing.Size(586, 540)
Me.Controls.Add(Me.pnldesigner)
Me.Controls.Add(Me.btnSave) Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.TITLELabel1) Me.Controls.Add(Me.TITLELabel1)
Me.Controls.Add(Me.DESCRIPTIONLabel) Me.Controls.Add(Me.DESCRIPTIONLabel)
Me.Controls.Add(Me.pnldesigner)
Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@ -153,6 +156,7 @@ Partial Class frmMassValidator
Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout() Me.StatusStrip1.PerformLayout()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pnldesigner, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -161,10 +165,10 @@ Partial Class frmMassValidator
Friend WithEvents ToolStrip1 As ToolStrip Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents StatusStrip1 As StatusStrip Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents TITLELabel1 As Label Friend WithEvents TITLELabel1 As Label
Friend WithEvents pnldesigner As Panel
Friend WithEvents btnSave As Button Friend WithEvents btnSave As Button
Friend WithEvents tslblCountDocs As ToolStripStatusLabel Friend WithEvents tslblCountDocs As ToolStripStatusLabel
Friend WithEvents DESCRIPTIONLabel As Label Friend WithEvents DESCRIPTIONLabel As Label
Friend WithEvents DD_DMSLiteDataSet As DD_DMSLiteDataSet Friend WithEvents DD_DMSLiteDataSet As DD_DMSLiteDataSet
Friend WithEvents TableAdapterManager As DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents TableAdapterManager As DD_DMSLiteDataSetTableAdapters.TableAdapterManager
Friend WithEvents pnldesigner As PanelControl
End Class End Class

146
app/TaskFlow/frmMassValidator.vb
View File

@ -7,6 +7,7 @@ Imports DigitalData.Modules.Language.Utils
Imports System.IO Imports System.IO
Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
Imports DigitalData.Modules.EDMI.API.Constants Imports DigitalData.Modules.EDMI.API.Constants
Imports DevExpress.XtraEditors
Public Class frmMassValidator Public Class frmMassValidator
Private DTCONTROLS As DataTable Private DTCONTROLS As DataTable
@ -24,6 +25,7 @@ Public Class frmMassValidator
Private CTRLS_Loaded As Boolean = False Private CTRLS_Loaded As Boolean = False
Private FORM_Shown As Boolean = False Private FORM_Shown As Boolean = False
Private _dependingControl_in_action As Boolean = False Private _dependingControl_in_action As Boolean = False
Private ControlCreator As ClassControlCreator
Private oErrorMessage As String Private oErrorMessage As String
Private _windream As New ClassWindream_allgemein Private _windream As New ClassWindream_allgemein
@ -42,6 +44,7 @@ Public Class frmMassValidator
'_windreamPM = New ClassPMWindream() '_windreamPM = New ClassPMWindream()
'_windreamPM.Create_Session() '_windreamPM.Create_Session()
ControlCreator = New ClassControlCreator(LOGCONFIG)
LOGGER.Debug("windream initialized frmMassValidator") LOGGER.Debug("windream initialized frmMassValidator")
@ -143,9 +146,9 @@ Public Class frmMassValidator
Dim oControl As Control Dim oControl As Control
oLastControl = $"CtrlName {oControlRow.Item("NAME")}, CtrlIndexname: {oControlRow.Item("INDEX_NAME")}" oLastControl = $"CtrlName {oControlRow.Item("NAME")}, CtrlIndexname: {oControlRow.Item("INDEX_NAME")}"
Select Case oControlRow.Item("CTRL_TYPE").ToString.ToUpper Select Case oControlRow.Item("CTRL_TYPE").ToString.ToUpper
Case "TXT" Case ClassControlCreator.PREFIX_TEXTBOX
LOGGER.Debug("Versuch TXT zu laden") LOGGER.Debug("Versuch TXT zu laden")
Dim txt As TextBox = ClassControlCreator.CreateExistingTextbox(oControlRow, False) Dim txt As TextEdit = ControlCreator.CreateExistingTextbox(oControlRow, False)
AddHandler txt.GotFocus, AddressOf OnTextBoxFocus AddHandler txt.GotFocus, AddressOf OnTextBoxFocus
AddHandler txt.LostFocus, AddressOf OnTextBoxLostFocus AddHandler txt.LostFocus, AddressOf OnTextBoxLostFocus
@ -154,19 +157,19 @@ Public Class frmMassValidator
oControl = txt oControl = txt
Case "LBL" Case "LBL"
LOGGER.Debug("Versuch LBL zu laden") LOGGER.Debug("Versuch LBL zu laden")
oControl = ClassControlCreator.CreateExistingLabel(oControlRow, False) oControl = ControlCreator.CreateExistingLabel(oControlRow, False)
Case "CMB" Case "CMB"
LOGGER.Debug("Versuch CMB zu laden") LOGGER.Debug("Versuch CMB zu laden")
If oControlRow.Item("READ_ONLY") Then If oControlRow.Item("READ_ONLY") Then
Dim cmbReadonly = ClassControlCreator.CreateExistingTextbox(oControlRow, False) Dim cmbReadonly = ControlCreator.CreateExistingTextbox(oControlRow, False)
oControl = cmbReadonly oControl = cmbReadonly
Else Else
Dim cmb = ClassControlCreator.CreateExistingCombobox(oControlRow, False) Dim cmb = ControlCreator.CreateExistingCombobox(oControlRow, False)
AddHandler cmb.SelectedValueChanged, AddressOf OnCmbselectedIndex AddHandler cmb.SelectedValueChanged, AddressOf OnCmbselectedIndex
#Region "CONTROL LIST" #Region "CONTROL LIST"
If ClassControlCreator.GET_CONTROL_PROPERTIES(DTCONTROLS, cmb.Name) = 0 Then If ControlCreator.GET_CONTROL_PROPERTIES(DTCONTROLS, cmb.Name) = 0 Then
MsgBox("Unexpected Error in getting control-properties (CMB load) - Check the log and inform Your sysadmin!", MsgBoxStyle.Critical) MsgBox("Unexpected Error in getting control-properties (CMB load) - Check the log and inform Your sysadmin!", MsgBoxStyle.Critical)
Exit Sub Exit Sub
End If End If
@ -178,7 +181,7 @@ Public Class frmMassValidator
LOGGER.Debug("ConID > 0 And commandsql <> ''") LOGGER.Debug("ConID > 0 And commandsql <> ''")
Dim connectionString As String Dim connectionString As String
Dim ConRow As DataRow() = ClassControlCreator.GET_CONNECTION_INFO(CURR_CON_ID) Dim ConRow As DataRow() = ControlCreator.GET_CONNECTION_INFO(CURR_CON_ID)
If ConRow Is Nothing Then If ConRow Is Nothing Then
MsgBox("Unexpected Error in getting Coninfo (CMB load) - Check the log and inform Your sysadmin!", MsgBoxStyle.Critical) MsgBox("Unexpected Error in getting Coninfo (CMB load) - Check the log and inform Your sysadmin!", MsgBoxStyle.Critical)
Exit Sub Exit Sub
@ -276,26 +279,7 @@ Public Class frmMassValidator
End If End If
#End Region #End Region
'Dim oMaxWidth As Integer = cmb.Width
'Using oGraphics As Graphics = cmb.CreateGraphics()
' Dim oStringLength = oGraphics.MeasureString(Text, cmb.Font).Width
' If oStringLength + 30 > oMaxWidth Then
' oMaxWidth = oStringLength + 30
' End If
'End Using
'Using g As Graphics = Me.CreateGraphics
' For Each oItem As Object In cmb.Items 'Für alle Einträge...
' Dim g1 As Graphics = cmb.CreateGraphics
' If g1.MeasureString(Text, cmb.Font).Width + 30 > oMaxWidth Then
' oMaxWidth = g1.MeasureString(Text, cmb.Font).Width + 30
' End If
' g1.Dispose()
' Next oItem
'End Using
'cmb.DropDownWidth = oMaxWidth
@ -310,10 +294,10 @@ Public Class frmMassValidator
Case "DTP" Case "DTP"
LOGGER.Debug("Versuch DTP zu laden") LOGGER.Debug("Versuch DTP zu laden")
oControl = ClassControlCreator.CreateExistingDatepicker(oControlRow, False) oControl = ControlCreator.CreateExistingDatepicker(oControlRow, False)
Case "DGV" Case "DGV"
LOGGER.Debug("Versuch DGV zu laden") LOGGER.Debug("Versuch DGV zu laden")
Dim dgv = ClassControlCreator.CreateExistingDataGridView(oControlRow, False) Dim dgv = ControlCreator.CreateExistingDataGridView(oControlRow, False)
AddHandler dgv.RowValidating, AddressOf onDGVRowValidating AddHandler dgv.RowValidating, AddressOf onDGVRowValidating
@ -321,20 +305,20 @@ Public Class frmMassValidator
Case "CHK" Case "CHK"
LOGGER.Debug("Versuch Checkbox zu laden") LOGGER.Debug("Versuch Checkbox zu laden")
oControl = ClassControlCreator.CreateExisingCheckbox(oControlRow, False) oControl = ControlCreator.CreateExisingCheckbox(oControlRow, False)
Case "LINE" Case "LINE"
LOGGER.Debug("Versuch Linie zu laden") LOGGER.Debug("Versuch Linie zu laden")
oControl = ClassControlCreator.CreateExistingLine(oControlRow, False) oControl = ControlCreator.CreateExistingLine(oControlRow, False)
Case "LOOKUP" Case "LOOKUP"
Dim oMultiselect = oControlRow.Item("MULTISELECT") Dim oMultiselect = oControlRow.Item("MULTISELECT")
Dim oReadonly = oControlRow.Item("READ_ONLY") Dim oReadonly = oControlRow.Item("READ_ONLY")
If oMultiselect = False And oReadonly = True Then If oMultiselect = False And oReadonly = True Then
Dim lookupReadonly = ClassControlCreator.CreateExistingTextbox(oControlRow, False) Dim lookupReadonly = ControlCreator.CreateExistingTextbox(oControlRow, False)
oControl = lookupReadonly oControl = lookupReadonly
Else Else
Dim lookup As LookupControl3 = ClassControlCreator.CreateExistingLookupControl(oControlRow, False) Dim lookup As LookupControl3 = ControlCreator.CreateExistingLookupControl(oControlRow, False)
lookup.Properties.PreventDuplicates = oControlRow.Item("VKT_PREVENT_MULTIPLE_VALUES") lookup.Properties.PreventDuplicates = oControlRow.Item("VKT_PREVENT_MULTIPLE_VALUES")
lookup.Properties.AllowAddNewValues = oControlRow.Item("VKT_ADD_ITEM") lookup.Properties.AllowAddNewValues = oControlRow.Item("VKT_ADD_ITEM")
@ -372,7 +356,7 @@ Public Class frmMassValidator
LOGGER.Debug("Versuch Tabelle zu laden") LOGGER.Debug("Versuch Tabelle zu laden")
Dim oDTMyColumns As DataTable = DatabaseFallback.GetDatatableECM($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlRow.Item("GUID")} ORDER BY SEQUENCE") ', "MV_LoadControls1") Dim oDTMyColumns As DataTable = DatabaseFallback.GetDatatableECM($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlRow.Item("GUID")} ORDER BY SEQUENCE") ', "MV_LoadControls1")
oControl = ClassControlCreator.CreateExistingGridControl(oControlRow, oDTMyColumns, False) oControl = ControlCreator.CreateExistingGridControl(oControlRow, oDTMyColumns, False)
End Select End Select
If oControl IsNot Nothing AndAlso TypeOf oControl IsNot Label Then If oControl IsNot Nothing AndAlso TypeOf oControl IsNot Label Then
@ -450,7 +434,6 @@ Public Class frmMassValidator
Sub FillIndexValues() Sub FillIndexValues()
Dim controltype As String Dim controltype As String
Dim indexname As String Dim indexname As String
Dim resultvalue
Try Try
For Each oControl As Control In Me.pnldesigner.Controls For Each oControl As Control In Me.pnldesigner.Controls
@ -472,8 +455,8 @@ Public Class frmMassValidator
Dim LoadIDX As Boolean = controlRow.Item("LOAD_IDX_VALUE") Dim LoadIDX As Boolean = controlRow.Item("LOAD_IDX_VALUE")
LOGGER.Debug("INDEX: " & idxname & " - CONTROLNAME: " & oControl.Name & " - LOAD IDXVALUES: " & LoadIDX.ToString) LOGGER.Debug("INDEX: " & idxname & " - CONTROLNAME: " & oControl.Name & " - LOAD IDXVALUES: " & LoadIDX.ToString)
Dim wertWD Dim wertWD
Select Case Type Select Case oControl.GetType
Case "System.Windows.Forms.TextBox" Case GetType(DevExpress.XtraEditors.TextEdit)
Try Try
controltype = "Textbox" controltype = "Textbox"
If idxname = "" Then If idxname = "" Then
@ -507,9 +490,9 @@ Public Class frmMassValidator
Exit Sub Exit Sub
End Try End Try
Case "System.Windows.Forms.ComboBox" Case GetType(System.Windows.Forms.ComboBox)
controltype = "ComboBox" controltype = "ComboBox"
Dim cmb As ComboBox = oControl Dim cmb As Windows.Forms.ComboBox = oControl
If idxname = "" Then If idxname = "" Then
MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical) MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical)
Exit For Exit For
@ -536,7 +519,7 @@ Public Class frmMassValidator
cmb.SelectedIndex = cmb.FindStringExact(wertWD) cmb.SelectedIndex = cmb.FindStringExact(wertWD)
End If End If
End If End If
Case "System.Windows.Forms.DataGridView" Case GetType(System.Windows.Forms.DataGridView)
controltype = "DataGridView" controltype = "DataGridView"
Dim dgv As DataGridView = oControl Dim dgv As DataGridView = oControl
If idxname = "" Then If idxname = "" Then
@ -607,7 +590,7 @@ Public Class frmMassValidator
End If End If
End If End If
Case "System.Windows.Forms.CheckBox" Case GetType(System.Windows.Forms.CheckBox)
controltype = "CheckBox" controltype = "CheckBox"
If idxname = "" Then If idxname = "" Then
MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical) MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical)
@ -674,14 +657,14 @@ Public Class frmMassValidator
End If End If
End If End If
Case "System.Windows.Forms.DateTimePicker" Case GetType(System.Windows.Forms.DateTimePicker)
controltype = "DateTimePicker" controltype = "DateTimePicker"
Dim DTP As DateTimePicker = oControl Dim DTP As DateTimePicker = oControl
If idxname = "" Then If idxname = "" Then
MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical) MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical)
Exit For Exit For
End If End If
Case "DigitalData.Controls.LookupGrid.LookupControl3" Case GetType(DigitalData.Controls.LookupGrid.LookupControl3)
Try Try
Dim oLookup As LookupControl3 = oControl Dim oLookup As LookupControl3 = oControl
Dim oWindreamValue = GetWM_Value_Multiple_Docs(idxname) Dim oWindreamValue = GetWM_Value_Multiple_Docs(idxname)
@ -726,11 +709,7 @@ Public Class frmMassValidator
LOGGER.Info(">> Unexpected Error in FillIndexValues(MIs: " & ex.Message, True) LOGGER.Info(">> Unexpected Error in FillIndexValues(MIs: " & ex.Message, True)
LOGGER.Info(">> Controltype: " & controltype) LOGGER.Info(">> Controltype: " & controltype)
LOGGER.Info(">> Indexname windream: " & indexname) LOGGER.Info(">> Indexname windream: " & indexname)
End Try End Try
End Sub End Sub
Private Function GetWM_Value_Multiple_Docs(idxname As String) Private Function GetWM_Value_Multiple_Docs(idxname As String)
Try Try
@ -838,26 +817,26 @@ Public Class frmMassValidator
End Function End Function
Public Sub OnTextBoxFocus(sender As Object, e As EventArgs) Public Sub OnTextBoxFocus(sender As Object, e As EventArgs)
Dim box As TextBox = sender Dim box As TextEdit = sender
box.BackColor = Color.LightSteelBlue box.BackColor = Color.LightSteelBlue
box.SelectAll() box.SelectAll()
End Sub End Sub
Public Sub OnTextBoxLostFocus(sender As System.Object, e As System.EventArgs) Public Sub OnTextBoxLostFocus(sender As System.Object, e As System.EventArgs)
Dim box As TextBox = sender Dim box As TextEdit = sender
box.BackColor = Color.White box.BackColor = Color.White
End Sub End Sub
Public Sub OnTextBoxKeyUp(sender As Object, e As KeyEventArgs) Public Sub OnTextBoxKeyUp(sender As Object, e As KeyEventArgs)
Dim box As TextBox = sender Dim box As TextEdit = sender
If box.Text <> String.Empty And me_closing = False And CTRLS_Loaded = True And FORM_Shown = True Then If box.Text <> String.Empty And me_closing = False And CTRLS_Loaded = True And FORM_Shown = True Then
If (e.KeyCode = Keys.Return) Or (e.KeyCode = Keys.Tab) Or (e.KeyCode = Keys.Enter) Then If (e.KeyCode = Keys.Return) Or (e.KeyCode = Keys.Tab) Or (e.KeyCode = Keys.Enter) Then
Try Try
If ClassControlCreator.GET_CONTROL_PROPERTIES(DTCONTROLS, box.Name) = 0 Then If ControlCreator.GET_CONTROL_PROPERTIES(DTCONTROLS, box.Name) = 0 Then
MsgBox("Unexpected Error in getting control-properties - Check the log and inform Your sysadmin!", MsgBoxStyle.Critical) MsgBox("Unexpected Error in getting control-properties - Check the log and inform Your sysadmin!", MsgBoxStyle.Critical)
Exit Sub Exit Sub
End If End If
If ClassControlCreator.GET_DEPENDING_CONTROLS(DTCONTROLS, box.Name) = False Then If ControlCreator.GetDependingControls(DTCONTROLS, box.Name) = False Then
MsgBox("Unexpected Error in getting dependent controls - Check the log and inform Your sysadmin!", MsgBoxStyle.Critical) MsgBox("Unexpected Error in getting dependent controls - Check the log and inform Your sysadmin!", MsgBoxStyle.Critical)
Exit Sub Exit Sub
End If End If
@ -908,7 +887,7 @@ Public Class frmMassValidator
If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Then If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Then
LOGGER.Debug("Filling Combobox with Results") LOGGER.Debug("Filling Combobox with Results")
Dim oCombobox As ComboBox = pnldesigner.Controls(displayboxname) Dim oCombobox As Windows.Forms.ComboBox = pnldesigner.Controls(displayboxname)
If IsNothing(oCombobox) Then If IsNothing(oCombobox) Then
Exit Sub Exit Sub
@ -956,15 +935,15 @@ Public Class frmMassValidator
End Try End Try
End Sub End Sub
Public Sub OnCmbselectedIndex(sender As System.Object, e As System.EventArgs) Public Sub OnCmbselectedIndex(sender As System.Object, e As System.EventArgs)
Dim cmb As ComboBox = sender Dim cmb As Windows.Forms.ComboBox = sender
If cmb.SelectedIndex <> -1 And CTRLS_Loaded = True And FORM_Shown = True Then If cmb.SelectedIndex <> -1 And CTRLS_Loaded = True And FORM_Shown = True Then
' Try ' Try
If ClassControlCreator.GET_CONTROL_PROPERTIES(DTCONTROLS, cmb.Name) = 0 Then If ControlCreator.GET_CONTROL_PROPERTIES(DTCONTROLS, cmb.Name) = 0 Then
MsgBox("Unexpected Error in getting control-properties CMB - Check the log and inform Your sysadmin!", MsgBoxStyle.Critical) MsgBox("Unexpected Error in getting control-properties CMB - Check the log and inform Your sysadmin!", MsgBoxStyle.Critical)
Exit Sub Exit Sub
End If End If
If ClassControlCreator.GET_DEPENDING_CONTROLS(DTCONTROLS, cmb.Name) = False Then If ControlCreator.GetDependingControls(DTCONTROLS, cmb.Name) = False Then
MsgBox("Unexpected Error in getting dependent controls CMB- Check the log and inform Your sysadmin!", MsgBoxStyle.Critical) MsgBox("Unexpected Error in getting dependent controls CMB- Check the log and inform Your sysadmin!", MsgBoxStyle.Critical)
Exit Sub Exit Sub
End If End If
@ -1002,12 +981,12 @@ Public Class frmMassValidator
Public Sub onDGVRowValidating(ByVal sender As Object, ByVal e As DataGridViewCellCancelEventArgs) Public Sub onDGVRowValidating(ByVal sender As Object, ByVal e As DataGridViewCellCancelEventArgs)
Dim dgv As DataGridView = sender Dim dgv As DataGridView = sender
Try Try
If ClassControlCreator.GET_CONTROL_PROPERTIES(DTCONTROLS, dgv.Name) = 0 Then If ControlCreator.GET_CONTROL_PROPERTIES(DTCONTROLS, dgv.Name) = 0 Then
MsgBox("Unexpected Error in getting control-properties DGV - Check the log and inform Your sysadmin!", MsgBoxStyle.Critical) MsgBox("Unexpected Error in getting control-properties DGV - Check the log and inform Your sysadmin!", MsgBoxStyle.Critical)
Exit Sub Exit Sub
End If End If
If ClassControlCreator.GET_DEPENDING_CONTROLS(DTCONTROLS, dgv.Name) = False Then If ControlCreator.GetDependingControls(DTCONTROLS, dgv.Name) = False Then
MsgBox("Unexpected Error in getting dependent controls DGV- Check the log and inform Your sysadmin!", MsgBoxStyle.Critical) MsgBox("Unexpected Error in getting dependent controls DGV- Check the log and inform Your sysadmin!", MsgBoxStyle.Critical)
Exit Sub Exit Sub
End If End If
@ -1097,7 +1076,7 @@ Public Class frmMassValidator
End If End If
Dim oValue Dim oValue
If TypeOf control Is TextBox Then If TypeOf control Is TextEdit Then
Try Try
Dim firstRow As DataRow = dt.Rows(0) Dim firstRow As DataRow = dt.Rows(0)
Dim value = firstRow.Item(0) Dim value = firstRow.Item(0)
@ -1108,9 +1087,9 @@ Public Class frmMassValidator
LOGGER.Error(ex) LOGGER.Error(ex)
clsLogger.Add("Error in LoadSimpleData for TextBox: " & ex.Message) clsLogger.Add("Error in LoadSimpleData for TextBox: " & ex.Message)
End Try End Try
ElseIf TypeOf control Is ComboBox Then ElseIf TypeOf control Is Windows.Forms.ComboBox Then
Try Try
Dim comboxBox As ComboBox = control Dim comboxBox As Windows.Forms.ComboBox = control
Dim list As New List(Of String) Dim list As New List(Of String)
For Each _row As DataRow In dt.Rows For Each _row As DataRow In dt.Rows
@ -1221,9 +1200,8 @@ Public Class frmMassValidator
End If End If
If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = CTRL_ID Then If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = CTRL_ID Then
'###### '######
Dim Type As String = oControl.GetType.ToString Select Case oControl.GetType
Select Case Type Case GetType(DevExpress.XtraEditors.TextEdit)
Case "System.Windows.Forms.TextBox"
Try Try
value_from_control = oControl.Text value_from_control = oControl.Text
Catch ex As Exception Catch ex As Exception
@ -1231,15 +1209,15 @@ Public Class frmMassValidator
value_from_control = String.Empty value_from_control = String.Empty
End Try End Try
Case "System.Windows.Forms.ComboBox" Case GetType(System.Windows.Forms.ComboBox)
Dim cmb As ComboBox = oControl Dim cmb As Windows.Forms.ComboBox = oControl
Try Try
value_from_control = cmb.Text value_from_control = cmb.Text
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
value_from_control = String.Empty value_from_control = String.Empty
End Try End Try
Case "System.Windows.Forms.DateTimePicker" Case GetType(System.Windows.Forms.DateTimePicker)
Dim dtp As DateTimePicker = oControl Dim dtp As DateTimePicker = oControl
Try Try
value_from_control = dtp.Value.ToString value_from_control = dtp.Value.ToString
@ -1248,7 +1226,7 @@ Public Class frmMassValidator
value_from_control = String.Empty value_from_control = String.Empty
End Try End Try
Case "System.Windows.Forms.CheckBox" Case GetType(System.Windows.Forms.CheckBox)
Dim chk As CheckBox = oControl Dim chk As CheckBox = oControl
Try Try
value_from_control = chk.Checked value_from_control = chk.Checked
@ -1433,9 +1411,8 @@ Public Class frmMassValidator
LOGGER.Info(" >> Indexname is unexpected empty.") LOGGER.Info(" >> Indexname is unexpected empty.")
Continue For Continue For
End If End If
Dim Type As String = oControl.GetType.ToString Select Case oControl.GetType
Select Case Type Case GetType(DigitalData.Controls.LookupGrid.LookupControl3)
Case "DigitalData.Controls.LookupGrid.LookupControl3"
Try Try
Dim myLookup As LookupControl3 = oControl Dim myLookup As LookupControl3 = oControl
@ -1521,7 +1498,7 @@ Public Class frmMassValidator
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
Case "System.Windows.Forms.TextBox" Case GetType(DevExpress.XtraEditors.TextEdit)
Try Try
'Als erstes überprüfen ob überhaupt etwas eingetragen worden ist 'Als erstes überprüfen ob überhaupt etwas eingetragen worden ist
If Check_Missing(oControl, "txt") = True And _MUSSEINGABE = True Then 'NICHTS EINGETRAGEN If Check_Missing(oControl, "txt") = True And _MUSSEINGABE = True Then 'NICHTS EINGETRAGEN
@ -1575,7 +1552,7 @@ Public Class frmMassValidator
End Try End Try
Case "System.Windows.Forms.DateTimePicker" Case GetType(System.Windows.Forms.DateTimePicker)
Dim dtp As DateTimePicker = oControl Dim dtp As DateTimePicker = oControl
'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss 'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss
If _MUSSEINGABE = True And dtp.Value.ToString = String.Empty Then If _MUSSEINGABE = True And dtp.Value.ToString = String.Empty Then
@ -1615,7 +1592,7 @@ Public Class frmMassValidator
Else Else
LOGGER.Debug("DateValue is 01.01.0001 00:00:00") LOGGER.Debug("DateValue is 01.01.0001 00:00:00")
End If End If
Case "System.Windows.Forms.CheckBox" Case GetType(System.Windows.Forms.CheckBox)
Dim chk As CheckBox = oControl Dim chk As CheckBox = oControl
oMyControlInput = chk.Checked.ToString oMyControlInput = chk.Checked.ToString
@ -1662,7 +1639,7 @@ Public Class frmMassValidator
End If End If
End If End If
Case "System.Windows.Forms.DataGridView" Case GetType(System.Windows.Forms.DataGridView)
Dim dgv As DataGridView = oControl Dim dgv As DataGridView = oControl
Dim Zeilen As Integer = 0 Dim Zeilen As Integer = 0
@ -1742,11 +1719,14 @@ Public Class frmMassValidator
Function Check_Missing(control As Control, typ As String) Function Check_Missing(control As Control, typ As String)
Select Case typ Select Case typ
Case "txt" Case "txt"
If control.Text = String.Empty Or control.Text = "(Different values)" Or control.Text = "(Untersch. Werte)" Then Dim oTextBox As TextEdit = control
If oTextBox.Text = String.Empty Or oTextBox.Text = "(Different values)" Or oTextBox.Text = "(Untersch. Werte)" Then
Return True Return True
End If End If
Return False
End Select End Select
Return False
End Function End Function
Private Function IndexMultipleFiles(idxxname As String, idxvalue As Object) Private Function IndexMultipleFiles(idxxname As String, idxvalue As Object)
@ -1949,18 +1929,4 @@ Public Class frmMassValidator
FORM_Shown = True FORM_Shown = True
End Sub End Sub
Private Sub frmMassValidator_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
'If Viewer = "docview" Then
' CloseWDDocview()
'End If
'If vpdfviewer = "system" Then
' Kill_PDFAcrobat()
'Else
' If pdfxchange = True Or sumatra = True Then
' Close_PDF_Viewer(Document_Path)
' End If
' KillU_Viewer()
'End If
End Sub
End Class End Class

213
app/TaskFlow/frmValidator.Designer.vb generated
View File

@ -24,15 +24,14 @@ Partial Class frmValidator
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmValidator)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmValidator))
Me.SplitContainer2_DV_Chat = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.Panel1 = New System.Windows.Forms.Panel() Me.PanelControl1 = New DevExpress.XtraEditors.PanelControl()
Me.TITLELabel1 = New System.Windows.Forms.Label() Me.PanelValidatorControlBorder = New DevExpress.XtraEditors.PanelControl()
Me.btnSave = New System.Windows.Forms.Button() Me.PanelValidatorControl = New DevExpress.XtraEditors.XtraScrollableControl()
Me.DESCRIPTIONLabel = New System.Windows.Forms.Label() Me.btnSave = New DevExpress.XtraEditors.SimpleButton()
Me.PanelValidatorControl = New System.Windows.Forms.Panel() Me.DESCRIPTIONLabel = New DevExpress.XtraEditors.LabelControl()
Me.TITLELabel1 = New DevExpress.XtraEditors.LabelControl()
Me.DocumentViewerValidator = New DigitalData.Controls.DocumentViewer.DocumentViewer() Me.DocumentViewerValidator = New DigitalData.Controls.DocumentViewer.DocumentViewer()
Me.ChatControl1 = New DigitalData.Controls.ChatControl.ChatControl()
Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
@ -86,44 +85,34 @@ Partial Class frmValidator
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarLinkContainerItem1 = New DevExpress.XtraBars.BarLinkContainerItem() Me.BarLinkContainerItem1 = New DevExpress.XtraBars.BarLinkContainerItem()
Me.btnitemConversationEnd = New DevExpress.XtraBars.BarButtonItem() Me.btnitemConversationEnd = New DevExpress.XtraBars.BarButtonItem()
Me.bbtnitem_ConversationNew = New DevExpress.XtraBars.BarButtonItem()
Me.BarLinkContainerItem2 = New DevExpress.XtraBars.BarLinkContainerItem() Me.BarLinkContainerItem2 = New DevExpress.XtraBars.BarLinkContainerItem()
Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem() Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem()
Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.BarEditItem2 = New DevExpress.XtraBars.BarEditItem() Me.BarEditItem2 = New DevExpress.XtraBars.BarEditItem()
Me.RepositoryItemComboBox2 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.RepositoryItemComboBox2 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.BarEditItem3 = New DevExpress.XtraBars.BarEditItem()
Me.RepositoryItemComboBox3 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.btnitemConversation_reload = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
Me.Attmt_bbtnitmShow = New DevExpress.XtraBars.BarButtonItem() Me.Attmt_bbtnitmShow = New DevExpress.XtraBars.BarButtonItem()
Me.barbtnitmExport = New DevExpress.XtraBars.BarButtonItem() Me.barbtnitmExport = New DevExpress.XtraBars.BarButtonItem()
Me.ToggleSwitchItemLoadonClick = New DevExpress.XtraBars.BarToggleSwitchItem() Me.ToggleSwitchItemLoadonClick = New DevExpress.XtraBars.BarToggleSwitchItem()
Me.Attmnt_bbtnitm_LoadonClick = New DevExpress.XtraBars.BarCheckItem() Me.Attmnt_bbtnitm_LoadonClick = New DevExpress.XtraBars.BarCheckItem()
Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPageConversations = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroupConv1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupConv_Change = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupCustom = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupCustom = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RepositoryItemComboBox3 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
CType(Me.SplitContainer2_DV_Chat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainer2_DV_Chat.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer2_DV_Chat.Panel1.SuspendLayout()
CType(Me.SplitContainer2_DV_Chat.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer2_DV_Chat.Panel2.SuspendLayout()
Me.SplitContainer2_DV_Chat.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout() Me.SplitContainer1.SuspendLayout()
Me.Panel1.SuspendLayout() CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.PanelControl1.SuspendLayout()
CType(Me.PanelValidatorControlBorder, System.ComponentModel.ISupportInitialize).BeginInit()
Me.PanelValidatorControlBorder.SuspendLayout()
CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -136,24 +125,6 @@ Partial Class frmValidator
CType(Me.RepositoryItemComboBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemComboBox3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'SplitContainer2_DV_Chat
'
Me.SplitContainer2_DV_Chat.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
resources.ApplyResources(Me.SplitContainer2_DV_Chat, "SplitContainer2_DV_Chat")
Me.SplitContainer2_DV_Chat.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.None
Me.SplitContainer2_DV_Chat.Name = "SplitContainer2_DV_Chat"
'
'SplitContainer2_DV_Chat.Panel1
'
Me.SplitContainer2_DV_Chat.Panel1.Controls.Add(Me.SplitContainer1)
resources.ApplyResources(Me.SplitContainer2_DV_Chat.Panel1, "SplitContainer2_DV_Chat.Panel1")
'
'SplitContainer2_DV_Chat.Panel2
'
resources.ApplyResources(Me.SplitContainer2_DV_Chat.Panel2, "SplitContainer2_DV_Chat.Panel2")
Me.SplitContainer2_DV_Chat.Panel2.Controls.Add(Me.ChatControl1)
Me.SplitContainer2_DV_Chat.SplitterPosition = 919
'
'SplitContainer1 'SplitContainer1
' '
resources.ApplyResources(Me.SplitContainer1, "SplitContainer1") resources.ApplyResources(Me.SplitContainer1, "SplitContainer1")
@ -161,46 +132,68 @@ Partial Class frmValidator
' '
'SplitContainer1.Panel1 'SplitContainer1.Panel1
' '
Me.SplitContainer1.Panel1.Controls.Add(Me.Panel1) Me.SplitContainer1.Panel1.Controls.Add(Me.PanelControl1)
' '
'SplitContainer1.Panel2 'SplitContainer1.Panel2
' '
Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewerValidator) Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewerValidator)
Me.SplitContainer1.TabStop = False Me.SplitContainer1.TabStop = False
' '
'Panel1 'PanelControl1
' '
Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLight Me.PanelControl1.Controls.Add(Me.PanelValidatorControlBorder)
Me.Panel1.Controls.Add(Me.TITLELabel1) Me.PanelControl1.Controls.Add(Me.btnSave)
Me.Panel1.Controls.Add(Me.btnSave) Me.PanelControl1.Controls.Add(Me.DESCRIPTIONLabel)
Me.Panel1.Controls.Add(Me.DESCRIPTIONLabel) Me.PanelControl1.Controls.Add(Me.TITLELabel1)
Me.Panel1.Controls.Add(Me.PanelValidatorControl) resources.ApplyResources(Me.PanelControl1, "PanelControl1")
resources.ApplyResources(Me.Panel1, "Panel1") Me.PanelControl1.Name = "PanelControl1"
Me.Panel1.Name = "Panel1"
' '
'TITLELabel1 'PanelValidatorControlBorder
' '
resources.ApplyResources(Me.TITLELabel1, "TITLELabel1") resources.ApplyResources(Me.PanelValidatorControlBorder, "PanelValidatorControlBorder")
Me.TITLELabel1.Name = "TITLELabel1" Me.PanelValidatorControlBorder.Appearance.BorderColor = System.Drawing.Color.Black
Me.PanelValidatorControlBorder.Appearance.Options.UseBorderColor = True
Me.PanelValidatorControlBorder.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Simple
Me.PanelValidatorControlBorder.Controls.Add(Me.PanelValidatorControl)
Me.PanelValidatorControlBorder.Name = "PanelValidatorControlBorder"
'
'PanelValidatorControl
'
Me.PanelValidatorControl.Appearance.BackColor = System.Drawing.Color.WhiteSmoke
Me.PanelValidatorControl.Appearance.Options.UseBackColor = True
resources.ApplyResources(Me.PanelValidatorControl, "PanelValidatorControl")
Me.PanelValidatorControl.Name = "PanelValidatorControl"
' '
'btnSave 'btnSave
' '
resources.ApplyResources(Me.btnSave, "btnSave") resources.ApplyResources(Me.btnSave, "btnSave")
Me.btnSave.Image = Global.DD_ProcessManager.My.Resources.Resources.flag_pink Me.btnSave.Appearance.Font = CType(resources.GetObject("btnSave.Appearance.Font"), System.Drawing.Font)
Me.btnSave.Appearance.Options.UseFont = True
Me.btnSave.Appearance.Options.UseTextOptions = True
Me.btnSave.Appearance.TextOptions.WordWrap = DevExpress.Utils.WordWrap.Wrap
Me.btnSave.ImageOptions.ImageToTextAlignment = DevExpress.XtraEditors.ImageAlignToText.RightCenter
Me.btnSave.ImageOptions.SvgImage = CType(resources.GetObject("btnSave.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnSave.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25)
Me.btnSave.Name = "btnSave" Me.btnSave.Name = "btnSave"
Me.btnSave.TabStop = False
Me.btnSave.UseVisualStyleBackColor = True
' '
'DESCRIPTIONLabel 'DESCRIPTIONLabel
' '
resources.ApplyResources(Me.DESCRIPTIONLabel, "DESCRIPTIONLabel") resources.ApplyResources(Me.DESCRIPTIONLabel, "DESCRIPTIONLabel")
Me.DESCRIPTIONLabel.Appearance.Font = CType(resources.GetObject("DESCRIPTIONLabel.Appearance.Font"), System.Drawing.Font)
Me.DESCRIPTIONLabel.Appearance.Options.UseFont = True
Me.DESCRIPTIONLabel.Appearance.Options.UseTextOptions = True
Me.DESCRIPTIONLabel.Appearance.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Top
Me.DESCRIPTIONLabel.Appearance.TextOptions.WordWrap = DevExpress.Utils.WordWrap.Wrap
Me.DESCRIPTIONLabel.Name = "DESCRIPTIONLabel" Me.DESCRIPTIONLabel.Name = "DESCRIPTIONLabel"
' '
'PanelValidatorControl 'TITLELabel1
' '
resources.ApplyResources(Me.PanelValidatorControl, "PanelValidatorControl") resources.ApplyResources(Me.TITLELabel1, "TITLELabel1")
Me.PanelValidatorControl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.TITLELabel1.Appearance.Font = CType(resources.GetObject("TITLELabel1.Appearance.Font"), System.Drawing.Font)
Me.PanelValidatorControl.Name = "PanelValidatorControl" Me.TITLELabel1.Appearance.Options.UseFont = True
Me.TITLELabel1.Appearance.Options.UseTextOptions = True
Me.TITLELabel1.Appearance.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
Me.TITLELabel1.Name = "TITLELabel1"
' '
'DocumentViewerValidator 'DocumentViewerValidator
' '
@ -208,11 +201,6 @@ Partial Class frmValidator
Me.DocumentViewerValidator.FileLoaded = False Me.DocumentViewerValidator.FileLoaded = False
Me.DocumentViewerValidator.Name = "DocumentViewerValidator" Me.DocumentViewerValidator.Name = "DocumentViewerValidator"
' '
'ChatControl1
'
resources.ApplyResources(Me.ChatControl1, "ChatControl1")
Me.ChatControl1.Name = "ChatControl1"
'
'BarAndDockingController3 'BarAndDockingController3
' '
Me.BarAndDockingController3.PropertiesBar.AllowLinkLighting = False Me.BarAndDockingController3.PropertiesBar.AllowLinkLighting = False
@ -465,11 +453,10 @@ Partial Class frmValidator
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem2, Me.BarLinkContainerItem1, Me.btnitemConversationEnd, Me.bbtnitem_ConversationNew, Me.BarLinkContainerItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarEditItem3, Me.btnitemConversation_reload, Me.BarButtonItem5, Me.Attmt_bbtnitmShow, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick, Me.Attmnt_bbtnitm_LoadonClick, Me.BarButtonItem6}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem2, Me.BarLinkContainerItem1, Me.btnitemConversationEnd, Me.BarLinkContainerItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarButtonItem5, Me.Attmt_bbtnitmShow, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick, Me.Attmnt_bbtnitm_LoadonClick, Me.BarButtonItem6})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 33 Me.RibbonControl1.MaxItemId = 33
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageConversations})
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemComboBox1, Me.RepositoryItemComboBox2, Me.RepositoryItemComboBox3}) Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemComboBox1, Me.RepositoryItemComboBox2, Me.RepositoryItemComboBox3})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
@ -619,13 +606,6 @@ Partial Class frmValidator
Me.btnitemConversationEnd.ImageOptions.SvgImage = CType(resources.GetObject("btnitemConversationEnd.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.btnitemConversationEnd.ImageOptions.SvgImage = CType(resources.GetObject("btnitemConversationEnd.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnitemConversationEnd.Name = "btnitemConversationEnd" Me.btnitemConversationEnd.Name = "btnitemConversationEnd"
' '
'bbtnitem_ConversationNew
'
resources.ApplyResources(Me.bbtnitem_ConversationNew, "bbtnitem_ConversationNew")
Me.bbtnitem_ConversationNew.Id = 20
Me.bbtnitem_ConversationNew.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitem_ConversationNew.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnitem_ConversationNew.Name = "bbtnitem_ConversationNew"
'
'BarLinkContainerItem2 'BarLinkContainerItem2
' '
resources.ApplyResources(Me.BarLinkContainerItem2, "BarLinkContainerItem2") resources.ApplyResources(Me.BarLinkContainerItem2, "BarLinkContainerItem2")
@ -658,27 +638,6 @@ Partial Class frmValidator
Me.RepositoryItemComboBox2.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("RepositoryItemComboBox2.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) Me.RepositoryItemComboBox2.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("RepositoryItemComboBox2.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))})
Me.RepositoryItemComboBox2.Name = "RepositoryItemComboBox2" Me.RepositoryItemComboBox2.Name = "RepositoryItemComboBox2"
' '
'BarEditItem3
'
Me.BarEditItem3.Edit = Me.RepositoryItemComboBox3
resources.ApplyResources(Me.BarEditItem3, "BarEditItem3")
Me.BarEditItem3.Id = 24
Me.BarEditItem3.Name = "BarEditItem3"
Me.BarEditItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
'
'RepositoryItemComboBox3
'
resources.ApplyResources(Me.RepositoryItemComboBox3, "RepositoryItemComboBox3")
Me.RepositoryItemComboBox3.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("RepositoryItemComboBox3.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))})
Me.RepositoryItemComboBox3.Name = "RepositoryItemComboBox3"
'
'btnitemConversation_reload
'
resources.ApplyResources(Me.btnitemConversation_reload, "btnitemConversation_reload")
Me.btnitemConversation_reload.Id = 25
Me.btnitemConversation_reload.ImageOptions.SvgImage = CType(resources.GetObject("btnitemConversation_reload.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnitemConversation_reload.Name = "btnitemConversation_reload"
'
'BarButtonItem5 'BarButtonItem5
' '
Me.BarButtonItem5.Id = 26 Me.BarButtonItem5.Id = 26
@ -733,31 +692,6 @@ Partial Class frmValidator
Me.BarButtonItem6.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Me.BarButtonItem6.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
Me.BarButtonItem6.Visibility = DevExpress.XtraBars.BarItemVisibility.Never Me.BarButtonItem6.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
' '
'RibbonPageConversations
'
Me.RibbonPageConversations.Name = "RibbonPageConversations"
Me.RibbonPageConversations.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage3})
resources.ApplyResources(Me.RibbonPageConversations, "RibbonPageConversations")
'
'RibbonPage3
'
Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupConv1, Me.RibbonPageGroupConv_Change})
Me.RibbonPage3.Name = "RibbonPage3"
resources.ApplyResources(Me.RibbonPage3, "RibbonPage3")
'
'RibbonPageGroupConv1
'
Me.RibbonPageGroupConv1.ItemLinks.Add(Me.bbtnitem_ConversationNew)
Me.RibbonPageGroupConv1.ItemLinks.Add(Me.btnitemConversation_reload)
Me.RibbonPageGroupConv1.Name = "RibbonPageGroupConv1"
resources.ApplyResources(Me.RibbonPageGroupConv1, "RibbonPageGroupConv1")
'
'RibbonPageGroupConv_Change
'
Me.RibbonPageGroupConv_Change.ItemLinks.Add(Me.BarEditItem3)
Me.RibbonPageGroupConv_Change.Name = "RibbonPageGroupConv_Change"
resources.ApplyResources(Me.RibbonPageGroupConv_Change, "RibbonPageGroupConv_Change")
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageGroupCustom, Me.RibbonPageGroup2}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageGroupCustom, Me.RibbonPageGroup2})
@ -805,6 +739,12 @@ Partial Class frmValidator
resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2") resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
Me.RibbonPageGroup2.Visible = False Me.RibbonPageGroup2.Visible = False
' '
'RepositoryItemComboBox3
'
resources.ApplyResources(Me.RepositoryItemComboBox3, "RepositoryItemComboBox3")
Me.RepositoryItemComboBox3.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("RepositoryItemComboBox3.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))})
Me.RepositoryItemComboBox3.Name = "RepositoryItemComboBox3"
'
'RibbonStatusBar1 'RibbonStatusBar1
' '
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiError) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiError)
@ -824,7 +764,7 @@ Partial Class frmValidator
Me.Appearance.Options.UseFont = True Me.Appearance.Options.UseFont = True
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.SplitContainer2_DV_Chat) Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.RibbonControl1) Me.Controls.Add(Me.RibbonControl1)
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.barDockControlLeft) Me.Controls.Add(Me.barDockControlLeft)
@ -832,22 +772,19 @@ Partial Class frmValidator
Me.Controls.Add(Me.barDockControlBottom) Me.Controls.Add(Me.barDockControlBottom)
Me.Controls.Add(Me.barDockControlTop) Me.Controls.Add(Me.barDockControlTop)
Me.IconOptions.Icon = CType(resources.GetObject("frmValidator.IconOptions.Icon"), System.Drawing.Icon) Me.IconOptions.Icon = CType(resources.GetObject("frmValidator.IconOptions.Icon"), System.Drawing.Icon)
Me.IconOptions.LargeImage = CType(resources.GetObject("frmValidator.IconOptions.LargeImage"), System.Drawing.Image) Me.IconOptions.SvgImage = CType(resources.GetObject("frmValidator.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.KeyPreview = True Me.KeyPreview = True
Me.Name = "frmValidator" Me.Name = "frmValidator"
Me.Ribbon = Me.RibbonControl1 Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1 Me.StatusBar = Me.RibbonStatusBar1
CType(Me.SplitContainer2_DV_Chat.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer2_DV_Chat.Panel1.ResumeLayout(False)
CType(Me.SplitContainer2_DV_Chat.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer2_DV_Chat.Panel2.ResumeLayout(False)
CType(Me.SplitContainer2_DV_Chat, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer2_DV_Chat.ResumeLayout(False)
Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False) Me.SplitContainer1.ResumeLayout(False)
Me.Panel1.ResumeLayout(False) CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.PanelControl1.ResumeLayout(False)
CType(Me.PanelValidatorControlBorder, System.ComponentModel.ISupportInitialize).EndInit()
Me.PanelValidatorControlBorder.ResumeLayout(False)
CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).EndInit()
@ -862,10 +799,6 @@ Partial Class frmValidator
Me.PerformLayout() Me.PerformLayout()
End Sub End Sub
Friend WithEvents TITLELabel1 As System.Windows.Forms.Label
Friend WithEvents btnSave As System.Windows.Forms.Button
Friend WithEvents DESCRIPTIONLabel As System.Windows.Forms.Label
Friend WithEvents PanelValidatorControl As System.Windows.Forms.Panel
Friend WithEvents PdfBarController1 As DevExpress.XtraPdfViewer.Bars.PdfBarController Friend WithEvents PdfBarController1 As DevExpress.XtraPdfViewer.Bars.PdfBarController
Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager
Friend WithEvents PdfFileOpenBarItem1 As DevExpress.XtraPdfViewer.Bars.PdfFileOpenBarItem Friend WithEvents PdfFileOpenBarItem1 As DevExpress.XtraPdfViewer.Bars.PdfFileOpenBarItem
@ -925,24 +858,14 @@ Partial Class frmValidator
Friend WithEvents DocumentViewerValidator As DigitalData.Controls.DocumentViewer.DocumentViewer Friend WithEvents DocumentViewerValidator As DigitalData.Controls.DocumentViewer.DocumentViewer
Friend WithEvents BbtnitmSave As DevExpress.XtraBars.BarButtonItem Friend WithEvents BbtnitmSave As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents Panel1 As Panel
Friend WithEvents SplitContainer2_DV_Chat As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents BarLinkContainerItem1 As DevExpress.XtraBars.BarLinkContainerItem Friend WithEvents BarLinkContainerItem1 As DevExpress.XtraBars.BarLinkContainerItem
Friend WithEvents btnitemConversationEnd As DevExpress.XtraBars.BarButtonItem Friend WithEvents btnitemConversationEnd As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bbtnitem_ConversationNew As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageConversations As DevExpress.XtraBars.Ribbon.RibbonPageCategory
Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroupConv1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarLinkContainerItem2 As DevExpress.XtraBars.BarLinkContainerItem Friend WithEvents BarLinkContainerItem2 As DevExpress.XtraBars.BarLinkContainerItem
Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem
Friend WithEvents RepositoryItemComboBox1 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox Friend WithEvents RepositoryItemComboBox1 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
Friend WithEvents BarEditItem2 As DevExpress.XtraBars.BarEditItem Friend WithEvents BarEditItem2 As DevExpress.XtraBars.BarEditItem
Friend WithEvents RepositoryItemComboBox2 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox Friend WithEvents RepositoryItemComboBox2 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
Friend WithEvents RibbonPageGroupConv_Change As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarEditItem3 As DevExpress.XtraBars.BarEditItem
Friend WithEvents RepositoryItemComboBox3 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox Friend WithEvents RepositoryItemComboBox3 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
Friend WithEvents ChatControl1 As DigitalData.Controls.ChatControl.ChatControl
Friend WithEvents btnitemConversation_reload As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents Attmt_bbtnitmShow As DevExpress.XtraBars.BarButtonItem Friend WithEvents Attmt_bbtnitmShow As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroupCustom As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroupCustom As DevExpress.XtraBars.Ribbon.RibbonPageGroup
@ -951,4 +874,10 @@ Partial Class frmValidator
Friend WithEvents ToggleSwitchItemLoadonClick As DevExpress.XtraBars.BarToggleSwitchItem Friend WithEvents ToggleSwitchItemLoadonClick As DevExpress.XtraBars.BarToggleSwitchItem
Friend WithEvents Attmnt_bbtnitm_LoadonClick As DevExpress.XtraBars.BarCheckItem Friend WithEvents Attmnt_bbtnitm_LoadonClick As DevExpress.XtraBars.BarCheckItem
Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents PanelControl1 As DevExpress.XtraEditors.PanelControl
Friend WithEvents btnSave As DevExpress.XtraEditors.SimpleButton
Friend WithEvents DESCRIPTIONLabel As DevExpress.XtraEditors.LabelControl
Friend WithEvents TITLELabel1 As DevExpress.XtraEditors.LabelControl
Friend WithEvents PanelValidatorControl As DevExpress.XtraEditors.XtraScrollableControl
Friend WithEvents PanelValidatorControlBorder As DevExpress.XtraEditors.PanelControl
End Class End Class

502
app/TaskFlow/frmValidator.resx
View File

@ -118,88 +118,106 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="SplitContainer2_DV_Chat.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="SplitContainer2_DV_Chat.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 158</value>
</data>
<data name="SplitContainer1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms"> <data name="SplitContainer1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value> <value>Fill</value>
</data> </data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing"> <data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 158</value>
</data> </data>
<data name="TITLELabel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="PanelValidatorControlBorder.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value> <value>Top, Bottom, Left, Right</value>
</data> </data>
<data name="TITLELabel1.Font" type="System.Drawing.Font, System.Drawing"> <data name="PanelValidatorControl.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Segoe UI Symbol, 12pt, style=Bold</value> <value>Fill</value>
</data> </data>
<data name="TITLELabel1.Location" type="System.Drawing.Point, System.Drawing"> <data name="PanelValidatorControl.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 4</value> <value>2, 2</value>
</data> </data>
<data name="TITLELabel1.RightToLeft" type="System.Windows.Forms.RightToLeft, System.Windows.Forms"> <data name="PanelValidatorControl.Size" type="System.Drawing.Size, System.Drawing">
<value>No</value> <value>520, 368</value>
</data>
<data name="TITLELabel1.Size" type="System.Drawing.Size, System.Drawing">
<value>433, 29</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="TITLELabel1.TabIndex" type="System.Int32, mscorlib"> <data name="PanelValidatorControl.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>3</value>
</data> </data>
<data name="TITLELabel1.Text" xml:space="preserve"> <data name="&gt;&gt;PanelValidatorControl.Name" xml:space="preserve">
<value>Label1</value> <value>PanelValidatorControl</value>
</data> </data>
<data name="TITLELabel1.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="&gt;&gt;PanelValidatorControl.Type" xml:space="preserve">
<value>MiddleLeft</value> <value>DevExpress.XtraEditors.XtraScrollableControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;TITLELabel1.Name" xml:space="preserve"> <data name="&gt;&gt;PanelValidatorControl.Parent" xml:space="preserve">
<value>TITLELabel1</value> <value>PanelValidatorControlBorder</value>
</data> </data>
<data name="&gt;&gt;TITLELabel1.Type" xml:space="preserve"> <data name="&gt;&gt;PanelValidatorControl.ZOrder" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>0</value>
</data> </data>
<data name="&gt;&gt;TITLELabel1.Parent" xml:space="preserve"> <data name="PanelValidatorControlBorder.Location" type="System.Drawing.Point, System.Drawing">
<value>Panel1</value> <value>5, 85</value>
</data> </data>
<data name="&gt;&gt;TITLELabel1.ZOrder" xml:space="preserve"> <data name="PanelValidatorControlBorder.Size" type="System.Drawing.Size, System.Drawing">
<value>524, 372</value>
</data>
<data name="PanelValidatorControlBorder.TabIndex" type="System.Int32, mscorlib">
<value>44</value>
</data>
<data name="&gt;&gt;PanelValidatorControlBorder.Name" xml:space="preserve">
<value>PanelValidatorControlBorder</value>
</data>
<data name="&gt;&gt;PanelValidatorControlBorder.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.PanelControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;PanelValidatorControlBorder.Parent" xml:space="preserve">
<value>PanelControl1</value>
</data>
<data name="&gt;&gt;PanelValidatorControlBorder.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="btnSave.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="btnSave.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left, Right</value> <value>Bottom, Left, Right</value>
</data> </data>
<data name="btnSave.Font" type="System.Drawing.Font, System.Drawing"> <data name="btnSave.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value> <value>Segoe UI, 9.75pt</value>
</data> </data>
<data name="btnSave.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<value>MiddleLeft</value> <data name="btnSave.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAADUCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNlbmQiPg0KICAgIDxwb2x5Z29uIHBvaW50cz0iMiwy
MCA4LDIyLjQgMjQsMTAgMTIsMjQgMTIsMzAgMTYuMywyNS43IDIyLDI4IDMwLDIgICIgY2xhc3M9IkJs
dWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data> </data>
<data name="btnSave.Location" type="System.Drawing.Point, System.Drawing"> <data name="btnSave.Location" type="System.Drawing.Point, System.Drawing">
<value>7, 446</value> <value>5, 463</value>
</data>
<data name="btnSave.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data> </data>
<data name="btnSave.Size" type="System.Drawing.Size, System.Drawing"> <data name="btnSave.Size" type="System.Drawing.Size, System.Drawing">
<value>445, 50</value> <value>524, 52</value>
</data> </data>
<data name="btnSave.TabIndex" type="System.Int32, mscorlib"> <data name="btnSave.TabIndex" type="System.Int32, mscorlib">
<value>11</value> <value>2</value>
</data> </data>
<data name="btnSave.Text" xml:space="preserve"> <data name="btnSave.Text" xml:space="preserve">
<value>Validierung speichern - Nächstes Dokument</value> <value>Validierung speichern - Nächstes Dokument</value>
</data> </data>
<data name="&gt;&gt;btnSave.Name" xml:space="preserve"> <data name="&gt;&gt;btnSave.Name" xml:space="preserve">
<value>btnSave</value> <value>btnSave</value>
</data> </data>
<data name="&gt;&gt;btnSave.Type" xml:space="preserve"> <data name="&gt;&gt;btnSave.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>DevExpress.XtraEditors.SimpleButton, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;btnSave.Parent" xml:space="preserve"> <data name="&gt;&gt;btnSave.Parent" xml:space="preserve">
<value>Panel1</value> <value>PanelControl1</value>
</data> </data>
<data name="&gt;&gt;btnSave.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnSave.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
@ -207,85 +225,92 @@
<data name="DESCRIPTIONLabel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="DESCRIPTIONLabel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value> <value>Top, Left, Right</value>
</data> </data>
<data name="DESCRIPTIONLabel.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value>
</data>
<assembly alias="DevExpress.XtraEditors.v21.2" name="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="DESCRIPTIONLabel.AutoSizeMode" type="DevExpress.XtraEditors.LabelAutoSizeMode, DevExpress.XtraEditors.v21.2">
<value>None</value>
</data>
<data name="DESCRIPTIONLabel.Location" type="System.Drawing.Point, System.Drawing"> <data name="DESCRIPTIONLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>5, 33</value> <value>5, 33</value>
</data> </data>
<data name="DESCRIPTIONLabel.Size" type="System.Drawing.Size, System.Drawing"> <data name="DESCRIPTIONLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>447, 48</value> <value>524, 46</value>
</data> </data>
<data name="DESCRIPTIONLabel.TabIndex" type="System.Int32, mscorlib"> <data name="DESCRIPTIONLabel.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
</data> </data>
<data name="DESCRIPTIONLabel.Text" xml:space="preserve"> <data name="DESCRIPTIONLabel.Text" xml:space="preserve">
<value>Label3</value> <value>LabelControl1</value>
</data> </data>
<data name="&gt;&gt;DESCRIPTIONLabel.Name" xml:space="preserve"> <data name="&gt;&gt;DESCRIPTIONLabel.Name" xml:space="preserve">
<value>DESCRIPTIONLabel</value> <value>DESCRIPTIONLabel</value>
</data> </data>
<data name="&gt;&gt;DESCRIPTIONLabel.Type" xml:space="preserve"> <data name="&gt;&gt;DESCRIPTIONLabel.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;DESCRIPTIONLabel.Parent" xml:space="preserve"> <data name="&gt;&gt;DESCRIPTIONLabel.Parent" xml:space="preserve">
<value>Panel1</value> <value>PanelControl1</value>
</data> </data>
<data name="&gt;&gt;DESCRIPTIONLabel.ZOrder" xml:space="preserve"> <data name="&gt;&gt;DESCRIPTIONLabel.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="PanelValidatorControl.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="TITLELabel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value> <value>Top, Left, Right</value>
</data> </data>
<data name="PanelValidatorControl.AutoScroll" type="System.Boolean, mscorlib"> <data name="TITLELabel1.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>True</value> <value>Segoe UI, 12pt, style=Bold</value>
</data> </data>
<data name="PanelValidatorControl.Location" type="System.Drawing.Point, System.Drawing"> <data name="TITLELabel1.AutoSizeMode" type="DevExpress.XtraEditors.LabelAutoSizeMode, DevExpress.XtraEditors.v21.2">
<value>8, 85</value> <value>None</value>
</data> </data>
<data name="PanelValidatorControl.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="TITLELabel1.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 4, 3, 4</value> <value>5, 5</value>
</data> </data>
<data name="PanelValidatorControl.Size" type="System.Drawing.Size, System.Drawing"> <data name="TITLELabel1.Size" type="System.Drawing.Size, System.Drawing">
<value>444, 353</value> <value>524, 28</value>
</data> </data>
<data name="PanelValidatorControl.TabIndex" type="System.Int32, mscorlib"> <data name="TITLELabel1.TabIndex" type="System.Int32, mscorlib">
<value>18</value> <value>1</value>
</data> </data>
<data name="&gt;&gt;PanelValidatorControl.Name" xml:space="preserve"> <data name="TITLELabel1.Text" xml:space="preserve">
<value>PanelValidatorControl</value> <value>LabelControl1</value>
</data> </data>
<data name="&gt;&gt;PanelValidatorControl.Type" xml:space="preserve"> <data name="&gt;&gt;TITLELabel1.Name" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>TITLELabel1</value>
</data> </data>
<data name="&gt;&gt;PanelValidatorControl.Parent" xml:space="preserve"> <data name="&gt;&gt;TITLELabel1.Type" xml:space="preserve">
<value>Panel1</value> <value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;PanelValidatorControl.ZOrder" xml:space="preserve"> <data name="&gt;&gt;TITLELabel1.Parent" xml:space="preserve">
<value>PanelControl1</value>
</data>
<data name="&gt;&gt;TITLELabel1.ZOrder" xml:space="preserve">
<value>3</value> <value>3</value>
</data> </data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms"> <data name="PanelControl1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value> <value>Fill</value>
</data> </data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing"> <data name="PanelControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="Panel1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="PanelControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>3, 4, 3, 4</value> <value>534, 522</value>
</data> </data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="PanelControl1.TabIndex" type="System.Int32, mscorlib">
<value>455, 503</value> <value>25</value>
</data> </data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib"> <data name="&gt;&gt;PanelControl1.Name" xml:space="preserve">
<value>24</value> <value>PanelControl1</value>
</data> </data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve"> <data name="&gt;&gt;PanelControl1.Type" xml:space="preserve">
<value>Panel1</value> <value>DevExpress.XtraEditors.PanelControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve"> <data name="&gt;&gt;PanelControl1.Parent" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>SplitContainer1.Panel1</value> <value>SplitContainer1.Panel1</value>
</data> </data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;PanelControl1.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="&gt;&gt;SplitContainer1.Panel1.Name" xml:space="preserve"> <data name="&gt;&gt;SplitContainer1.Panel1.Name" xml:space="preserve">
@ -310,7 +335,7 @@
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="DocumentViewerValidator.Size" type="System.Drawing.Size, System.Drawing"> <data name="DocumentViewerValidator.Size" type="System.Drawing.Size, System.Drawing">
<value>460, 503</value> <value>418, 522</value>
</data> </data>
<data name="DocumentViewerValidator.TabIndex" type="System.Int32, mscorlib"> <data name="DocumentViewerValidator.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -319,7 +344,7 @@
<value>DocumentViewerValidator</value> <value>DocumentViewerValidator</value>
</data> </data>
<data name="&gt;&gt;DocumentViewerValidator.Type" xml:space="preserve"> <data name="&gt;&gt;DocumentViewerValidator.Type" xml:space="preserve">
<value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.8.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.9.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;DocumentViewerValidator.Parent" xml:space="preserve"> <data name="&gt;&gt;DocumentViewerValidator.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value> <value>SplitContainer1.Panel2</value>
@ -340,10 +365,10 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
<value>919, 503</value> <value>956, 522</value>
</data> </data>
<data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib"> <data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
<value>455</value> <value>534</value>
</data> </data>
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib"> <data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
<value>37</value> <value>37</value>
@ -355,90 +380,9 @@
<value>System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;SplitContainer1.Parent" xml:space="preserve"> <data name="&gt;&gt;SplitContainer1.Parent" xml:space="preserve">
<value>SplitContainer2_DV_Chat.Panel1</value>
</data>
<data name="&gt;&gt;SplitContainer1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainer2_DV_Chat.Panel1.Text" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.Panel1.Name" xml:space="preserve">
<value>SplitContainer2_DV_Chat.Panel1</value>
</data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.Panel1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.Panel1.Parent" xml:space="preserve">
<value>SplitContainer2_DV_Chat</value>
</data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.Panel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainer2_DV_Chat.Panel2.AutoScroll" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="ChatControl1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="ChatControl1.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="ChatControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="ChatControl1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="ChatControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>256, 503</value>
</data>
<data name="ChatControl1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;ChatControl1.Name" xml:space="preserve">
<value>ChatControl1</value>
</data>
<data name="&gt;&gt;ChatControl1.Type" xml:space="preserve">
<value>DigitalData.Controls.ChatControl.ChatControl, DigitalData.Controls.ChatControl, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;ChatControl1.Parent" xml:space="preserve">
<value>SplitContainer2_DV_Chat.Panel2</value>
</data>
<data name="&gt;&gt;ChatControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainer2_DV_Chat.Panel2.Text" xml:space="preserve">
<value>Panel2</value>
</data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.Panel2.Name" xml:space="preserve">
<value>SplitContainer2_DV_Chat.Panel2</value>
</data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.Panel2.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.Panel2.Parent" xml:space="preserve">
<value>SplitContainer2_DV_Chat</value>
</data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.Panel2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="SplitContainer2_DV_Chat.Size" type="System.Drawing.Size, System.Drawing">
<value>1185, 503</value>
</data>
<data name="SplitContainer2_DV_Chat.TabIndex" type="System.Int32, mscorlib">
<value>44</value>
</data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.Name" xml:space="preserve">
<value>SplitContainer2_DV_Chat</value>
</data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.ZOrder" xml:space="preserve"> <data name="&gt;&gt;SplitContainer1.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<metadata name="BarAndDockingController3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BarAndDockingController3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@ -460,7 +404,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="barDockControlTop.Size" type="System.Drawing.Size, System.Drawing"> <data name="barDockControlTop.Size" type="System.Drawing.Size, System.Drawing">
<value>1185, 0</value> <value>956, 0</value>
</data> </data>
<data name="&gt;&gt;barDockControlTop.Name" xml:space="preserve"> <data name="&gt;&gt;barDockControlTop.Name" xml:space="preserve">
<value>barDockControlTop</value> <value>barDockControlTop</value>
@ -478,10 +422,10 @@
<value>Bottom</value> <value>Bottom</value>
</data> </data>
<data name="barDockControlBottom.Location" type="System.Drawing.Point, System.Drawing"> <data name="barDockControlBottom.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 683</value> <value>0, 702</value>
</data> </data>
<data name="barDockControlBottom.Size" type="System.Drawing.Size, System.Drawing"> <data name="barDockControlBottom.Size" type="System.Drawing.Size, System.Drawing">
<value>1185, 0</value> <value>956, 0</value>
</data> </data>
<data name="&gt;&gt;barDockControlBottom.Name" xml:space="preserve"> <data name="&gt;&gt;barDockControlBottom.Name" xml:space="preserve">
<value>barDockControlBottom</value> <value>barDockControlBottom</value>
@ -502,7 +446,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="barDockControlLeft.Size" type="System.Drawing.Size, System.Drawing"> <data name="barDockControlLeft.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 683</value> <value>0, 702</value>
</data> </data>
<data name="&gt;&gt;barDockControlLeft.Name" xml:space="preserve"> <data name="&gt;&gt;barDockControlLeft.Name" xml:space="preserve">
<value>barDockControlLeft</value> <value>barDockControlLeft</value>
@ -520,10 +464,10 @@
<value>Right</value> <value>Right</value>
</data> </data>
<data name="barDockControlRight.Location" type="System.Drawing.Point, System.Drawing"> <data name="barDockControlRight.Location" type="System.Drawing.Point, System.Drawing">
<value>1185, 0</value> <value>956, 0</value>
</data> </data>
<data name="barDockControlRight.Size" type="System.Drawing.Size, System.Drawing"> <data name="barDockControlRight.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 683</value> <value>0, 702</value>
</data> </data>
<data name="&gt;&gt;barDockControlRight.Name" xml:space="preserve"> <data name="&gt;&gt;barDockControlRight.Name" xml:space="preserve">
<value>barDockControlRight</value> <value>barDockControlRight</value>
@ -547,7 +491,7 @@
<value>7, 17</value> <value>7, 17</value>
</data> </data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing"> <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1185, 683</value> <value>956, 702</value>
</data> </data>
<data name="bsiError.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing"> <data name="bsiError.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold</value> <value>Tahoma, 8.25pt, style=Bold</value>
@ -816,7 +760,6 @@
<data name="btnitemConversationEnd.Caption" xml:space="preserve"> <data name="btnitemConversationEnd.Caption" xml:space="preserve">
<value>Beende Konversation</value> <value>Beende Konversation</value>
</data> </data>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="btnitemConversationEnd.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnitemConversationEnd.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
@ -835,27 +778,6 @@
MS42LDgsMTYsOHogTTE2LDI0Yy0xLjUsMC0yLjgtMC40LTQtMS4xTDIyLjksMTJjMC43LDEuMiwxLjEs MS42LDgsMTYsOHogTTE2LDI0Yy0xLjUsMC0yLjgtMC40LTQtMS4xTDIyLjksMTJjMC43LDEuMiwxLjEs
Mi41LDEuMSw0QzI0LDIwLjQsMjAuNCwyNCwxNiwyNHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwv Mi41LDEuMSw0QzI0LDIwLjQsMjAuNCwyNCwxNiwyNHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwv
c3ZnPgs= c3ZnPgs=
</value>
</data>
<data name="bbtnitem_ConversationNew.Caption" xml:space="preserve">
<value>Neue Konversation</value>
</data>
<data name="bbtnitem_ConversationNew.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0
QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0
LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
Cjwvc3ZnPgs=
</value> </value>
</data> </data>
<data name="BarLinkContainerItem2.Caption" xml:space="preserve"> <data name="BarLinkContainerItem2.Caption" xml:space="preserve">
@ -880,39 +802,6 @@
<data name="RepositoryItemComboBox2.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v21.2"> <data name="RepositoryItemComboBox2.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v21.2">
<value>Combo</value> <value>Combo</value>
</data> </data>
<data name="RepositoryItemComboBox3.AutoHeight" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="RepositoryItemComboBox3.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v21.2">
<value>Combo</value>
</data>
<data name="BarEditItem3.EditWidth" type="System.Int32, mscorlib">
<value>200</value>
</data>
<data name="btnitemConversation_reload.Caption" xml:space="preserve">
<value>Neu laden</value>
</data>
<data name="btnitemConversation_reload.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlJlZnJlc2hfMV8iPg0KICAgIDxwYXRoIGQ9Ik0yNC41
LDcuNUMyMi4zLDUuMywxOS4zLDQsMTYsNEMxMC4xLDQsNS4xLDguMyw0LjIsMTRoNC4xYzAuOS0zLjQs
NC02LDcuNy02YzIuMiwwLDQuMiwwLjksNS42LDIuNEwxOCwxNCAgIGg1LjdoNC4xSDI4VjRMMjQuNSw3
LjV6IiBjbGFzcz0iR3JlZW4iIC8+DQogICAgPHBhdGggZD0iTTE2LjIsMjRjLTIuMiwwLTQuMi0wLjkt
NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz
LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj
bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItem5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
@ -1061,18 +950,6 @@
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="RibbonPageGroupConv1.Text" xml:space="preserve">
<value>Aktionen</value>
</data>
<data name="RibbonPageGroupConv_Change.Text" xml:space="preserve">
<value>Beendete Konversationen</value>
</data>
<data name="RibbonPage3.Text" xml:space="preserve">
<value>Funktionen</value>
</data>
<data name="RibbonPageConversations.Text" xml:space="preserve">
<value>Konversationen</value>
</data>
<data name="RibbonPageFile.Text" xml:space="preserve"> <data name="RibbonPageFile.Text" xml:space="preserve">
<value>Datei</value> <value>Datei</value>
</data> </data>
@ -1101,14 +978,20 @@
<data name="RibbonPage1.Text" xml:space="preserve"> <data name="RibbonPage1.Text" xml:space="preserve">
<value>Start</value> <value>Start</value>
</data> </data>
<data name="RepositoryItemComboBox3.AutoHeight" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="RepositoryItemComboBox3.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v21.2">
<value>Combo</value>
</data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1185, 158</value> <value>956, 158</value>
</data> </data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 661</value> <value>0, 680</value>
</data> </data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>1185, 22</value> <value>956, 22</value>
</data> </data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value> <value>RibbonStatusBar1</value>
@ -1303,51 +1186,36 @@
AAA= AAA=
</value> </value>
</data> </data>
<data name="frmValidator.IconOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="frmValidator.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFVzZXI7l1sKAgAACYlJREFUWEeV LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
lws4lPkex4fCmWEMI3etyyRyiaYwIrq4VC65RDW5hEIqSkgXIYq2k00qGykpkVS7hlLKNas2RaStPau1 dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMgFAAAC77u/
zhabki3ptJ2e7/7fKe1k37PnnN/zfJ5n5ve8v9/3+/u/7/uf/zAA/CWps9iMFHs2Y/tMNmPrTLb+FgE7 PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
NtFGoTjeWqGVIs5a4RhhLoFBQdfjr6BNSkKJ99wsZWyxZa/OdNNH2TZv1OVGo/1sGtrKU3F5fyT2LLFA IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
zHSFnJgZCgwq6Pr8J2iTo1AhntyW7XkkYta7vhsF+Kl+H+6f24SOk+G4lb8MbflC3CoMx95Aa0RZykeQ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
EmmCFFVL13MstMlRqCDiqmlOmsM9dYfwfWUyru12Rl2aPa4kCXB5izUqEvgojDDBgaDJWD1V/m24Gasz Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
2JgZTkrHU/V0fSWhTY5CxWaBQnzp5kV4WPN31GfMRRURPL/WFGXhhigM0sP+xVrI8NBEghMPqS4aOOg/ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
EWv5bCzmMf1J+Ti6vpLQJkehgjxwHbdKtuL2sQicXWeKo0Jd5HhpIHO+CtKdlBBvy8GOxXy0lm5HrI0S ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
cjxUsc5SHn68v1WSciZdX0lok6OQkIq3YY98V5mJis12yPbWQtJsJay3YiNyKguBU1jYH+mEX67n4unN MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
L1EY547oaQqImCJHDDCfkHolur6S0CZHISEdZ6Pw6PrxRBwS6iNpDheZAY44nugP0d5VuFeVgcHbR4h4 Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
Lp5cz8bPtZlIXzIDAZPk4MtjviX1anR9JaFNjkIZ2Gil0FiRGYJMD23si3DHyM8tGLpbgud3CsXiz8jk aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
T1qy0d+0B4+upqEmJxRCU6XfvPSZb0i9Jl1fSWiTo1AGYqbLbz200gHxdhPwXfMFDP94BUMdJzDY9qn4 c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
49p0/FiViIaDAVhprfHO/TPmI1KvQddXEtrkKCSk5urKqcYKuI9iZnDQ29WCl93VGGw/9nHZxZPXpuGf O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
l7ah6/QaiHYuQhBffWi2ltxRUs+h6ysJbXKUDzFeOIUVuMFaGd9WncCL7st4div//eSNn38U76mMR2tB ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
EArXz4afifIdUmdA1dL1lYQ2KQkJalfjRE3n9BQmr8ZwTwOZ/jCZnBJPF4v/VBmHeyURqP/CB7uWmMPZ c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJVc2VyIj4NCiAgICA8
QOEkqeHS9RsLbVISsg9QJuS8zVRDkvztn7RXF+JpawEe1+38IB6PB6cj8c0hP5zYYI9QK/UhS3W5IFLz cGF0aCBkPSJNMTYuMiwyNkgydi0xLjVjMC03LjUsNS43LTUsOC04LjVjMC44LDEuNSwyLjEsNCw0LDRz
X/cACtrkWEhQq6DkY6H+5f6YJWir+AK9NTvxw9exuFMUhuYcP5QlOiLBWR92mrIl5FoNgjRdr7HQJscS My4yLTIuNSw0LTRjMC43LDEsMS43LDEuNSwyLjcsMS45bDAsMCAgIGMtMC41LDAuOS0wLjcsMi0wLjcs
FBTEMDQ0lJslsI5JXDAZ6YFzUZy8HNVZyyFK88CBlTMQ46iDQPMJ0NFQS2SxWMy1c3WlVs+ZGBDhoHNm My4xYzAsMC40LDAsMC43LDAuMSwxLjFMMTYuMiwyNkwxNi4yLDI2eiBNOS4zLDEwLjljMCwwLDAsMC4x
5Uytx6ECjcdBVqpnlvFVAk01mNK+Zhxx7z+JSUJNQZBjKyqqeHp6nlvst3h4b5AVzu0SImmRGVZMU0GA LDAsMC4yYzAuNiwyLjMsMiw0LjksNC43LDQuOXM0LjItMi42LDQuNy00LjkgICBWMTFjMSwwLjEsMC42
GQeRAnXEO+sh0s4AFhYWr3R0dCpW2E/cm58SieuV+ejvPI2eht24mBOCXaEO8DFTStNijx9HCXwiWF5e LTEuMSwwLjktMS42QzE5LjgsOC45LDIwLDguNSwxOS45LDhjLTAuMS0wLjQtMC40LTAuNC0wLjUtMC4z
zkhQ54ohIUNQm8dmBfvaCr4/e/YsiouLkR5kj97a3egsT0Dt/mCUblmI/LWzkL1iBkLsjLBr1y4krg7A QzIxLjIsMi44LDE4LjMsMywxOC4zLDNTMTgsMCwxMi44LDBDOCwwLDcuNCw0LDguNSw3LjYgICBDOC40
0fR1+PfLbrz+Rx5e3cvG8J3deNGagp6qNUjxN8F8nnwo6S/9iYGysjLGmdw8SlxWU2a8aYgKp2H3ZANs LDcuNiw4LjEsNy43LDgsNy45QzcuOSw4LjQsOC4yLDguOCw4LjQsOS4zQzguNiw5LjgsOC4zLDExLDku
nO0oFn/37h1io0JQticCTflr8C35gbqStRSFG12QvNwOy7zc0NHRgShPG7TWifDmcQ0Grmfg3I5FSPG2 MywxMC45eiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwYXRoIGQ9Ik0yNywxNmMtMi44LDAtNSwyLjIt
RH1JDp6RTax0sz1c9Fki8ZCSBkpLSylxamn0wicodV4MC0F7aAjOuy1EYGAguQQYGhqCr48vIgIDsD46 NSw1YzAsMC42LDAuMSwxLjIsMC4zLDEuN0wxNiwyOXYzaDR2LTJoMnYtMmgybDIuMS0yLjFDMjYuNCwy
GrErVyLS3R0LXZzR3NyMpqYmBNtp4/lAP0Ye5KP7Qjy2uxtjuo5i3N6QufjtZT+as13grMscIDqKnxgg NiwyNi43LDI2LDI3LDI2ICAgYzIuOCwwLDUtMi4yLDUtNVMyOS44LDE2LDI3LDE2eiBNMjcsMjJjLTAu
QT3t3Ojo6KNZfr7o2LcPbcRAk8MsuPP56OrqwsjICLq7uzFv3jyk7kjFzp074eriimvXronFc3NzIbRS NiwwLTEtMC40LTEtMWMwLTAuNiwwLjQtMSwxLTFzMSwwLjQsMSwxQzI4LDIxLjYsMjcuNiwyMiwyNywy
FxsYvpuNvqsbUZ7kjN3LrdFacQS/dhbg2l5HzJkoN0i0VMcakDEwMBCQJq++StmOvGX+aF8VhkZ7O+ww MnoiIGNsYXNzPSJZZWxsb3ciIC8+DQogIDwvZz4NCjwvc3ZnPgs=
N0NCQgL6+/vR2toqNnD37l2cOnUKrvNdUVlZierqari5uWE5eRvut7XgVVcehprW4/nVCDy7FIQBkR96
SxeiiJwrrNRlbhI9tbEGuOHh4Ufr6+tx83QJtk+3wO2wUDTYzcQFc3PwJ01CQ0MDbG1txeJUZGVlkZW5
ByurGcjLz4e5phIy1/jh9cBdIh6Lwaur8LQ6EAMVvnhyzg0PjjgijpycjJTHZRG9P24BCWr5DVNTUx/1
9vbih5s3sFlPBzcDhKglghfNTJE2iYepxMQCLhfkuo8GqM+zFRXB11UTi7/q78Cv1zZi8MoqDFQJcb9o
IbqOeaF0kw0SPE1gxh1/UVqKwSN64yQNyPH5fJ+CggLxfe7r6cFmbTW0+HjjipUVqkxNIJpijMJJhjhD
TPgqK4uFw8LC4KbIwVY9zQ/id8jkG/CwnOwV3sQsj4X5k5XhxOPAnqeKSVzmFSkphjnRkxXrShhQWrp0
6SGRSIQXL17gF3KvN2mooNHVFdX8aaicYoKvjIxwxtAQJTwDFOnpwZPDwQIyeZKuOj4fFW9cj4dnliLJ
iwcPLhMm5E2vqanB1xUVWBcdA0tLy1NES916wvj3uhIGdKKiom60tLTg6dOneHj/Pjapc1HrOBsXLKai
wtgI54h4mYEBThHxY3r6yJs4Edv1/hB/3hiDZ5dD0FngIZ48RJ4Ne1lpdJG9gXqDcg4chJOTUxvR0rVS
eb/6kgYMMzIy3g4MDKCvrw/tDXWIU5+AGoENRGYmOG9Elp7Hwyl9fRTp6qKAiO8w0Hov3teO5/Xr0H16
CbaRySlxDy4LkSwWXORk0EhWoKn5G4iqqhEQEECdFY3pDKj6+voWHc47AtHFGlTk7EekmgpOmhjjKFny
w7qf4RARzdHWRpamJjI0tbCcr4I3/3pNxNcScX8ibkAeUCaWMVkIZjIRSgy4ysmi+OABXLxUg+TkFAgE
AuoWqNEZoPb+yf7+/jWJiYkIs5yKMC4boRTKbKwgBH8gQIkNIcHfQpmUAs/Ia9aZv0A8uSubCV8OCz6K
8vDmEBRZ8ORbQigUwsHB4SrRMKa0/mRA/IU8mQRtgiXBmgYbCWY6G7KrvIzZ8DBUEIubqMgcJ3mnMdeN
Mo2gQ5ClxGkN/D+QoPYNyjCHoEagDiHUZ/F/wv8lADB+B3eE88Zb5X+IAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
@ -1644,12 +1512,6 @@
<data name="&gt;&gt;btnitemConversationEnd.Type" xml:space="preserve"> <data name="&gt;&gt;btnitemConversationEnd.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;bbtnitem_ConversationNew.Name" xml:space="preserve">
<value>bbtnitem_ConversationNew</value>
</data>
<data name="&gt;&gt;bbtnitem_ConversationNew.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarLinkContainerItem2.Name" xml:space="preserve"> <data name="&gt;&gt;BarLinkContainerItem2.Name" xml:space="preserve">
<value>BarLinkContainerItem2</value> <value>BarLinkContainerItem2</value>
</data> </data>
@ -1680,24 +1542,6 @@
<data name="&gt;&gt;RepositoryItemComboBox2.Type" xml:space="preserve"> <data name="&gt;&gt;RepositoryItemComboBox2.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BarEditItem3.Name" xml:space="preserve">
<value>BarEditItem3</value>
</data>
<data name="&gt;&gt;BarEditItem3.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarEditItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RepositoryItemComboBox3.Name" xml:space="preserve">
<value>RepositoryItemComboBox3</value>
</data>
<data name="&gt;&gt;RepositoryItemComboBox3.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;btnitemConversation_reload.Name" xml:space="preserve">
<value>btnitemConversation_reload</value>
</data>
<data name="&gt;&gt;btnitemConversation_reload.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonItem5.Name" xml:space="preserve"> <data name="&gt;&gt;BarButtonItem5.Name" xml:space="preserve">
<value>BarButtonItem5</value> <value>BarButtonItem5</value>
</data> </data>
@ -1734,30 +1578,6 @@
<data name="&gt;&gt;BarButtonItem6.Type" xml:space="preserve"> <data name="&gt;&gt;BarButtonItem6.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonPageConversations.Name" xml:space="preserve">
<value>RibbonPageConversations</value>
</data>
<data name="&gt;&gt;RibbonPageConversations.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageCategory, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage3.Name" xml:space="preserve">
<value>RibbonPage3</value>
</data>
<data name="&gt;&gt;RibbonPage3.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroupConv1.Name" xml:space="preserve">
<value>RibbonPageGroupConv1</value>
</data>
<data name="&gt;&gt;RibbonPageGroupConv1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroupConv_Change.Name" xml:space="preserve">
<value>RibbonPageGroupConv_Change</value>
</data>
<data name="&gt;&gt;RibbonPageGroupConv_Change.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
<value>RibbonPage1</value> <value>RibbonPage1</value>
</data> </data>
@ -1788,6 +1608,12 @@
<data name="&gt;&gt;RibbonPageGroup2.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RepositoryItemComboBox3.Name" xml:space="preserve">
<value>RepositoryItemComboBox3</value>
</data>
<data name="&gt;&gt;RepositoryItemComboBox3.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage2.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPage2.Name" xml:space="preserve">
<value>RibbonPage2</value> <value>RibbonPage2</value>
</data> </data>

950
app/TaskFlow/frmValidator.vb
View File

File diff suppressed because it is too large Load Diff