Common: small tweaks

This commit is contained in:
Jonathan Jenne 2021-06-07 15:16:14 +02:00
parent c411730b6c
commit 6152c6bae4

View File

@ -551,7 +551,6 @@ Public Class frmDocumentResultList
If _Config IsNot Nothing And _IsLoading = False Then If _Config IsNot Nothing And _IsLoading = False Then
_Config.Config.SplitContainer1Horizontal = SwitchMainContainerHorizontal.Checked _Config.Config.SplitContainer1Horizontal = SwitchMainContainerHorizontal.Checked
_Config.Save()
End If End If
End Sub End Sub
@ -560,7 +559,6 @@ Public Class frmDocumentResultList
If _Config IsNot Nothing And _IsLoading = False Then If _Config IsNot Nothing And _IsLoading = False Then
_Config.Config.SplitContainer2Horizontal = SwitchDetailContainerHorizontal.Checked _Config.Config.SplitContainer2Horizontal = SwitchDetailContainerHorizontal.Checked
_Config.Save()
End If End If
End Sub End Sub
@ -592,14 +590,12 @@ Public Class frmDocumentResultList
Private Sub SplitContainerControl1_SplitterPositionChanged(sender As Object, e As EventArgs) Handles SplitContainerControl1.SplitterPositionChanged Private Sub SplitContainerControl1_SplitterPositionChanged(sender As Object, e As EventArgs) Handles SplitContainerControl1.SplitterPositionChanged
If _IsLoading = False Then If _IsLoading = False Then
_Config.Config.SplitContainer1Distance = SplitContainerControl1.SplitterPosition _Config.Config.SplitContainer1Distance = SplitContainerControl1.SplitterPosition
_Config.Save()
End If End If
End Sub End Sub
Private Sub SplitContainerControl2_SplitterPositionChanged(sender As Object, e As EventArgs) Handles SplitContainerControl2.SplitterPositionChanged Private Sub SplitContainerControl2_SplitterPositionChanged(sender As Object, e As EventArgs) Handles SplitContainerControl2.SplitterPositionChanged
If _IsLoading = False Then If _IsLoading = False Then
_Config.Config.SplitContainer2Distance = SplitContainerControl2.SplitterPosition _Config.Config.SplitContainer2Distance = SplitContainerControl2.SplitterPosition
_Config.Save()
End If End If
End Sub End Sub
@ -744,8 +740,10 @@ Public Class frmDocumentResultList
Close() Close()
End Sub End Sub
Private Sub frmDocumentResultList_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing Private Sub frmDocumentResultList_Closing(sender As Object, e As CancelEventArgs) Handles Me.FormClosing
Try Try
GridViewSave_Layout(_ActiveGrid.MainView)
_Config.Config.WindowLocation = Location _Config.Config.WindowLocation = Location
_Config.Config.WindowSize = Size _Config.Config.WindowSize = Size
_Config.Save() _Config.Save()
@ -824,9 +822,7 @@ Public Class frmDocumentResultList
End If End If
End Sub End Sub
Private Sub frmDocumentResultList_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
GridViewSave_Layout(_ActiveGrid.MainView)
End Sub
Private _DragBoxFromMouseDown As Rectangle Private _DragBoxFromMouseDown As Rectangle
Private _ScreenOffset As Point Private _ScreenOffset As Point