Better Config, Clean Up, Add Demo Groups

This commit is contained in:
Jonathan Jenne
2019-07-16 14:59:32 +02:00
parent a8ec4e8fd4
commit 0205f583c3
9 changed files with 216 additions and 165 deletions

View File

@@ -61,13 +61,13 @@ Public Class frmDocView
ResetSearch()
UpdateMainUi()
If ConfigManager.Config.ViewerWindowX > 0 And ConfigManager.Config.ViewerWindowY > 0 Then
Dim oLocation As New Point(ConfigManager.Config.ViewerWindowX, ConfigManager.Config.ViewerWindowY)
Location = oLocation
If Not ConfigManager.Config.ViewerWindowLocation.IsEmpty Then
Location = ConfigManager.Config.ViewerWindowLocation
End If
Dim oSize As New Size(ConfigManager.Config.ViewerWindowWidth, ConfigManager.Config.ViewerWindowHeight)
Size = oSize
If Not ConfigManager.Config.ViewerWindowSize.IsEmpty Then
Size = ConfigManager.Config.ViewerWindowSize
End If
End Sub
Public Sub Load_File_from_Path(filepath As String)
@@ -755,10 +755,8 @@ Public Class frmDocView
Private Sub frmDocView_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Try
ConfigManager.Config.ViewerWindowHeight = Size.Height
ConfigManager.Config.ViewerWindowWidth = Size.Width
ConfigManager.Config.ViewerWindowX = Location.X
ConfigManager.Config.ViewerWindowY = Location.Y
ConfigManager.Config.ViewerWindowLocation = Location
ConfigManager.Config.ViewerWindowSize = Size
ConfigManager.Save()
Catch ex As Exception
Logger.Error(ex)