Imports EgtWPFLib5
Class MainWindow

   Public Sub Me_ContentRendered() Handles Me.ContentRendered
      Dim rfMainWindowViewModel As MainWindowViewModel = DirectCast(Me.DataContext, MainWindowViewModel)
      ' richiamo la sub che è stata costruita nel MainWindowViewModel
      Dim SceneManagerViewModel As SceneManagerViewModel = DirectCast(rfMainWindowViewModel.SceneManager.DataContext, SceneManagerViewModel)
      ' se è assente la chiave di protezione non mostro la finestra Launcher
      If SceneManagerViewModel.bProtectKey Then
         rfMainWindowViewModel.SetLauncher()
      End If
   End Sub

   Private Sub EgtCustomWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
      Dim rfMainWindowViewModel As MainWindowViewModel = DirectCast(Me.DataContext, MainWindowViewModel)
      ' Posizione e dimensioni del Form
      Dim WinPos As New WinPos
      GetPrivateProfileWinPos(S_GENERAL, K_WINPLACE, WinPos.nFlag, WinPos.nLeft, WinPos.nTop, WinPos.nWidth, WinPos.nHeight)
      rfMainWindowViewModel.WinPosToWindow(Me, WinPos)
   End Sub

End Class