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

MS_30.05.2016

Browse Source
This commit is contained in:
SchreiberM 2016-05-31 09:46:07 +02:00
parent 6a20480e7c
commit ecb4161e6a
7 changed files with 302 additions and 100 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
app/DD-Record-Organiser/ClassControlBuilder.vb
View File

@ -87,6 +87,21 @@ Public Class ClassControlBuilder
onRecordChangedHandler.Invoke(sender, e) onRecordChangedHandler.Invoke(sender, e)
End If End If
End Sub End Sub
' GridControl hat andere Handler Signatur
Public Sub RecordChanged(sender As Object, ByVal e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs)
Dim onRecordChangedHandler As EventHandler = CType(Me.Events(_onRecordChangedName), EventHandler)
Dim ctrl As DevExpress.XtraGrid.Views.Grid.GridView = sender
' Dim ctrl As Control = sender 'DirectCast(sender, Control)
Dim controlId As Integer = DirectCast(ctrl.GridControl.Tag, ClassControlMetadata).Id
If Not ControlsChanged.Contains(controlId) Then
ControlsChanged.Add(controlId)
End If
If (onRecordChangedHandler IsNot Nothing And WatchRecordChanges) Then
onRecordChangedHandler.Invoke(sender, e)
End If
End Sub
Public Sub MouseHover(sender As Object, e As EventArgs) Public Sub MouseHover(sender As Object, e As EventArgs)
Dim onMouseHoverHandler As EventHandler = CType(Me.Events(_onMouseHoverName), EventHandler) Dim onMouseHoverHandler As EventHandler = CType(Me.Events(_onMouseHoverName), EventHandler)
@ -564,6 +579,61 @@ Public Class ClassControlBuilder
End If End If
End Try End Try
End Sub End Sub
Public Sub OnCheckedChanged(sender As Object, ByVal e As EventArgs)
If CURRENT_RECORD_ENABLED = False Then Exit Sub
Try
Dim GridView As DevExpress.XtraGrid.Views.Grid.GridView = sender
Dim control As Control = DirectCast(GridView.GridControl, Control)
Dim controlId As Integer = DirectCast(GridView.GridControl.Tag, ClassControlMetadata).Id
CONTROL_ID = controlId
control.Update()
'SQL für abhängige Auswahllisten
Dim SQL As String = String.Format("SELECT GUID, SQL_COMMAND_1,CONTROL_TYPE_ID,FORMAT_TYPE FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId)
'SQL für enable control
Dim SQLenable As String = String.Format("SELECT GUID, SQL_COMMAND_2,CONTROL_TYPE_ID,FORMAT_TYPE FROM TBPMO_CONTROL WHERE SQL_COMMAND_2 LIKE '%@{0}@%'", controlId)
'If CtrlCommandUI.IsInsert = True Then
' CtrlCommandUI.SaveRecord(0, CURRENT_FORM_ID, CURRENT_PARENT_ID)
'End If
Dim CONTROL_VALUE As String = ClassControlCommandsUI.GetControlValue(control)
If CURRENT_RECORD_ID = 0 Then
Exit Sub
End If
' Da wir beim Klick auf Hinzfügen einen Record anlegen,
' muss UpdateMultipleValues auch aufgerufen werden, wenn wir IsInsert = True ist
'If CtrlCommandUI.IsInsert = False Then
ClassControlCommandsUI.UpdateMultipleValues(controlId, CURRENT_RECORD_ID, CONTROL_VALUE)
'End If
Dim SQL1 As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", CURRENT_RECORD_ID)
Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL1, "LoadControlValues")
CURRENT_CONTROL_VALUES = DT_ControlValues
Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable)
Depending_Controls(control, datatable, CONTROL_VALUE)
If IsNothing(CONTROL_VALUE) Then
Exit Sub
End If
Enable_Controls(control, datatable1, CONTROL_VALUE)
Dim values = New List(Of Object)(CONTROL_VALUE.Split(";").ToArray())
'Jetzt noch die checked Items setzen
' ClassControlValues.LoadControlValue(CURRENT_RECORD_ID, CURRENT_PARENT_ID, controlId, control, values, 99)
Catch ex As Exception
If ex.Message.Contains("Objektverweis") Or ex.Message.Contains("reference not set") Then
Else
MsgBox("Error in OnCheckedChanged - " & CONTROL_ID.ToString & ": " & ex.Message, MsgBoxStyle.Critical)
End If
End Try
End Sub
Public Sub CheckBoxChanged(sender As Object, ByVal e As EventArgs) Public Sub CheckBoxChanged(sender As Object, ByVal e As EventArgs)
If CURRENT_RECORD_ENABLED = False Then Exit Sub If CURRENT_RECORD_ENABLED = False Then Exit Sub
@ -709,7 +779,11 @@ Public Class ClassControlBuilder
AddHandler gridview.CellValueChanged, AddressOf RecordChanged AddHandler gridview.CellValueChanged, AddressOf RecordChanged
AddHandler gridview.RowsRemoved, AddressOf RecordChanged AddHandler gridview.RowsRemoved, AddressOf RecordChanged
AddHandler gridview.EnabledChanged, AddressOf OnEnabledChanged AddHandler gridview.EnabledChanged, AddressOf OnEnabledChanged
Case "GridControl"
Dim gridcontrol As DevExpress.XtraGrid.GridControl = CType(control, DevExpress.XtraGrid.GridControl)
Dim gridview As DevExpress.XtraGrid.Views.Grid.GridView = gridcontrol.MainView
AddHandler gridview.CellValueChanged, AddressOf RecordChanged
AddHandler gridview.CellValueChanged, AddressOf OnCheckedChanged
End Select End Select
End Sub End Sub

