OmagCUT/MainWindow.xaml.vb

Imports System.Collections.ObjectModel
Imports EgtUILib

'Imports System.Runtime.InteropServices
'Imports System.Threading
'Imports System.Windows.Controls
'Imports System.Globalization
'Imports EgtUILib.EgtInterface
'Imports EgtUILib.Scene
'Imports System.Text

Class MainWindow

    'Dichiarazione delle Page UserControl
    Friend m_WorkInProgressPageUC As WorkInProgressPageUC
    Friend m_CurrentProjectPageUC As CurrentProjectPageUC
    Friend m_DirectCutPageUC As DirectCutPageUC
    Friend m_CadCutPageUC As CadCutPageUC
    Friend m_DrawPageUC As DrawPageUC
    Friend m_ImportPageUC As ImportPageUC
    Friend m_FrameCutPageUC As FrameCutPageUC
    Friend m_MachinePageUC As MachinePageUC
    Friend m_AlarmsPageUC As AlarmsPageUC
    Friend m_OptionsPageUC As OptionsPageUC
    Friend m_NumericKeyboardWD As NumericKeyboardWD

    'Dichiarazione variabili direttori
    Private m_sDataRoot As String = String.Empty
    Private m_sConfigDir As String = String.Empty
    Private m_sTempDir As String = String.Empty
    Private m_sMachinesRoot As String = String.Empty
    Private Shared m_sIniFile As String = String.Empty
    Private m_nDebug As Integer = 0

    'Dichiarazione lista per ListBox della ImportPage
    Friend ImportItemList As New ObservableCollection(Of IconListBoxItem)

    'Riferimento alla pagina correntemente attiva
    Friend m_ActivePage As Pages

    Enum Pages
        WorkInProgress
        DirectCut
        CadCut
        Draw
        Import
        FrameCut
        Machine
        Alarms
        Options
    End Enum

    Public Function GetIniFile() As String
        Return m_sIniFile
    End Function

    Public Function GetTempDir() As String
        Return m_sTempDir
    End Function

    Private Sub Window_Initialized(sender As Object, e As EventArgs)

        ' Impostazione path radice per i dati
        m_sDataRoot = System.AppDomain.CurrentDomain.BaseDirectory
        If GetPrivateProfileString(S_DATA, K_DATAROOT, "", m_sDataRoot, m_sDataRoot & "\" & DAT_FILE_NAME) = 0 Then
            m_sDataRoot = System.AppDomain.CurrentDomain.BaseDirectory
        End If
        ' Impostazione direttorio di configurazione
        m_sConfigDir = m_sDataRoot & "\" & CONF_DIR
        ' Impostazione direttorio per file temporanei
        m_sTempDir = m_sDataRoot & "\" & TEMP_DIR
        ' Impostazione path Ini file
        m_sIniFile = m_sConfigDir & "\" & INI_FILE_NAME
        ' Impostazione direttorio per le macchine
        If GetPrivateProfileString(S_MACH, K_MACHINESDIR, "", m_sMachinesRoot, m_sIniFile) = 0 Then
            m_sMachinesRoot = m_sDataRoot & "\" & MACHINES_DFL_DIR
        End If
        ' Leggo e imposto chiave di protezione
        Dim sLicFileName As String = String.Empty
        GetPrivateProfileString(S_GENERAL, K_LICENCE, LIC_FILE_NAME, sLicFileName, m_sIniFile)
        Dim sLicFile As String = m_sConfigDir & "\" & sLicFileName
        Dim sKey As String = String.Empty
        GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile)
        EgtSetKey(sKey)
        'Inizializzazione generale di EgtInterface
        m_nDebug = GetPrivateProfileInt(S_GENERAL, K_DEBUG, 0, m_sIniFile)
        Dim sLogFile As String = m_sTempDir & "\" & GENLOG_FILE_NAME
        Dim sLogMsg As String = My.Application.Info.Description.ToString() & " ver. " & My.Application.Info.Version.ToString()
        EgtInit(m_nDebug, sLogFile, sLogMsg)
        ' Leggo file messaggi
        Dim sMsgFile As String = String.Empty
        GetPrivateProfileString(S_GENERAL, K_MESSAGES, "", sMsgFile, m_sIniFile)
        Dim sMsgFilePath As String = m_sConfigDir & "\" & sMsgFile
        If Not EgtLoadMessages(sMsgFilePath) Then
            EgtOutLog("Error in EgtLoadMessages")
        End If
        ' imposto dir font Nfe e font default
        Dim sNfeDir As String = String.Empty
        GetPrivateProfileString(S_GEOMDB, K_NFEFONTDIR, "", sNfeDir, m_sIniFile)
        Dim sDefFont As String = String.Empty
        GetPrivateProfileString(S_GEOMDB, K_DEFAULTFONT, "", sDefFont, m_sIniFile)
        EgtSetFont(sNfeDir, sDefFont)
        ' imposto dir di default per libreria Lua e lancio libreria di base
        Dim sLuaLibsDir As String = String.Empty
        GetPrivateProfileString(S_LUA, K_LIBSDIR, "", sLuaLibsDir, m_sIniFile)
        EgtSetLuaLibs(sLuaLibsDir)
        Dim sLuaBaseLib As String = String.Empty
        GetPrivateProfileString(S_LUA, K_BASELIB, "EgtBase", sLuaBaseLib, m_sIniFile)
        EgtLuaRequire(sLuaBaseLib)

        ' Imposto posizione e dimensioni della MainWindow
        Dim nFlag As Integer
        Dim nLeft As Integer
        Dim nTop As Integer
        Dim nWidth As Integer
        Dim nHeight As Integer
        GetPrivateProfileWinPos(S_GENERAL, K_WINPLACE, nFlag, nLeft, nTop, nWidth, nHeight, m_sIniFile)
        Me.WindowStartupLocation = Windows.WindowStartupLocation.Manual
        Me.Top = nTop
        Me.Left = nLeft
        Me.Height = nHeight
        Me.Width = nWidth
        WindowState = If(nFlag = 1, WindowState.Maximized, WindowState.Normal)

        'Creazione delle Page UserControl
        m_WorkInProgressPageUC = New WorkInProgressPageUC
        m_DirectCutPageUC = New DirectCutPageUC
        m_CadCutPageUC = New CadCutPageUC
        m_DrawPageUC = New DrawPageUC
        m_ImportPageUC = New ImportPageUC
        m_FrameCutPageUC = New FrameCutPageUC
        m_CurrentProjectPageUC = New CurrentProjectPageUC
        m_MachinePageUC = New MachinePageUC
        m_AlarmsPageUC = New AlarmsPageUC
        m_OptionsPageUC = New OptionsPageUC
        m_NumericKeyboardWD = New NumericKeyboardWD

        'Posizionemento nella griglia delle Page UserControl
        m_WorkInProgressPageUC.SetValue(Grid.ColumnProperty, 0)
        m_WorkInProgressPageUC.SetValue(Grid.RowProperty, 1)
        m_DrawPageUC.SetValue(Grid.ColumnProperty, 0)
        m_DrawPageUC.SetValue(Grid.RowProperty, 1)
        m_ImportPageUC.SetValue(Grid.ColumnProperty, 0)
        m_ImportPageUC.SetValue(Grid.RowProperty, 1)
        m_CurrentProjectPageUC.SetValue(Grid.ColumnProperty, 0)
        m_CurrentProjectPageUC.SetValue(Grid.RowProperty, 1)
        m_MachinePageUC.SetValue(Grid.ColumnProperty, 0)
        m_MachinePageUC.SetValue(Grid.RowProperty, 1)
        m_AlarmsPageUC.SetValue(Grid.ColumnProperty, 0)
        m_AlarmsPageUC.SetValue(Grid.RowProperty, 1)
        m_OptionsPageUC.SetValue(Grid.ColumnProperty, 0)
        m_OptionsPageUC.SetValue(Grid.RowProperty, 1)

        'Disabilita la possibilità di imitare il click del tasto destro del mouse tenendo premuto il dito sul touch
        'NB: Se abilitato impedisce di utilizzare lo stato Pressed dei Button che quindi non si evidenziano quando premuti
        Stylus.SetIsPressAndHoldEnabled(Me, False)

        'Imposto i messaggi letti dal file dei messaggi
        WorkInProgressBtn.Content = EgtMsg(MSG_GENERAL + 1)
        DirectCutBtn.Content = EgtMsg(MSG_GENERAL + 2)
        CadCutBtn.Content = EgtMsg(MSG_GENERAL + 3)
        FrameCutBtn.Content = EgtMsg(MSG_GENERAL + 4)
        MachineBtn.Content = EgtMsg(MSG_GENERAL + 5)
        OptionsBtn.Content = EgtMsg(MSG_GENERAL + 6)

    End Sub

    Private Sub Window_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs)

        'Assegno NumericKeyboardWD e AboutBoxWD come child della MainWindow
        m_NumericKeyboardWD.Owner = Me
        'm_AboutBoxWD.Owner = Me

        'Seleziono la Tab e la Page di apertura
        MainWindowGrid.Children.Add(m_WorkInProgressPageUC)
        m_ActivePage = Pages.WorkInProgress
        WorkInProgressBtn.IsChecked = True

    End Sub

    Private Sub WorkInProgressBtn_Click(sender As Object, e As RoutedEventArgs) Handles WorkInProgressBtn.Click
        Select Case m_ActivePage
            Case Pages.WorkInProgress
                WorkInProgressBtn.IsChecked = True
            Case Pages.DirectCut
                WorkInProgressBtn.IsChecked = True
                DirectCutBtn.IsChecked = False
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(m_DirectCutPageUC)
                MainWindowGrid.Children.Remove(m_CurrentProjectPageUC)
                MainWindowGrid.Children.Add(m_WorkInProgressPageUC)
                m_ActivePage = Pages.WorkInProgress
            Case Pages.CadCut
                WorkInProgressBtn.IsChecked = True
                CadCutBtn.IsChecked = False
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(m_CadCutPageUC)
                MainWindowGrid.Children.Remove(m_CurrentProjectPageUC)
                MainWindowGrid.Children.Add(m_WorkInProgressPageUC)
                m_ActivePage = Pages.WorkInProgress
            Case Pages.Draw
                WorkInProgressBtn.IsChecked = False
                CadCutBtn.IsChecked = True
            Case Pages.Import
                WorkInProgressBtn.IsChecked = False
                CadCutBtn.IsChecked = True
            Case Pages.FrameCut
                WorkInProgressBtn.IsChecked = True
                FrameCutBtn.IsChecked = False
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(m_FrameCutPageUC)
                MainWindowGrid.Children.Remove(m_CurrentProjectPageUC)
                MainWindowGrid.Children.Add(m_WorkInProgressPageUC)
                m_ActivePage = Pages.WorkInProgress
            Case Pages.Machine
                WorkInProgressBtn.IsChecked = True
                MachineBtn.IsChecked = False
                MainWindowGrid.Children.Remove(m_MachinePageUC)
                MainWindowGrid.Children.Add(m_WorkInProgressPageUC)
                m_ActivePage = Pages.WorkInProgress
            Case Pages.Options
                WorkInProgressBtn.IsChecked = True
                OptionsBtn.IsChecked = False
                MainWindowGrid.Children.Remove(m_OptionsPageUC)
                MainWindowGrid.Children.Add(m_WorkInProgressPageUC)
                m_ActivePage = Pages.WorkInProgress
        End Select
    End Sub

    Private Sub DirectCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles DirectCutBtn.Click
        Select Case m_ActivePage
            Case Pages.WorkInProgress
                WorkInProgressBtn.IsChecked = False
                DirectCutBtn.IsChecked = True
                MainWindowGrid.Children.Remove(m_WorkInProgressPageUC)
                MainWindowGrid.Children.Add(m_CurrentProjectPageUC)
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_DirectCutPageUC)
                m_ActivePage = Pages.DirectCut
            Case Pages.DirectCut
                DirectCutBtn.IsChecked = True
            Case Pages.CadCut
                DirectCutBtn.IsChecked = True
                CadCutBtn.IsChecked = False
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(m_CadCutPageUC)
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_DirectCutPageUC)
                m_ActivePage = Pages.DirectCut
            Case Pages.Draw
                DirectCutBtn.IsChecked = False
                CadCutBtn.IsChecked = True
            Case Pages.Import
                DirectCutBtn.IsChecked = False
                CadCutBtn.IsChecked = True
            Case Pages.FrameCut
                DirectCutBtn.IsChecked = True
                FrameCutBtn.IsChecked = False
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(m_FrameCutPageUC)
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_DirectCutPageUC)
                m_ActivePage = Pages.DirectCut
            Case Pages.Machine
                DirectCutBtn.IsChecked = True
                MachineBtn.IsChecked = False
                MainWindowGrid.Children.Remove(m_MachinePageUC)
                MainWindowGrid.Children.Add(m_CurrentProjectPageUC)
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_DirectCutPageUC)
                m_ActivePage = Pages.DirectCut
            Case Pages.Options
                DirectCutBtn.IsChecked = True
                OptionsBtn.IsChecked = False
                MainWindowGrid.Children.Remove(m_OptionsPageUC)
                MainWindowGrid.Children.Add(m_CurrentProjectPageUC)
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_DirectCutPageUC)
                m_ActivePage = Pages.DirectCut
        End Select
    End Sub

    Private Sub CadCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles CadCutBtn.Click
        Select Case m_ActivePage
            Case Pages.WorkInProgress
                WorkInProgressBtn.IsChecked = False
                CadCutBtn.IsChecked = True
                MainWindowGrid.Children.Remove(m_WorkInProgressPageUC)
                MainWindowGrid.Children.Add(m_CurrentProjectPageUC)
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_CadCutPageUC)
                m_ActivePage = Pages.DirectCut
                m_ActivePage = Pages.CadCut
            Case Pages.DirectCut
                DirectCutBtn.IsChecked = False
                CadCutBtn.IsChecked = True
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(m_DirectCutPageUC)
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_CadCutPageUC)
                m_ActivePage = Pages.CadCut
            Case Pages.CadCut
                CadCutBtn.IsChecked = True
            Case Pages.Draw
                CadCutBtn.IsChecked = True
            Case Pages.Import
                CadCutBtn.IsChecked = True
            Case Pages.FrameCut
                CadCutBtn.IsChecked = True
                FrameCutBtn.IsChecked = False
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(m_FrameCutPageUC)
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_CadCutPageUC)
                m_ActivePage = Pages.CadCut
            Case Pages.Machine
                CadCutBtn.IsChecked = True
                MachineBtn.IsChecked = False
                MainWindowGrid.Children.Remove(m_MachinePageUC)
                MainWindowGrid.Children.Add(m_CurrentProjectPageUC)
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_CadCutPageUC)
                m_ActivePage = Pages.CadCut
            Case Pages.Options
                CadCutBtn.IsChecked = True
                OptionsBtn.IsChecked = False
                MainWindowGrid.Children.Remove(m_OptionsPageUC)
                MainWindowGrid.Children.Add(m_CurrentProjectPageUC)
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_CadCutPageUC)
                m_ActivePage = Pages.CadCut
        End Select
    End Sub

    Private Sub FrameCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles FrameCutBtn.Click
        Select Case m_ActivePage
            Case Pages.WorkInProgress
                WorkInProgressBtn.IsChecked = False
                FrameCutBtn.IsChecked = True
                MainWindowGrid.Children.Remove(m_WorkInProgressPageUC)
                MainWindowGrid.Children.Add(m_CurrentProjectPageUC)
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_FrameCutPageUC)
                m_ActivePage = Pages.FrameCut
            Case Pages.DirectCut
                DirectCutBtn.IsChecked = False
                FrameCutBtn.IsChecked = True
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(m_DirectCutPageUC)
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_FrameCutPageUC)
                m_ActivePage = Pages.FrameCut
            Case Pages.CadCut
                CadCutBtn.IsChecked = False
                FrameCutBtn.IsChecked = True
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(m_CadCutPageUC)
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_FrameCutPageUC)
                m_ActivePage = Pages.FrameCut
            Case Pages.Draw
                CadCutBtn.IsChecked = True
                FrameCutBtn.IsChecked = False
            Case Pages.Import
                CadCutBtn.IsChecked = True
                FrameCutBtn.IsChecked = False
            Case Pages.FrameCut
                FrameCutBtn.IsChecked = True
            Case Pages.Machine
                FrameCutBtn.IsChecked = True
                MachineBtn.IsChecked = False
                MainWindowGrid.Children.Remove(m_MachinePageUC)
                MainWindowGrid.Children.Add(m_CurrentProjectPageUC)
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_FrameCutPageUC)
                m_ActivePage = Pages.FrameCut
            Case Pages.Options
                FrameCutBtn.IsChecked = True
                OptionsBtn.IsChecked = False
                MainWindowGrid.Children.Remove(m_OptionsPageUC)
                MainWindowGrid.Children.Add(m_CurrentProjectPageUC)
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_FrameCutPageUC)
                m_ActivePage = Pages.FrameCut
        End Select
    End Sub

    Private Sub MachineBtn_Click(sender As Object, e As RoutedEventArgs) Handles MachineBtn.Click
        Select Case m_ActivePage
            Case Pages.WorkInProgress
                WorkInProgressBtn.IsChecked = False
                MachineBtn.IsChecked = True
                MainWindowGrid.Children.Remove(m_WorkInProgressPageUC)
                MainWindowGrid.Children.Add(m_MachinePageUC)
                m_ActivePage = Pages.Machine
            Case Pages.DirectCut
                DirectCutBtn.IsChecked = False
                MachineBtn.IsChecked = True
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(m_DirectCutPageUC)
                MainWindowGrid.Children.Remove(m_CurrentProjectPageUC)
                MainWindowGrid.Children.Add(m_MachinePageUC)
                m_ActivePage = Pages.Machine
            Case Pages.CadCut
                CadCutBtn.IsChecked = False
                MachineBtn.IsChecked = True
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(m_CadCutPageUC)
                MainWindowGrid.Children.Remove(m_CurrentProjectPageUC)
                MainWindowGrid.Children.Add(m_MachinePageUC)
                m_ActivePage = Pages.Machine
            Case Pages.Draw
                CadCutBtn.IsChecked = True
                MachineBtn.IsChecked = False
            Case Pages.Import
                CadCutBtn.IsChecked = True
                MachineBtn.IsChecked = False
            Case Pages.FrameCut
                FrameCutBtn.IsChecked = False
                MachineBtn.IsChecked = True
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(m_FrameCutPageUC)
                MainWindowGrid.Children.Remove(m_CurrentProjectPageUC)
                MainWindowGrid.Children.Add(m_MachinePageUC)
                m_ActivePage = Pages.Machine
            Case Pages.Machine
                MachineBtn.IsChecked = True
            Case Pages.Options
                MachineBtn.IsChecked = True
                OptionsBtn.IsChecked = False
                MainWindowGrid.Children.Remove(m_OptionsPageUC)
                MainWindowGrid.Children.Add(m_MachinePageUC)
                m_ActivePage = Pages.Machine
        End Select
    End Sub

    Private Sub OptionsBtn_Click(sender As Object, e As RoutedEventArgs) Handles OptionsBtn.Click
        Select Case m_ActivePage
            Case Pages.WorkInProgress
                WorkInProgressBtn.IsChecked = False
                OptionsBtn.IsChecked = True
                MainWindowGrid.Children.Remove(m_WorkInProgressPageUC)
                MainWindowGrid.Children.Add(m_OptionsPageUC)
                m_ActivePage = Pages.Options
            Case Pages.DirectCut
                DirectCutBtn.IsChecked = False
                OptionsBtn.IsChecked = True
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(m_DirectCutPageUC)
                MainWindowGrid.Children.Remove(m_CurrentProjectPageUC)
                MainWindowGrid.Children.Add(m_OptionsPageUC)
                m_ActivePage = Pages.Options
            Case Pages.CadCut
                CadCutBtn.IsChecked = False
                OptionsBtn.IsChecked = True
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(m_CadCutPageUC)
                MainWindowGrid.Children.Remove(m_CurrentProjectPageUC)
                MainWindowGrid.Children.Add(m_OptionsPageUC)
                m_ActivePage = Pages.Options
            Case Pages.Draw
                CadCutBtn.IsChecked = True
                OptionsBtn.IsChecked = False
            Case Pages.Import
                CadCutBtn.IsChecked = True
                OptionsBtn.IsChecked = False
            Case Pages.FrameCut
                FrameCutBtn.IsChecked = False
                OptionsBtn.IsChecked = True
                m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(m_FrameCutPageUC)
                MainWindowGrid.Children.Remove(m_CurrentProjectPageUC)
                MainWindowGrid.Children.Add(m_OptionsPageUC)
                m_ActivePage = Pages.Options
            Case Pages.Machine
                MachineBtn.IsChecked = False
                OptionsBtn.IsChecked = True
                MainWindowGrid.Children.Remove(m_MachinePageUC)
                MainWindowGrid.Children.Add(m_OptionsPageUC)
                m_ActivePage = Pages.Options
            Case Pages.Options
                OptionsBtn.IsChecked = True
        End Select
    End Sub

    'Impedisce di clickare fuori dal UC Componenti finchè questo è aperto
    Private Sub MainWindow_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
        'If (m_ComponentiUC.IsVisible And Not m_ComponentiUC.IsMouseOver) Then
        '    e.Handled = True
        'End If
        If (m_CurrentProjectPageUC.m_RowPartPage.IsVisible And Not m_CurrentProjectPageUC.m_RowPartPage.IsMouseOver) Then
            e.Handled = True
        End If
        If (m_NumericKeyboardWD.IsVisible And Not m_NumericKeyboardWD.IsMouseOver) Then
            e.Handled = True
        End If
    End Sub

    Private Sub MainWindow_KeyDown(sender As Object, e As KeyEventArgs)
        'If (m_NumericKeyboardWD.IsVisible And e.Key = Key.Enter) Then
        '    m_NumericKeyboardWD.Visibility = Windows.Visibility.Hidden
        'End If
    End Sub

    Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs)
        Me.Close()
    End Sub

End Class