EgtDOORCreator 1.8d1 :

- modifiche e migliorie varie.

SceneManager/Refresh/RefreshPanelViewModel.vb

@@ -0,0 +1,100 @@
+Imports System.ComponentModel
+Imports EgtUILib
+
+
+Public Class RefreshPanelViewModel
+   Implements INotifyPropertyChanged
+   Private m_rfSceneManagerViewModel As SceneManagerViewModel
+
+   Private m_MsgError As String
+   Public Property MsgError As String
+      Get
+         Return m_MsgError
+      End Get
+      Set(value As String)
+         m_MsgError = value
+         NotifyPropertyChanged("MsgError")
+      End Set
+   End Property
+
+   Private m_ButtonVisibility As Visibility = Visibility.Collapsed
+   Public Property ButtonVisibility As Visibility
+      Get
+         Return m_ButtonVisibility
+      End Get
+      Set(value As Visibility)
+         m_ButtonVisibility = value
+         NotifyPropertyChanged("ButtonVisibility")
+      End Set
+   End Property
+
+#Region "Messages"
+   Public ReadOnly Property RefreshMsg As String
+      Get
+         Return EgtMsg(50301)
+      End Get
+   End Property
+
+#End Region
+
+#Region "ToolTip"
+   Public ReadOnly Property RefreshToolTip As String
+      Get
+         Return EgtMsg(50301)
+      End Get
+   End Property
+
+#End Region
+
+
+
+   Private m_CmdRefreshBtn As ICommand
+   Private m_CmdShowErrorBtn As ICommand
+
+   Sub New(ByRef rSceneManagerViewModel As SceneManagerViewModel)
+      m_rfSceneManagerViewModel = rSceneManagerViewModel
+   End Sub
+
+#Region "COMMAND"
+
+#Region "RefreshBtnCommand"
+
+   ''' <summary>
+   ''' Returns a command that do Exec.
+   ''' </summary>
+   Public ReadOnly Property RefreshBtnCommand As ICommand
+      Get
+         If m_CmdRefreshBtn Is Nothing Then
+            ' Richiamo il comando che già esiste
+            m_CmdRefreshBtn = New Command(AddressOf m_rfSceneManagerViewModel.RefreshBtn)
+         End If
+         Return m_CmdRefreshBtn
+      End Get
+   End Property
+
+
+#End Region    ' RefreshBtnCommand
+   Friend m_MsgGraphic As String
+
+   Public ReadOnly Property ShowErrorBtnCommand As ICommand
+      Get
+         If m_CmdShowErrorBtn Is Nothing Then
+            m_CmdShowErrorBtn = New Command(AddressOf ShowErrorBtn)
+         End If
+         Return m_CmdShowErrorBtn
+      End Get
+   End Property
+
+   Public Sub ShowErrorBtn()
+      MessageBox.Show(m_MsgGraphic, "Error", MessageBoxButton.OK, MessageBoxImage.Error)
+   End Sub
+
+#End Region    ' Command
+
+   Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
+
+   Public Sub NotifyPropertyChanged(propName As String)
+      RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
+   End Sub
+
+End Class