131
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@ -752,6 +752,137 @@ Public Class ClassControlCommandsUI
Return Nothing Return Nothing
End If End If
Case "GridControl"
Dim chk_grid As DevExpress.XtraGrid.GridControl
chk_grid = DirectCast(ctrl, DevExpress.XtraGrid.GridControl)
Dim gridview As DevExpress.XtraGrid.Views.Grid.GridView = chk_grid.MainView
Dim SQL_COMAMND = ClassDatabase.Execute_Scalar("SELECT UPPER(SQL_COMMAND_1) FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID)
''TODO: Wenn keine Datasource vorhanden, angecheckte einträge als string speichern
If IsNothing(chk_grid.DataSource) Then
Dim result As New List(Of String)
Dim result_string As String
For i As Integer = 0 To gridview.DataRowCount
Dim res = gridview.GetRowCellValue(i, 0)
If CBool(gridview.GetRowCellValue(i, "CHECKED")) = True Then
Dim value = gridview.GetRowCellValue(i, 1).ToString.Trim
result.Add(value)
End If
Next
' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll
' Überspringt den Rest der funktion
result_string = String.Join(";", result)
If Not IsNothing(result_string) Then
Return result_string
Else
Return Nothing
End If
Else
Dim result As New List(Of String)
Dim result_string As String
Dim DT As DataTable = chk_grid.DataSource
For Each row As DataRow In DT.Rows
If CBool(row.Item(0)) = True Then
Dim value = row.Item(1).ToString.Trim
result.Add(value)
End If
Next
' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll
' Überspringt den Rest der funktion
result_string = String.Join(";", result)
If Not IsNothing(result_string) Then
Return result_string
Else
Return Nothing
End If
End If
'If SQL_COMAMND.ToString.StartsWith("SELECT [RECORD_ID]") Or SQL_COMAMND.ToString.StartsWith("SELECT [RECORD-ID]") Then
' 'Alle Recorddatensätze durchlaufen und überprüfen ob nicht angehakt
' 'Wenn nicht angehakt dann Record löschen
' Dim index As Integer = 0
' For i As Integer = 0 To gridview.DataRowCount
' ' Dim item = chklbx.GetItem(i)
' ' Dim row As DataRowView = CType(item, DataRowView)
' If CBool(gridview.GetRowCellValue(i, "CHECKED")) = False Then
' ' If CInt(row(0)) > 0 Then
' ' 'Überprüfen ob es den Record gibt
' ' Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
' ' If ClassDatabase.Execute_Scalar(SQL) = 1 Then
' ' SQL = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
' ' If ClassDatabase.Execute_non_Query(SQL) = True Then
' ' If LogErrorsOnly = False Then ClassLogger.Add(" >> TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False)
' ' End If
' ' End If
' ' End If
' End If
' Next
'End If
''Für jeden gecheckten Eintrag den Record der Stammentität mit dem selektierten linken
'Dim checked_result As New List(Of String)
'Dim checked_result_string As String
'If SQL_COMAMND.ToString.StartsWith("SELECT [RECORD_ID]") Or SQL_COMAMND.ToString.StartsWith("SELECT [RECORD-ID]") Then
' For Each item As Object In DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl).CheckedItems
' Dim row As DataRowView = CType(item, DataRowView)
' Try
' If CInt(row(0)) > 0 Then
' Dim rid = CInt(row(0))
' Dim checked_value = row(1)
' checked_result.Add(checked_value)
' checked_result_string = String.Join(";", checked_result)
' Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
' If ClassDatabase.Execute_Scalar(SQL) = 0 Then
' If CURRENT_RECORD_ID = 0 Then
' MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation)
' Else
' If ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
' End If
' End If
' End If
' End If
' Catch ex As Exception
' ClassLogger.Add("Error in CheckedListBoxGetControlValue: " & ex.Message, True)
' End Try
' Next
'Else
' For Each item As Object In DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl).CheckedItems
' Dim row As DataRowView = CType(item, DataRowView)
' If row.DataView.Table.Columns.Count = 1 Then
' Dim checked_value = row(0)
' checked_result.Add(checked_value)
' ElseIf row.DataView.Table.Columns.Count = 2 Then
' Dim checked_value = row(1)
' checked_result.Add(checked_value)
' End If
' checked_result_string = String.Join(";", checked_result)
' Next
'End If
'' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll
'' Überspringt den Rest der funktion
'If Not IsNothing(checked_result_string) Then
' 'Dim sql = String.Format("select count(*) from TBPMO_CONTROL_VALUE where CONTROL_ID = {0} and RECORD_ID = {1}", CONTROL_ID, CURRENT_RECORD_ID)
' 'If ClassDatabase.Execute_Scalar(sql) = 0 Then
' ' InsertControlValue(CONTROL_ID, CURRENT_RECORD_ID, "")
' 'End If
' Return checked_result_string
'Else
' 'In jedem Fall Nothing zurückgeben
' Return Nothing
'End If
Case "ListBoxControl" Case "ListBoxControl"
Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(ctrl, DevExpress.XtraEditors.ListBoxControl) Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(ctrl, DevExpress.XtraEditors.ListBoxControl)

106
app/DD-Record-Organiser/DD-Record-Organiser.vbproj
View File

@ -81,88 +81,97 @@
<Reference Include="CommandLine"> <Reference Include="CommandLine">
<HintPath>..\..\3rdparty\lib\Commandline\CommandLine.dll</HintPath> <HintPath>..\..\3rdparty\lib\Commandline\CommandLine.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.BonusSkins.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.BonusSkins.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.BonusSkins.v15.2.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.Data.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Data.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Data.v15.2.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.Office.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Office.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Office.v15.2.Core.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.Pdf.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Pdf.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<Reference Include="DevExpress.Pdf.v15.1.Drawing, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Pdf.v15.2.Core.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.RichEdit.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Pdf.v15.2.Drawing, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Pdf.v15.2.Drawing.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Printing.v15.2.Core.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.RichEdit.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.RichEdit.v15.2.Core.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Utils.v15.2.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraBars.v15.2.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.XtraLayout.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraEditors.v15.2.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.XtraNavBar.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraGrid.v15.2.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<Reference Include="DevExpress.XtraPrinting.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraLayout.v15.2.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.XtraRichEdit.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraNavBar.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraNavBar.v15.2.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.XtraScheduler.v15.1.Reporting.Extensions, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraPdfViewer.v15.2.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.XtraScheduler.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraPrinting.v15.2.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.XtraScheduler.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraRichEdit.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraRichEdit.v15.2.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.XtraScheduler.v15.1.Extensions, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraScheduler.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraScheduler.v15.2.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.XtraTreeList.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraScheduler.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraScheduler.v15.2.Core.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.XtraVerticalGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraScheduler.v15.2.Extensions, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraScheduler.v15.2.Extensions.dll</HintPath>
</Reference> </Reference>
<Reference Include="DevExpress.XtraWizard.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraScheduler.v15.2.Reporting.Extensions, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>True</Private> <HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraScheduler.v15.2.Reporting.Extensions.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraTreeList.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraTreeList.v15.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraVerticalGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraVerticalGrid.v15.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraWizard.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraWizard.v15.2.dll</HintPath>
</Reference> </Reference>
<Reference Include="DLLLicenseManager"> <Reference Include="DLLLicenseManager">
<HintPath>..\..\lib\DLLLicenseManager.dll</HintPath> <HintPath>..\..\lib\DLLLicenseManager.dll</HintPath>
@ -214,6 +223,9 @@
<Private>True</Private> <Private>True</Private>
</Reference> </Reference>
<Reference Include="PresentationCore" /> <Reference Include="PresentationCore" />
<Reference Include="SnapPanelControl">
<HintPath>..\SnapPanelControl\bin\Debug\SnapPanelControl.dll</HintPath>
</Reference>
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.Data" /> <Reference Include="System.Data" />
<Reference Include="System.Deployment" /> <Reference Include="System.Deployment" />
@ -639,6 +651,7 @@
<EmbeddedResource Include="frmWD_Import_Doc_Record.resx"> <EmbeddedResource Include="frmWD_Import_Doc_Record.resx">
<DependentUpon>frmWD_Import_Doc_Record.vb</DependentUpon> <DependentUpon>frmWD_Import_Doc_Record.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="Strings\ControlProperties.en.resx"> <EmbeddedResource Include="Strings\ControlProperties.en.resx">
<Generator>ResXFileCodeGenerator</Generator> <Generator>ResXFileCodeGenerator</Generator>
<LastGenOutput>ControlProperties.en.Designer.vb</LastGenOutput> <LastGenOutput>ControlProperties.en.Designer.vb</LastGenOutput>
@ -891,7 +904,6 @@
<EmbeddedResource Include="frmwindreamView_Config.resx"> <EmbeddedResource Include="frmwindreamView_Config.resx">
<DependentUpon>frmwindreamView_Config.vb</DependentUpon> <DependentUpon>frmwindreamView_Config.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx"> <EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator> <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<CustomToolNamespace>My.Resources</CustomToolNamespace> <CustomToolNamespace>My.Resources</CustomToolNamespace>
@ -1304,12 +1316,6 @@
<None Include="Resources\138_PushPin_32x42_721.png" /> <None Include="Resources\138_PushPin_32x42_721.png" />
<Content Include="Resources\138_PushPin_48x48_72.png" /> <Content Include="Resources\138_PushPin_48x48_72.png" />
</ItemGroup> </ItemGroup>
<ItemGroup>
<ProjectReference Include="..\SnapPanelControl\SnapPanelControl.vbproj">
<Project>{9B1BBAC7-F595-43BA-8B54-CF2B595847CD}</Project>
<Name>SnapPanelControl</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets. Other similar extension points exist, see Microsoft.Common.targets.

13
app/DD-Record-Organiser/My Project/licenses.licx
View File

@ -1,11 +1,2 @@
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraVerticalGrid.VGridControl, DevExpress.XtraVerticalGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

5
app/DD-Record-Organiser/frmConstructor_Main.Designer.vb generated
View File

@ -360,9 +360,9 @@ Partial Class frmConstructor_Main
Me.grvwGrid.Name = "grvwGrid" Me.grvwGrid.Name = "grvwGrid"
Me.grvwGrid.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.grvwGrid.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] Me.grvwGrid.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsBehavior.CopyToClipboardWithColumnHeaders = False
Me.grvwGrid.OptionsBehavior.Editable = False Me.grvwGrid.OptionsBehavior.Editable = False
Me.grvwGrid.OptionsBehavior.ReadOnly = True Me.grvwGrid.OptionsBehavior.ReadOnly = True
Me.grvwGrid.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = False Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = False
Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = False Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = False
Me.grvwGrid.OptionsSelection.EnableAppearanceHideSelection = False Me.grvwGrid.OptionsSelection.EnableAppearanceHideSelection = False
@ -370,7 +370,6 @@ Partial Class frmConstructor_Main
Me.grvwGrid.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect Me.grvwGrid.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.grvwGrid.OptionsView.ColumnAutoWidth = False Me.grvwGrid.OptionsView.ColumnAutoWidth = False
Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = True Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = True
Me.grvwGrid.OptionsView.EnableAppearanceOddRow = True
Me.grvwGrid.OptionsView.ShowAutoFilterRow = True Me.grvwGrid.OptionsView.ShowAutoFilterRow = True
Me.grvwGrid.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always Me.grvwGrid.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
' '
@ -386,8 +385,6 @@ Partial Class frmConstructor_Main
Me.grvwTiles.FocusBorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) Me.grvwTiles.FocusBorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer))
Me.grvwTiles.GridControl = Me.GridControlMain Me.grvwTiles.GridControl = Me.GridControlMain
Me.grvwTiles.Name = "grvwTiles" Me.grvwTiles.Name = "grvwTiles"
Me.grvwTiles.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwTiles.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwTiles.OptionsBehavior.ReadOnly = True Me.grvwTiles.OptionsBehavior.ReadOnly = True
Me.grvwTiles.OptionsFind.AlwaysVisible = True Me.grvwTiles.OptionsFind.AlwaysVisible = True
Me.grvwTiles.OptionsTiles.HorizontalContentAlignment = DevExpress.Utils.HorzAlignment.Near Me.grvwTiles.OptionsTiles.HorizontalContentAlignment = DevExpress.Utils.HorzAlignment.Near

