OmagCUT/CurrentProjectPageUC.xaml.vb

Imports EgtUILib

Public Class CurrentProjectPageUC

    ' Riferimento alla MainWindow
    Private m_MainWindow As MainWindow = Application.Current.MainWindow

    'Dichiarazione delle Page UserControl
    Friend m_SceneButtons As SceneButtonsUC

    ' Properties
    Private m_bFirst As Boolean = True

    ' Dichiarazione Scene
    Friend WithEvents CurrentProjectScene As New Scene
    Private CurrentProjectSceneHost As New System.Windows.Forms.Integration.WindowsFormsHost

    'Dichiarazione variabile per altezza grezzo
    Friend m_dRawHeight As Double

    ' Identificativo del grezzo
    Friend m_nRawId As Integer = GDB_ID.NULL

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

        'Creazione delle Page UserControl
        m_SceneButtons = New SceneButtonsUC

        'Posizionemento nella griglia delle Page UserControl
        m_SceneButtons.SetValue(Grid.ColumnProperty, 5)
        m_MainWindow.m_DirectCutPageUC.SetValue(Grid.RowSpanProperty, 3)
        m_MainWindow.m_DirectCutPageUC.SetValue(Grid.ColumnSpanProperty, 2)
        m_MainWindow.m_CadCutPageUC.SetValue(Grid.RowSpanProperty, 3)
        m_MainWindow.m_CadCutPageUC.SetValue(Grid.ColumnSpanProperty, 2)
        m_MainWindow.m_FrameCutPageUC.SetValue(Grid.RowSpanProperty, 3)
        m_MainWindow.m_FrameCutPageUC.SetValue(Grid.ColumnSpanProperty, 2)

        'Assegno SceneButtons alla pagina
        UpperButtonGrid.Children.Add(m_SceneButtons)

        'Assegnazione scena all'host e posizionamento nella PlacePageGrid
        CurrentProjectSceneHost.Child = CurrentProjectScene
        CurrentProjectSceneHost.SetValue(Grid.ColumnProperty, 1)
        CurrentProjectSceneHost.SetValue(Grid.RowProperty, 1)
        Me.CurrentProjectPageGrid.Children.Add(CurrentProjectSceneHost)

    End Sub

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

        If m_bFirst Then
            ' imposto colore di default
            Dim DefColor As New Color3d(0, 0, 0)
            GetPrivateProfileColor(S_GEOMDB, K_DEFAULTCOLOR, DefColor, m_MainWindow.GetIniFile())
            CurrentProjectScene.SetDefaultMaterial(DefColor)
            ' imposto colori sfondo
            Dim BackTopColor As New Color3d(192, 192, 192)
            GetPrivateProfileColor(S_SCENE, K_BACKTOP, BackTopColor, m_MainWindow.GetIniFile())
            Dim BackBotColor As New Color3d(BackTopColor)
            GetPrivateProfileColor(S_SCENE, K_BACKBOTTOM, BackBotColor, m_MainWindow.GetIniFile())
            CurrentProjectScene.SetViewBackground(BackTopColor, BackBotColor)
            ' imposto colore di evidenziazione
            Dim MarkColor As New Color3d(255, 255, 0)
            GetPrivateProfileColor(S_SCENE, K_MARK, MarkColor, m_MainWindow.GetIniFile())
            CurrentProjectScene.SetMarkMaterial(MarkColor)
            ' imposto colore per superfici selezionate
            Dim SelSurfColor As New Color3d(255, 255, 192)
            GetPrivateProfileColor(S_SCENE, K_SELSURF, SelSurfColor, m_MainWindow.GetIniFile())
            CurrentProjectScene.SetSelSurfMaterial(SelSurfColor)
            ' imposto tipo e colore del rettangolo di zoom
            Dim bOutline As Boolean = True
            Dim ZwColor As New Color3d(0, 0, 0)
            GetPrivateProfileZoomWin(S_SCENE, K_ZOOMWIN, bOutline, ZwColor, m_MainWindow.GetIniFile())
            CurrentProjectScene.SetZoomWinAttribs(bOutline, ZwColor)
            ' imposto colore della linea di distanza
            Dim DstLnColor As New Color3d(255, 0, 0)
            GetPrivateProfileColor(S_SCENE, K_DISTLINE, DstLnColor, m_MainWindow.GetIniFile())
            CurrentProjectScene.SetDistLineMaterial(DstLnColor)
            ' imposto parametri OpenGL
            Dim nDriver As Integer = GetPrivateProfileInt(S_OPENGL, K_DRIVER, 3, m_MainWindow.GetIniFile())
            Dim b2Buff As Boolean = (GetPrivateProfileInt(S_OPENGL, K_DOUBLEBUFFER, 1, m_MainWindow.GetIniFile()) <> 0)
            Dim nColorBits As Integer = GetPrivateProfileInt(S_OPENGL, K_COLORBITS, 32, m_MainWindow.GetIniFile())
            Dim nDepthBits As Integer = GetPrivateProfileInt(S_OPENGL, K_DEPTHBITS, 32, m_MainWindow.GetIniFile())
            CurrentProjectScene.SetViewAttributes(nDriver, b2Buff, nColorBits, nDepthBits)
            ' inizializzo la scena (DB geometrico + visualizzazione) e verifico presenza chiave
            If Not CurrentProjectScene.Init() Then
                Dim m_MissingKeyWindow As New MissingKeyWD
                m_MissingKeyWindow.Top = m_MainWindow.Top + (m_MainWindow.Height / 2 - m_MissingKeyWindow.Height / 2)
                m_MissingKeyWindow.Left = m_MainWindow.Left + (m_MainWindow.Width / 2 - m_MissingKeyWindow.Width / 2)
                m_MainWindow.Close()
                m_MissingKeyWindow.Show()
            End If
           ' inizializzo gestore lavorazioni
            EgtInitMachMgr(m_MainWindow.GetMachinesRootDir())
            m_bFirst = False
            ' carico la macchina corrente
            Dim sCurrMach As String = String.Empty
            GetPrivateProfileString(S_MACH, K_CURRMACH, "", sCurrMach, m_MainWindow.GetIniFile())
            EgtAddMachGroup("Mach01", sCurrMach)
            ' imposto la tavola corrente
            EgtSetTable("MainTab")
            EgtShowOnlyTable(True)
        Else
            EgtSetCurrentContext(CurrentProjectScene.GetCtx())
        End If
        ' inibisco selezione diretta da Scene
        CurrentProjectScene.SetStatusNull()

        ' Imposto dati progetto
        If m_MainWindow.m_nCurrentMaterial >= 0 And
           m_MainWindow.m_nCurrentMaterial < m_MainWindow.m_MaterialsList.Count() Then
            MaterialTxBx.Text = m_MainWindow.m_MaterialsList(m_MainWindow.m_nCurrentMaterial).Name
        Else
            MaterialTxBx.Text = ""
        End If
        HeightTxBx.Text = m_dRawHeight
        GetPrivateProfileString("Mach", "CurrSaw", "", ToolTxBx.Text, m_MainWindow.GetIniFile)

    End Sub

    Private Sub OnMouseDownScene(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles CurrentProjectScene.OnMouseDownScene
        ' Si può selezionare solo con il tasto sinistro e se stato NULL
        If e.Button <> Windows.Forms.MouseButtons.Left Or Not CurrentProjectScene.IsStatusNull() Then
           Return
        End If
        ' Verifico se selezionato indicativo di pezzo
        EgtSetObjFilterForSelect(True, True, True, True, True)
        Dim nSel As Integer
        EgtSelect(e.Location, Scene.DIM_SEL, Scene.DIM_SEL, nSel)
        Dim nId As Integer = EgtGetFirstObjInSelWin()
        While nId <> GDB_ID.NULL
            ' Recupero l'identificativo del pezzo cui appartiene
            Dim nPartId As Integer = EgtGetParent(EgtGetParent(nId))
            If EgtIsPart(nPartId) Or EgtGetParent(nPartId) = m_nRawId Then
                Dim nStat As Integer = GDB_ST.ON_
                EgtGetStatus(nPartId, nStat)
                ' Se selezionato
                If nStat = GDB_ST.SEL Then
                    ' Deseleziono
                    EgtDeselectObj(nPartId)
                Else
                    EgtSelectObj(nPartId)
                End If
                EgtDraw()
                Exit While
            End If
            nId = EgtGetNextObjInSelWin()
        End While
    End Sub

End Class