Imports System.IO
Imports EgtUILib

Public Class BeamPanelVM
   Inherits VMBase

   Friend Const BEAM_PROCESS As String = "Beam\Process.lua"
   Friend Const BEAM_MACHININGS As String = "BeamMachinings"

   Private m_ButtonList As New List(Of ButtonItem)
   Public ReadOnly Property ButtonList As List(Of ButtonItem)
      Get
         Return m_ButtonList
      End Get
   End Property

   Private m_BeamPanel_Visibility As Visibility
   Public ReadOnly Property BeamPanel_Visibility As Visibility
      Get
         Return m_BeamPanel_Visibility
      End Get
   End Property
   Friend Sub SetBeamPanelVisibility(bValue As Boolean)
      m_BeamPanel_Visibility = If(bValue, Visibility.Visible, Visibility.Collapsed)
      NotifyPropertyChanged(NameOf(BeamPanel_Visibility))
   End Sub

   Sub New()
      ' Creo riferimento a questa classe in Map
      Map.SetRefBeamPanelVM(Me)
      ' Se attivo, inizializzo i bottoni leggendoli da file ini
      If IniFile.IsActiveBeam() Then
         ' Inizializzo i bottoni leggendoli da file ini
         Dim BtnIndex As Integer = 1
         Dim CurrBtn As ButtonItem = Nothing
         While GetPrivateProfileButton(S_BEAM, K_BEAMBUTTON & BtnIndex, IniFile.m_sBeamDirPath, CurrBtn)
            m_ButtonList.Add(CurrBtn)
            BtnIndex += 1
         End While
      End If
   End Sub

End Class