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

MSKW41

Browse Source
This commit is contained in:
SchreiberM
2016-10-14 13:27:47 +02:00
parent 4548dc3abc
commit 353f161c57
30 changed files with 1400 additions and 607 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
app/DD-Record-Organiser/ClassWindreamDocGrid.vb
View File

@@ -121,7 +121,7 @@ Public Class ClassWindreamDocGrid
End If
End Sub
Public Shared Sub FillColumns(gridView As GridView, DT_RESULT As DataTable, DT_WINDREAM_RESULTLIST As DataTable, DT_DOCRESULT_DROPDOWN_ITEMS As DataTable, DropdownValueChangedHandler As EventHandler, DatepickerValueChangedHandler As EventHandler, TextValueChangedHandler As EventHandler)
Public Shared Sub FillColumns(gridView As GridView, DT_RESULT As DataTable, DT_WINDREAM_RESULTLIST As DataTable, DT_DOCRESULT_DROPDOWN_ITEMS As DataTable, DropdownValueChangedHandler As EventHandler, DatepickerValueChangedHandler As EventHandler, TextValueChangedHandler As EventHandler, SearchType As String)
' Handler speichern
_dropdownValueChangedHandler = DropdownValueChangedHandler
_datepickerValueChangedHandler = DatepickerValueChangedHandler
@@ -137,7 +137,12 @@ Public Class ClassWindreamDocGrid
Dim guid As Integer = row.Item("GUID")
Dim typeID As Integer = row.Item("TYPE_ID")
Dim isVisible As Boolean = row.Item("VISIBLE")
Dim isEditable As Boolean = row.Item("EDITABLE")
Dim isEditable As Boolean
If SearchType = "RECORD" Then
isEditable = row.Item("EDITABLE")
Else
isEditable = False
End If
Dim columnTitle As String = row.Item("HEADER_CAPTION")
RESULT_CONFIG_IDS.Add(columnTitle, guid)
@@ -206,7 +211,13 @@ Public Class ClassWindreamDocGrid
Dim width As Integer = row.Item("WIDTH")
Dim typeID As Integer = row.Item("TYPE_ID")
Dim isVisible As Boolean = row.Item("VISIBLE")
Dim isEditable As Boolean = row.Item("EDITABLE")
Dim isEditable As Boolean
If SearchType = "RECORD" Then
isEditable = row.Item("EDITABLE")
Else
isEditable = False
End If
Dim columnTitle As String = row.Item("HEADER_CAPTION")
' Breite der Spalten setzen
@@ -228,10 +239,14 @@ Public Class ClassWindreamDocGrid
If Not IsNothing(col) Then
col.ColumnEdit = textedit
col.OptionsColumn.AllowEdit = True
col.AppearanceCell.BackColor = Color.LightCyan
End If
' Handler zuweisen
AddHandler textedit.Leave, _textValueChangedHandler
'ElseIf typeID = 1 And isVisible And isEditable = False Then
' Dim col As GridColumn = gridView.Columns(columnTitle)
' col.AppearanceCell.BackColor = Color.WhiteSmoke
End If
If typeID = 2 And isVisible Then
@@ -248,6 +263,7 @@ Public Class ClassWindreamDocGrid
If isEditable Then
col.OptionsColumn.AllowEdit = True
col.AppearanceCell.BackColor = Color.LightCyan
Else
col.OptionsColumn.AllowEdit = False
End If
@@ -263,6 +279,7 @@ Public Class ClassWindreamDocGrid
If Not IsNothing(col) Then
col.ColumnEdit = dateedit
col.OptionsColumn.AllowEdit = True
col.AppearanceCell.BackColor = Color.LightGray
col.DisplayFormat.FormatType = FormatType.DateTime
col.DisplayFormat.FormatString = CURRENT_DATE_FORMAT '& " HH:MM:ss"
End If
@@ -294,9 +311,13 @@ Public Class ClassWindreamDocGrid
If Not IsNothing(col) Then
col.OptionsColumn.AllowEdit = True
col.ColumnEdit = dropdown
col.AppearanceCell.BackColor = Color.LightCyan
End If
' Handler zuweisen
AddHandler dropdown.SelectedValueChanged, _dropdownValueChangedHandler
'ElseIf typeID = 4 And isVisible And isEditable = False Then
' Dim col As GridColumn = gridView.Columns(columnTitle)
' col.AppearanceCell.BackColor = Color.WhiteSmoke
End If
Next
End Sub