Imports EgtUILib
Imports EgtWPFLib5

Public Class SceneButtonVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Public Shared m_nIndexList As Integer = 0
   Public Shared m_nIndexListConverter As Integer = 0

   Private m_TopListBtn As New List(Of SceneBtn)
   Public Property TopListBtn As List(Of SceneBtn)
      Get
         Return m_TopListBtn
      End Get
      Set(value As List(Of SceneBtn))
         m_TopListBtn = value
      End Set
   End Property

   Private m_LeftListBtn As New List(Of SceneBtn)
   Public Property LeftListBtn As List(Of SceneBtn)
      Get
         Return m_LeftListBtn
      End Get
      Set(value As List(Of SceneBtn))
         m_LeftListBtn = value
      End Set
   End Property

   Private m_RightListBtn As New List(Of SceneBtn)
   Public Property RightListBtn As List(Of SceneBtn)
      Get
         Return m_RightListBtn
      End Get
      Set(value As List(Of SceneBtn))
         m_RightListBtn = value
      End Set
   End Property

   Private m_BottomListBtn As New List(Of SceneBtn)
   Public Property BottomListBtn As List(Of SceneBtn)
      Get
         Return m_BottomListBtn
      End Get
      Set(value As List(Of SceneBtn))
         m_BottomListBtn = value
      End Set
   End Property

   Private m_BottomCenterListBtn As New List(Of SceneBtn)
   Public Property BottomCenterListBtn As List(Of SceneBtn)
      Get
         Return m_BottomCenterListBtn
      End Get
      Set(value As List(Of SceneBtn))
         m_BottomCenterListBtn = value
      End Set
   End Property

   Private m_TopPanelListGroupBtn As New List(Of GroupSceneBtn)
   Public Property TopPanelListGroupBtn As List(Of GroupSceneBtn)
      Get
         Return m_TopPanelListGroupBtn
      End Get
      Set(value As List(Of GroupSceneBtn))
         m_TopPanelListGroupBtn = value
      End Set
   End Property

#End Region ' Fields & Properties

#Region "CONSTRUCTOR"

   Sub New()
      Map.SetRefSceneButtonVM(Me)
      LoadButtons()
      LoadGroupButtons()
   End Sub

#End Region ' Constructor

