Dario Sassi
1893 lines
103 KiB
VB.net
1893 lines
103 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5.MachiningTreeViewItem
|
|
|
|
Public Class MachiningDbWindowVM
|
|
Inherits VMBase
|
|
|
|
Friend Shared m_bActive As Boolean = False
|
|
|
|
Friend Shared m_ProjectSceneContext As Integer = 0
|
|
Public Shared m_sMachineIniPath As String = String.Empty
|
|
|
|
Friend Shared m_bVisibleSysNotes As Boolean = False
|
|
|
|
Public Event OnCloseWindow(bDialogResult As Boolean)
|
|
|
|
#Region "NEW INTERFACE PROPERTIES"
|
|
|
|
Private m_bPersonalInterface As Boolean = False
|
|
Public Property bPersonalInterface As Boolean
|
|
Get
|
|
Return m_bPersonalInterface
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bPersonalInterface = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BorderBrushIsMouseOver As Brush
|
|
Public Property BorderBrushIsMouseOver As Brush
|
|
Get
|
|
Return m_BorderBrushIsMouseOver
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BorderBrushIsMouseOver = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_GeneralBorderBrush As Brush
|
|
Public Property GeneralBorderBrush As Brush
|
|
Get
|
|
Return m_GeneralBorderBrush
|
|
End Get
|
|
Set(value As Brush)
|
|
m_GeneralBorderBrush = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BorderBrushIsFocused As Brush
|
|
Public Property BorderBrushIsFocused As Brush
|
|
Get
|
|
Return m_BorderBrushIsFocused
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BorderBrushIsFocused = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BackgroundBrdEnable As Brush
|
|
Public Property BackgroundBrdEnable As Brush
|
|
Get
|
|
Return m_BackgroundBrdEnable
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BackgroundBrdEnable = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BackgroundBrdDisable As Brush
|
|
Public Property BackgroundBrdDisable As Brush
|
|
Get
|
|
Return m_BackgroundBrdDisable
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BackgroundBrdDisable = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BackgroundTxBlDisable As Brush
|
|
Public Property BackgroundTxBlDisable As Brush
|
|
Get
|
|
Return m_BackgroundTxBlDisable
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BackgroundTxBlDisable = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ForegroundTxBlEnable As Brush
|
|
Public Property ForegroundTxBlEnable As Brush
|
|
Get
|
|
Return m_ForegroundTxBlEnable
|
|
End Get
|
|
Set(value As Brush)
|
|
m_ForegroundTxBlEnable = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ForegroundTxBlDisable As Brush
|
|
Public Property ForegroundTxBlDisable As Brush
|
|
Get
|
|
Return m_ForegroundTxBlDisable
|
|
End Get
|
|
Set(value As Brush)
|
|
m_ForegroundTxBlDisable = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_GeneralForeground As Brush
|
|
Public Property GeneralForeground As Brush
|
|
Get
|
|
Return m_GeneralForeground
|
|
End Get
|
|
Set(value As Brush)
|
|
m_GeneralForeground = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_GeneralBackground As Brush
|
|
Public Property GeneralBackground As Brush
|
|
Get
|
|
Return m_GeneralBackground
|
|
End Get
|
|
Set(value As Brush)
|
|
m_GeneralBackground = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_MyBorderGrbThickness As Double
|
|
Public Property MyBorderGrbThickness As Double
|
|
Get
|
|
Return m_MyBorderGrbThickness
|
|
End Get
|
|
Set(value As Double)
|
|
m_MyBorderGrbThickness = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_MyForegroundGrbColor As Brush
|
|
Public Property MyForegroundGrbColor As Brush
|
|
Get
|
|
Return m_MyForegroundGrbColor
|
|
End Get
|
|
Set(value As Brush)
|
|
m_MyForegroundGrbColor = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BackgroundCmBxTxBl As Brush
|
|
Public Property BackgroundCmBxTxBl As Brush
|
|
Get
|
|
Return m_BackgroundCmBxTxBl
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BackgroundCmBxTxBl = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BackgroundListCmBxTxBl As Brush
|
|
Public Property BackgroundListCmBxTxBl As Brush
|
|
Get
|
|
Return m_BackgroundListCmBxTxBl
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BackgroundListCmBxTxBl = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Private m_ForegroundCmBxTxBl As Brush
|
|
Public Property ForegroundCmBxTxBl As Brush
|
|
Get
|
|
Return m_ForegroundCmBxTxBl
|
|
End Get
|
|
Set(value As Brush)
|
|
m_ForegroundCmBxTxBl = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BorderThicknessCmBxTxBl As Thickness
|
|
Public Property BorderThicknessCmBxTxBl As Thickness
|
|
Get
|
|
Return m_BorderThicknessCmBxTxBl
|
|
End Get
|
|
Set(value As Thickness)
|
|
m_BorderThicknessCmBxTxBl = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BorderBrushCmBxTxBl As Brush
|
|
Public Property BorderBrushCmBxTxBl As Brush
|
|
Get
|
|
Return m_BorderBrushCmBxTxBl
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BorderBrushCmBxTxBl = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_VerticalContentAlignmentCmBxTxBl As String
|
|
Public Property VerticalContentAlignmentCmBxTxBl As String
|
|
Get
|
|
Return m_VerticalContentAlignmentCmBxTxBl
|
|
End Get
|
|
Set(value As String)
|
|
m_VerticalContentAlignmentCmBxTxBl = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_HeightCmBxTxBl As String
|
|
Public Property HeightCmBxTxBl As String
|
|
Get
|
|
Return m_HeightCmBxTxBl
|
|
End Get
|
|
Set(value As String)
|
|
m_HeightCmBxTxBl = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_WidthCmBxTxBl As String
|
|
Public Property WidthCmBxTxBl As String
|
|
Get
|
|
Return m_WidthCmBxTxBl
|
|
End Get
|
|
Set(value As String)
|
|
m_WidthCmBxTxBl = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ForegroundTextBoxCmBxTxBl As Brush
|
|
Public Property ForegroundTextBoxCmBxTxBl As Brush
|
|
Get
|
|
Return m_ForegroundTextBoxCmBxTxBl
|
|
End Get
|
|
Set(value As Brush)
|
|
m_ForegroundTextBoxCmBxTxBl = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BackgroundIsChecked As Brush
|
|
Public Property BackgroundIsChecked As Brush
|
|
Get
|
|
Return m_BackgroundIsChecked
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BackgroundIsChecked = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ForegroundIsChecked As Brush
|
|
Public Property ForegroundIsChecked As Brush
|
|
Get
|
|
Return m_ForegroundIsChecked
|
|
End Get
|
|
Set(value As Brush)
|
|
m_ForegroundIsChecked = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BorderBrushIsChecked As Brush
|
|
Public Property BorderBrushIsChecked As Brush
|
|
Get
|
|
Return m_BorderBrushIsChecked
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BorderBrushIsChecked = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BorderThicknessIsChecked As Thickness
|
|
Public Property BorderThicknessIsChecked As Thickness
|
|
Get
|
|
Return m_BorderThicknessIsChecked
|
|
End Get
|
|
Set(value As Thickness)
|
|
m_BorderThicknessIsChecked = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_OpacityIsChecked As Double
|
|
Public Property OpacityIsChecked As Double
|
|
Get
|
|
Return m_OpacityIsChecked
|
|
End Get
|
|
Set(value As Double)
|
|
m_OpacityIsChecked = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_HeaderVisibility As DataGridHeadersVisibility
|
|
Public Property HeaderVisibility As DataGridHeadersVisibility
|
|
Get
|
|
Return m_HeaderVisibility
|
|
End Get
|
|
Set(value As DataGridHeadersVisibility)
|
|
m_HeaderVisibility = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BackgroundDataGrid As Brush
|
|
Public Property BackgroundDataGrid As Brush
|
|
Get
|
|
Return m_BackgroundDataGrid
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BackgroundDataGrid = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BackGroundHeader As Brush
|
|
Public Property BackGroundHeader As Brush
|
|
Get
|
|
Return m_BackGroundHeader
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BackGroundHeader = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ForegroundHeader As Brush
|
|
Public Property ForegroundHeader As Brush
|
|
Get
|
|
Return m_ForegroundHeader
|
|
End Get
|
|
Set(value As Brush)
|
|
m_ForegroundHeader = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BorderBrushHeader As Brush
|
|
Public Property BorderBrushHeader As Brush
|
|
Get
|
|
Return m_BorderBrushHeader
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BorderBrushHeader = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BorderThicknessHeader As Thickness
|
|
Public Property BorderThicknessHeader As Thickness
|
|
Get
|
|
Return m_BorderThicknessHeader
|
|
End Get
|
|
Set(value As Thickness)
|
|
m_BorderThicknessHeader = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_FontWeightHeader As FontWeight
|
|
Public Property FontWeightHeader As FontWeight
|
|
Get
|
|
Return m_FontWeightHeader
|
|
End Get
|
|
Set(value As FontWeight)
|
|
m_FontWeightHeader = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BorderBrushDataGrid As Brush
|
|
Public Property BorderBrushDataGrid As Brush
|
|
Get
|
|
Return m_BorderBrushDataGrid
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BorderBrushDataGrid = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BackgroundDataGridRow As Brush
|
|
Public Property BackgroundDataGridRow As Brush
|
|
Get
|
|
Return m_BackgroundDataGridRow
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BackgroundDataGridRow = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ForegroundDataGridRow As Brush
|
|
Public Property ForegroundDataGridRow As Brush
|
|
Get
|
|
Return m_ForegroundDataGridRow
|
|
End Get
|
|
Set(value As Brush)
|
|
m_ForegroundDataGridRow = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BorderBrushDataGridRow As Brush
|
|
Public Property BorderBrushDataGridRow As Brush
|
|
Get
|
|
Return m_BorderBrushDataGridRow
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BorderBrushDataGridRow = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BorderThicknessDataGridRow As Thickness
|
|
Public Property BorderThicknessDataGridRow As Thickness
|
|
Get
|
|
Return m_BorderThicknessDataGridRow
|
|
End Get
|
|
Set(value As Thickness)
|
|
m_BorderThicknessDataGridRow = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BorderBrushDataGridCell As Brush
|
|
Public Property BorderBrushDataGridCell As Brush
|
|
Get
|
|
Return m_BorderBrushDataGridCell
|
|
End Get
|
|
Set(value As Brush)
|
|
m_BorderBrushDataGridCell = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BorderThicknessDataGridCell As Thickness
|
|
Public Property BorderThicknessDataGridCell As Thickness
|
|
Get
|
|
Return m_BorderThicknessDataGridCell
|
|
End Get
|
|
Set(value As Thickness)
|
|
m_BorderThicknessDataGridCell = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_MyForegroundChColor As Brush
|
|
Public Property MyForegroundChColor As Brush
|
|
Get
|
|
Return m_MyForegroundChColor
|
|
End Get
|
|
Set(value As Brush)
|
|
m_MyForegroundChColor = value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' New interface properties
|
|
|
|
#Region "MESSAGES"
|
|
|
|
Private m_Title As String
|
|
Public ReadOnly Property Title As String
|
|
Get
|
|
Return EgtMsg(5004) ' Db Lavorazioni
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property NewMsg As String
|
|
Get
|
|
Return EgtMsg(31701) ' Nuovo
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property SaveMsg As String
|
|
Get
|
|
Return EgtMsg(31702) ' Salva
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property RemoveMsg As String
|
|
Get
|
|
Return EgtMsg(31703) ' Rimuovi
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property ImportMsg As String
|
|
Get
|
|
Return EgtMsg(31450) ' Importa
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property ExportMsg As String
|
|
Get
|
|
Return EgtMsg(31451) ' Esorta
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property ResetMsg As String
|
|
Get
|
|
Return EgtMsg(31456) ' Reset
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
' Lista delle lavorazioni
|
|
Private m_MachiningsList As New ObservableCollection(Of FamilyMachiningTreeViewItem)
|
|
Public Property MachiningsList As ObservableCollection(Of FamilyMachiningTreeViewItem)
|
|
Get
|
|
Return m_MachiningsList
|
|
End Get
|
|
Set(value As ObservableCollection(Of FamilyMachiningTreeViewItem))
|
|
m_MachiningsList = value
|
|
End Set
|
|
End Property
|
|
|
|
Public ReadOnly Property SelMachining As MachiningTreeViewItem
|
|
Get
|
|
For Each Family In m_MachiningsList
|
|
Dim Machining As InheritableTreeViewItem = Family.Items.FirstOrDefault(Function(x) x.IsSelected)
|
|
If Not IsNothing(Machining) Then
|
|
Return DirectCast(Machining, MachiningTreeViewItem)
|
|
End If
|
|
Next
|
|
Return Nothing
|
|
End Get
|
|
End Property
|
|
|
|
Private m_IsEnabledNewBtn As Boolean
|
|
Public ReadOnly Property IsEnabledNewBtn As Boolean
|
|
Get
|
|
Return m_IsEnabledNewBtn
|
|
End Get
|
|
End Property
|
|
|
|
Private m_IsEnabledSaveBtn As Boolean
|
|
Public ReadOnly Property IsEnabledSaveBtn As Boolean
|
|
Get
|
|
Return m_IsEnabledSaveBtn
|
|
End Get
|
|
End Property
|
|
|
|
Private m_IsEnabledRemoveBtn As Boolean
|
|
Public ReadOnly Property IsEnabledRemoveBtn As Boolean
|
|
Get
|
|
Return m_IsEnabledRemoveBtn
|
|
End Get
|
|
End Property
|
|
|
|
Private StoneDrillParamPageV As StoneDrillingParamPageV
|
|
Private WoodDrillParamPageV As WoodDrillingParamPageV
|
|
Private StoneSawParamPageV As StoneSawingParamPageV
|
|
Private WoodSawParamPageV As WoodSawingParamPageV
|
|
Private StoneMillParamPageV As StoneMillingParamPageV
|
|
Private WoodMillParamPageV As WoodMillingParamPageV
|
|
Private BeamMillParamPageV As BeamMillingParamPageV
|
|
Private PocketParamPageV As PocketingParamPageV
|
|
Private MortiseParamPageV As MortisingParamPageV
|
|
Private StoneSawRoughParamPageV As StoneSawRoughingParamPageV
|
|
Private StoneSawFinishParamPageV As StoneSawFinishingParamPageV
|
|
Private GenMachinParamPageV As GenMachiningParamPageV
|
|
Private ChiselParamPageV As ChiselingParamPageV
|
|
Private SurfFinishParamPageV As SurfFinishingParamPageV
|
|
Private WjParamPageV As WaterjettingParamPageV
|
|
Private Stone5DrillParamPageV As Stone5DrillingParamPageV
|
|
Private Stone5SawParamPageV As Stone5SawingParamPageV
|
|
Private Stone5MillParamPageV As Stone5MillingParamPageV
|
|
Private Stone5SawRoughParamPageV As Stone5SawRoughingParamPageV
|
|
Private Stone5SawFinishParamPageV As Stone5SawFinishingParamPageV
|
|
Private Stone5WjParamPageV As Stone5WaterjettingParamPageV
|
|
Private FiveAxParamPageV As FiveAxisMachinigParamPageV
|
|
Private SurfRoughParamPageV As SurfRoughingParamPageV
|
|
Private ProbParamPageV As ProbingParamPageV
|
|
|
|
Public ReadOnly Property ParamPageV As ContentControl
|
|
Get
|
|
Dim selMachiningFamily As FamilyMachiningTreeViewItem = Nothing
|
|
Dim selMachining As MachiningTreeViewItem = Nothing
|
|
For Each MachiningFamily In MachiningsList
|
|
For Each Machining In MachiningFamily.Items
|
|
If Machining.IsSelected Then
|
|
selMachining = DirectCast(Machining, MachiningTreeViewItem)
|
|
Exit For
|
|
End If
|
|
Next
|
|
If Not IsNothing(selMachining) Then Exit For
|
|
Next
|
|
|
|
If IsNothing(selMachining) Then Return Nothing
|
|
|
|
Select Case selMachining.Type
|
|
Case MCH_MY.DRILLING
|
|
If MachiningTreeViewItem.m_MatType = MaterialType.STONE5 Then
|
|
If IsNothing(Stone5DrillParamPageV) Then Stone5DrillParamPageV = New Stone5DrillingParamPageV
|
|
Stone5DrillParamPageV.DataContext = selMachining
|
|
Return Stone5DrillParamPageV
|
|
|
|
ElseIf MachiningTreeViewItem.m_MatType = MaterialType.STONE Then
|
|
If IsNothing(StoneDrillParamPageV) Then StoneDrillParamPageV = New StoneDrillingParamPageV
|
|
StoneDrillParamPageV.DataContext = selMachining
|
|
' Recupero lo stile da programma chiamante, Altrimenti imposto i colori di Default
|
|
If Not m_bPersonalInterface Then
|
|
'texbox
|
|
m_GeneralBackground = StoneDrillingParamPageV.GetGeneralBackground(StoneDrillParamPageV)
|
|
m_GeneralForeground = StoneDrillingParamPageV.GetGeneralForeground(StoneDrillParamPageV)
|
|
m_GeneralBorderBrush = StoneDrillingParamPageV.GetGeneralBorderBrush(StoneDrillParamPageV)
|
|
m_BorderBrushIsMouseOver = StoneDrillingParamPageV.GetBorderBrushIsMouseOver(StoneDrillParamPageV)
|
|
m_BorderBrushIsFocused = StoneDrillingParamPageV.GetBorderBrushIsFocused(StoneDrillParamPageV)
|
|
m_BackgroundBrdEnable = StoneDrillingParamPageV.GetBackgroundBrdEnable(StoneDrillParamPageV)
|
|
m_BackgroundBrdDisable = StoneDrillingParamPageV.GetBackgroundBrdDisable(StoneDrillParamPageV)
|
|
m_ForegroundTxBlEnable = StoneDrillingParamPageV.GetForegroundTxBlEnable(StoneDrillParamPageV)
|
|
m_ForegroundTxBlDisable = StoneDrillingParamPageV.GetForegroundTxBlDisable(StoneDrillParamPageV)
|
|
m_BackgroundTxBlDisable = StoneDrillingParamPageV.GetBackgroundTxBlDisable(StoneDrillParamPageV)
|
|
'combobox
|
|
m_BackgroundCmBxTxBl = StoneDrillingParamPageV.GetBackgroundCmBxTxBl(StoneDrillParamPageV)
|
|
m_BackgroundListCmBxTxBl = StoneDrillingParamPageV.GetBackgroundListCmBxTxBl(StoneDrillParamPageV)
|
|
m_ForegroundCmBxTxBl = StoneDrillingParamPageV.GetForegroundCmBxTxBl(StoneDrillParamPageV)
|
|
m_BorderThicknessCmBxTxBl = StoneDrillingParamPageV.GetBorderThicknessCmBxTxBl(StoneDrillParamPageV)
|
|
m_BorderBrushCmBxTxBl = StoneDrillingParamPageV.GetBorderBrushCmBxTxBl(StoneDrillParamPageV)
|
|
m_VerticalContentAlignmentCmBxTxBl = StoneDrillingParamPageV.GetVerticalContentAlignmentCmBxTxBl(StoneDrillParamPageV)
|
|
m_HeightCmBxTxBl = StoneDrillingParamPageV.GetHeightCmBxTxBl(StoneDrillParamPageV)
|
|
m_WidthCmBxTxBl = StoneDrillingParamPageV.GetWidthCmBxTxBl(StoneDrillParamPageV)
|
|
m_ForegroundTextBoxCmBxTxBl = StoneDrillingParamPageV.GetForegroundTextBoxCmBxTxBl(StoneDrillParamPageV)
|
|
'groupbox
|
|
m_MyBorderGrbThickness = StoneDrillingParamPageV.GetMyBorderGrbThickness(StoneDrillParamPageV)
|
|
m_MyForegroundGrbColor = StoneDrillingParamPageV.GetMyForegroundGrbColor(StoneDrillParamPageV)
|
|
'togglebutton
|
|
m_BackgroundIsChecked = StoneDrillingParamPageV.GetBackgroundIsChecked(StoneDrillParamPageV)
|
|
m_ForegroundIsChecked = StoneDrillingParamPageV.GetForegroundIsChecked(StoneDrillParamPageV)
|
|
m_BorderBrushIsChecked = StoneDrillingParamPageV.GetBorderBrushIsChecked(StoneDrillParamPageV)
|
|
m_BorderThicknessIsChecked = StoneDrillingParamPageV.GetBorderThicknessIsChecked(StoneDrillParamPageV)
|
|
m_OpacityIsChecked = StoneDrillingParamPageV.GetOpacityIsChecked(StoneDrillParamPageV)
|
|
'Imposto stile datagird
|
|
m_HeaderVisibility = StoneDrillingParamPageV.GetHeaderVisibility(StoneDrillParamPageV)
|
|
m_BackgroundDataGrid = StoneDrillingParamPageV.GetBackgroundDataGrid(StoneDrillParamPageV)
|
|
m_BorderBrushDataGrid = StoneDrillingParamPageV.GetBorderBrushDataGrid(StoneDrillParamPageV)
|
|
m_BackGroundHeader = StoneDrillingParamPageV.GetBackGroundHeader(StoneDrillParamPageV)
|
|
m_ForegroundHeader = StoneDrillingParamPageV.GetForegroundHeader(StoneDrillParamPageV)
|
|
m_BorderBrushHeader = StoneDrillingParamPageV.GetBorderBrushHeader(StoneDrillParamPageV)
|
|
m_BorderThicknessHeader = StoneDrillingParamPageV.GetBorderThicknessHeader(StoneDrillParamPageV)
|
|
m_FontWeightHeader = StoneDrillingParamPageV.GetFontWeightHeader(StoneDrillParamPageV)
|
|
m_BackgroundDataGridRow = StoneDrillingParamPageV.GetBackgroundDataGridRow(StoneDrillParamPageV)
|
|
m_ForegroundDataGridRow = StoneDrillingParamPageV.GetForegroundDataGridRow(StoneDrillParamPageV)
|
|
m_BorderBrushDataGridRow = StoneDrillingParamPageV.GetBorderBrushDataGridRow(StoneDrillParamPageV)
|
|
m_BorderThicknessDataGridRow = StoneDrillingParamPageV.GetBorderThicknessDataGridRow(StoneDrillParamPageV)
|
|
m_BorderBrushDataGridCell = StoneDrillingParamPageV.GetBorderBrushDataGridCell(StoneDrillParamPageV)
|
|
m_BorderThicknessDataGridCell = StoneDrillingParamPageV.GetBorderThicknessDataGridCell(StoneDrillParamPageV)
|
|
'imposto stile checkbox
|
|
m_MyForegroundChColor = StoneDrillingParamPageV.GetMyForegroundChColor(StoneDrillParamPageV)
|
|
End If
|
|
|
|
'Imposto stile groupbox
|
|
StoneDrillParamPageV.MyBorderGrbThickness = m_MyBorderGrbThickness
|
|
StoneDrillParamPageV.MyForegroundGrbColor = m_MyForegroundGrbColor
|
|
' Imposto il colore delle TextBlock (definito nel programma chimamante)
|
|
StoneDrillParamPageV.BorderBrushIsMouseOver = m_BorderBrushIsMouseOver
|
|
StoneDrillParamPageV.GeneralBorderBrush = m_GeneralBorderBrush
|
|
StoneDrillParamPageV.BorderBrushIsFocused = m_BorderBrushIsFocused
|
|
StoneDrillParamPageV.BackgroundBrdEnable = m_BackgroundBrdEnable
|
|
StoneDrillParamPageV.BackgroundBrdDisable = m_BackgroundBrdDisable
|
|
StoneDrillParamPageV.BackgroundTxBlDisable = m_BackgroundTxBlDisable
|
|
StoneDrillParamPageV.ForegroundTxBlEnable = m_ForegroundTxBlEnable
|
|
StoneDrillParamPageV.ForegroundTxBlDisable = m_ForegroundTxBlDisable
|
|
StoneDrillParamPageV.GeneralForeground = m_GeneralForeground
|
|
StoneDrillParamPageV.GeneralBackground = m_GeneralBackground
|
|
'Imposto stile combobox
|
|
StoneDrillParamPageV.BackgroundCmBxTxBl = m_BackgroundCmBxTxBl
|
|
StoneDrillParamPageV.BackgroundListCmBxTxBl = m_BackgroundListCmBxTxBl
|
|
StoneDrillParamPageV.ForegroundCmBxTxBl = m_ForegroundCmBxTxBl
|
|
StoneDrillParamPageV.BorderBrushCmBxTxBl = m_BorderBrushCmBxTxBl
|
|
StoneDrillParamPageV.BorderThicknessCmBxTxBl = m_BorderThicknessCmBxTxBl
|
|
StoneDrillParamPageV.BorderBrushCmBxTxBl = m_BorderBrushCmBxTxBl
|
|
StoneDrillParamPageV.VerticalContentAlignmentCmBxTxBl = m_VerticalContentAlignmentCmBxTxBl
|
|
StoneDrillParamPageV.HeightCmBxTxBl = m_HeightCmBxTxBl
|
|
StoneDrillParamPageV.WidthCmBxTxBl = m_WidthCmBxTxBl
|
|
StoneDrillParamPageV.ForegroundTextBoxCmBxTxBl = m_ForegroundTextBoxCmBxTxBl
|
|
'Imposto stile togglebutton
|
|
StoneDrillParamPageV.BackgroundIsChecked = m_BackgroundIsChecked
|
|
StoneDrillParamPageV.ForegroundIsChecked = m_ForegroundIsChecked
|
|
StoneDrillParamPageV.BorderBrushIsChecked = m_BorderBrushIsChecked
|
|
StoneDrillParamPageV.BorderThicknessIsChecked = m_BorderThicknessIsChecked
|
|
StoneDrillParamPageV.OpacityIsChecked = m_OpacityIsChecked
|
|
'Imposto stile datagird
|
|
StoneDrillParamPageV.HeaderVisibility = m_HeaderVisibility
|
|
StoneDrillParamPageV.BackgroundDataGrid = m_BackgroundDataGrid
|
|
StoneDrillParamPageV.BorderBrushDataGrid = m_BorderBrushDataGrid
|
|
StoneDrillParamPageV.BackGroundHeader = m_BackGroundHeader
|
|
StoneDrillParamPageV.ForegroundHeader = m_ForegroundHeader
|
|
StoneDrillParamPageV.BorderBrushHeader = m_BorderBrushHeader
|
|
StoneDrillParamPageV.BorderThicknessHeader = m_BorderThicknessHeader
|
|
StoneDrillParamPageV.FontWeightHeader = m_FontWeightHeader
|
|
StoneDrillParamPageV.BackgroundDataGridRow = m_BackgroundDataGridRow
|
|
StoneDrillParamPageV.ForegroundDataGridRow = m_ForegroundDataGridRow
|
|
StoneDrillParamPageV.BorderBrushDataGridRow = m_BorderBrushDataGridRow
|
|
StoneDrillParamPageV.BorderThicknessDataGridRow = m_BorderThicknessDataGridRow
|
|
StoneDrillParamPageV.BorderBrushDataGridCell = m_BorderBrushDataGridCell
|
|
StoneDrillParamPageV.BorderThicknessDataGridCell = m_BorderThicknessDataGridCell
|
|
'imposto stile checkbox
|
|
StoneDrillParamPageV.ForegroundChxTxBl = m_MyForegroundChColor
|
|
Return StoneDrillParamPageV
|
|
|
|
ElseIf MachiningTreeViewItem.m_MatType = MaterialType.WOOD Or MachiningTreeViewItem.m_MatType = MaterialType.BEAM Then
|
|
If IsNothing(WoodDrillParamPageV) Then WoodDrillParamPageV = New WoodDrillingParamPageV
|
|
WoodDrillParamPageV.DataContext = selMachining
|
|
Return WoodDrillParamPageV
|
|
End If
|
|
|
|
Case MCH_MY.SAWING
|
|
If MachiningTreeViewItem.m_MatType = MaterialType.STONE5 Then
|
|
If IsNothing(Stone5SawParamPageV) Then Stone5SawParamPageV = New Stone5SawingParamPageV
|
|
Stone5SawParamPageV.DataContext = selMachining
|
|
Return Stone5SawParamPageV
|
|
|
|
ElseIf MachiningTreeViewItem.m_MatType = MaterialType.STONE Then
|
|
If IsNothing(StoneSawParamPageV) Then StoneSawParamPageV = New StoneSawingParamPageV
|
|
StoneSawParamPageV.DataContext = selMachining
|
|
' Recupero lo stile da programma chiamante, Altrienti imposto i colori di Default
|
|
If Not m_bPersonalInterface Then
|
|
'texbox
|
|
m_GeneralBackground = StoneSawingParamPageV.GetGeneralBackground(StoneSawParamPageV)
|
|
m_GeneralForeground = StoneSawingParamPageV.GetGeneralForeground(StoneSawParamPageV)
|
|
m_GeneralBorderBrush = StoneSawingParamPageV.GetGeneralBorderBrush(StoneSawParamPageV)
|
|
m_BorderBrushIsMouseOver = StoneSawingParamPageV.GetBorderBrushIsMouseOver(StoneSawParamPageV)
|
|
m_BorderBrushIsFocused = StoneSawingParamPageV.GetBorderBrushIsFocused(StoneSawParamPageV)
|
|
m_BackgroundBrdEnable = StoneSawingParamPageV.GetBackgroundBrdEnable(StoneSawParamPageV)
|
|
m_BackgroundBrdDisable = StoneSawingParamPageV.GetBackgroundBrdDisable(StoneSawParamPageV)
|
|
m_ForegroundTxBlEnable = StoneSawingParamPageV.GetForegroundTxBlEnable(StoneSawParamPageV)
|
|
m_ForegroundTxBlDisable = StoneSawingParamPageV.GetForegroundTxBlDisable(StoneSawParamPageV)
|
|
m_BackgroundTxBlDisable = StoneSawingParamPageV.GetBackgroundTxBlDisable(StoneSawParamPageV)
|
|
'combobox
|
|
m_BackgroundCmBxTxBl = StoneSawingParamPageV.GetBackgroundCmBxTxBl(StoneSawParamPageV)
|
|
m_BackgroundListCmBxTxBl = StoneSawingParamPageV.GetBackgroundListCmBxTxBl(StoneSawParamPageV)
|
|
m_ForegroundCmBxTxBl = StoneSawingParamPageV.GetForegroundCmBxTxBl(StoneSawParamPageV)
|
|
m_BorderThicknessCmBxTxBl = StoneSawingParamPageV.GetBorderThicknessCmBxTxBl(StoneSawParamPageV)
|
|
m_BorderBrushCmBxTxBl = StoneSawingParamPageV.GetBorderBrushCmBxTxBl(StoneSawParamPageV)
|
|
m_VerticalContentAlignmentCmBxTxBl = StoneSawingParamPageV.GetVerticalContentAlignmentCmBxTxBl(StoneSawParamPageV)
|
|
m_HeightCmBxTxBl = StoneSawingParamPageV.GetHeightCmBxTxBl(StoneSawParamPageV)
|
|
m_WidthCmBxTxBl = StoneSawingParamPageV.GetWidthCmBxTxBl(StoneSawParamPageV)
|
|
m_ForegroundTextBoxCmBxTxBl = StoneSawingParamPageV.GetForegroundTextBoxCmBxTxBl(StoneSawParamPageV)
|
|
'groupbox
|
|
m_MyBorderGrbThickness = StoneSawingParamPageV.GetMyBorderGrbThickness(StoneSawParamPageV)
|
|
m_MyForegroundGrbColor = StoneSawingParamPageV.GetMyForegroundGrbColor(StoneSawParamPageV)
|
|
'togglebutton
|
|
m_BackgroundIsChecked = StoneSawingParamPageV.GetBackgroundIsChecked(StoneSawParamPageV)
|
|
m_ForegroundIsChecked = StoneSawingParamPageV.GetForegroundIsChecked(StoneSawParamPageV)
|
|
m_BorderBrushIsChecked = StoneSawingParamPageV.GetBorderBrushIsChecked(StoneSawParamPageV)
|
|
m_BorderThicknessIsChecked = StoneSawingParamPageV.GetBorderThicknessIsChecked(StoneSawParamPageV)
|
|
m_OpacityIsChecked = StoneSawingParamPageV.GetOpacityIsChecked(StoneSawParamPageV)
|
|
'Imposto stile datagird
|
|
m_HeaderVisibility = StoneSawingParamPageV.GetHeaderVisibility(StoneSawParamPageV)
|
|
m_BackgroundDataGrid = StoneSawingParamPageV.GetBackgroundDataGrid(StoneSawParamPageV)
|
|
m_BorderBrushDataGrid = StoneSawingParamPageV.GetBorderBrushDataGrid(StoneSawParamPageV)
|
|
m_BackGroundHeader = StoneSawingParamPageV.GetBackGroundHeader(StoneSawParamPageV)
|
|
m_ForegroundHeader = StoneSawingParamPageV.GetForegroundHeader(StoneSawParamPageV)
|
|
m_BorderBrushHeader = StoneSawingParamPageV.GetBorderBrushHeader(StoneSawParamPageV)
|
|
m_BorderThicknessHeader = StoneSawingParamPageV.GetBorderThicknessHeader(StoneSawParamPageV)
|
|
m_FontWeightHeader = StoneSawingParamPageV.GetFontWeightHeader(StoneSawParamPageV)
|
|
m_BackgroundDataGridRow = StoneSawingParamPageV.GetBackgroundDataGridRow(StoneSawParamPageV)
|
|
m_ForegroundDataGridRow = StoneSawingParamPageV.GetForegroundDataGridRow(StoneSawParamPageV)
|
|
m_BorderBrushDataGridRow = StoneSawingParamPageV.GetBorderBrushDataGridRow(StoneSawParamPageV)
|
|
m_BorderThicknessDataGridRow = StoneSawingParamPageV.GetBorderThicknessDataGridRow(StoneSawParamPageV)
|
|
m_BorderBrushDataGridCell = StoneSawingParamPageV.GetBorderBrushDataGridCell(StoneSawParamPageV)
|
|
m_BorderThicknessDataGridCell = StoneSawingParamPageV.GetBorderThicknessDataGridCell(StoneSawParamPageV)
|
|
'imposto stile checkbox
|
|
m_MyForegroundChColor = StoneSawingParamPageV.GetForegroundChxTxBl(StoneSawParamPageV)
|
|
End If
|
|
|
|
'Imposto stile groupbox
|
|
StoneSawParamPageV.MyBorderGrbThickness = m_MyBorderGrbThickness
|
|
StoneSawParamPageV.MyForegroundGrbColor = m_MyForegroundGrbColor
|
|
' Imposto il colore delle TextBlock (definito nel programma chimamante)
|
|
StoneSawParamPageV.BorderBrushIsMouseOver = m_BorderBrushIsMouseOver
|
|
StoneSawParamPageV.GeneralBorderBrush = m_GeneralBorderBrush
|
|
StoneSawParamPageV.BorderBrushIsFocused = m_BorderBrushIsFocused
|
|
StoneSawParamPageV.BackgroundBrdEnable = m_BackgroundBrdEnable
|
|
StoneSawParamPageV.BackgroundBrdDisable = m_BackgroundBrdDisable
|
|
StoneSawParamPageV.BackgroundTxBlDisable = m_BackgroundTxBlDisable
|
|
StoneSawParamPageV.ForegroundTxBlEnable = m_ForegroundTxBlEnable
|
|
StoneSawParamPageV.ForegroundTxBlDisable = m_ForegroundTxBlDisable
|
|
StoneSawParamPageV.GeneralForeground = m_GeneralForeground
|
|
StoneSawParamPageV.GeneralBackground = m_GeneralBackground
|
|
'Imposto stile combobox
|
|
StoneSawParamPageV.BackgroundCmBxTxBl = m_BackgroundCmBxTxBl
|
|
StoneSawParamPageV.BackgroundListCmBxTxBl = m_BackgroundListCmBxTxBl
|
|
StoneSawParamPageV.ForegroundCmBxTxBl = m_ForegroundCmBxTxBl
|
|
StoneSawParamPageV.BorderBrushCmBxTxBl = m_BorderBrushCmBxTxBl
|
|
StoneSawParamPageV.BorderThicknessCmBxTxBl = m_BorderThicknessCmBxTxBl
|
|
StoneSawParamPageV.BorderBrushCmBxTxBl = m_BorderBrushCmBxTxBl
|
|
StoneSawParamPageV.VerticalContentAlignmentCmBxTxBl = m_VerticalContentAlignmentCmBxTxBl
|
|
StoneSawParamPageV.HeightCmBxTxBl = m_HeightCmBxTxBl
|
|
StoneSawParamPageV.WidthCmBxTxBl = m_WidthCmBxTxBl
|
|
StoneSawParamPageV.ForegroundTextBoxCmBxTxBl = m_ForegroundTextBoxCmBxTxBl
|
|
'Imposto stile togglebutton
|
|
StoneSawParamPageV.BackgroundIsChecked = m_BackgroundIsChecked
|
|
StoneSawParamPageV.ForegroundIsChecked = m_ForegroundIsChecked
|
|
StoneSawParamPageV.BorderBrushIsChecked = m_BorderBrushIsChecked
|
|
StoneSawParamPageV.BorderThicknessIsChecked = m_BorderThicknessIsChecked
|
|
StoneSawParamPageV.OpacityIsChecked = m_OpacityIsChecked
|
|
'Imposto stile datagird
|
|
StoneSawParamPageV.HeaderVisibility = m_HeaderVisibility
|
|
StoneSawParamPageV.BackgroundDataGrid = m_BackgroundDataGrid
|
|
StoneSawParamPageV.BorderBrushDataGrid = m_BorderBrushDataGrid
|
|
StoneSawParamPageV.BackGroundHeader = m_BackGroundHeader
|
|
StoneSawParamPageV.ForegroundHeader = m_ForegroundHeader
|
|
StoneSawParamPageV.BorderBrushHeader = m_BorderBrushHeader
|
|
StoneSawParamPageV.BorderThicknessHeader = m_BorderThicknessHeader
|
|
StoneSawParamPageV.FontWeightHeader = m_FontWeightHeader
|
|
StoneSawParamPageV.BackgroundDataGridRow = m_BackgroundDataGridRow
|
|
StoneSawParamPageV.ForegroundDataGridRow = m_ForegroundDataGridRow
|
|
StoneSawParamPageV.BorderBrushDataGridRow = m_BorderBrushDataGridRow
|
|
StoneSawParamPageV.BorderThicknessDataGridRow = m_BorderThicknessDataGridRow
|
|
StoneSawParamPageV.BorderBrushDataGridCell = m_BorderBrushDataGridCell
|
|
StoneSawParamPageV.BorderThicknessDataGridCell = m_BorderThicknessDataGridCell
|
|
'imposto stile checkbox
|
|
StoneSawParamPageV.ForegroundChxTxBl = m_MyForegroundChColor
|
|
Return StoneSawParamPageV
|
|
|
|
ElseIf MachiningTreeViewItem.m_MatType = MaterialType.WOOD Or MachiningTreeViewItem.m_MatType = MaterialType.BEAM Then
|
|
If IsNothing(WoodSawParamPageV) Then WoodSawParamPageV = New WoodSawingParamPageV
|
|
WoodSawParamPageV.DataContext = selMachining
|
|
Return WoodSawParamPageV
|
|
End If
|
|
|
|
Case MCH_MY.MILLING
|
|
If MachiningTreeViewItem.m_MatType = MaterialType.STONE5 Then
|
|
If IsNothing(Stone5MillParamPageV) Then Stone5MillParamPageV = New Stone5MillingParamPageV
|
|
Stone5MillParamPageV.DataContext = selMachining
|
|
Return Stone5MillParamPageV
|
|
|
|
ElseIf MachiningTreeViewItem.m_MatType = MaterialType.STONE Then
|
|
If IsNothing(StoneMillParamPageV) Then StoneMillParamPageV = New StoneMillingParamPageV
|
|
StoneMillParamPageV.DataContext = selMachining
|
|
' Recupero lo stile da programma chiamante, Altrienti imposto i colori di Default
|
|
If Not m_bPersonalInterface Then
|
|
'texbox
|
|
m_GeneralBackground = StoneMillingParamPageV.GetGeneralBackground(StoneMillParamPageV)
|
|
m_GeneralForeground = StoneMillingParamPageV.GetGeneralForeground(StoneMillParamPageV)
|
|
m_GeneralBorderBrush = StoneMillingParamPageV.GetGeneralBorderBrush(StoneMillParamPageV)
|
|
m_BorderBrushIsMouseOver = StoneMillingParamPageV.GetBorderBrushIsMouseOver(StoneMillParamPageV)
|
|
m_BorderBrushIsFocused = StoneMillingParamPageV.GetBorderBrushIsFocused(StoneMillParamPageV)
|
|
m_BackgroundBrdEnable = StoneMillingParamPageV.GetBackgroundBrdEnable(StoneMillParamPageV)
|
|
m_BackgroundBrdDisable = StoneMillingParamPageV.GetBackgroundBrdDisable(StoneMillParamPageV)
|
|
m_ForegroundTxBlEnable = StoneMillingParamPageV.GetForegroundTxBlEnable(StoneMillParamPageV)
|
|
m_ForegroundTxBlDisable = StoneMillingParamPageV.GetForegroundTxBlDisable(StoneMillParamPageV)
|
|
m_BackgroundTxBlDisable = StoneMillingParamPageV.GetBackgroundTxBlDisable(StoneMillParamPageV)
|
|
'combobox
|
|
m_BackgroundCmBxTxBl = StoneMillingParamPageV.GetBackgroundCmBxTxBl(StoneMillParamPageV)
|
|
m_BackgroundListCmBxTxBl = StoneMillingParamPageV.GetBackgroundListCmBxTxBl(StoneMillParamPageV)
|
|
m_ForegroundCmBxTxBl = StoneMillingParamPageV.GetForegroundCmBxTxBl(StoneMillParamPageV)
|
|
m_BorderBrushCmBxTxBl = StoneMillingParamPageV.GetBorderBrushCmBxTxBl(StoneMillParamPageV)
|
|
m_BorderThicknessCmBxTxBl = StoneMillingParamPageV.GetBorderThicknessCmBxTxBl(StoneMillParamPageV)
|
|
m_VerticalContentAlignmentCmBxTxBl = StoneMillingParamPageV.GetVerticalContentAlignmentCmBxTxBl(StoneMillParamPageV)
|
|
m_HeightCmBxTxBl = StoneMillingParamPageV.GetHeightCmBxTxBl(StoneMillParamPageV)
|
|
m_WidthCmBxTxBl = StoneMillingParamPageV.GetWidthCmBxTxBl(StoneMillParamPageV)
|
|
m_ForegroundTextBoxCmBxTxBl = StoneMillingParamPageV.GetForegroundTextBoxCmBxTxBl(StoneMillParamPageV)
|
|
'groupbox
|
|
m_MyBorderGrbThickness = StoneMillingParamPageV.GetMyBorderGrbThickness(StoneMillParamPageV)
|
|
m_MyForegroundGrbColor = StoneMillingParamPageV.GetMyForegroundGrbColor(StoneMillParamPageV)
|
|
'togglebutton
|
|
m_BackgroundIsChecked = StoneMillingParamPageV.GetBackgroundIsChecked(StoneMillParamPageV)
|
|
m_ForegroundIsChecked = StoneMillingParamPageV.GetForegroundIsChecked(StoneMillParamPageV)
|
|
m_BorderBrushIsChecked = StoneMillingParamPageV.GetBorderBrushIsChecked(StoneMillParamPageV)
|
|
m_BorderThicknessIsChecked = StoneMillingParamPageV.GetBorderThicknessIsChecked(StoneMillParamPageV)
|
|
m_OpacityIsChecked = StoneMillingParamPageV.GetOpacityIsChecked(StoneMillParamPageV)
|
|
'Imposto stile datagird
|
|
m_HeaderVisibility = StoneMillingParamPageV.GetHeaderVisibility(StoneMillParamPageV)
|
|
m_BackgroundDataGrid = StoneMillingParamPageV.GetBackgroundDataGrid(StoneMillParamPageV)
|
|
m_BorderBrushDataGrid = StoneMillingParamPageV.GetBorderBrushDataGrid(StoneMillParamPageV)
|
|
m_BackGroundHeader = StoneMillingParamPageV.GetBackGroundHeader(StoneMillParamPageV)
|
|
m_ForegroundHeader = StoneMillingParamPageV.GetForegroundHeader(StoneMillParamPageV)
|
|
m_BorderBrushHeader = StoneMillingParamPageV.GetBorderBrushHeader(StoneMillParamPageV)
|
|
m_BorderThicknessHeader = StoneMillingParamPageV.GetBorderThicknessHeader(StoneMillParamPageV)
|
|
m_FontWeightHeader = StoneMillingParamPageV.GetFontWeightHeader(StoneMillParamPageV)
|
|
m_BackgroundDataGridRow = StoneMillingParamPageV.GetBackgroundDataGridRow(StoneMillParamPageV)
|
|
m_ForegroundDataGridRow = StoneMillingParamPageV.GetForegroundDataGridRow(StoneMillParamPageV)
|
|
m_BorderBrushDataGridRow = StoneMillingParamPageV.GetBorderBrushDataGridRow(StoneMillParamPageV)
|
|
m_BorderThicknessDataGridRow = StoneMillingParamPageV.GetBorderThicknessDataGridRow(StoneMillParamPageV)
|
|
m_BorderBrushDataGridCell = StoneMillingParamPageV.GetBorderBrushDataGridCell(StoneMillParamPageV)
|
|
m_BorderThicknessDataGridCell = StoneMillingParamPageV.GetBorderThicknessDataGridCell(StoneMillParamPageV)
|
|
'imposto stile checkbox
|
|
m_MyForegroundChColor = StoneMillingParamPageV.GetMyForegroundChColor(StoneMillParamPageV)
|
|
End If
|
|
|
|
'Imposto stile groupbox
|
|
StoneMillParamPageV.MyBorderGrbThickness = m_MyBorderGrbThickness
|
|
StoneMillParamPageV.MyForegroundGrbColor = m_MyForegroundGrbColor
|
|
' Imposto il colore delle TextBlock (definito nel programma chimamante)
|
|
StoneMillParamPageV.BorderBrushIsMouseOver = m_BorderBrushIsMouseOver
|
|
StoneMillParamPageV.GeneralBorderBrush = m_GeneralBorderBrush
|
|
StoneMillParamPageV.BorderBrushIsFocused = m_BorderBrushIsFocused
|
|
StoneMillParamPageV.BackgroundBrdEnable = m_BackgroundBrdEnable
|
|
StoneMillParamPageV.BackgroundBrdDisable = m_BackgroundBrdDisable
|
|
StoneMillParamPageV.BackgroundTxBlDisable = m_BackgroundTxBlDisable
|
|
StoneMillParamPageV.ForegroundTxBlEnable = m_ForegroundTxBlEnable
|
|
StoneMillParamPageV.ForegroundTxBlDisable = m_ForegroundTxBlDisable
|
|
StoneMillParamPageV.GeneralForeground = m_GeneralForeground
|
|
StoneMillParamPageV.GeneralBackground = m_GeneralBackground
|
|
'Imposto stile combobox
|
|
StoneMillParamPageV.BackgroundCmBxTxBl = m_BackgroundCmBxTxBl
|
|
StoneMillParamPageV.BackgroundListCmBxTxBl = m_BackgroundListCmBxTxBl
|
|
StoneMillParamPageV.ForegroundCmBxTxBl = m_ForegroundCmBxTxBl
|
|
StoneMillParamPageV.BorderBrushCmBxTxBl = m_BorderBrushCmBxTxBl
|
|
StoneMillParamPageV.BorderThicknessCmBxTxBl = m_BorderThicknessCmBxTxBl
|
|
StoneMillParamPageV.VerticalContentAlignmentCmBxTxBl = m_VerticalContentAlignmentCmBxTxBl
|
|
StoneMillParamPageV.HeightCmBxTxBl = m_HeightCmBxTxBl
|
|
StoneMillParamPageV.WidthCmBxTxBl = m_WidthCmBxTxBl
|
|
StoneMillParamPageV.ForegroundTextBoxCmBxTxBl = m_ForegroundTextBoxCmBxTxBl
|
|
'Imposto stile togglebutton
|
|
StoneMillParamPageV.BackgroundIsChecked = m_BackgroundIsChecked
|
|
StoneMillParamPageV.ForegroundIsChecked = m_ForegroundIsChecked
|
|
StoneMillParamPageV.BorderBrushIsChecked = m_BorderBrushIsChecked
|
|
StoneMillParamPageV.BorderThicknessIsChecked = m_BorderThicknessIsChecked
|
|
StoneMillParamPageV.OpacityIsChecked = m_OpacityIsChecked
|
|
'Imposto stile datagird
|
|
StoneMillParamPageV.HeaderVisibility = m_HeaderVisibility
|
|
StoneMillParamPageV.BackgroundDataGrid = m_BackgroundDataGrid
|
|
StoneMillParamPageV.BorderBrushDataGrid = m_BorderBrushDataGrid
|
|
StoneMillParamPageV.BackGroundHeader = m_BackGroundHeader
|
|
StoneMillParamPageV.ForegroundHeader = m_ForegroundHeader
|
|
StoneMillParamPageV.BorderBrushHeader = m_BorderBrushHeader
|
|
StoneMillParamPageV.BorderThicknessHeader = m_BorderThicknessHeader
|
|
StoneMillParamPageV.FontWeightHeader = m_FontWeightHeader
|
|
StoneMillParamPageV.BackgroundDataGridRow = m_BackgroundDataGridRow
|
|
StoneMillParamPageV.ForegroundDataGridRow = m_ForegroundDataGridRow
|
|
StoneMillParamPageV.BorderBrushDataGridRow = m_BorderBrushDataGridRow
|
|
StoneMillParamPageV.BorderThicknessDataGridRow = m_BorderThicknessDataGridRow
|
|
StoneMillParamPageV.BorderBrushDataGridCell = m_BorderBrushDataGridCell
|
|
StoneMillParamPageV.BorderThicknessDataGridCell = m_BorderThicknessDataGridCell
|
|
'imposto stile checkbox
|
|
StoneMillParamPageV.ForegroundChxTxBl = m_MyForegroundChColor
|
|
Return StoneMillParamPageV
|
|
|
|
ElseIf MachiningTreeViewItem.m_MatType = MaterialType.WOOD Then
|
|
If IsNothing(WoodMillParamPageV) Then WoodMillParamPageV = New WoodMillingParamPageV
|
|
WoodMillParamPageV.DataContext = selMachining
|
|
Return WoodMillParamPageV
|
|
|
|
ElseIf MachiningTreeViewItem.m_MatType = MaterialType.BEAM Then
|
|
If IsNothing(BeamMillParamPageV) Then BeamMillParamPageV = New BeamMillingParamPageV
|
|
BeamMillParamPageV.DataContext = selMachining
|
|
Return BeamMillParamPageV
|
|
End If
|
|
|
|
Case MCH_MY.POCKETING
|
|
If IsNothing(PocketParamPageV) Then PocketParamPageV = New PocketingParamPageV
|
|
PocketParamPageV.DataContext = selMachining
|
|
Return PocketParamPageV
|
|
|
|
Case MCH_MY.MORTISING
|
|
If IsNothing(MortiseParamPageV) Then MortiseParamPageV = New MortisingParamPageV
|
|
MortiseParamPageV.DataContext = selMachining
|
|
Return MortiseParamPageV
|
|
|
|
Case MCH_MY.SAWROUGHING
|
|
If MachiningTreeViewItem.m_MatType = MaterialType.STONE5 Then
|
|
If IsNothing(Stone5SawRoughParamPageV) Then Stone5SawRoughParamPageV = New Stone5SawRoughingParamPageV
|
|
Stone5SawRoughParamPageV.DataContext = selMachining
|
|
Return Stone5SawRoughParamPageV
|
|
|
|
ElseIf MachiningTreeViewItem.m_MatType = MaterialType.STONE Then
|
|
If IsNothing(StoneSawRoughParamPageV) Then StoneSawRoughParamPageV = New StoneSawRoughingParamPageV
|
|
StoneSawRoughParamPageV.DataContext = selMachining
|
|
' Recupero lo stile da programma chiamante, Altrienti imposto i colori di Default
|
|
If Not m_bPersonalInterface Then
|
|
'texbox
|
|
m_GeneralBackground = StoneSawRoughingParamPageV.GetGeneralBackground(StoneSawRoughParamPageV)
|
|
m_GeneralForeground = StoneSawRoughingParamPageV.GetGeneralForeground(StoneSawRoughParamPageV)
|
|
m_GeneralBorderBrush = StoneSawRoughingParamPageV.GetGeneralBorderBrush(StoneSawRoughParamPageV)
|
|
m_BorderBrushIsMouseOver = StoneSawRoughingParamPageV.GetBorderBrushIsMouseOver(StoneSawRoughParamPageV)
|
|
m_BorderBrushIsFocused = StoneSawRoughingParamPageV.GetBorderBrushIsFocused(StoneSawRoughParamPageV)
|
|
m_BackgroundBrdEnable = StoneSawRoughingParamPageV.GetBackgroundBrdEnable(StoneSawRoughParamPageV)
|
|
m_BackgroundBrdDisable = StoneSawRoughingParamPageV.GetBackgroundBrdDisable(StoneSawRoughParamPageV)
|
|
m_ForegroundTxBlEnable = StoneSawRoughingParamPageV.GetForegroundTxBlEnable(StoneSawRoughParamPageV)
|
|
m_ForegroundTxBlDisable = StoneSawRoughingParamPageV.GetForegroundTxBlDisable(StoneSawRoughParamPageV)
|
|
m_BackgroundTxBlDisable = StoneSawRoughingParamPageV.GetBackgroundTxBlDisable(StoneSawRoughParamPageV)
|
|
'combobox
|
|
m_BackgroundCmBxTxBl = StoneSawRoughingParamPageV.GetBackgroundCmBxTxBl(StoneSawRoughParamPageV)
|
|
m_BackgroundListCmBxTxBl = StoneSawRoughingParamPageV.GetBackgroundListCmBxTxBl(StoneSawRoughParamPageV)
|
|
m_ForegroundCmBxTxBl = StoneSawRoughingParamPageV.GetForegroundCmBxTxBl(StoneSawRoughParamPageV)
|
|
m_BorderBrushCmBxTxBl = StoneSawRoughingParamPageV.GetBorderBrushCmBxTxBl(StoneSawRoughParamPageV)
|
|
m_BorderThicknessCmBxTxBl = StoneSawRoughingParamPageV.GetBorderThicknessCmBxTxBl(StoneSawRoughParamPageV)
|
|
m_VerticalContentAlignmentCmBxTxBl = StoneSawRoughingParamPageV.GetVerticalContentAlignmentCmBxTxBl(StoneSawRoughParamPageV)
|
|
m_HeightCmBxTxBl = StoneSawRoughingParamPageV.GetHeightCmBxTxBl(StoneSawRoughParamPageV)
|
|
m_WidthCmBxTxBl = StoneSawRoughingParamPageV.GetWidthCmBxTxBl(StoneSawRoughParamPageV)
|
|
m_ForegroundTextBoxCmBxTxBl = StoneSawRoughingParamPageV.GetForegroundTextBoxCmBxTxBl(StoneSawRoughParamPageV)
|
|
'groupbox
|
|
m_MyBorderGrbThickness = StoneSawRoughingParamPageV.GetMyBorderGrbThickness(StoneSawRoughParamPageV)
|
|
m_MyForegroundGrbColor = StoneSawRoughingParamPageV.GetMyForegroundGrbColor(StoneSawRoughParamPageV)
|
|
'togglebutton
|
|
m_BackgroundIsChecked = StoneSawRoughingParamPageV.GetBackgroundIsChecked(StoneSawRoughParamPageV)
|
|
m_ForegroundIsChecked = StoneSawRoughingParamPageV.GetForegroundIsChecked(StoneSawRoughParamPageV)
|
|
m_BorderBrushIsChecked = StoneSawRoughingParamPageV.GetBorderBrushIsChecked(StoneSawRoughParamPageV)
|
|
m_BorderThicknessIsChecked = StoneSawRoughingParamPageV.GetBorderThicknessIsChecked(StoneSawRoughParamPageV)
|
|
m_OpacityIsChecked = StoneSawRoughingParamPageV.GetOpacityIsChecked(StoneSawRoughParamPageV)
|
|
'Imposto stile datagird
|
|
m_HeaderVisibility = StoneSawRoughingParamPageV.GetHeaderVisibility(StoneSawRoughParamPageV)
|
|
m_BackgroundDataGrid = StoneSawRoughingParamPageV.GetBackgroundDataGrid(StoneSawRoughParamPageV)
|
|
m_BorderBrushDataGrid = StoneSawRoughingParamPageV.GetBorderBrushDataGrid(StoneSawRoughParamPageV)
|
|
m_BackGroundHeader = StoneSawRoughingParamPageV.GetBackGroundHeader(StoneSawRoughParamPageV)
|
|
m_ForegroundHeader = StoneSawRoughingParamPageV.GetForegroundHeader(StoneSawRoughParamPageV)
|
|
m_BorderBrushHeader = StoneSawRoughingParamPageV.GetBorderBrushHeader(StoneSawRoughParamPageV)
|
|
m_BorderThicknessHeader = StoneSawRoughingParamPageV.GetBorderThicknessHeader(StoneSawRoughParamPageV)
|
|
m_FontWeightHeader = StoneSawRoughingParamPageV.GetFontWeightHeader(StoneSawRoughParamPageV)
|
|
m_BackgroundDataGridRow = StoneSawRoughingParamPageV.GetBackgroundDataGridRow(StoneSawRoughParamPageV)
|
|
m_ForegroundDataGridRow = StoneSawRoughingParamPageV.GetForegroundDataGridRow(StoneSawRoughParamPageV)
|
|
m_BorderBrushDataGridRow = StoneSawRoughingParamPageV.GetBorderBrushDataGridRow(StoneSawRoughParamPageV)
|
|
m_BorderThicknessDataGridRow = StoneSawRoughingParamPageV.GetBorderThicknessDataGridRow(StoneSawRoughParamPageV)
|
|
m_BorderBrushDataGridCell = StoneSawRoughingParamPageV.GetBorderBrushDataGridCell(StoneSawRoughParamPageV)
|
|
m_BorderThicknessDataGridCell = StoneSawRoughingParamPageV.GetBorderThicknessDataGridCell(StoneSawRoughParamPageV)
|
|
'imposto stile checkbox
|
|
m_MyForegroundChColor = StoneSawRoughingParamPageV.GetMyForegroundChColor(StoneSawRoughParamPageV)
|
|
End If
|
|
|
|
'Imposto stile groupbox
|
|
StoneSawRoughParamPageV.MyBorderGrbThickness = m_MyBorderGrbThickness
|
|
StoneSawRoughParamPageV.MyForegroundGrbColor = m_MyForegroundGrbColor
|
|
' Imposto il colore delle TextBlock (definito nel programma chimamante)
|
|
StoneSawRoughParamPageV.BorderBrushIsMouseOver = m_BorderBrushIsMouseOver
|
|
StoneSawRoughParamPageV.GeneralBorderBrush = m_GeneralBorderBrush
|
|
StoneSawRoughParamPageV.BorderBrushIsFocused = m_BorderBrushIsFocused
|
|
StoneSawRoughParamPageV.BackgroundBrdEnable = m_BackgroundBrdEnable
|
|
StoneSawRoughParamPageV.BackgroundBrdDisable = m_BackgroundBrdDisable
|
|
StoneSawRoughParamPageV.BackgroundTxBlDisable = m_BackgroundTxBlDisable
|
|
StoneSawRoughParamPageV.ForegroundTxBlEnable = m_ForegroundTxBlEnable
|
|
StoneSawRoughParamPageV.ForegroundTxBlDisable = m_ForegroundTxBlDisable
|
|
StoneSawRoughParamPageV.GeneralForeground = m_GeneralForeground
|
|
StoneSawRoughParamPageV.GeneralBackground = m_GeneralBackground
|
|
'Imposto stile combobox
|
|
StoneSawRoughParamPageV.BackgroundCmBxTxBl = m_BackgroundCmBxTxBl
|
|
StoneSawRoughParamPageV.BackgroundListCmBxTxBl = m_BackgroundListCmBxTxBl
|
|
StoneSawRoughParamPageV.ForegroundCmBxTxBl = m_ForegroundCmBxTxBl
|
|
StoneSawRoughParamPageV.BorderBrushCmBxTxBl = m_BorderBrushCmBxTxBl
|
|
StoneSawRoughParamPageV.BorderThicknessCmBxTxBl = m_BorderThicknessCmBxTxBl
|
|
StoneSawRoughParamPageV.VerticalContentAlignmentCmBxTxBl = m_VerticalContentAlignmentCmBxTxBl
|
|
StoneSawRoughParamPageV.HeightCmBxTxBl = m_HeightCmBxTxBl
|
|
StoneSawRoughParamPageV.WidthCmBxTxBl = m_WidthCmBxTxBl
|
|
StoneSawRoughParamPageV.ForegroundTextBoxCmBxTxBl = m_ForegroundTextBoxCmBxTxBl
|
|
'Imposto stile togglebutton
|
|
StoneSawRoughParamPageV.BackgroundIsChecked = m_BackgroundIsChecked
|
|
StoneSawRoughParamPageV.ForegroundIsChecked = m_ForegroundIsChecked
|
|
StoneSawRoughParamPageV.BorderBrushIsChecked = m_BorderBrushIsChecked
|
|
StoneSawRoughParamPageV.BorderThicknessIsChecked = m_BorderThicknessIsChecked
|
|
StoneSawRoughParamPageV.OpacityIsChecked = m_OpacityIsChecked
|
|
'Imposto stile datagird
|
|
StoneSawRoughParamPageV.HeaderVisibility = m_HeaderVisibility
|
|
StoneSawRoughParamPageV.BackgroundDataGrid = m_BackgroundDataGrid
|
|
StoneSawRoughParamPageV.BorderBrushDataGrid = m_BorderBrushDataGrid
|
|
StoneSawRoughParamPageV.BackGroundHeader = m_BackGroundHeader
|
|
StoneSawRoughParamPageV.ForegroundHeader = m_ForegroundHeader
|
|
StoneSawRoughParamPageV.BorderBrushHeader = m_BorderBrushHeader
|
|
StoneSawRoughParamPageV.BorderThicknessHeader = m_BorderThicknessHeader
|
|
StoneSawRoughParamPageV.FontWeightHeader = m_FontWeightHeader
|
|
StoneSawRoughParamPageV.BackgroundDataGridRow = m_BackgroundDataGridRow
|
|
StoneSawRoughParamPageV.ForegroundDataGridRow = m_ForegroundDataGridRow
|
|
StoneSawRoughParamPageV.BorderBrushDataGridRow = m_BorderBrushDataGridRow
|
|
StoneSawRoughParamPageV.BorderThicknessDataGridRow = m_BorderThicknessDataGridRow
|
|
StoneSawRoughParamPageV.BorderBrushDataGridCell = m_BorderBrushDataGridCell
|
|
StoneSawRoughParamPageV.BorderThicknessDataGridCell = m_BorderThicknessDataGridCell
|
|
'imposto stile checkbox
|
|
StoneSawRoughParamPageV.ForegroundChxTxBl = m_MyForegroundChColor
|
|
Return StoneSawRoughParamPageV
|
|
End If
|
|
|
|
Case MCH_MY.SAWFINISHING
|
|
If MachiningTreeViewItem.m_MatType = MaterialType.STONE5 Then
|
|
If IsNothing(Stone5SawFinishParamPageV) Then Stone5SawFinishParamPageV = New Stone5SawFinishingParamPageV
|
|
Stone5SawFinishParamPageV.DataContext = selMachining
|
|
Return Stone5SawFinishParamPageV
|
|
|
|
ElseIf MachiningTreeViewItem.m_MatType = MaterialType.STONE Then
|
|
If IsNothing(StoneSawFinishParamPageV) Then StoneSawFinishParamPageV = New StoneSawFinishingParamPageV
|
|
StoneSawFinishParamPageV.DataContext = selMachining
|
|
' Recupero lo stile da programma chiamante, Altrienti imposto i colori di Default
|
|
If Not m_bPersonalInterface Then
|
|
'texbox
|
|
m_GeneralBackground = StoneSawFinishingParamPageV.GetGeneralBackground(StoneSawFinishParamPageV)
|
|
m_GeneralForeground = StoneSawFinishingParamPageV.GetGeneralForeground(StoneSawFinishParamPageV)
|
|
m_GeneralBorderBrush = StoneSawFinishingParamPageV.GetGeneralBorderBrush(StoneSawFinishParamPageV)
|
|
m_BorderBrushIsMouseOver = StoneSawFinishingParamPageV.GetBorderBrushIsMouseOver(StoneSawFinishParamPageV)
|
|
m_BorderBrushIsFocused = StoneSawFinishingParamPageV.GetBorderBrushIsFocused(StoneSawFinishParamPageV)
|
|
m_BackgroundBrdEnable = StoneSawFinishingParamPageV.GetBackgroundBrdEnable(StoneSawFinishParamPageV)
|
|
m_BackgroundBrdDisable = StoneSawFinishingParamPageV.GetBackgroundBrdDisable(StoneSawFinishParamPageV)
|
|
m_ForegroundTxBlEnable = StoneSawFinishingParamPageV.GetForegroundTxBlEnable(StoneSawFinishParamPageV)
|
|
m_ForegroundTxBlDisable = StoneSawFinishingParamPageV.GetForegroundTxBlDisable(StoneSawFinishParamPageV)
|
|
m_BackgroundTxBlDisable = StoneSawFinishingParamPageV.GetBackgroundTxBlDisable(StoneSawFinishParamPageV)
|
|
'combobox
|
|
m_BackgroundCmBxTxBl = StoneSawFinishingParamPageV.GetBackgroundCmBxTxBl(StoneSawFinishParamPageV)
|
|
m_BackgroundListCmBxTxBl = StoneSawFinishingParamPageV.GetBackgroundListCmBxTxBl(StoneSawFinishParamPageV)
|
|
m_ForegroundCmBxTxBl = StoneSawFinishingParamPageV.GetForegroundCmBxTxBl(StoneSawFinishParamPageV)
|
|
m_BorderBrushCmBxTxBl = StoneSawFinishingParamPageV.GetBorderBrushCmBxTxBl(StoneSawFinishParamPageV)
|
|
m_BorderThicknessCmBxTxBl = StoneSawFinishingParamPageV.GetBorderThicknessCmBxTxBl(StoneSawFinishParamPageV)
|
|
m_VerticalContentAlignmentCmBxTxBl = StoneSawFinishingParamPageV.GetVerticalContentAlignmentCmBxTxBl(StoneSawFinishParamPageV)
|
|
m_HeightCmBxTxBl = StoneSawFinishingParamPageV.GetHeightCmBxTxBl(StoneSawFinishParamPageV)
|
|
m_WidthCmBxTxBl = StoneSawFinishingParamPageV.GetWidthCmBxTxBl(StoneSawFinishParamPageV)
|
|
m_ForegroundTextBoxCmBxTxBl = StoneSawFinishingParamPageV.GetForegroundTextBoxCmBxTxBl(StoneSawFinishParamPageV)
|
|
'groupbox
|
|
m_MyBorderGrbThickness = StoneSawFinishingParamPageV.GetMyBorderGrbThickness(StoneSawFinishParamPageV)
|
|
m_MyForegroundGrbColor = StoneSawFinishingParamPageV.GetMyForegroundGrbColor(StoneSawFinishParamPageV)
|
|
'togglebutton
|
|
m_BackgroundIsChecked = StoneSawFinishingParamPageV.GetBackgroundIsChecked(StoneSawFinishParamPageV)
|
|
m_ForegroundIsChecked = StoneSawFinishingParamPageV.GetForegroundIsChecked(StoneSawFinishParamPageV)
|
|
m_BorderBrushIsChecked = StoneSawFinishingParamPageV.GetBorderBrushIsChecked(StoneSawFinishParamPageV)
|
|
m_BorderThicknessIsChecked = StoneSawFinishingParamPageV.GetBorderThicknessIsChecked(StoneSawFinishParamPageV)
|
|
m_OpacityIsChecked = StoneSawFinishingParamPageV.GetOpacityIsChecked(StoneSawFinishParamPageV)
|
|
'Imposto stile datagird
|
|
m_HeaderVisibility = StoneSawFinishingParamPageV.GetHeaderVisibility(StoneSawFinishParamPageV)
|
|
m_BackgroundDataGrid = StoneSawFinishingParamPageV.GetBackgroundDataGrid(StoneSawFinishParamPageV)
|
|
m_BorderBrushDataGrid = StoneSawFinishingParamPageV.GetBorderBrushDataGrid(StoneSawFinishParamPageV)
|
|
m_BackGroundHeader = StoneSawFinishingParamPageV.GetBackGroundHeader(StoneSawFinishParamPageV)
|
|
m_ForegroundHeader = StoneSawFinishingParamPageV.GetForegroundHeader(StoneSawFinishParamPageV)
|
|
m_BorderBrushHeader = StoneSawFinishingParamPageV.GetBorderBrushHeader(StoneSawFinishParamPageV)
|
|
m_BorderThicknessHeader = StoneSawFinishingParamPageV.GetBorderThicknessHeader(StoneSawFinishParamPageV)
|
|
m_FontWeightHeader = StoneSawFinishingParamPageV.GetFontWeightHeader(StoneSawFinishParamPageV)
|
|
m_BackgroundDataGridRow = StoneSawFinishingParamPageV.GetBackgroundDataGridRow(StoneSawFinishParamPageV)
|
|
m_ForegroundDataGridRow = StoneSawFinishingParamPageV.GetForegroundDataGridRow(StoneSawFinishParamPageV)
|
|
m_BorderBrushDataGridRow = StoneSawFinishingParamPageV.GetBorderBrushDataGridRow(StoneSawFinishParamPageV)
|
|
m_BorderThicknessDataGridRow = StoneSawFinishingParamPageV.GetBorderThicknessDataGridRow(StoneSawFinishParamPageV)
|
|
m_BorderBrushDataGridCell = StoneSawFinishingParamPageV.GetBorderBrushDataGridCell(StoneSawFinishParamPageV)
|
|
m_BorderThicknessDataGridCell = StoneSawFinishingParamPageV.GetBorderThicknessDataGridCell(StoneSawFinishParamPageV)
|
|
'imposto stile checkbox
|
|
m_MyForegroundChColor = StoneSawFinishingParamPageV.GetForegroundChxTxBl(StoneSawFinishParamPageV)
|
|
End If
|
|
|
|
'Imposto stile groupbox
|
|
StoneSawFinishParamPageV.MyBorderGrbThickness = m_MyBorderGrbThickness
|
|
StoneSawFinishParamPageV.MyForegroundGrbColor = m_MyForegroundGrbColor
|
|
' Imposto il colore delle TextBlock (definito nel programma chimamante)
|
|
StoneSawFinishParamPageV.BorderBrushIsMouseOver = m_BorderBrushIsMouseOver
|
|
StoneSawFinishParamPageV.GeneralBorderBrush = m_GeneralBorderBrush
|
|
StoneSawFinishParamPageV.BorderBrushIsFocused = m_BorderBrushIsFocused
|
|
StoneSawFinishParamPageV.BackgroundBrdEnable = m_BackgroundBrdEnable
|
|
StoneSawFinishParamPageV.BackgroundBrdDisable = m_BackgroundBrdDisable
|
|
StoneSawFinishParamPageV.BackgroundTxBlDisable = m_BackgroundTxBlDisable
|
|
StoneSawFinishParamPageV.ForegroundTxBlEnable = m_ForegroundTxBlEnable
|
|
StoneSawFinishParamPageV.ForegroundTxBlDisable = m_ForegroundTxBlDisable
|
|
StoneSawFinishParamPageV.GeneralForeground = m_GeneralForeground
|
|
StoneSawFinishParamPageV.GeneralBackground = m_GeneralBackground
|
|
'Imposto stile combobox
|
|
StoneSawFinishParamPageV.BackgroundCmBxTxBl = m_BackgroundCmBxTxBl
|
|
StoneSawFinishParamPageV.BackgroundListCmBxTxBl = m_BackgroundListCmBxTxBl
|
|
StoneSawFinishParamPageV.ForegroundCmBxTxBl = m_ForegroundCmBxTxBl
|
|
StoneSawFinishParamPageV.BorderBrushCmBxTxBl = m_BorderBrushCmBxTxBl
|
|
StoneSawFinishParamPageV.BorderThicknessCmBxTxBl = m_BorderThicknessCmBxTxBl
|
|
StoneSawFinishParamPageV.VerticalContentAlignmentCmBxTxBl = m_VerticalContentAlignmentCmBxTxBl
|
|
StoneSawFinishParamPageV.HeightCmBxTxBl = m_HeightCmBxTxBl
|
|
StoneSawFinishParamPageV.WidthCmBxTxBl = m_WidthCmBxTxBl
|
|
StoneSawFinishParamPageV.ForegroundTextBoxCmBxTxBl = m_ForegroundTextBoxCmBxTxBl
|
|
'Imposto stile togglebutton
|
|
StoneSawFinishParamPageV.BackgroundIsChecked = m_BackgroundIsChecked
|
|
StoneSawFinishParamPageV.ForegroundIsChecked = m_ForegroundIsChecked
|
|
StoneSawFinishParamPageV.BorderBrushIsChecked = m_BorderBrushIsChecked
|
|
StoneSawFinishParamPageV.BorderThicknessIsChecked = m_BorderThicknessIsChecked
|
|
StoneSawFinishParamPageV.OpacityIsChecked = m_OpacityIsChecked
|
|
'Imposto stile datagird
|
|
StoneSawFinishParamPageV.HeaderVisibility = m_HeaderVisibility
|
|
StoneSawFinishParamPageV.BackgroundDataGrid = m_BackgroundDataGrid
|
|
StoneSawFinishParamPageV.BorderBrushDataGrid = m_BorderBrushDataGrid
|
|
StoneSawFinishParamPageV.BackGroundHeader = m_BackGroundHeader
|
|
StoneSawFinishParamPageV.ForegroundHeader = m_ForegroundHeader
|
|
StoneSawFinishParamPageV.BorderBrushHeader = m_BorderBrushHeader
|
|
StoneSawFinishParamPageV.BorderThicknessHeader = m_BorderThicknessHeader
|
|
StoneSawFinishParamPageV.FontWeightHeader = m_FontWeightHeader
|
|
StoneSawFinishParamPageV.BackgroundDataGridRow = m_BackgroundDataGridRow
|
|
StoneSawFinishParamPageV.ForegroundDataGridRow = m_ForegroundDataGridRow
|
|
StoneSawFinishParamPageV.BorderBrushDataGridRow = m_BorderBrushDataGridRow
|
|
StoneSawFinishParamPageV.BorderThicknessDataGridRow = m_BorderThicknessDataGridRow
|
|
StoneSawFinishParamPageV.BorderBrushDataGridCell = m_BorderBrushDataGridCell
|
|
StoneSawFinishParamPageV.BorderThicknessDataGridCell = m_BorderThicknessDataGridCell
|
|
'imposto stile checkbox
|
|
StoneSawFinishParamPageV.ForegroundChxTxBl = m_MyForegroundChColor
|
|
Return StoneSawFinishParamPageV
|
|
End If
|
|
|
|
Case MCH_MY.GENMACHINING
|
|
If IsNothing(GenMachinParamPageV) Then GenMachinParamPageV = New GenMachiningParamPageV
|
|
GenMachinParamPageV.DataContext = selMachining
|
|
Return GenMachinParamPageV
|
|
|
|
Case MCH_MY.CHISELING
|
|
If IsNothing(ChiselParamPageV) Then ChiselParamPageV = New ChiselingParamPageV
|
|
ChiselParamPageV.DataContext = selMachining
|
|
Return ChiselParamPageV
|
|
|
|
Case MCH_MY.SURFFINISHING
|
|
If IsNothing(SurfFinishParamPageV) Then SurfFinishParamPageV = New SurfFinishingParamPageV
|
|
SurfFinishParamPageV.DataContext = selMachining
|
|
Return SurfFinishParamPageV
|
|
|
|
Case MCH_MY.WATERJETTING
|
|
If MachiningTreeViewItem.m_MatType = MaterialType.STONE5 Then
|
|
If IsNothing(Stone5WjParamPageV) Then Stone5WjParamPageV = New Stone5WaterjettingParamPageV
|
|
Stone5WjParamPageV.DataContext = selMachining
|
|
Return Stone5WjParamPageV
|
|
|
|
ElseIf MachiningTreeViewItem.m_MatType = MaterialType.STONE Then
|
|
If IsNothing(WjParamPageV) Then WjParamPageV = New WaterjettingParamPageV
|
|
WjParamPageV.DataContext = selMachining
|
|
' Recupero lo stile da programma chiamante, Altrienti imposto i colori di Default
|
|
If Not m_bPersonalInterface Then
|
|
'texbox
|
|
m_GeneralBackground = WaterjettingParamPageV.GetGeneralBackground(WjParamPageV)
|
|
m_GeneralForeground = WaterjettingParamPageV.GetGeneralForeground(WjParamPageV)
|
|
m_GeneralBorderBrush = WaterjettingParamPageV.GetGeneralBorderBrush(WjParamPageV)
|
|
m_BorderBrushIsMouseOver = WaterjettingParamPageV.GetBorderBrushIsMouseOver(WjParamPageV)
|
|
m_BorderBrushIsFocused = WaterjettingParamPageV.GetBorderBrushIsFocused(WjParamPageV)
|
|
m_BackgroundBrdEnable = WaterjettingParamPageV.GetBackgroundBrdEnable(WjParamPageV)
|
|
m_BackgroundBrdDisable = WaterjettingParamPageV.GetBackgroundBrdDisable(WjParamPageV)
|
|
m_ForegroundTxBlEnable = WaterjettingParamPageV.GetForegroundTxBlEnable(WjParamPageV)
|
|
m_ForegroundTxBlDisable = WaterjettingParamPageV.GetForegroundTxBlDisable(WjParamPageV)
|
|
m_BackgroundTxBlDisable = WaterjettingParamPageV.GetBackgroundTxBlDisable(WjParamPageV)
|
|
'combobox
|
|
m_BackgroundCmBxTxBl = WaterjettingParamPageV.GetBackgroundCmBxTxBl(WjParamPageV)
|
|
m_BackgroundListCmBxTxBl = WaterjettingParamPageV.GetBackgroundListCmBxTxBl(WjParamPageV)
|
|
m_ForegroundCmBxTxBl = WaterjettingParamPageV.GetForegroundCmBxTxBl(WjParamPageV)
|
|
m_BorderBrushCmBxTxBl = WaterjettingParamPageV.GetBorderBrushCmBxTxBl(WjParamPageV)
|
|
m_BorderThicknessCmBxTxBl = WaterjettingParamPageV.GetBorderThicknessCmBxTxBl(WjParamPageV)
|
|
m_VerticalContentAlignmentCmBxTxBl = WaterjettingParamPageV.GetVerticalContentAlignmentCmBxTxBl(WjParamPageV)
|
|
m_HeightCmBxTxBl = WaterjettingParamPageV.GetHeightCmBxTxBl(WjParamPageV)
|
|
m_WidthCmBxTxBl = WaterjettingParamPageV.GetWidthCmBxTxBl(WjParamPageV)
|
|
m_ForegroundTextBoxCmBxTxBl = WaterjettingParamPageV.GetForegroundTextBoxCmBxTxBl(WjParamPageV)
|
|
'groupbox
|
|
m_MyBorderGrbThickness = WaterjettingParamPageV.GetMyBorderGrbThickness(WjParamPageV)
|
|
m_MyForegroundGrbColor = WaterjettingParamPageV.GetMyForegroundGrbColor(WjParamPageV)
|
|
'togglebutton
|
|
m_BackgroundIsChecked = WaterjettingParamPageV.GetBackgroundIsChecked(WjParamPageV)
|
|
m_ForegroundIsChecked = WaterjettingParamPageV.GetForegroundIsChecked(WjParamPageV)
|
|
m_BorderBrushIsChecked = WaterjettingParamPageV.GetBorderBrushIsChecked(WjParamPageV)
|
|
m_BorderThicknessIsChecked = WaterjettingParamPageV.GetBorderThicknessIsChecked(WjParamPageV)
|
|
m_OpacityIsChecked = WaterjettingParamPageV.GetOpacityIsChecked(WjParamPageV)
|
|
'Imposto stile datagird
|
|
m_HeaderVisibility = WaterjettingParamPageV.GetHeaderVisibility(WjParamPageV)
|
|
m_BackgroundDataGrid = WaterjettingParamPageV.GetBackgroundDataGrid(WjParamPageV)
|
|
m_BorderBrushDataGrid = WaterjettingParamPageV.GetBorderBrushDataGrid(WjParamPageV)
|
|
m_BackGroundHeader = WaterjettingParamPageV.GetBackGroundHeader(WjParamPageV)
|
|
m_ForegroundHeader = WaterjettingParamPageV.GetForegroundHeader(WjParamPageV)
|
|
m_BorderBrushHeader = WaterjettingParamPageV.GetBorderBrushHeader(WjParamPageV)
|
|
m_BorderThicknessHeader = WaterjettingParamPageV.GetBorderThicknessHeader(WjParamPageV)
|
|
m_FontWeightHeader = WaterjettingParamPageV.GetFontWeightHeader(WjParamPageV)
|
|
m_BackgroundDataGridRow = WaterjettingParamPageV.GetBackgroundDataGridRow(WjParamPageV)
|
|
m_ForegroundDataGridRow = WaterjettingParamPageV.GetForegroundDataGridRow(WjParamPageV)
|
|
m_BorderBrushDataGridRow = WaterjettingParamPageV.GetBorderBrushDataGridRow(WjParamPageV)
|
|
m_BorderThicknessDataGridRow = WaterjettingParamPageV.GetBorderThicknessDataGridRow(WjParamPageV)
|
|
m_BorderBrushDataGridCell = WaterjettingParamPageV.GetBorderBrushDataGridCell(WjParamPageV)
|
|
m_BorderThicknessDataGridCell = WaterjettingParamPageV.GetBorderThicknessDataGridCell(WjParamPageV)
|
|
'imposto stile checkbox
|
|
m_MyForegroundChColor = WaterjettingParamPageV.GetForegroundChxTxBl(WjParamPageV)
|
|
End If
|
|
|
|
'Imposto stile groupbox
|
|
WjParamPageV.MyBorderGrbThickness = m_MyBorderGrbThickness
|
|
WjParamPageV.MyForegroundGrbColor = m_MyForegroundGrbColor
|
|
' Imposto il colore delle TextBlock (definito nel programma chimamante)
|
|
WjParamPageV.BorderBrushIsMouseOver = m_BorderBrushIsMouseOver
|
|
WjParamPageV.GeneralBorderBrush = m_GeneralBorderBrush
|
|
WjParamPageV.BorderBrushIsFocused = m_BorderBrushIsFocused
|
|
WjParamPageV.BackgroundBrdEnable = m_BackgroundBrdEnable
|
|
WjParamPageV.BackgroundBrdDisable = m_BackgroundBrdDisable
|
|
WjParamPageV.BackgroundTxBlDisable = m_BackgroundTxBlDisable
|
|
WjParamPageV.ForegroundTxBlEnable = m_ForegroundTxBlEnable
|
|
WjParamPageV.ForegroundTxBlDisable = m_ForegroundTxBlDisable
|
|
WjParamPageV.GeneralForeground = m_GeneralForeground
|
|
WjParamPageV.GeneralBackground = m_GeneralBackground
|
|
'Imposto stile combobox
|
|
WjParamPageV.BackgroundCmBxTxBl = m_BackgroundCmBxTxBl
|
|
WjParamPageV.BackgroundListCmBxTxBl = m_BackgroundListCmBxTxBl
|
|
WjParamPageV.ForegroundCmBxTxBl = m_ForegroundCmBxTxBl
|
|
WjParamPageV.BorderBrushCmBxTxBl = m_BorderBrushCmBxTxBl
|
|
WjParamPageV.BorderThicknessCmBxTxBl = m_BorderThicknessCmBxTxBl
|
|
WjParamPageV.VerticalContentAlignmentCmBxTxBl = m_VerticalContentAlignmentCmBxTxBl
|
|
WjParamPageV.HeightCmBxTxBl = m_HeightCmBxTxBl
|
|
WjParamPageV.WidthCmBxTxBl = m_WidthCmBxTxBl
|
|
WjParamPageV.ForegroundTextBoxCmBxTxBl = m_ForegroundTextBoxCmBxTxBl
|
|
'Imposto stile togglebutton
|
|
WjParamPageV.BackgroundIsChecked = m_BackgroundIsChecked
|
|
WjParamPageV.ForegroundIsChecked = m_ForegroundIsChecked
|
|
WjParamPageV.BorderBrushIsChecked = m_BorderBrushIsChecked
|
|
WjParamPageV.BorderThicknessIsChecked = m_BorderThicknessIsChecked
|
|
WjParamPageV.OpacityIsChecked = m_OpacityIsChecked
|
|
'Imposto stile datagird
|
|
WjParamPageV.HeaderVisibility = m_HeaderVisibility
|
|
WjParamPageV.BackgroundDataGrid = m_BackgroundDataGrid
|
|
WjParamPageV.BorderBrushDataGrid = m_BorderBrushDataGrid
|
|
WjParamPageV.BackGroundHeader = m_BackGroundHeader
|
|
WjParamPageV.ForegroundHeader = m_ForegroundHeader
|
|
WjParamPageV.BorderBrushHeader = m_BorderBrushHeader
|
|
WjParamPageV.BorderThicknessHeader = m_BorderThicknessHeader
|
|
WjParamPageV.FontWeightHeader = m_FontWeightHeader
|
|
WjParamPageV.BackgroundDataGridRow = m_BackgroundDataGridRow
|
|
WjParamPageV.ForegroundDataGridRow = m_ForegroundDataGridRow
|
|
WjParamPageV.BorderBrushDataGridRow = m_BorderBrushDataGridRow
|
|
WjParamPageV.BorderThicknessDataGridRow = m_BorderThicknessDataGridRow
|
|
WjParamPageV.BorderBrushDataGridCell = m_BorderBrushDataGridCell
|
|
WjParamPageV.BorderThicknessDataGridCell = m_BorderThicknessDataGridCell
|
|
'imposto stile checkbox
|
|
WjParamPageV.ForegroundChxTxBl = m_MyForegroundChColor
|
|
Return WjParamPageV
|
|
End If
|
|
|
|
Case MCH_MY.FIVEAXISMILLING
|
|
If IsNothing(FiveAxParamPageV) Then FiveAxParamPageV = New FiveAxisMachinigParamPageV
|
|
FiveAxParamPageV.DataContext = selMachining
|
|
Return FiveAxParamPageV
|
|
|
|
Case MCH_MY.SURFROUGHING
|
|
If IsNothing(SurfRoughParamPageV) Then SurfRoughParamPageV = New SurfRoughingParamPageV
|
|
SurfRoughParamPageV.DataContext = selMachining
|
|
Return SurfRoughParamPageV
|
|
|
|
Case MCH_MY.PROBING
|
|
If IsNothing(ProbParamPageV) Then ProbParamPageV = New ProbingParamPageV
|
|
ProbParamPageV.DataContext = selMachining
|
|
Return ProbParamPageV
|
|
|
|
End Select
|
|
|
|
Return Nothing
|
|
End Get
|
|
End Property
|
|
|
|
' Definizione comandi
|
|
Private m_cmdNew As ICommand
|
|
Private m_cmdSave As ICommand
|
|
Private m_cmdRemove As ICommand
|
|
Private m_cmdImport As ICommand
|
|
Private m_cmdExport As ICommand
|
|
Private m_cmdReloadMachining As ICommand
|
|
Private m_cmdCloseMachiningsDb As ICommand
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New(sMachineIniPath As String, ProjectSceneContext As Integer, Optional sMatType As String = "Wood", Optional bVisibleSysNotes As Boolean = False, Optional bIsEgtCAM5 As Boolean = False)
|
|
|
|
m_bActive = True
|
|
m_ProjectSceneContext = ProjectSceneContext
|
|
m_sMachineIniPath = sMachineIniPath
|
|
m_bVisibleSysNotes = bVisibleSysNotes
|
|
|
|
EgtUILib.GetPrivateProfileString(S_GENERAL, K_MATERIAL, sMatType, sMatType, sMachineIniPath)
|
|
Select Case sMatType
|
|
Case "Stone"
|
|
If bIsEgtCAM5 Then
|
|
' Se bIsEgtCAM5 è True vuol dire che il Db Lav è stato aperto da EgtCAM5 perciò dovranno essere usate
|
|
' delle pagine dedicate (con prefisso "Stone5"), attraverso l'assegnazione del valore STONE5 a MatType
|
|
MachiningTreeViewItem.m_MatType = MaterialType.STONE5
|
|
Else
|
|
MachiningTreeViewItem.m_MatType = MaterialType.STONE
|
|
End If
|
|
Case "Wood"
|
|
MachiningTreeViewItem.m_MatType = MaterialType.WOOD
|
|
Case "Beam"
|
|
MachiningTreeViewItem.m_MatType = MaterialType.BEAM
|
|
Case "Additive"
|
|
MachiningTreeViewItem.m_MatType = MaterialType.WOOD
|
|
Case Else
|
|
' Se il materiale specificato nel file INI della macchina non corrisponde a STONE, WOOD o BEAM (STONE5 è
|
|
' comunque STONE nell'INI ma prevede pagine esclusive per EgtCAM5) viene emesso un messaggio di errore
|
|
MachiningTreeViewItem.m_MatType = Nothing
|
|
MsgBox(EgtMsg(31409), MsgBoxStyle.Exclamation, EgtMsg(31551))
|
|
'EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(31409), EgtMsg(31551), MessageBoxButton.YesNo, MessageBoxImage.Exclamation) ' ateriale della macchina non riconosciuto Errore
|
|
Exit Sub
|
|
End Select
|
|
|
|
' Passo all'item della lista il delegato alla funzuione che permette di cancellare una lavorazione
|
|
MachiningTreeViewItem.m_delRemoveMachining = AddressOf RemoveMachining
|
|
' Passo all'item della lista il delegato alla funzuione che permette di disattivare la lista delle lavorazioni
|
|
MachiningTreeViewItem.m_delErrorOnMachining = AddressOf ErrorOnMachining
|
|
' Passo all'item della lista il delegato alla funzuione che permette di disattivare la lista delle lavorazioni
|
|
MachiningTreeViewItem.m_delIsEnabledBtns = AddressOf IsEnabledBtns
|
|
FamilyMachiningTreeViewItem.m_delIsEnabledBtns = AddressOf IsEnabledBtns
|
|
MachiningTreeViewItem.m_delNotifyPropertyChanged = AddressOf ccc
|
|
FamilyMachiningTreeViewItem.m_delNotifyPropertyChanged = AddressOf ccc
|
|
MachiningTreeViewItem.m_delGetSelectedMachining = AddressOf GetSelectedMaching
|
|
|
|
' Carico la lista delle lavorazioni della macchina selezionata
|
|
LoadSelectedMachineMachinings()
|
|
|
|
LibMap.SetRefMachiningDbWindowVM(Me)
|
|
|
|
NotifyPropertyChanged(NameOf(ParamPageV))
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
#Region "METHODS"
|
|
|
|
Private Function GetSelectedMaching() As MachiningTreeViewItem
|
|
For Each MachiningFamily In m_MachiningsList
|
|
For Each Machining In MachiningFamily.Items
|
|
If Machining.m_IsSelected Then
|
|
Return DirectCast(Machining, MachiningTreeViewItem)
|
|
End If
|
|
Next
|
|
Next
|
|
Return Nothing
|
|
End Function
|
|
|
|
Private Sub ccc()
|
|
NotifyPropertyChanged(NameOf(ParamPageV))
|
|
End Sub
|
|
|
|
Private Sub IsEnabledBtns(bIsEnabledNewBtn As Boolean, bIsEnabledSaveBtn As Boolean, bIsEnabledDeleteBtn As Boolean)
|
|
m_IsEnabledNewBtn = bIsEnabledNewBtn
|
|
m_IsEnabledSaveBtn = bIsEnabledSaveBtn
|
|
m_IsEnabledRemoveBtn = bIsEnabledDeleteBtn
|
|
NotifyPropertyChanged(NameOf(IsEnabledNewBtn))
|
|
NotifyPropertyChanged(NameOf(IsEnabledSaveBtn))
|
|
NotifyPropertyChanged(NameOf(IsEnabledRemoveBtn))
|
|
End Sub
|
|
|
|
' Quando chiamato, disattiva tutti gli item dell'albero o li riattiva a seconda che ci sia o meno un errore
|
|
Private Sub ErrorOnMachining(bIsEnabled As Boolean)
|
|
For Each FamilyMachiningItem In MachiningsList
|
|
FamilyMachiningItem.IsEnabled = Not bIsEnabled
|
|
Next
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Method that search the machines in the correct folder and add to the MachinesList those valid.
|
|
''' </summary>
|
|
Public Overridable Sub LoadSelectedMachineMachinings()
|
|
EgtSetCurrentContext(m_ProjectSceneContext)
|
|
Dim ActiveMachiningsTypes() As MachiningsType = MachineUtility.ReadMachiningFamilies(m_sMachineIniPath)
|
|
For Each MachiningsType In ActiveMachiningsTypes
|
|
Dim FamilyTreeView As New FamilyMachiningTreeViewItem(MachiningsType.Name, MachiningsType.Id, Nothing)
|
|
MachiningsList.Add(FamilyTreeView)
|
|
Dim MachiningName As String = String.Empty
|
|
EgtMdbGetFirstMachining(MachiningsType.Id, MachiningName)
|
|
While Not String.IsNullOrWhiteSpace(MachiningName)
|
|
' recupero tuuid
|
|
EgtMdbSetCurrMachining(MachiningName)
|
|
Dim sCurrMachTUUID As String = String.Empty
|
|
EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sCurrMachTUUID)
|
|
FamilyTreeView.Items.Add(New MachiningTreeViewItem(MachiningName, MachiningsType.Id, ToolDbUtility.IsToolInDb(sCurrMachTUUID), FamilyTreeView))
|
|
EgtMdbGetNextMachining(MachiningsType.Id, MachiningName)
|
|
End While
|
|
FamilyTreeView.VerifyMachiningValidity()
|
|
Next
|
|
' Se esiste almeno una famiglia di lavorazioni, la seleziono
|
|
If MachiningsList.Count > 0 Then
|
|
MachiningsList(0).IsSelected = True
|
|
MachiningsList(0).NotifyPropertyChanged(NameOf(MachiningTreeViewItem.IsSelected))
|
|
End If
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Method that search imported Machinings for the currently selected Machine and add it to the MachiningsList.
|
|
''' </summary>
|
|
Private Sub LoadImportedMachineMachinings(vsImportedMachinings As String())
|
|
' Leggo tutte le lavorazioni presenti nella Macchina (quindi anche quelli appena importati).
|
|
Dim ActiveMachiningsFamilies() As MachiningsType = MachineUtility.ReadMachiningFamilies(m_sMachineIniPath)
|
|
Dim MachiningsFamilyIndex As Integer = 0
|
|
For Each MachiningsFamily In ActiveMachiningsFamilies
|
|
Dim FamilyTreeView As New FamilyMachiningTreeViewItem(MachiningsFamily.Name, MachiningsFamily.Id, Nothing)
|
|
Dim MachiningFamilyItem = MachiningsList.FirstOrDefault(Function(MachiningFamily) MachiningFamily.MachiningType = FamilyTreeView.MachiningType)
|
|
If IsNothing(MachiningFamilyItem) Then
|
|
MachiningsList.Insert(MachiningsFamilyIndex, FamilyTreeView)
|
|
End If
|
|
Dim nType As Integer = 0
|
|
Dim MachiningName As String = String.Empty
|
|
Dim MachiningIndex As Integer = 0
|
|
EgtSetCurrentContext(MachiningDbWindowVM.m_ProjectSceneContext)
|
|
Dim bFound As Boolean = EgtMdbGetFirstMachining(MachiningsFamily.Id, MachiningName)
|
|
While bFound
|
|
Dim MachiningItem = MachiningsList(MachiningsFamilyIndex).Items.FirstOrDefault(Function(Machining) Machining.Name = MachiningName)
|
|
Dim bInList As Boolean = vsImportedMachinings.Contains(MachiningName)
|
|
If bInList Then
|
|
' Se una lavorazione è presente nella MachiningsList visualizzata ma nel contempo è nell'array vsImported
|
|
' vuol dire che è stata sovrascritta perciò la rimuovo
|
|
MachiningsList(MachiningsFamilyIndex).Items.Remove(MachiningsList(MachiningsFamilyIndex).Items.FirstOrDefault(Function(Machining) Machining.Name = MachiningName))
|
|
End If
|
|
If bInList OrElse IsNothing(MachiningItem) Then
|
|
' recupero tuuid
|
|
EgtMdbSetCurrMachining(MachiningName)
|
|
Dim sCurrMachTUUID As String = String.Empty
|
|
EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sCurrMachTUUID)
|
|
' aggiungo la lavorazione importata
|
|
MachiningsList(MachiningsFamilyIndex).Items.Insert(MachiningIndex, New MachiningTreeViewItem(MachiningName, MachiningsFamily.Id, ToolDbUtility.IsToolInDb(sCurrMachTUUID), FamilyTreeView))
|
|
End If
|
|
MachiningIndex += 1
|
|
bFound = EgtMdbGetNextMachining(MachiningsFamily.Id, MachiningName)
|
|
End While
|
|
MachiningsFamilyIndex += 1
|
|
Next
|
|
End Sub
|
|
|
|
' Funzione che verifica modifica lavorazione selezionata ed eventualmente chiede se salvarla
|
|
Public Function VerifySelectedMachiningModification() As Boolean
|
|
' Se non c'è lavorazione selezionata, esco con continuazione
|
|
If IsNothing(SelMachining) Then Return True
|
|
' Se lavorazione selezionata non valida, esco con blocco
|
|
If Not SelMachining.IsValid Then Return False
|
|
' Verifico salvataggio
|
|
SelMachining.WriteMachiningParam()
|
|
If EgtMdbIsCurrMachiningModified() Or SelMachining.m_IsModifiedName Or SelMachining.NewMachining Then
|
|
Select Case MsgBox(EgtMsg(31401), MsgBoxStyle.YesNoCancel, EgtMsg(31402))
|
|
'Select Case EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(31401), EgtMsg(31402), MessageBoxButton.YesNoCancel) ' Salvare la lavorazione modificata? SALVA
|
|
Case MsgBoxResult.Yes
|
|
SelMachining.NewMachining = False
|
|
SelMachining.m_Name = SelMachining.m_Name.Trim()
|
|
SelMachining.WriteMachiningName()
|
|
EgtMdbSaveCurrMachining()
|
|
Case MsgBoxResult.No
|
|
If SelMachining.NewMachining Then
|
|
RemoveMachining(SelMachining)
|
|
ElseIf SelMachining.m_IsModifiedName Then
|
|
Dim DbName As String = String.Empty
|
|
EgtMdbGetCurrMachiningParam(MCH_MP.NAME, DbName)
|
|
SelMachining.NamePar = DbName
|
|
End If
|
|
Case MsgBoxResult.Cancel
|
|
Return False
|
|
End Select
|
|
End If
|
|
Return True
|
|
End Function
|
|
|
|
#End Region ' Methods
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "NewCommand"
|
|
|
|
''' <summary>
|
|
''' Returns a command that create a new machining.
|
|
''' </summary>
|
|
Public ReadOnly Property NewCommand As ICommand
|
|
Get
|
|
If m_cmdNew Is Nothing Then
|
|
m_cmdNew = New Command(AddressOf NewPar)
|
|
End If
|
|
Return m_cmdNew
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Creata the new machining. This method is invoked by the NewCommand.
|
|
''' </summary>
|
|
Public Overridable Sub NewPar(ByVal param As Object)
|
|
' Verifico se sia selezionata una famiglia
|
|
Dim NewMachiningItem As MachiningTreeViewItem
|
|
If TypeOf param Is FamilyMachiningTreeViewItem Then
|
|
Dim MachiningFamily As FamilyMachiningTreeViewItem = DirectCast(param, FamilyMachiningTreeViewItem)
|
|
Dim NewName As String = MachiningFamily.Name
|
|
EgtMdbGetMachiningNewName(NewName)
|
|
If EgtMdbAddMachining(NewName, MachiningFamily.MachiningType) Then
|
|
NewMachiningItem = New MachiningTreeViewItem(NewName, MachiningFamily.MachiningType, False, MachiningFamily)
|
|
MachiningFamily.Items.Add(NewMachiningItem)
|
|
EgtMdbSaveCurrMachining()
|
|
NewMachiningItem.NewMachining = True
|
|
If Not MachiningFamily.IsExpanded Then MachiningFamily.IsExpanded = True
|
|
NewMachiningItem.IsSelected = True
|
|
NewMachiningItem.NotifyPropertyChanged(NameOf(MachiningTreeViewItem.IsSelected))
|
|
' Se il Materiale della nuova Lav. è Stone setto Lato Testa e Lato Lavoro a Destra di default
|
|
If NewMachiningItem.MatType = MaterialType.STONE Then
|
|
NewMachiningItem.SelectedHeadSide = IdNameStruct.IndFromId(MCH_SAW_HS.RIGHT, NewMachiningItem.HeadSideList)
|
|
NewMachiningItem.SelectedWorkSide = IdNameStruct.IndFromId(MCH_SAW_WS.RIGHT, NewMachiningItem.WorkSideList)
|
|
End If
|
|
End If
|
|
' Verifico se sia selezionata una lavorazione
|
|
ElseIf TypeOf param Is MachiningTreeViewItem Then
|
|
Dim MachiningCopied As MachiningTreeViewItem = DirectCast(param, MachiningTreeViewItem)
|
|
Dim NewName As String = MachiningCopied.Name
|
|
EgtMdbGetMachiningNewName(NewName)
|
|
If EgtMdbCopyMachining(MachiningCopied.Name, NewName) Then
|
|
Dim CurrType As Integer
|
|
EgtMdbGetCurrMachiningParam(MCH_MP.TYPE, CurrType)
|
|
For Each MachiningFamily In MachiningsList
|
|
If (MachiningFamily.MachiningType And CurrType) <> 0 Then
|
|
NewMachiningItem = New MachiningTreeViewItem(NewName, MachiningFamily.MachiningType, False, MachiningFamily)
|
|
MachiningFamily.Items.Add(NewMachiningItem)
|
|
EgtMdbSaveCurrMachining()
|
|
NewMachiningItem.NewMachining = True
|
|
' Reimposto la lavorazione vecchia nel Db per deselezionarla e fare le verifiche correttamente
|
|
EgtMdbSetCurrMachining(MachiningCopied.Name)
|
|
MachiningCopied.IsSelected = False
|
|
MachiningCopied.NotifyPropertyChanged(NameOf(MachiningTreeViewItem.IsSelected))
|
|
NewMachiningItem.IsSelected = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
#End Region ' NewCommand
|
|
|
|
#Region "SaveCommand"
|
|
|
|
''' <summary>
|
|
''' Returns a command that save the current selected machining.
|
|
''' </summary>
|
|
Public ReadOnly Property SaveCommand() As ICommand
|
|
Get
|
|
If m_cmdSave Is Nothing Then
|
|
m_cmdSave = New Command(AddressOf Save)
|
|
End If
|
|
Return m_cmdSave
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Saves the current machining. This method is invoked by the SaveCommand.
|
|
''' </summary>
|
|
Public Sub Save(ByVal param As Object)
|
|
Dim CurrMachining As MachiningTreeViewItem = DirectCast(param, MachiningTreeViewItem)
|
|
CurrMachining.WriteMachiningParam()
|
|
CurrMachining.m_Name = CurrMachining.m_Name.Trim()
|
|
CurrMachining.WriteMachiningName()
|
|
EgtMdbSaveCurrMachining()
|
|
CurrMachining.NewMachining = False
|
|
CurrMachining.IsModifiedReset()
|
|
IsEnabledBtns(CurrMachining.IsValid And Not CurrMachining.IsModified, CurrMachining.IsValid, True)
|
|
End Sub
|
|
|
|
#End Region ' SaveCommand
|
|
|
|
#Region "RemoveCommand"
|
|
|
|
''' <summary>
|
|
''' Returns a command that remove the current selected machining.
|
|
''' </summary>
|
|
Public ReadOnly Property RemoveCommand() As ICommand
|
|
Get
|
|
If m_cmdRemove Is Nothing Then
|
|
m_cmdRemove = New Command(AddressOf Remove)
|
|
End If
|
|
Return m_cmdRemove
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Remove the current selected machining from Db and TreeView. This method is invoked by the RemoveCommand.
|
|
''' </summary>
|
|
Public Sub Remove(ByVal param As Object)
|
|
EgtSetCurrentContext(m_ProjectSceneContext)
|
|
Dim MachiningToRemove As MachiningTreeViewItem = DirectCast(param, MachiningTreeViewItem)
|
|
' Chiedo conferma cancellazione lavorazione
|
|
If MessageBox.Show(EgtMsg(31405) & " " & MachiningToRemove.Name & EgtMsg(31406), EgtMsg(31407), MessageBoxButton.YesNo, MessageBoxImage.Question) <> MessageBoxResult.Yes Then Return
|
|
'If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(31405) & " " & MachiningToRemove.Name & EgtMsg(31406), EgtMsg(31407), MessageBoxButton.YesNo, MessageBoxImage.Question) <> MessageBoxResult.Yes Then Return ' Sei sicuro di voler cancellare xxx ? CANCELLA
|
|
RemoveMachining(MachiningToRemove)
|
|
End Sub
|
|
|
|
Public Sub RemoveMachining(MachiningToRemove As MachiningTreeViewItem)
|
|
' Salvo il tipo di lavorazione per poterla cancellare
|
|
Dim MachiningType As Integer = MachiningToRemove.Type
|
|
' Cancello la lavorazione
|
|
Dim CurrMachiningOriginalName As String = String.Empty
|
|
EgtMdbGetMachiningFromUUID(MachiningToRemove.Uuid, CurrMachiningOriginalName)
|
|
EgtMdbRemoveMachining(CurrMachiningOriginalName)
|
|
' Rimuovo il nome dall'albero
|
|
For Each MachiningFamily In MachiningsList
|
|
If (MachiningFamily.MachiningType And MachiningType) <> 0 Then
|
|
MachiningFamily.Items.Remove(MachiningToRemove)
|
|
End If
|
|
Next
|
|
ErrorOnMachining(False)
|
|
End Sub
|
|
|
|
#End Region ' RemoveCommand
|
|
|
|
#Region "ImportCommand"
|
|
|
|
''' <summary>
|
|
''' Returns a command that remove the current selected machining.
|
|
''' </summary>
|
|
Public ReadOnly Property ImportCommand() As ICommand
|
|
Get
|
|
If m_cmdImport Is Nothing Then
|
|
m_cmdImport = New Command(AddressOf ImportMachining)
|
|
End If
|
|
Return m_cmdImport
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Manage the MachiningDb closing. This method is invoked by the CloseMachiningDbCommand.
|
|
''' </summary>
|
|
Public Sub ImportMachining(param As Object)
|
|
EgtSetCurrentContext(MachiningDbWindowVM.m_ProjectSceneContext)
|
|
' Se c'è lavorazione selezionata, ne verifico salvataggio
|
|
If Not VerifySelectedMachiningModification() Then Return
|
|
' apro dialogo di scelta file
|
|
Dim ImportFileDlg As New Microsoft.Win32.OpenFileDialog() With {
|
|
.Title = EgtMsg(31161) & " " & EgtMsg(31163),
|
|
.DefaultExt = ".data",
|
|
.Filter = "Machinings (.data)|*.data",
|
|
.CheckFileExists = True,
|
|
.ValidateNames = True
|
|
}
|
|
If ImportFileDlg.ShowDialog() <> True Then Return
|
|
'Dim ImportFileDlg As New EgtManageFileDialogV(Application.Current.MainWindow, New EgtManageFileDialogVM()) With {
|
|
' .Title = EgtMsg(31161) & " " & EgtMsg(31163), ' Importa Utensili
|
|
' .Filter = "Machinings (.data)|*.data",
|
|
' .CheckFileExists = True,
|
|
' .ValidateNames = True
|
|
'}
|
|
'If ImportFileDlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return
|
|
Dim ImportFilePath As String = ImportFileDlg.FileName
|
|
' recupero liste lavorazioni da importare
|
|
Dim ImportFileMachiningNameList As String() = Nothing
|
|
Dim ImportFileMachiningFamilyList As Integer() = Nothing
|
|
EgtMdbToBeImported(ImportFilePath, ImportFileMachiningNameList, ImportFileMachiningFamilyList)
|
|
' li inserisco in lista per finestra di scelta
|
|
Dim MachiningToImportList As New ObservableCollection(Of ImpExpMachiningFamily)
|
|
' creo famiglie di lavorazioni in base a quelle trovate in lista importata
|
|
If Not IsNothing(ImportFileMachiningNameList) AndAlso Not IsNothing(ImportFileMachiningFamilyList) Then
|
|
For MachiningIndex As Integer = 0 To ImportFileMachiningNameList.Count - 1
|
|
Dim MachiningName As String = ImportFileMachiningNameList(MachiningIndex)
|
|
Dim MachiningFamily As Integer = ImportFileMachiningFamilyList(MachiningIndex)
|
|
MachiningFamily = MachiningFamily And
|
|
(MCH_MY.DRILLING Or
|
|
MCH_MY.DRILLING Or
|
|
MCH_MY.SAWING Or
|
|
MCH_MY.MILLING Or
|
|
MCH_MY.POCKETING Or
|
|
MCH_MY.MORTISING Or
|
|
MCH_MY.SAWROUGHING Or
|
|
MCH_MY.SAWFINISHING Or
|
|
MCH_MY.GENMACHINING Or
|
|
MCH_MY.CHISELING Or
|
|
MCH_MY.SURFROUGHING Or
|
|
MCH_MY.SURFFINISHING Or
|
|
MCH_MY.WATERJETTING Or
|
|
MCH_MY.FIVEAXISMILLING)
|
|
Dim bFounded As Boolean = False
|
|
For Each MachiningToImportFamily In MachiningToImportList
|
|
If (MachiningFamily = MachiningToImportFamily.FamilyType) Then
|
|
MachiningToImportFamily.MachiningList.Add(New ImpExpMachiningItem(MachiningName, AlreadyExist(MachiningName)))
|
|
bFounded = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
If Not bFounded Then
|
|
Dim NewFamily As New ImpExpMachiningFamily(GetMachiningFamilyName(MachiningFamily), MachiningFamily)
|
|
NewFamily.MachiningList.Add(New ImpExpMachiningItem(MachiningName, AlreadyExist(MachiningName)))
|
|
MachiningToImportList.Add(NewFamily)
|
|
End If
|
|
Next
|
|
End If
|
|
Dim ImportWndVM As New ImportExportMachiningWindowVM(MachiningToImportList, False, ImportFilePath, ImportFileMachiningNameList)
|
|
Dim ImportWnd As New ImportExportMachiningWindowV(Application.Current.MainWindow, ImportWndVM)
|
|
|
|
If ImportWnd.ShowDialog() Then
|
|
' Aggiungo all'albero visualizzato le lavorazioni appena importate
|
|
LoadImportedMachineMachinings(ImportWndVM.vsImported)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Function AlreadyExist(MachiningName As String) As Boolean
|
|
For Each MachiningFamily In m_MachiningsList
|
|
For Each MachiningItem As MachiningTreeViewItem In MachiningFamily.Items
|
|
If MachiningName = MachiningItem.Name Then
|
|
Return True
|
|
End If
|
|
Next
|
|
Next
|
|
Return False
|
|
End Function
|
|
|
|
Private Function GetMachiningFamilyName(NewMachiningFamily As Integer) As String
|
|
For Each MachiningFamily In m_MachiningsList
|
|
If NewMachiningFamily = MachiningFamily.MachiningType Then
|
|
Return MachiningFamily.Name
|
|
End If
|
|
Next
|
|
Return ""
|
|
End Function
|
|
|
|
#End Region ' ImportCommand
|
|
|
|
#Region "ExportCommand"
|
|
|
|
''' <summary>
|
|
''' Returns a command that remove the current selected machining.
|
|
''' </summary>
|
|
Public ReadOnly Property ExportCommand() As ICommand
|
|
Get
|
|
If m_cmdExport Is Nothing Then
|
|
m_cmdExport = New Command(AddressOf ExportMachining)
|
|
End If
|
|
Return m_cmdExport
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Manage the MachiningDb closing. This method is invoked by the CloseMachiningDbCommand.
|
|
''' </summary>
|
|
Public Sub ExportMachining(param As Object)
|
|
EgtSetCurrentContext(MachiningDbWindowVM.m_ProjectSceneContext)
|
|
' Se c'è lavorazione selezionata, ne verifico salvataggio
|
|
If Not VerifySelectedMachiningModification() Then Return
|
|
' creo lista lavorazioni per esportazione
|
|
Dim MachiningToExportList As New ObservableCollection(Of ImpExpMachiningFamily)
|
|
For Each Family In m_MachiningsList
|
|
Dim ImpExpMachiningFamily As New ImpExpMachiningFamily(Family.Name, Family.MachiningType)
|
|
For Each Machining In Family.Items
|
|
ImpExpMachiningFamily.MachiningList.Add(New ImpExpMachiningItem(Machining.Name, False))
|
|
Next
|
|
MachiningToExportList.Add(ImpExpMachiningFamily)
|
|
Next
|
|
Dim ExportWndVM As New ImportExportMachiningWindowVM(MachiningToExportList, True)
|
|
Dim ExportWnd As New ImportExportMachiningWindowV(Application.Current.MainWindow, ExportWndVM)
|
|
|
|
ExportWnd.ShowDialog()
|
|
|
|
End Sub
|
|
|
|
#End Region ' ExportCommand
|
|
|
|
#Region "ReloadMachiningCommand"
|
|
|
|
''' <summary>
|
|
''' Returns a command that reload the current selected tool.
|
|
''' </summary>
|
|
Public ReadOnly Property ReloadMachiningCommand() As ICommand
|
|
Get
|
|
If m_cmdReloadMachining Is Nothing Then
|
|
m_cmdReloadMachining = New Command(AddressOf ReloadMachining)
|
|
End If
|
|
Return m_cmdReloadMachining
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Reload the current selected tools. This method is invoked by the RemoveCommand.
|
|
''' </summary>
|
|
Public Sub ReloadMachining(ByVal param As Object)
|
|
If TypeOf param Is FamilyMachiningTreeViewItem Then
|
|
Return
|
|
' Verifico se sia selezionata una lavorazione
|
|
ElseIf TypeOf param Is MachiningTreeViewItem Then
|
|
Dim MachiningToReload As MachiningTreeViewItem = DirectCast(param, MachiningTreeViewItem)
|
|
EgtSetCurrentContext(m_ProjectSceneContext)
|
|
MachiningToReload.ReadMachiningParam()
|
|
MachiningToReload.ReadMachiningName()
|
|
MachiningToReload.IsModifiedReset()
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' ReloadMachiningCommand
|
|
|
|
#Region "CloseMachiningsDbCommand"
|
|
|
|
''' <summary>
|
|
''' Returns a command that remove the current selected machining.
|
|
''' </summary>
|
|
Public ReadOnly Property CloseMachiningsDbCommand() As ICommand
|
|
Get
|
|
If m_cmdCloseMachiningsDb Is Nothing Then
|
|
m_cmdCloseMachiningsDb = New Command(AddressOf CloseMachiningsDb)
|
|
End If
|
|
Return m_cmdCloseMachiningsDb
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Manage the MachiningDb closing. This method is invoked by the CloseMachiningDbCommand.
|
|
''' </summary>
|
|
Public Sub CloseMachiningsDb(param As Object)
|
|
Dim bSkipSaving As Boolean = ((Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control)
|
|
m_bActive = False
|
|
' Se selezionata una lavorazione, verifico salvataggio
|
|
If Not bSkipSaving AndAlso TypeOf param Is MachiningTreeViewItem Then
|
|
Dim CurrMachining As MachiningTreeViewItem = DirectCast(param, MachiningTreeViewItem)
|
|
If CurrMachining.IsValid Then
|
|
CurrMachining.WriteMachiningParam()
|
|
If EgtMdbIsCurrMachiningModified() Or CurrMachining.m_IsModifiedName Or CurrMachining.NewMachining Then
|
|
Select Case MsgBox(EgtMsg(31401), MsgBoxStyle.YesNo, EgtMsg(31402))
|
|
'Select Case EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(31401), EgtMsg(31402), MessageBoxButton.YesNo) ' Salvare la lavorazione modificata? SALVA
|
|
Case MsgBoxResult.Yes
|
|
CurrMachining.NewMachining = False
|
|
CurrMachining.m_Name = CurrMachining.m_Name.Trim()
|
|
CurrMachining.WriteMachiningName()
|
|
EgtMdbSaveCurrMachining()
|
|
Case MsgBoxResult.No
|
|
If CurrMachining.NewMachining Then
|
|
RemoveMachining(CurrMachining)
|
|
ElseIf CurrMachining.m_IsModifiedName Then
|
|
Dim DbName As String = String.Empty
|
|
EgtMdbGetCurrMachiningParam(MCH_MP.NAME, DbName)
|
|
CurrMachining.NamePar = DbName
|
|
End If
|
|
End Select
|
|
End If
|
|
Else
|
|
'Lavorazione non valida, correggerla o cancellarla prima di uscire. - Errore
|
|
MessageBox.Show(EgtMsg(31410), EgtMsg(31126))
|
|
'EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(31410), EgtMsg(31126)) ' Lavorazione non valida, correggerla o cancellarla prima di uscire. Errore
|
|
Return
|
|
End If
|
|
End If
|
|
' Salvataggio DB lavorazioni
|
|
If Not bSkipSaving Then EgtMdbSave()
|
|
' Dichiaro lavorazione non più selezionata
|
|
If Not IsNothing(SelMachining) Then SelMachining.ResetSelected()
|
|
' Chiusura finestra
|
|
MachiningTreeViewItem.m_delRemoveMachining = Nothing
|
|
MachiningTreeViewItem.m_delErrorOnMachining = Nothing
|
|
MachiningTreeViewItem.m_delIsEnabledBtns = Nothing
|
|
FamilyMachiningTreeViewItem.m_delIsEnabledBtns = Nothing
|
|
RaiseEvent OnCloseWindow(True)
|
|
End Sub
|
|
|
|
#End Region ' CloseMachiningDbCommand
|
|
|
|
#End Region ' Commands
|
|
|
|
End Class |