Imports System.ComponentModel
Imports System.IO
Imports EgtUILib

Public Class OpenProjectFileDialogV

   Private WithEvents m_OpenProjFileDialogVM As OpenProjectFileDialogVM

#Region "CONSTRUCTOR"

   Sub New(Owner As Window, OpenProjFileDialogVM As OpenProjectFileDialogVM)
      ' Funzione che interpreta l'xaml
      InitializeComponent()
      Me.Owner = Owner
      Me.DataContext = OpenProjFileDialogVM
      ' Assegno al riferimento locale al VM il VM preso dal DataContext
      m_OpenProjFileDialogVM = OpenProjFileDialogVM
   End Sub

#End Region    ' CONSTRUCTOR

#Region "METHODS"

   Public Function EgtShowDialog(ProjectType As ProjectType) As Boolean?
      m_OpenProjFileDialogVM.Init(ProjectType)
      ' mostro la finestra di dialogo
      Return Me.ShowDialog()
   End Function
   Public Function EgtShowDialog(ProjectType As ProjectType, ProjectList As List(Of ProjFileVM)) As Boolean?
      m_OpenProjFileDialogVM.Init(ProjectType, ProjectList)
      ' mostro la finestra di dialogo
      Return Me.ShowDialog()
   End Function

#End Region    ' METHODS

#Region "EVENTS"


   'Private Sub MainWindowV_ContentRendered(sender As Object, e As EventArgs) Handles Me.ContentRendered
   '   m_MainWindowVM.ContentRendered()
   'End Sub

#End Region    ' EVENTS


   'Private Sub m_FileNameTxBl_MouseDown(sender As Object, e As Windows.Input.MouseButtonEventArgs) Handles FileNameList.MouseDoubleClick
   '   Dim src As DependencyObject = VisualTreeHelper.GetParent(DirectCast(e.OriginalSource, DependencyObject))
   '   ' verifico che venga clickato un item, non lo spazio vuoto o la scrollbar
   '   If Not TypeOf src Is ListBoxItem Then
   '      src = Utility.FindAncestor(Of ListBoxItem)(src)
   '   End If
   '   If IsNothing(src) OrElse src.[GetType]() <> GetType(ListBoxItem) Then
   '      e.Handled = True
   '   Else
   '      If Not IsNothing(m_SelectedFile) Then
   '         m_FileName = SelectedFile
   '         DialogResult = True
   '      End If
   '   End If
   'End Sub

   Private Sub OpenBtn_Click(sender As Object, e As RoutedEventArgs) Handles OpenBtn.Click
      DialogResult = m_OpenProjFileDialogVM.VerifySelected()
   End Sub

   Private Sub CloseWindow(bDialogResult As Boolean) Handles m_OpenProjFileDialogVM.m_CloseWindow
      Me.DialogResult = bDialogResult
   End Sub

End Class