#Region "METHODS"

   ''' <summary>
   ''' Funzione che carica i bottoni
   ''' </summary>
   Private Sub LoadButtons()
      SetButtonsLocation(TOPLIST_BTN, m_TopListBtn)
      SetButtonsLocation(LEFTLIST_BTN, m_LeftListBtn)
      SetButtonsLocation(RIGHTLIST_BTN, m_RightListBtn)
      SetButtonsLocation(BOTTOMLIST_BTN, m_BottomListBtn)
      SetButtonsLocation(BOTTOMCENTERLIST_BTN, m_BottomCenterListBtn)
   End Sub

   Private Sub LoadGroupButtons()
      Dim Index As Integer = 1
      Dim SubTitle As String = String.Empty
      Dim sKeyTitle As String = TOPPANELLIST_BTN & "_" & Index.ToString()
      While GetMainPrivateProfileString(sKeyTitle, "SubTitle", "", SubTitle) > 0
         SetGroupButtonsLocation(sKeyTitle, m_TopPanelListGroupBtn)
         Index += 1
         sKeyTitle = TOPPANELLIST_BTN & "_" & Index.ToString()
      End While
   End Sub

   ''' <summary>
   ''' Funzione che permette di posizionare i bottoni letti da file ini
   ''' </summary>
   ''' <param name="PositionList"></param>
   ''' <param name="ListBtn"></param>
   Private Sub SetButtonsLocation(PositionList As String, ListBtn As List(Of SceneBtn))
      Dim Index As Integer = 1
      Dim sBtnString As String = String.Empty
      While GetMainPrivateProfileString(PositionList, "Btn_" & Index.ToString, "", sBtnString) > 0
         Dim sItems As String() = Split(sBtnString, ",")
         If sItems.Count < 3 Then
            ' Errore di configurazione comando: mancano dei parametri
            EgtOutLog("")
         Else
            Dim nType As Integer = 0
            If sItems(0) = "Button" Then
               ' Button
               ListBtn.Add(New _Button(sItems(1), sItems(2), sItems(3)))
            ElseIf sItems(0) = "ToggleButton" Then
               ' ToggelButton
               ListBtn.Add(New _ToggleButton(sItems(1), sItems(2), sItems(3)))
            ElseIf sItems(0) = "ButtonComboBox" And sItems.Count >= 4 Then
               ' Button che apre una combo box
               ListBtn.Add(New _ButtonComboBox(sItems(1), sItems(2), sItems(3), sItems(4)))
            End If
         End If
         Index = Index + 1
         sBtnString = String.Empty
      End While
   End Sub

   Private Sub SetGroupButtonsLocation(PositionList As String, ListGroupBtn As List(Of GroupSceneBtn))
      Dim LocalListSceneBtn As New List(Of SceneBtn)
      Dim SubTitle As String = String.Empty
      SetButtonsLocation(PositionList, LocalListSceneBtn)
      GetMainPrivateProfileString(PositionList, "SubTitle", "", SubTitle)
      ListGroupBtn.Add(New GroupSceneBtn(LocalListSceneBtn, SubTitle))
   End Sub

   Public Function IsTgBtnChecked(Flag As String) As Boolean
      ' cerco il bottone con il flag richiesto
      Dim Btn As _ToggleButton = m_BottomListBtn.FirstOrDefault(Function(x) x.Flag = Flag)
      If IsNothing(Btn) Then
         Btn = m_RightListBtn.FirstOrDefault(Function(x) x.Flag = Flag)
         If IsNothing(Btn) Then
            Btn = m_TopListBtn.FirstOrDefault(Function(x) x.Flag = Flag)
            If IsNothing(Btn) Then
               Btn = m_LeftListBtn.FirstOrDefault(Function(x) x.Flag = Flag)
            End If
         End If
      End If

      ' restituisco la sua proprietà IsChecked
      Return Btn.IsChecked
   End Function

   Public Function GetButton(Flag As String) As SceneBtn
      ' cerco il bottone con il flag richiesto
      Dim Btn As SceneBtn = m_BottomListBtn.FirstOrDefault(Function(x) x.Flag = Flag)
      If Not IsNothing(Btn) Then Return Btn
      Btn = m_RightListBtn.FirstOrDefault(Function(x) x.Flag = Flag)
      If Not IsNothing(Btn) Then Return Btn
      Btn = m_TopListBtn.FirstOrDefault(Function(x) x.Flag = Flag)
      If Not IsNothing(Btn) Then Return Btn
      Btn = m_LeftListBtn.FirstOrDefault(Function(x) x.Flag = Flag)
      If Not IsNothing(Btn) Then Return Btn
      Btn = m_BottomCenterListBtn.FirstOrDefault(Function(x) x.Flag = Flag)
      Return Btn
   End Function

#End Region ' Methods

End Class

Public Class GroupSceneBtn

#Region "FIELDS & PROPERTIES"

   Private m_SubTitle As String
   Public Property SubTitle As String
      Get
         Return m_SubTitle
      End Get
      Set(value As String)
         m_SubTitle = value
      End Set
   End Property

   Private m_TopPanelListBtn As New List(Of SceneBtn)
   Public Property TopPanelListBtn As List(Of SceneBtn)
      Get
         Return m_TopPanelListBtn
      End Get
      Set(value As List(Of SceneBtn))
         m_TopPanelListBtn = value
      End Set
   End Property

#End Region    ' Fields & Properties

#Region "CONSTRUCTOR"

   Sub New(TopPanelListBtn As List(Of SceneBtn), sSubTitle As String)
      m_TopPanelListBtn = TopPanelListBtn
      m_SubTitle = sSubTitle
   End Sub

#End Region    ' Constructor

End Class

Public Class SceneBtn
   Inherits VMBase