56
app/DD-Record-Organiser/frmConstructor_Main.resx
View File

@ -307,7 +307,7 @@
<value>GridControlMain</value> <value>GridControlMain</value>
</data> </data>
<data name="&gt;&gt;GridControlMain.Type" xml:space="preserve"> <data name="&gt;&gt;GridControlMain.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;GridControlMain.Parent" xml:space="preserve"> <data name="&gt;&gt;GridControlMain.Parent" xml:space="preserve">
<value>SplitContainerTop.Panel2</value> <value>SplitContainerTop.Panel2</value>
@ -331,7 +331,7 @@
<value>SplitContainerTop</value> <value>SplitContainerTop</value>
</data> </data>
<data name="&gt;&gt;SplitContainerTop.Type" xml:space="preserve"> <data name="&gt;&gt;SplitContainerTop.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;SplitContainerTop.Parent" xml:space="preserve"> <data name="&gt;&gt;SplitContainerTop.Parent" xml:space="preserve">
<value>SplitContainerMain.Panel1</value> <value>SplitContainerMain.Panel1</value>
@ -400,7 +400,7 @@
<value>TabDetails</value> <value>TabDetails</value>
</data> </data>
<data name="&gt;&gt;TabDetails.Type" xml:space="preserve"> <data name="&gt;&gt;TabDetails.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;TabDetails.Parent" xml:space="preserve"> <data name="&gt;&gt;TabDetails.Parent" xml:space="preserve">
<value>TCDetails</value> <value>TCDetails</value>
@ -478,7 +478,7 @@
<value>GridControlDocSearch</value> <value>GridControlDocSearch</value>
</data> </data>
<data name="&gt;&gt;GridControlDocSearch.Type" xml:space="preserve"> <data name="&gt;&gt;GridControlDocSearch.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;GridControlDocSearch.Parent" xml:space="preserve"> <data name="&gt;&gt;GridControlDocSearch.Parent" xml:space="preserve">
<value>TabWindream</value> <value>TabWindream</value>
@ -560,7 +560,7 @@
<value>TabWindream</value> <value>TabWindream</value>
</data> </data>
<data name="&gt;&gt;TabWindream.Type" xml:space="preserve"> <data name="&gt;&gt;TabWindream.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;TabWindream.Parent" xml:space="preserve"> <data name="&gt;&gt;TabWindream.Parent" xml:space="preserve">
<value>TCDetails</value> <value>TCDetails</value>
@ -991,7 +991,7 @@
<value>TabFollowUp</value> <value>TabFollowUp</value>
</data> </data>
<data name="&gt;&gt;TabFollowUp.Type" xml:space="preserve"> <data name="&gt;&gt;TabFollowUp.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;TabFollowUp.Parent" xml:space="preserve"> <data name="&gt;&gt;TabFollowUp.Parent" xml:space="preserve">
<value>TCDetails</value> <value>TCDetails</value>
@ -1018,7 +1018,7 @@
<value>GridControlPos</value> <value>GridControlPos</value>
</data> </data>
<data name="&gt;&gt;GridControlPos.Type" xml:space="preserve"> <data name="&gt;&gt;GridControlPos.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;GridControlPos.Parent" xml:space="preserve"> <data name="&gt;&gt;GridControlPos.Parent" xml:space="preserve">
<value>Panel1</value> <value>Panel1</value>
@ -1246,7 +1246,7 @@
<value>TabPos</value> <value>TabPos</value>
</data> </data>
<data name="&gt;&gt;TabPos.Type" xml:space="preserve"> <data name="&gt;&gt;TabPos.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;TabPos.Parent" xml:space="preserve"> <data name="&gt;&gt;TabPos.Parent" xml:space="preserve">
<value>TCDetails</value> <value>TCDetails</value>
@ -1258,7 +1258,7 @@
<value>TCDetails</value> <value>TCDetails</value>
</data> </data>
<data name="&gt;&gt;TCDetails.Type" xml:space="preserve"> <data name="&gt;&gt;TCDetails.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;TCDetails.Parent" xml:space="preserve"> <data name="&gt;&gt;TCDetails.Parent" xml:space="preserve">
<value>SplitContainerBottom.Panel1</value> <value>SplitContainerBottom.Panel1</value>
@ -1503,7 +1503,7 @@
<value>GridControlParent</value> <value>GridControlParent</value>
</data> </data>
<data name="&gt;&gt;GridControlParent.Type" xml:space="preserve"> <data name="&gt;&gt;GridControlParent.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;GridControlParent.Parent" xml:space="preserve"> <data name="&gt;&gt;GridControlParent.Parent" xml:space="preserve">
<value>Panel2</value> <value>Panel2</value>
@ -1578,7 +1578,7 @@
<value>SplitContainerBottom</value> <value>SplitContainerBottom</value>
</data> </data>
<data name="&gt;&gt;SplitContainerBottom.Type" xml:space="preserve"> <data name="&gt;&gt;SplitContainerBottom.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;SplitContainerBottom.Parent" xml:space="preserve"> <data name="&gt;&gt;SplitContainerBottom.Parent" xml:space="preserve">
<value>SplitContainerMain.Panel2</value> <value>SplitContainerMain.Panel2</value>
@ -1602,7 +1602,7 @@
<value>SplitContainerMain</value> <value>SplitContainerMain</value>
</data> </data>
<data name="&gt;&gt;SplitContainerMain.Type" xml:space="preserve"> <data name="&gt;&gt;SplitContainerMain.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;SplitContainerMain.Parent" xml:space="preserve"> <data name="&gt;&gt;SplitContainerMain.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
@ -1659,7 +1659,7 @@
<value>NavPane</value> <value>NavPane</value>
</data> </data>
<data name="&gt;&gt;NavPane.Type" xml:space="preserve"> <data name="&gt;&gt;NavPane.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;NavPane.Parent" xml:space="preserve"> <data name="&gt;&gt;NavPane.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
@ -1721,11 +1721,11 @@
<metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>610, 17</value> <value>610, 17</value>
</metadata> </metadata>
<assembly alias="DevExpress.Utils.v15.1" name="DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.1" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4xLCBWZXJzaW9uPTE1LjEu AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
Ny4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE OS4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE
ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
</value> </value>
</data> </data>
@ -2344,19 +2344,19 @@
<value>grvwGrid</value> <value>grvwGrid</value>
</data> </data>
<data name="&gt;&gt;grvwGrid.Type" xml:space="preserve"> <data name="&gt;&gt;grvwGrid.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;grvwCarousel.Name" xml:space="preserve"> <data name="&gt;&gt;grvwCarousel.Name" xml:space="preserve">
<value>grvwCarousel</value> <value>grvwCarousel</value>
</data> </data>
<data name="&gt;&gt;grvwCarousel.Type" xml:space="preserve"> <data name="&gt;&gt;grvwCarousel.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Layout.LayoutView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Layout.LayoutView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;grvwTiles.Name" xml:space="preserve"> <data name="&gt;&gt;grvwTiles.Name" xml:space="preserve">
<value>grvwTiles</value> <value>grvwTiles</value>
</data> </data>
<data name="&gt;&gt;grvwTiles.Type" xml:space="preserve"> <data name="&gt;&gt;grvwTiles.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Tile.TileView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Tile.TileView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;DateiÖffnenToolStripMenuItem.Name" xml:space="preserve"> <data name="&gt;&gt;DateiÖffnenToolStripMenuItem.Name" xml:space="preserve">
<value>DateiÖffnenToolStripMenuItem</value> <value>DateiÖffnenToolStripMenuItem</value>
@ -2404,7 +2404,7 @@
<value>GridViewDoc_Search</value> <value>GridViewDoc_Search</value>
</data> </data>
<data name="&gt;&gt;GridViewDoc_Search.Type" xml:space="preserve"> <data name="&gt;&gt;GridViewDoc_Search.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;tslblWindreamView.Name" xml:space="preserve"> <data name="&gt;&gt;tslblWindreamView.Name" xml:space="preserve">
<value>tslblWindreamView</value> <value>tslblWindreamView</value>
@ -2440,7 +2440,7 @@
<value>grvwGridPos</value> <value>grvwGridPos</value>
</data> </data>
<data name="&gt;&gt;grvwGridPos.Type" xml:space="preserve"> <data name="&gt;&gt;grvwGridPos.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BindingNavigatorAddNewItem.Name" xml:space="preserve"> <data name="&gt;&gt;BindingNavigatorAddNewItem.Name" xml:space="preserve">
<value>BindingNavigatorAddNewItem</value> <value>BindingNavigatorAddNewItem</value>
@ -2638,7 +2638,7 @@
<value>GridViewParent</value> <value>GridViewParent</value>
</data> </data>
<data name="&gt;&gt;GridViewParent.Type" xml:space="preserve"> <data name="&gt;&gt;GridViewParent.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BindingSource_Entity.Name" xml:space="preserve"> <data name="&gt;&gt;BindingSource_Entity.Name" xml:space="preserve">
<value>BindingSource_Entity</value> <value>BindingSource_Entity</value>
@ -2650,19 +2650,19 @@
<value>TileNavCategory1</value> <value>TileNavCategory1</value>
</data> </data>
<data name="&gt;&gt;TileNavCategory1.Type" xml:space="preserve"> <data name="&gt;&gt;TileNavCategory1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Navigation.TileNavCategory, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Navigation.TileNavCategory, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;NavButtonHome.Name" xml:space="preserve"> <data name="&gt;&gt;NavButtonHome.Name" xml:space="preserve">
<value>NavButtonHome</value> <value>NavButtonHome</value>
</data> </data>
<data name="&gt;&gt;NavButtonHome.Type" xml:space="preserve"> <data name="&gt;&gt;NavButtonHome.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Navigation.NavButton, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Navigation.NavButton, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;NavButtonRefresh.Name" xml:space="preserve"> <data name="&gt;&gt;NavButtonRefresh.Name" xml:space="preserve">
<value>NavButtonRefresh</value> <value>NavButtonRefresh</value>
</data> </data>
<data name="&gt;&gt;NavButtonRefresh.Type" xml:space="preserve"> <data name="&gt;&gt;NavButtonRefresh.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Navigation.NavButton, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Navigation.NavButton, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;tsslblStatus.Name" xml:space="preserve"> <data name="&gt;&gt;tsslblStatus.Name" xml:space="preserve">
<value>tsslblStatus</value> <value>tsslblStatus</value>
@ -2692,7 +2692,7 @@
<value>ImageCollection1</value> <value>ImageCollection1</value>
</data> </data>
<data name="&gt;&gt;ImageCollection1.Type" xml:space="preserve"> <data name="&gt;&gt;ImageCollection1.Type" xml:space="preserve">
<value>DevExpress.Utils.ImageCollection, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.Utils.ImageCollection, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;ttToolTip.Name" xml:space="preserve"> <data name="&gt;&gt;ttToolTip.Name" xml:space="preserve">
<value>ttToolTip</value> <value>ttToolTip</value>
@ -2752,7 +2752,7 @@
<value>ToolTipController</value> <value>ToolTipController</value>
</data> </data>
<data name="&gt;&gt;ToolTipController.Type" xml:space="preserve"> <data name="&gt;&gt;ToolTipController.Type" xml:space="preserve">
<value>DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmConstructor_Main</value> <value>frmConstructor_Main</value>

15
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@ -4796,13 +4796,13 @@ Public Class frmConstructor_Main
Exit Sub Exit Sub
End If End If
Try Try
Dim row = grvwGrid.GetDataRow(e.RowHandle) Dim rowCellValue = grvwGrid.GetRowCellValue(e.RowHandle, "COLOR")
Dim itemvalue = row.Item("COLOR") If rowCellValue <> "" Then
If itemvalue <> "" Then Dim Color As Color = Color.FromArgb(rowCellValue)
Console.WriteLine("RowColor: " & itemvalue) ' Dim c As Color = DirectCast(rowCellValue, Color)
e.Appearance.BackColor = ColorTranslator.FromWin32(CInt(itemvalue)) e.Appearance.BackColor = Color
e.HighPriority = True
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical) MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try End Try
@ -5339,4 +5339,7 @@ Public Class frmConstructor_Main
#End Region #End Region
Private Sub grvwGrid_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) Handles grvwGrid.CellValueChanged
End Sub
End Class End Class