BugFix und WMFileCreate

This commit is contained in:
Digital Data - Marlon Schreiber
2019-05-24 10:22:47 +02:00
parent 54afd3754f
commit 3338f01501
14 changed files with 683 additions and 969 deletions

View File

@@ -147,8 +147,13 @@ Public Class RefreshHelper
End Sub
Public Sub LoadVisibleIndex()
view.MakeRowVisible(view.FocusedRowHandle, True)
view.TopRowIndex = view.GetVisibleIndex(view.FocusedRowHandle) - visibleRowIndex
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)
@@ -193,17 +198,28 @@ Public Class RefreshHelper
End Sub
Public Sub SaveViewInfo()
SaveExpandedMasterRows(SaveMasterRowsList)
SaveExpansionViewInfo(SaveExpList)
SaveSelectionViewInfo(SaveSelList)
SaveVisibleIndex()
Try
SaveExpandedMasterRows(SaveMasterRowsList)
SaveExpansionViewInfo(SaveExpList)
SaveSelectionViewInfo(SaveSelList)
SaveVisibleIndex()
Catch ex As Exception
End Try
End Sub
Public Sub LoadViewInfo()
LoadExpandedMasterRows(SaveMasterRowsList)
LoadExpansionViewInfo(SaveExpList)
LoadSelectionViewInfo(SaveSelList)
LoadVisibleIndex()
Try
LoadExpandedMasterRows(SaveMasterRowsList)
LoadExpansionViewInfo(SaveExpList)
LoadSelectionViewInfo(SaveSelList)
LoadVisibleIndex()
Catch ex As Exception
End Try
End Sub
End Class