#Region "FIELDS & PROPETIES"

   Private m_ResourcesDir As String = "C:\EgtData\EgtSTONE3D\Resources\"

   Private m_Name As String = String.Empty
   Public Property Name As String
      Get
         Return m_Name
      End Get
      Set(value As String)
         m_Name = value
      End Set
   End Property

   Private m_Img As String = String.Empty
   Public Property Img As String
      Get
         Return m_Img
      End Get
      Set(value As String)
         m_Img = value
      End Set
   End Property

   Private m_Flag As String = String.Empty
   Public Property Flag As String
      Get
         Return m_Flag
      End Get
      Set(value As String)
         m_Flag = value
      End Set
   End Property

   Private m_IsEnabled As Boolean = True
   Public Property IsEnabled As Boolean
      Get
         Return m_IsEnabled
      End Get
      Set(value As Boolean)
         m_IsEnabled = value
      End Set
   End Property

#End Region    ' Fields & Properties

#Region "CONSTRUCTOR"

   Sub New(_Name As String, _Img As String, _Flag As String)
      m_Name = _Name
      m_Img = m_ResourcesDir & _Img
      m_Flag = _Flag
   End Sub

#End Region    ' Constructor

#Region "COMMANDS"

#Region "CmdBtn"

   Private m_CmdBtn As ICommand
   Public ReadOnly Property CmdBtn As ICommand
      Get
         If m_CmdBtn Is Nothing Then
            m_CmdBtn = New Command(AddressOf MethodBtn)
         End If
         Return m_CmdBtn
      End Get
   End Property

   Private Sub MethodBtn()
      SceneCmd.Exec(m_Flag)
   End Sub

#End Region    ' CmdBtn

#End Region    ' Commands

End Class

Public Class _Button
   Inherits SceneBtn

#Region "CONSTRUCTOR"

   Sub New(_Name As String, _Img As String, _Flag As String)
      MyBase.New(_Name, _Img, _Flag)
   End Sub

#End Region    ' Constructor

End Class

Public Class _ToggleButton
   Inherits SceneBtn

#Region "FIELDS & PROPERTIES"

   Private m_IsChecked As Boolean = False
   Public Property IsChecked As Boolean
      Get
         Return m_IsChecked
      End Get
      Set(value As Boolean)
         m_IsChecked = value
         NotifyPropertyChanged(NameOf(IsChecked))
      End Set
   End Property

#End Region    ' Fields & Properties

#Region "CONSTRUCTOR"

   Sub New(_Name As String, _Img As String, _Flag As String)
      MyBase.New(_Name, _Img, _Flag)
   End Sub

#End Region    ' Constructor

End Class

Public Class _ButtonComboBox
   Inherits SceneBtn

#Region "FIELDS & PROPERTIES"

   Private m_SourceList As New List(Of String)
   Public Property SourceList As List(Of String)
      Get
         Return m_SourceList
      End Get
      Set(value As List(Of String))
         m_SourceList = value
      End Set
   End Property

#End Region    ' Fields & Properties

