OmagCUT/GrezzoUC.xaml.vb

Imports EgtUILib

Public Class GrezzoUC

    Dim MainWindowUC As MainWindow = Application.Current.MainWindow
    Dim m_bRectangle As Boolean

    Private Sub GrezzoUC_Initialized(sender As Object, e As EventArgs)
        RectangleBtn.Content = EgtMsg(MSG_TAGLICAD + 1)     'Rettangolo
    End Sub

    Private Sub GrezzoUC_Loaded(sender As Object, e As RoutedEventArgs)
        'RectangleBtn.Content = EgtMsg(9001)
        WidthTxBx.Tag = WidthLbl
    End Sub

    Private Sub ExitBtnUC_Click(sender As Object, e As RoutedEventArgs)
        MainWindowUC.MainGrid.Children.Remove(MainWindowUC.m_GrezzoUC)
    End Sub

    Private Sub ConfirmBtn_Click(sender As Object, e As RoutedEventArgs)
        MainWindowUC.MainGrid.Children.Remove(MainWindowUC.m_GrezzoUC)
    End Sub

    Private Sub RectangleBtnUC_Click(sender As Object, e As RoutedEventArgs) Handles RectangleBtn.Click
        If Not m_bRectangle Then
            m_bRectangle = True
            RectangleBtn.IsEnabled = True
            ByPointsBtn.IsEnabled = False
            'Funzione Egt che imposta modalità rettangolo
        End If
    End Sub

    Private Sub ByPointsBtnUC_Click(sender As Object, e As RoutedEventArgs)
        If m_bRectangle Then
            m_bRectangle = False
            RectangleBtn.IsEnabled = False
            ByPointsBtn.IsEnabled = True
            'Funzione Egt che imposta modalità per punti
        End If
    End Sub

End Class