Demetrio Cassarino
75 lines
3.1 KiB
VB.net
75 lines
3.1 KiB
VB.net
Public Class WindowStateIniBehavior
|
|
|
|
Private Shared ReadOnly IsReady As New Dictionary(Of Window, Boolean)
|
|
|
|
Public Shared Function GetPersistenceKey(obj As DependencyObject) As String
|
|
Return CStr(obj.GetValue(PersistenceKeyProperty))
|
|
End Function
|
|
|
|
Public Shared Sub SetPersistenceKey(obj As DependencyObject, value As String)
|
|
obj.SetValue(PersistenceKeyProperty, value)
|
|
End Sub
|
|
|
|
Public Shared ReadOnly PersistenceKeyProperty As DependencyProperty =
|
|
DependencyProperty.RegisterAttached(
|
|
"PersistenceKey",
|
|
GetType(String),
|
|
GetType(WindowStateIniBehavior),
|
|
New PropertyMetadata(Nothing, AddressOf OnKeyChanged)
|
|
)
|
|
|
|
Private Shared Sub OnKeyChanged(d As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim Window = TryCast(d, Window)
|
|
If IsNothing(Window) Then Return
|
|
|
|
IsReady(Window) = False
|
|
|
|
AddHandler Window.Loaded, Sub() LoadState(Window)
|
|
|
|
AddHandler Window.ContentRendered,
|
|
Sub()
|
|
IsReady(Window) = True
|
|
End Sub
|
|
|
|
AddHandler Window.LocationChanged, Sub() SaveState(Window)
|
|
AddHandler Window.SizeChanged, Sub() SaveState(Window)
|
|
End Sub
|
|
|
|
Private Shared Sub SaveState(Window As Window)
|
|
If Not IsReady(Window) Then Return
|
|
|
|
EgtUILib.WritePrivateProfileString(S_EXECUTEWINDOW, K_LEFT, Window.Left.ToString(), Map.refMainWindowVM.DimensionDir)
|
|
EgtUILib.WritePrivateProfileString(S_EXECUTEWINDOW, K_TOP, Window.Top.ToString(), Map.refMainWindowVM.DimensionDir)
|
|
EgtUILib.WritePrivateProfileString(S_EXECUTEWINDOW, K_WIDTH, Window.Width.ToString(), Map.refMainWindowVM.DimensionDir)
|
|
EgtUILib.WritePrivateProfileString(S_EXECUTEWINDOW, K_HEIGHT, Window.Height.ToString(), Map.refMainWindowVM.DimensionDir)
|
|
End Sub
|
|
|
|
Private Shared Sub LoadState(Window As Window)
|
|
Dim sLeft As String = String.Empty
|
|
Dim dLeft As Double = 0
|
|
EgtUILib.GetPrivateProfileString(S_EXECUTEWINDOW, K_LEFT, String.Empty, sLeft, Map.refMainWindowVM.DimensionDir)
|
|
If sLeft IsNot String.Empty Then StringToDouble(sLeft, dLeft)
|
|
|
|
Dim sTopD As String = String.Empty
|
|
Dim dTop As Double = 0.0
|
|
EgtUILib.GetPrivateProfileString(S_EXECUTEWINDOW, K_TOP, String.Empty, sTopD, Map.refMainWindowVM.DimensionDir)
|
|
If sTopD IsNot String.Empty Then StringToDouble(sTopD, dTop)
|
|
|
|
Dim sWidth As String = String.Empty
|
|
Dim dWidth As Double = 0.0
|
|
EgtUILib.GetPrivateProfileString(S_EXECUTEWINDOW, K_WIDTH, String.Empty, sWidth, Map.refMainWindowVM.DimensionDir)
|
|
If sWidth IsNot String.Empty Then StringToDouble(sWidth, dWidth)
|
|
|
|
Dim sHeight As String = String.Empty
|
|
Dim dHeight As Double = 0.0
|
|
EgtUILib.GetPrivateProfileString(S_EXECUTEWINDOW, K_HEIGHT, String.Empty, sHeight, Map.refMainWindowVM.DimensionDir)
|
|
If sWidth IsNot String.Empty Then StringToDouble(sHeight, dHeight)
|
|
|
|
If dLeft > 0 Then Window.Left = dLeft
|
|
If dTop > 0 Then Window.Top = dTop
|
|
If dWidth > 0 Then Window.Width = dWidth
|
|
If dHeight > 0 Then Window.Height = dHeight
|
|
End Sub
|
|
|
|
End Class
|