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

MS RowStyle NodeNavigation

Browse Source
This commit is contained in:
SchreiberM 2023-11-06 16:08:43 +01:00
parent bb739698a4
commit fc87dc05a9
1 changed files with 59 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

119
app/DD-Record-Organizer/frmNodeNavigation.vb
View File

@ -2799,75 +2799,74 @@ LOGGER.Error(ex)
'End Sub 'End Sub
Private Sub GridViewDoc_Search_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridViewDoc_Search.RowStyle Private Sub GridViewDoc_Search_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridViewDoc_Search.RowStyle
'TODO: Refactor RowStyle maybe If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
'If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then e.Appearance.BackColor = Color.Yellow
' e.Appearance.BackColor = Color.Yellow Else
'Else If e.RowHandle = -1 Then
' If e.RowHandle = -1 Then Exit Sub
' Exit Sub End If
' End If Try
' Try Dim rowCellValue = GridViewDoc_Search.GetRowCellValue(e.RowHandle, "in work?")
' Dim rowCellValue = GridViewDoc_Search.GetRowCellValue(e.RowHandle, "in work?") If Not IsNothing(rowCellValue) Then
' If Not IsNothing(rowCellValue) Then Dim inwork = rowCellValue
' Dim inwork = rowCellValue If inwork = True Then
' If inwork = True Then e.Appearance.BackColor = Color.Orchid
' e.Appearance.BackColor = Color.Orchid e.HighPriority = True
' e.HighPriority = True End If
' End If End If
' End If Catch ex As Exception
' Catch ex As Exception LOGGER.Warn("Unexpected Error in Checking Value In Work: " & ex.Message)
' LOGGER.Warn("Unexpected Error in Checking Value In Work: " & ex.Message) End Try
' End Try
' Try Try
' Dim DROPDOWN_VALUE Dim DROPDOWN_VALUE
' If Not IsNothing(DT_DOCRESULT_DROPDOWN_ITEMS) Then If Not IsNothing(DT_DOCRESULT_DROPDOWN_ITEMS) Then
' 'Den ColumnTitle aus ConfigTableholen 'Den ColumnTitle aus ConfigTableholen
' If DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count > 0 Then If DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count > 0 Then
' For Each confrow As DataRow In DT_DOCRESULT_DROPDOWN_ITEMS.Rows For Each confrow As DataRow In DT_DOCRESULT_DROPDOWN_ITEMS.Rows
' Dim CAPTION = confrow.Item("HEADER_CAPTION") Dim CAPTION = confrow.Item("HEADER_CAPTION")
' DROPDOWN_VALUE = GridViewDoc_Search.GetRowCellValue(e.RowHandle, CAPTION) DROPDOWN_VALUE = GridViewDoc_Search.GetRowCellValue(e.RowHandle, CAPTION)
' If Not IsNothing(DROPDOWN_VALUE) Then If Not IsNothing(DROPDOWN_VALUE) Then
' Exit For Exit For
' End If End If
' Next Next
' If Not IsNothing(DROPDOWN_VALUE) Then If Not IsNothing(DROPDOWN_VALUE) Then
' Dim ColorRow As Color Dim ColorRow As Color
' Dim expression As String = String.Format("VALUE = '{0}'", DROPDOWN_VALUE) Dim expression As String = String.Format("VALUE = '{0}'", DROPDOWN_VALUE)
' Dim matchingRows() As DataRow = DT_DOCRESULT_DROPDOWN_ITEMS.Select(expression, "SEQUENCE") Dim matchingRows() As DataRow = DT_DOCRESULT_DROPDOWN_ITEMS.Select(expression, "SEQUENCE")
' Dim rowcolorname As String = "" Dim rowcolorname As String = ""
' 'Die Color für den value auswählen 'Die Color für den value auswählen
' For Each matchingRow As DataRow In matchingRows For Each matchingRow As DataRow In matchingRows
' rowcolorname = "" rowcolorname = ""
' If Not IsDBNull(matchingRow.Item("COLOR")) Then If Not IsDBNull(matchingRow.Item("COLOR")) Then
' rowcolorname = matchingRow.Item("COLOR") rowcolorname = matchingRow.Item("COLOR")
' End If End If
' If rowcolorname <> "" Then If rowcolorname <> "" Then
' Exit For Exit For
' End If End If
' Next Next
' If rowcolorname <> "" Then If rowcolorname <> "" Then
' ColorRow = Color.FromName(rowcolorname) ColorRow = Color.FromName(rowcolorname)
' e.Appearance.BackColor = ColorRow e.Appearance.BackColor = ColorRow
' e.HighPriority = True e.HighPriority = True
' End If End If
' 'Dim c As Color = DirectCast(rowCellValue, Color) 'Dim c As Color = DirectCast(rowCellValue, Color)
' End If End If
' End If End If
' End If End If
' Catch ex As Exception Catch ex As Exception
' LOGGER.Error(ex) LOGGER.Error(ex)
' LOGGER.Warn("Unexpected Error in RowStyle-Color Dropdown: " & ex.Message) LOGGER.Warn("Unexpected Error in RowStyle-Color Dropdown: " & ex.Message)
' End Try End Try
'End If End If
End Sub End Sub
Private Async Function BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) As Task Handles BbtnitmNodeReorder.ItemClick Private Async Function BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) As Task Handles BbtnitmNodeReorder.ItemClick