MS
This commit is contained in:
@@ -37,6 +37,7 @@ Public Class frmMain
|
||||
|
||||
|
||||
Private DT_CHECKUSER_MODULE As DataTable
|
||||
Private IsFilterMode As Boolean
|
||||
|
||||
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Try
|
||||
@@ -856,7 +857,7 @@ Public Class frmMain
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If BASEDATA_DT_VW_PROFILE_USER.Rows.Count > 0 Then
|
||||
If CURR_DT_OVERVIEW.Rows.Count > 0 Then
|
||||
Dim oMessage As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("App.ReminderPipeline")
|
||||
NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info)
|
||||
End If
|
||||
@@ -882,10 +883,10 @@ Public Class frmMain
|
||||
TimerRefresh.Enabled = False
|
||||
End If
|
||||
|
||||
If CHANGES_IN_ADMINISTRATION = True Then
|
||||
If CHANGES_FORM_DESIGN = True Then
|
||||
LoadCURRENT_DT_PROFILES()
|
||||
LoadVWPM_CONTROL_INDEX()
|
||||
CHANGES_IN_ADMINISTRATION = False
|
||||
CHANGES_FORM_DESIGN = False
|
||||
End If
|
||||
|
||||
Dim oExpression = $"GUID = {CURRENT_ProfilGUID}"
|
||||
@@ -1484,52 +1485,15 @@ Public Class frmMain
|
||||
RefreshHelper.LoadViewInfo()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub GridView1_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs)
|
||||
Try
|
||||
Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
|
||||
Dim view As GridView = sender
|
||||
Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
|
||||
' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item)
|
||||
|
||||
If info.Column.FieldName = "PROFILE_GROUP_TEXT" Or info.Column.FieldName = "GROUP_TEXT" Then
|
||||
info.GroupText = info.GroupValueText
|
||||
|
||||
Dim _color As String = "Grey"
|
||||
|
||||
For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
|
||||
If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then
|
||||
_color = row.Item("PROFILE_GROUP_COLOR")
|
||||
ElseIf row.Item("GROUP_TEXT") = info.GroupValueText Then
|
||||
_color = row.Item("GROUP_COLOR")
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
Select Case _color
|
||||
Case "Red"
|
||||
info.Appearance.BackColor = Color.LightSalmon
|
||||
Case "Green"
|
||||
info.Appearance.BackColor = Color.LightGreen
|
||||
Case "Yellow"
|
||||
info.Appearance.BackColor = Color.LightYellow
|
||||
Case "Grey"
|
||||
info.Appearance.BackColor = Color.LightGray
|
||||
End Select
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick
|
||||
Item_Scope("DOUBLECLICK")
|
||||
End Sub
|
||||
|
||||
Private Sub GridView_Docs_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridView_Docs.CustomDrawGroupRow
|
||||
Try
|
||||
If formShown = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
|
||||
Dim view As GridView = sender
|
||||
Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
|
||||
@@ -1538,29 +1502,77 @@ Public Class frmMain
|
||||
If info.Column.FieldName = "GROUP_TEXT" Then
|
||||
info.GroupText = info.GroupValueText
|
||||
|
||||
Dim _color As String = "Grey"
|
||||
Dim _color As String = "LightGray"
|
||||
Dim _FontColor As String = "Black"
|
||||
Dim oFoundConfig As Boolean = False
|
||||
|
||||
For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
|
||||
LOGGER.Debug($"CustomDrawGroupRow: Working on ProfileID [{row.Item("GUID")}]...")
|
||||
If row.Item("GROUP_TEXT") = info.GroupValueText Then
|
||||
oFoundConfig = True
|
||||
_color = row.Item("GROUP_COLOR")
|
||||
_FontColor = row.Item("GROUP_FONT_COLOR")
|
||||
End If
|
||||
Next
|
||||
If oFoundConfig = False Then
|
||||
LOGGER.Info($"CustomDrawGroupRow: Could not find a ColorConfig for ProfileGroupValueText [{info.GroupValueText}]...")
|
||||
End If
|
||||
Dim oColor As Color
|
||||
Dim oFontColor As Color
|
||||
Try
|
||||
If _color.Contains(";") Or _color.Contains(".") Then
|
||||
Dim oColorSplit As String()
|
||||
If _color.Contains(";") Then
|
||||
oColorSplit = _color.Split(";")
|
||||
ElseIf _color.Contains(".") Then
|
||||
oColorSplit = _color.Split(".")
|
||||
End If
|
||||
|
||||
|
||||
Try
|
||||
oColor = Color.FromArgb(oColorSplit(0), oColorSplit(1), oColorSplit(2))
|
||||
Catch ex As Exception
|
||||
LOGGER.Info($"CustomDrawGroupRow: Could not get Color.FromArgb [{_color}]")
|
||||
oColor = Color.LightGray
|
||||
End Try
|
||||
|
||||
Else
|
||||
Try
|
||||
oColor = Color.FromName(_color)
|
||||
Catch ex As Exception
|
||||
LOGGER.Info($"CustomDrawGroupRow: Could not get Color.FromName [{_color}]")
|
||||
oColor = Color.LightGray
|
||||
End Try
|
||||
|
||||
End If
|
||||
If _FontColor.Contains(";") Then
|
||||
Try
|
||||
oFontColor = Color.FromArgb(_FontColor)
|
||||
Catch ex As Exception
|
||||
LOGGER.Info($"CustomDrawGroupRow: Could not get Color.FromArgb [{_FontColor}]")
|
||||
oFontColor = Color.Black
|
||||
End Try
|
||||
|
||||
Else
|
||||
Try
|
||||
oFontColor = Color.FromName(_FontColor)
|
||||
Catch ex As Exception
|
||||
LOGGER.Info($"CustomDrawGroupRow(FC): Could not get Color.FromName [{_FontColor}]")
|
||||
oFontColor = Color.Black
|
||||
End Try
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Info($"CustomDrawGroupRow(FC): Error getting Color [{_FontColor}]")
|
||||
oColor = Color.LightGray
|
||||
End Try
|
||||
info.Appearance.BackColor = oColor
|
||||
info.Appearance.ForeColor = oFontColor
|
||||
|
||||
Select Case _color
|
||||
Case "Red"
|
||||
info.Appearance.BackColor = Color.LightSalmon
|
||||
Case "Green"
|
||||
info.Appearance.BackColor = Color.LightGreen
|
||||
Case "Yellow"
|
||||
info.Appearance.BackColor = Color.LightYellow
|
||||
Case "Grey"
|
||||
info.Appearance.BackColor = Color.LightGray
|
||||
End Select
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@@ -1777,9 +1789,6 @@ Public Class frmMain
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub bbtnitemInfo_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitemInfo.ItemClick
|
||||
frmAbout.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub bbtniRefresh_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefresh.ItemClick
|
||||
If GridControl_Docs.Visible = True And formopenClose = False Then
|
||||
@@ -1880,9 +1889,64 @@ Public Class frmMain
|
||||
End Sub
|
||||
|
||||
Private Sub OutOfRangePMFixierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OutOfRangePMFixierenToolStripMenuItem.Click
|
||||
|
||||
Dim myPoint As Point = New Point(50, 50)
|
||||
Me.Location = Screen.AllScreens(UBound(Screen.AllScreens)).Bounds.Location + myPoint
|
||||
BringMonitor2Front()
|
||||
End Sub
|
||||
|
||||
Private Sub GridView_Docs_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridView_Docs.RowStyle
|
||||
If formShown = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
If e.RowHandle = -1 Then
|
||||
IsFilterMode = True
|
||||
Exit Sub
|
||||
End If
|
||||
If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
|
||||
IsFilterMode = True
|
||||
' e.Appearance.BackColor = Color.Yellow
|
||||
Else
|
||||
IsFilterMode = False
|
||||
Try
|
||||
Dim oRowColorCellValue = GridView_Docs.GetRowCellValue(e.RowHandle, "ROW_COLOR")
|
||||
If Not IsNothing(oRowColorCellValue) Then
|
||||
Dim oColor As Color
|
||||
Try
|
||||
If oRowColorCellValue.ToString.Contains(";") Or oRowColorCellValue.ToString.Contains(".") Then
|
||||
Dim oColorSplit As String()
|
||||
If oRowColorCellValue.Contains(";") Then
|
||||
oColorSplit = oRowColorCellValue.Split(";")
|
||||
ElseIf oRowColorCellValue.Contains(".") Then
|
||||
oColorSplit = oRowColorCellValue.Split(".")
|
||||
End If
|
||||
|
||||
|
||||
Try
|
||||
oColor = Color.FromArgb(oColorSplit(0), oColorSplit(1), oColorSplit(2))
|
||||
Catch ex As Exception
|
||||
LOGGER.Info($"RowColorHandler: Could not get Color.FromArgb [{oRowColorCellValue}]")
|
||||
oColor = Color.LightGray
|
||||
End Try
|
||||
Else
|
||||
Try
|
||||
oColor = Color.FromName(oRowColorCellValue)
|
||||
Catch ex As Exception
|
||||
LOGGER.Info($"RowColorHandler: Could not get Color.FromName [{oRowColorCellValue}]")
|
||||
End Try
|
||||
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Info("RowBackColor: " & ex.Message, False)
|
||||
Exit Sub
|
||||
End Try
|
||||
e.Appearance.BackColor = oColor
|
||||
e.HighPriority = True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Info("Unexpected Error in RowStyle: " & ex.Message, False)
|
||||
End Try
|
||||
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user