#Region "CONSTRUCTOR"

   Sub New(_Name As String, _Img As String, _Flag As String, _PrototypeList As String)
      MyBase.New(_Name, _Img, _Flag)
      'conversione da _PrototypeList a _List ''''' da implementare
      m_SourceList = New List(Of String)({"Becca", "Bacca", "Bionda", "Mora"})

      'm_SourceList = _List
   End Sub

#End Region    ' Constructor

End Class

Module SceneCmd

#Region "METHODS"

   Public Sub Exec(Flag)
      Dim _SceneHostVM As SceneHostVM = DirectCast(Map.refSceneHostV.DataContext, SceneHostVM)
      Dim nVeinCtx As Integer = _SceneHostVM.MainScene.GetCtx()
      Select Case Flag
         Case "AutoPair"
            EgtSetCurrentContext(nVeinCtx)
            EgtLuaSetGlobIntVar("ASS.nVeinCtx", nVeinCtx)
            EgtLuaCallFunction("ASS.PairAll")
         Case "Unpair"
            SolidManagerM.Unpair(Map.refSceneHostV.m_nIdPart)
         Case EGT_PAIR
            Map.refSceneButtonV.LoadPairUC()
         Case "ResetInters"
            SolidManagerM.ResetInters()
         Case EGT_ROTATE
            Map.refSceneButtonV.LoadRotateUC()
         Case EGT_MOVE
            Map.refSceneButtonV.LoadMoveUC()
         Case "Undo"
            ' se con questa operazione torno all'inizio disattivo il bottone undo
            SolidManagerM.UndoEvent()
            SolidManagerM.ManageUndoRedo()
            EgtDraw()
         Case "Redo"
            ' se con questa operazione ho finito la storia disponibile disattivo il bottone redo
            SolidManagerM.RedoEvent()
            SolidManagerM.ManageUndoRedo()
            EgtDraw()
         Case "SelType"
            Map.refSceneButtonV.MenuSelType.IsOpen = True
         Case "ImportLoop"
            'ImportLoop()
            EgtInsertFile("D:\Temp\marmo\Vein3D\OutLoop.nge")
         Case "CreateSolidFromLoop"
            SolidManagerM.CreateSolidFromLoop(Map.refSceneHostV.m_nIdPart)
         Case EGT_ALZ
            Map.refSceneHostV.m_SelType = GDB_TY.CRV_LINE
            SolidManagerM.ShowLoopEdges()
         Case EGT_FRO
            Map.refSceneHostV.m_SelType = GDB_TY.CRV_LINE
            SolidManagerM.ShowLoopEdges()
         Case Else
            Dim x As Boolean = False
      End Select
   End Sub

   ''' <summary>
   ''' Funzione che permette di importare un file nge
   ''' </summary>
   Private Sub ImportLoop()
      Dim ImportDialog As New EgtManageFileDialogV(Application.Current.MainWindow, New EgtManageFileDialogVM()) With {
         .Title = EgtMsg(91127),
         .Filter = "nge files (*.nge)|*.nge",
         .FilterIndex = 1,
         .InitialDirectory = "C:\EgtData\EgtStone3D\Temp",
         .Mode = 1
      }
      If Not ImportDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then Return
      If String.IsNullOrEmpty(ImportDialog.FileName) Then Return

      Dim sFilePath As String = ImportDialog.FileName
      EgtInsertFile(sFilePath)
   End Sub

   Public Sub EnableActionButtons()
      'If (m_nIdPart = GDB_ID.NULL) Then Return

      ''abilito i bottoni che possono eseguire delle azioni
      'Dim PartSolidSel As PartSolid = GetPartSolid(m_nIdPart)
      'If Not IsNothing(PartSolidSel) And PartSolidSel.IsPaired() Then
      '   UnpairBtn.IsEnabled = True
      '   ExplodeBtn.IsEnabled = True
      '   ExplodeNormalsBtn.IsEnabled = True
      'End If
   End Sub

   Public Sub DisableActionButtons()
      ''disabilito tutti i bottoni che eseguono azioni sul pezzo selezionato
      'UnpairBtn.IsEnabled = False
      'ExplodeBtn.IsEnabled = False
      'ExplodeNormalsBtn.IsEnabled = False
   End Sub

   Public Function DeselectAll() As Boolean
      Dim bDeselected As Boolean = True
      Dim nOriId As Integer = GDB_ID.NULL
      For Each PartSolidSel In m_PartSolidList
         '' deseleziono nel nesting
         'EgtGetInfo(PartSolidSel.PartId, KEY_ORI_ID, nOriId)
         'If EgtSetCurrentContext(OmagOFFICEMap.refSceneHostVM.MainScene.GetCtx()) AndAlso EgtExistsObj(nOriId) Then
         '   If Not (OmagOFFICEMap.refNestingTabVM.DeselectPart(nOriId, False)) Then
         '      bDeselected = False
         '   End If
         'End If
         EgtSetCurrentContext(m_nVeinCtx)
         PartSolidSel.DeselectPart()
      Next
      Map.refSceneHostV.m_nIdPart = GDB_ID.NULL
      DisableActionButtons()
      Return bDeselected
   End Function

#End Region    ' Methods

End Module

Public Class SplitConverter
   Implements IValueConverter

   Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
      Dim dValue As Double = CDbl(value)
      Dim dParam As Double = Map.refSceneButtonVM.TopPanelListGroupBtn(SceneButtonVM.m_nIndexListConverter).TopPanelListBtn.Count
      SceneButtonVM.m_nIndexListConverter += 1
      Return (Math.Floor(dParam / 2) + 1) * 35
   End Function

   Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
      Throw New NotImplementedException
   End Function

End Class