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

GroupingColumns and LookupBriongtoFront

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-05-22 10:16:11 +02:00
parent 92834d89a4
commit 8dc00e0383
5 changed files with 175 additions and 141 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -7,6 +7,7 @@ Imports DevExpress.XtraGrid
Imports DevExpress.XtraNavBar
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraCharts
Imports DevExpress.XtraGrid.Views.Base
Public Class frmMain
'Private _windreamPM As ClassPMWindream
@@ -228,7 +229,7 @@ Public Class frmMain
End Try
End Function
Private Function GetXML_LayoutName()
Dim Filename As String = String.Format("GridView_Docs_UserLayout_{0}.xml", GRID_LOAD_TYPE)
Dim Filename As String = String.Format("GridViewOverview_UserLayout_{0}.xml", GRID_LOAD_TYPE)
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
End Function
@@ -251,8 +252,8 @@ Public Class frmMain
End If
Try
Dim xml As String = GetXML_LayoutName()
GridView_Docs.RestoreLayoutFromXml(xml, OptionsLayoutBase.FullLayout)
Dim oXml As String = GetXML_LayoutName()
GridView_Docs.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout)
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error while restoring layout: " & ex.Message)
@@ -752,7 +753,7 @@ Public Class frmMain
GridView_Docs.GroupedColumns(I).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
Next
GridView_Docs.OptionsBehavior.AutoExpandAllGroups = True
'GridView_Docs.OptionsBehavior.AutoExpandAllGroups = False
GridView_Docs.OptionsView.ShowGroupedColumns = False
Catch ex As Exception
LOGGER.Error(ex)
@@ -850,7 +851,6 @@ Public Class frmMain
SaveGridLayout()
Load_Profile_items()
Decide_Load()
RestoreLayout()
End Sub
Private Sub ToolStripButton2_Click_2(sender As Object, e As EventArgs)
@@ -940,6 +940,7 @@ Public Class frmMain
End Sub
Private Sub Item_Scope()
Try
'GridView_Docs.EndSelection()
CURRENT_JUMP_DOC_GUID = 0
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
Dim groupRowText
@@ -964,6 +965,7 @@ Public Class frmMain
If GRID_LOAD_TYPE = "OVERVIEW" Then
Try
groupRowText = LTrim(RTrim(groupRowText.ToString.Replace("PROFILE_GROUP_TEXT: ", "")))
groupRowText = LTrim(RTrim(groupRowText.ToString.Replace("GROUP_TEXT: ", "")))
Catch ex As Exception
groupRowText = LTrim(RTrim(groupRowText.ToString.Replace("GROUP_TEXT: ", "")))
End Try
@@ -1236,7 +1238,7 @@ Public Class frmMain
RestoreLayout()
Try
GridView_Docs.OptionsBehavior.AutoExpandAllGroups = True
GridView_Docs.OptionsBehavior.AutoExpandAllGroups = False
GridView_Docs.OptionsView.ShowGroupedColumns = False
GridView_Docs.OptionsView.ShowGroupPanel = False
Dim oindex As Integer = 0
@@ -1267,7 +1269,9 @@ Public Class frmMain
For index = 0 To GridView_Docs.GroupCount - 1
Dim v = GridView_Docs.GroupedColumns(index).ToString
LOGGER.Debug($"Addig tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...", False)
Dim sd = GridView_Docs.GroupedColumns(index).GetTextCaption
GridView_Docs.GroupedColumns(index).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
Next
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
@@ -1372,7 +1376,7 @@ Public Class frmMain
End Sub
Private Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click
Reset_GridLayout
Reset_GridLayout()
End Sub
Sub Reset_GridLayout()
@@ -1436,14 +1440,14 @@ Public Class frmMain
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" Then
If 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")
If row.Item("GROUP_TEXT") = info.GroupValueText Then
_color = row.Item("GROUP_COLOR")
End If
Next
@@ -1469,7 +1473,6 @@ Public Class frmMain
Dim view As GridView = sender
Dim hi As GridHitInfo = view.CalcHitInfo(e.Location)
Dim groupRowButtonClicked = (hi.HitTest = GridHitTest.RowGroupButton)
GridCursorLocation = e.Location
' wenn in eine Group Row Doppelt geklickt wurde..
If hi.InGroupRow And Not groupRowButtonClicked Then
@@ -1477,8 +1480,8 @@ Public Class frmMain
DXMouseEventArgs.GetMouseArgs(e).Handled = True
GridViewItem_Clicked = "GROUP"
'Dim info = hi.Column.FieldName
'Dim info1 = hi.ToString
Dim info = hi.Column.FieldName
Dim info1 = hi.ToString
Dim msg = ""
ElseIf hi.InDataRow Then
GridViewItem_Clicked = "ROW"
@@ -1487,23 +1490,17 @@ Public Class frmMain
End If
End Sub
Private Sub GroupToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GroupToolStripMenuItem.Click
If GridView_Docs.OptionsView.ShowGroupedColumns = True Then
GridView_Docs.OptionsView.ShowGroupedColumns = False
Else
GridView_Docs.OptionsView.ShowGroupedColumns = True
End If
Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridView_Docs.ColumnWidthChanged
SaveGridLayout()
End Sub
Private Sub GridView_Docs_MouseUp(sender As Object, e As MouseEventArgs) Handles GridView_Docs.MouseUp
Private Sub LayoutSpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LayoutSpeichernToolStripMenuItem.Click
SaveGridLayout()
End Sub
Private Sub GridControl_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridControl_Docs.DoubleClick
Private Sub GridView_Docs_GroupRowExpandCollapse(sender As Object, e As RowEventArgs) Handles GridView_Docs.GroupRowExpanded, GridView_Docs.GroupRowCollapsed
'GridView_Docs.EndSelection()
SaveGridLayout()
End Sub
Private Sub GridView_Docs_ValidateRow(sender As Object, e As Views.Base.ValidateRowEventArgs) Handles GridView_Docs.ValidateRow
End Sub
End Class