TaskFlow/app/DD_PM_WINDREAM/ClassRefreshHelper.vb

Imports System
Imports System.Collections
Imports DevExpress.XtraGrid
Imports DevExpress.Utils
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Grid

Public Class RefreshHelper
    <Serializable>
    Public Structure RowInfo
        Public Id As Object
        Public level As Integer
    End Structure

    Private view As GridView
    Private keyFieldName As String

    Private saveExpList_Renamed As ArrayList

    Private saveSelList_Renamed As ArrayList

    Private saveMasterRowsList_Renamed As ArrayList
    Private visibleRowIndex As Integer = -1

    Public Sub New(ByVal view As GridView, ByVal keyFieldName As String)
        Me.view = view
        Me.keyFieldName = keyFieldName
    End Sub

    Public ReadOnly Property SaveExpList() As ArrayList
        Get
            If saveExpList_Renamed Is Nothing Then
                saveExpList_Renamed = New ArrayList()
            End If
            Return saveExpList_Renamed
        End Get
    End Property

    Public ReadOnly Property SaveSelList() As ArrayList
        Get
            If saveSelList_Renamed Is Nothing Then
                saveSelList_Renamed = New ArrayList()
            End If
            Return saveSelList_Renamed
        End Get
    End Property

    Public ReadOnly Property SaveMasterRowsList() As ArrayList
        Get
            If saveMasterRowsList_Renamed Is Nothing Then
                saveMasterRowsList_Renamed = New ArrayList()
            End If
            Return saveMasterRowsList_Renamed
        End Get
    End Property

    Protected Function FindParentRowHandle(ByVal rowInfo As RowInfo, ByVal rowHandle As Integer) As Integer
        Dim result As Integer = view.GetParentRowHandle(rowHandle)
        Do While view.GetRowLevel(result) <> rowInfo.level
            result = view.GetParentRowHandle(result)
        Loop
        Return result
    End Function

    Protected Sub ExpandRowByRowInfo(ByVal rowInfo As RowInfo)
        Dim dataRowHandle As Integer = view.LocateByValue(0, view.Columns(keyFieldName), rowInfo.Id)
        If dataRowHandle <> GridControl.InvalidRowHandle Then
            Dim parentRowHandle As Integer = FindParentRowHandle(rowInfo, dataRowHandle)
            view.SetRowExpanded(parentRowHandle, True, False)
        End If
    End Sub

    Protected Function GetRowHandleToSelect(ByVal rowInfo As RowInfo) As Integer
        Dim dataRowHandle As Integer = view.LocateByValue(0, view.Columns(keyFieldName), rowInfo.Id)
        If dataRowHandle <> GridControl.InvalidRowHandle Then
            If view.GetRowLevel(dataRowHandle) <> rowInfo.level Then
                Return FindParentRowHandle(rowInfo, dataRowHandle)
            End If
        End If
        Return dataRowHandle
    End Function

    Protected Sub SelectRowByRowInfo(ByVal rowInfo As RowInfo, ByVal isFocused As Boolean)
        If isFocused Then
            view.FocusedRowHandle = GetRowHandleToSelect(rowInfo)
        Else
            view.SelectRow(GetRowHandleToSelect(rowInfo))
        End If
    End Sub

    Public Sub SaveSelectionViewInfo(ByVal list As ArrayList)
        list.Clear()
        Dim column As GridColumn = view.Columns(keyFieldName)
        Dim rowInfo As RowInfo
        Dim selectionArray() As Integer = view.GetSelectedRows()
        If selectionArray IsNot Nothing Then ' otherwise we have a single focused but not selected row
            For i As Integer = 0 To selectionArray.Length - 1
                Dim dataRowHandle As Integer = selectionArray(i)
                rowInfo.level = view.GetRowLevel(dataRowHandle)
                If dataRowHandle < 0 Then ' group row
                    dataRowHandle = view.GetDataRowHandleByGroupRowHandle(dataRowHandle)
                End If
                rowInfo.Id = view.GetRowCellValue(dataRowHandle, column)
                list.Add(rowInfo)
            Next i
        End If
        rowInfo.Id = view.GetRowCellValue(view.FocusedRowHandle, column)
        rowInfo.level = view.GetRowLevel(view.FocusedRowHandle)
        list.Add(rowInfo)
    End Sub

    Public Sub SaveExpansionViewInfo(ByVal list As ArrayList)
        If view.GroupedColumns.Count = 0 Then
            Return
        End If
        list.Clear()
        Dim column As GridColumn = view.Columns(keyFieldName)
        For i As Integer = -1 To Integer.MinValue + 1 Step -1
            If Not view.IsValidRowHandle(i) Then
                Exit For
            End If
            If view.GetRowExpanded(i) Then
                Dim rowInfo As RowInfo
                Dim dataRowHandle As Integer = view.GetDataRowHandleByGroupRowHandle(i)
                rowInfo.Id = view.GetRowCellValue(dataRowHandle, column)
                rowInfo.level = view.GetRowLevel(i)
                list.Add(rowInfo)
            End If
        Next i
    End Sub

    Public Sub SaveExpandedMasterRows(ByVal list As ArrayList)
        If view.GridControl.Views.Count = 1 Then
            Return
        End If
        list.Clear()
        Dim column As GridColumn = view.Columns(keyFieldName)
        For i As Integer = 0 To view.DataRowCount - 1
            If view.GetMasterRowExpanded(i) Then
                list.Add(view.GetRowCellValue(i, column))
            End If
        Next i
    End Sub

    Public Sub SaveVisibleIndex()
        visibleRowIndex = view.GetVisibleIndex(view.FocusedRowHandle) - view.TopRowIndex
    End Sub

    Public Sub LoadVisibleIndex()
        Try
            view.MakeRowVisible(view.FocusedRowHandle, True)
            view.TopRowIndex = view.GetVisibleIndex(view.FocusedRowHandle) - visibleRowIndex
        Catch ex As Exception

        End Try

    End Sub

    Public Sub LoadSelectionViewInfo(ByVal list As ArrayList)
        view.BeginSelection()
        Try
            view.ClearSelection()
            For i As Integer = 0 To list.Count - 1
                SelectRowByRowInfo(DirectCast(list(i), RowInfo), i = list.Count - 1)
            Next i
        Finally
            view.EndSelection()
        End Try
    End Sub

    Public Sub LoadExpansionViewInfo(ByVal list As ArrayList)
        If view.GroupedColumns.Count = 0 Then
            Return
        End If
        view.BeginUpdate()
        Try
            view.CollapseAllGroups()
            For Each info As RowInfo In list
                ExpandRowByRowInfo(info)
            Next info
        Finally
            view.EndUpdate()
        End Try
    End Sub

    Public Sub LoadExpandedMasterRows(ByVal list As ArrayList)
        view.BeginUpdate()
        Try
            view.CollapseAllDetails()
            Dim column As GridColumn = view.Columns(keyFieldName)
            For i As Integer = 0 To list.Count - 1
                Dim rowHandle As Integer = view.LocateByValue(0, column, list(i))
                view.SetMasterRowExpanded(rowHandle, True)
            Next i
        Finally
            view.EndUpdate()
        End Try
    End Sub

    Public Sub SaveViewInfo()
        Try
            SaveExpandedMasterRows(SaveMasterRowsList)
            SaveExpansionViewInfo(SaveExpList)
            SaveSelectionViewInfo(SaveSelList)
            SaveVisibleIndex()
        Catch ex As Exception

        End Try


    End Sub

    Public Sub LoadViewInfo()
        Try
            LoadExpandedMasterRows(SaveMasterRowsList)
            LoadExpansionViewInfo(SaveExpList)
            LoadSelectionViewInfo(SaveSelList)
            LoadVisibleIndex()
        Catch ex As Exception

        End Try

    End Sub
    Public Class SW
        Public label As String
        Public stopwatch As Stopwatch

        Public Sub New(label As String)
            Me.label = label
            stopwatch = New Stopwatch()
            stopwatch.Start()
        End Sub

        Public Function Done() As Long
            If LOGCONFIG.Debug = False Then
                Return 0
            End If

            stopwatch.Stop()
            Dim ts As TimeSpan = stopwatch.Elapsed

            Dim timespan_ = String.Format("{0:00}:{1:00}.{2:00}", ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
            If ts.Minutes > 0 Then
                timespan_ = String.Format("{0:00}:{1:00}.{2:00}", ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
            ElseIf ts.Seconds > 0 And (ts.Minutes > 0) = False Then
                timespan_ = String.Format("{0:00}.{1:00} seconds", ts.Seconds, ts.Milliseconds / 10)
            ElseIf (ts.Seconds > 0) = False And ts.Milliseconds > 0 Then
                timespan_ = String.Format("{0:00}.{1:00} seconds", ts.Seconds, ts.Milliseconds / 10)
            End If
            If timespan_ <> "00:00.00" Then
                Dim message = String.Format("PerformanceWatch {0} || {1}", timespan_, label)

                If LOGCONFIG.Debug = True Then
                    LOGGER.Debug(message)
                End If

            End If
            Return stopwatch.ElapsedMilliseconds
        End Function


    End Class
End Class