SarmaxWall/MainWindow.xaml.vb

Imports System.Collections.ObjectModel
Imports System.Windows.Threading
Imports EgtUILib

Class MainWindow

    'Dichiarazione delle Page UserControl
    Friend m_ImportPageUC As ImportPageUC
    Friend m_DrawPageUC As DrawPageUC
    Friend m_PlacePageUC As PlacePageUC
    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 ItemList As New ObservableCollection(Of IconListBoxItem)

    'Riferimento alla pagina correntemente attiva
    Friend m_ActivePage As Pages

    Enum Pages
        Import
        Draw
        Place
        Options
    End Enum

    Dim OpenTimer As New DispatcherTimer
    Dim OpenTimer2 As New DispatcherTimer

    Public Function GetIniFile() As String
        Return m_sIniFile
    End Function

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

        ' Impostazione path radice per i dati
        m_sDataRoot = System.AppDomain.CurrentDomain.BaseDirectory.Substring(0, System.AppDomain.CurrentDomain.BaseDirectory.Length - 1)
        If GetPrivateProfileString(S_DATA, K_DATAROOT, "", m_sDataRoot, m_sDataRoot & "\" & DAT_FILE_NAME) = 0 Then
            m_sDataRoot = System.AppDomain.CurrentDomain.BaseDirectory.Substring(0, System.AppDomain.CurrentDomain.BaseDirectory.Length - 1)
        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)

        'Creazione delle Page UserControl
        m_ImportPageUC = New ImportPageUC
        m_DrawPageUC = New DrawPageUC
        m_PlacePageUC = New PlacePageUC
        m_OptionsPageUC = New OptionsPageUC
        m_NumericKeyboardWD = New NumericKeyboardWD

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

        'Imposto i messaggi letti dal file dei messaggi
        ImportBtn.Content = EgtMsg(MSG_GENERAL + 1)     'Import - Importa
        DrawBtn.Content = EgtMsg(MSG_GENERAL + 2)       'Draw - Disegna
        PlaceBtn.Content = EgtMsg(MSG_GENERAL + 3)      'Place - Posiziona
        OptionsBtn.Content = EgtMsg(MSG_GENERAL + 4)    'Options - Opzioni

        'AddHandler OpenTimer.Tick, AddressOf OpenTimer_tick
        'OpenTimer.Interval = TimeSpan.FromMilliseconds(1)
        'OpenTimer.Start()
        'AddHandler OpenTimer2.Tick, AddressOf OpenTimer2_tick
        'OpenTimer2.Interval = TimeSpan.FromMilliseconds(2)
        'OpenTimer2.Start()

    End Sub

    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs)

        'Assegno la NumericKeyboardWD come child della MainWindow
        m_NumericKeyboardWD.Owner = Me

        'Seleziono la Tab e la Page di apertura
        MainWindowGrid.Children.Add(m_PlacePageUC)
        m_ActivePage = Pages.Place
        PlaceBtn.IsChecked = True

    End Sub

    Private Sub OpenTimer_tick(ByVal sender As Object, ByVal e As EventArgs)
        'DrawBtn.RaiseEvent(New RoutedEventArgs(Button.ClickEvent))
        'OpenTimer.Stop()
    End Sub

    Private Sub OpenTimer2_tick(ByVal sender As Object, ByVal e As EventArgs)
        'm_DrawPageUC.ExitBtn.RaiseEvent(New RoutedEventArgs(Button.ClickEvent))
        'OpenTimer2.Stop()
    End Sub

    Private Sub ImportBtn_Click(sender As Object, e As RoutedEventArgs) Handles ImportBtn.Click
        Select Case m_ActivePage
            Case Pages.Import
                ImportBtn.IsChecked = True
            Case Pages.Draw
                ImportBtn.IsChecked = False
                DrawBtn.IsChecked = True
            Case Pages.Place
                ImportBtn.IsChecked = True
                PlaceBtn.IsChecked = False
                MainWindowGrid.Children.Remove(m_PlacePageUC)
                MainWindowGrid.Children.Add(m_ImportPageUC)
                m_ActivePage = Pages.Import
            Case Pages.Options
                ImportBtn.IsChecked = False
                OptionsBtn.IsChecked = True
        End Select
    End Sub

    Private Sub DrawBtn_Click(sender As Object, e As RoutedEventArgs) Handles DrawBtn.Click
        Select Case m_ActivePage
            Case Pages.Import
                ImportBtn.IsChecked = True
                DrawBtn.IsChecked = False
            Case Pages.Draw
                DrawBtn.IsChecked = True
            Case Pages.Place
                DrawBtn.IsChecked = True
                PlaceBtn.IsChecked = False
                MainWindowGrid.Children.Remove(m_PlacePageUC)
                MainWindowGrid.Children.Add(m_DrawPageUC)
                m_ActivePage = Pages.Draw
            Case Pages.Options
                DrawBtn.IsChecked = False
                OptionsBtn.IsChecked = True
        End Select
    End Sub

    Private Sub PlaceBtn_Click(sender As Object, e As RoutedEventArgs) Handles PlaceBtn.Click
        Select Case m_ActivePage
            Case Pages.Import
                ImportBtn.IsChecked = True
                PlaceBtn.IsChecked = False
            Case Pages.Draw
                DrawBtn.IsChecked = True
                PlaceBtn.IsChecked = False
            Case Pages.Place
                PlaceBtn.IsChecked = True
            Case Pages.Options
                PlaceBtn.IsChecked = False
                OptionsBtn.IsChecked = True
        End Select
    End Sub

    Private Sub OptionsBtn_Click(sender As Object, e As RoutedEventArgs) Handles OptionsBtn.Click
        Select Case m_ActivePage
            Case Pages.Import
                ImportBtn.IsChecked = True
                OptionsBtn.IsChecked = False
            Case Pages.Draw
                DrawBtn.IsChecked = True
                OptionsBtn.IsChecked = False
            Case Pages.Place
                OptionsBtn.IsChecked = True
                PlaceBtn.IsChecked = False
                MainWindowGrid.Children.Remove(m_PlacePageUC)
                MainWindowGrid.Children.Add(m_OptionsPageUC)
                m_ActivePage = Pages.Options
            Case Pages.Options
                OptionsBtn.IsChecked = True
        End Select
    End Sub

    'Impedisce di clickare fuori dalla calcolatrice quando questa è attiva
    Private Sub MainWindow_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
        If (m_NumericKeyboardWD.IsVisible And Not m_NumericKeyboardWD.IsMouseOver) Then
            e.Handled = True
        End If
    End Sub

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

End Class