AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ms 13_01_16

Browse Source
This commit is contained in:
SchreiberM
2016-01-13 16:35:58 +01:00
parent c069274020
commit 2a36cc2a79
32 changed files with 1193 additions and 869 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Global_Indexer/ClassLayout.vb
View File

@@ -5,8 +5,7 @@ Public Class ClassWindowLocation
Public Shared Sub LoadFormLocationSize(ByRef form As Form)
Try
Dim _path As String
_path = Path.Combine(Application.UserAppDataPath(), "FORM" & form.Name & "-PositionSize.xml")
_path = Path.Combine(Application.UserAppDataPath(), "frm" & form.Name & "-Layout.xml")
Dim layout As ClassLayout = New ClassLayout(_path)
Dim settings As System.Collections.Generic.List(Of ClassSetting)
settings = layout.Load()
@@ -32,10 +31,12 @@ Public Class ClassWindowLocation
h = Integer.Parse(s._value)
End Select
Next
Dim screenWidth As Integer = Screen.PrimaryScreen.Bounds.Width
Dim screenHeight As Integer = Screen.PrimaryScreen.Bounds.Height
If x = 5000 Then
form.WindowState = FormWindowState.Maximized
Else
If x > 0 And y > 0 Then
If x >= 0 And y >= 0 Then
form.Location = New Point(x, y)
End If
If w > 0 And h > 0 Then
@@ -54,7 +55,7 @@ Public Class ClassWindowLocation
Public Shared Sub SaveFormLocationSize(ByRef form As Form)
Try
Dim _path As String
_path = Path.Combine(Application.UserAppDataPath(), "FORM" & form.Name & "-PositionSize.xml")
_path = Path.Combine(Application.UserAppDataPath(), "frm" & form.Name & "-Layout.xml")
Dim layout As ClassLayout = New ClassLayout(_path)
Dim settings As System.Collections.Generic.List(Of ClassSetting) = New System.Collections.Generic.List(Of ClassSetting)
@@ -88,8 +89,6 @@ Public Class ClassWindowLocation
End Sub
End Class