diff --git a/EgtBEAMWALL.Core/BeamMachiningsWindow/BeamMachiningsWindowV.xaml b/EgtBEAMWALL.Core/BeamMachiningsWindow/BeamMachiningsWindowV.xaml
index cfa320aa..d366983f 100644
--- a/EgtBEAMWALL.Core/BeamMachiningsWindow/BeamMachiningsWindowV.xaml
+++ b/EgtBEAMWALL.Core/BeamMachiningsWindow/BeamMachiningsWindowV.xaml
@@ -2,115 +2,122 @@
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
- xmlns:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Core"
+ xmlns:EgtBEAMWALLCORE="clr-namespace:EgtBEAMWALL.Core"
Title="{Binding Title}"
- Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
WindowStyle="None" ResizeMode="NoResize"
Width="500" Height="450"
IsResizable="False"
IsMinimizable="False" WindowStartupLocation="CenterOwner" ShowInTaskbar="False"
- CloseCommand="{Binding Close_Command,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}">
-
+ CloseCommand="{Binding Close_Command,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}"
+ Style="{StaticResource OnlyProd_EgtCustomWindow}">
+
-
+
+ Style="{StaticResource OnlyProdTabControl_OnlyHeaders}"/>
-
-
-
-
-
+
-
-
-
-
-
-
-
-
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -126,30 +133,29 @@
Command="{Binding MoveRowUp_Command}"
Grid.Column="0"
Margin="0,0,2.5,0"
- Style="{StaticResource EgtWPFLib5_InputButton}"/>
+ Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
+ Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
+ Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
+ Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
+ Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
-
diff --git a/EgtBEAMWALL.Core/BeamMachiningsWindow/BeamMachiningsWindowV.xaml.vb b/EgtBEAMWALL.Core/BeamMachiningsWindow/BeamMachiningsWindowV.xaml.vb
index 3b220f61..e6ac89ee 100644
--- a/EgtBEAMWALL.Core/BeamMachiningsWindow/BeamMachiningsWindowV.xaml.vb
+++ b/EgtBEAMWALL.Core/BeamMachiningsWindow/BeamMachiningsWindowV.xaml.vb
@@ -1,10 +1,8 @@
-Imports System.Windows
-
-Public Class BeamMachiningsWindowV
+Public Class BeamMachiningsWindowV
Private WithEvents m_BeamMachiningsWindowVM As MyBeamMachiningsWindowVM
- Sub New(Owner As Window, BeamMachiningsWindowVM As MyBeamMachiningsWindowVM)
+ Sub New(Owner As System.Windows.Window, BeamMachiningsWindowVM As MyBeamMachiningsWindowVM)
MyBase.New(Owner)
' This call is required by the designer.
InitializeComponent()
diff --git a/EgtBEAMWALL.Core/BeamMachiningsWindow/OnlyProdBeamMachiningsWindowV.xaml b/EgtBEAMWALL.Core/BeamMachiningsWindow/OnlyProdBeamMachiningsWindowV.xaml
deleted file mode 100644
index 3198d239..00000000
--- a/EgtBEAMWALL.Core/BeamMachiningsWindow/OnlyProdBeamMachiningsWindowV.xaml
+++ /dev/null
@@ -1,161 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/EgtBEAMWALL.Core/BeamMachiningsWindow/OnlyProdBeamMachiningsWindowV.xaml.vb b/EgtBEAMWALL.Core/BeamMachiningsWindow/OnlyProdBeamMachiningsWindowV.xaml.vb
deleted file mode 100644
index 276976b2..00000000
--- a/EgtBEAMWALL.Core/BeamMachiningsWindow/OnlyProdBeamMachiningsWindowV.xaml.vb
+++ /dev/null
@@ -1,18 +0,0 @@
-Public Class OnlyProdBeamMachiningsWindowV
-
- Private WithEvents m_BeamMachiningsWindowVM As MyBeamMachiningsWindowVM
-
- Sub New(Owner As System.Windows.Window, BeamMachiningsWindowVM As MyBeamMachiningsWindowVM)
- MyBase.New(Owner)
- ' This call is required by the designer.
- InitializeComponent()
- Me.DataContext = BeamMachiningsWindowVM
- ' Assegno al riferimento locale al VM il VM preso dal DataContext
- m_BeamMachiningsWindowVM = BeamMachiningsWindowVM
- End Sub
-
- Private Sub CloseWindow(bDialogResult As Boolean) Handles m_BeamMachiningsWindowVM.m_CloseWindow
- Me.DialogResult = bDialogResult
- End Sub
-
-End Class
diff --git a/EgtBEAMWALL.Core/ConfigurationPage/ConfigurationPageV.xaml b/EgtBEAMWALL.Core/ConfigurationPage/ConfigurationPageV.xaml
deleted file mode 100644
index 1ed7a8f3..00000000
--- a/EgtBEAMWALL.Core/ConfigurationPage/ConfigurationPageV.xaml
+++ /dev/null
@@ -1,80 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/EgtBEAMWALL.Core/ConfigurationPage/ConfigurationPageV.xaml.vb b/EgtBEAMWALL.Core/ConfigurationPage/ConfigurationPageV.xaml.vb
deleted file mode 100644
index 1d11796c..00000000
--- a/EgtBEAMWALL.Core/ConfigurationPage/ConfigurationPageV.xaml.vb
+++ /dev/null
@@ -1,3 +0,0 @@
-Public Class ConfigurationPageV
-
-End Class
\ No newline at end of file
diff --git a/EgtBEAMWALL.Core/ConfigurationPage/General_ConfigurationPageV.xaml b/EgtBEAMWALL.Core/ConfigurationPage/General_ConfigurationPageV.xaml
index 3fe2ca1b..f1fea801 100644
--- a/EgtBEAMWALL.Core/ConfigurationPage/General_ConfigurationPageV.xaml
+++ b/EgtBEAMWALL.Core/ConfigurationPage/General_ConfigurationPageV.xaml
@@ -12,52 +12,52 @@
-
+
+ Margin="0,0,0,5"
+ Foreground="{StaticResource BeamWall_Corduroy}">
+ Margin="0,0,0,5" Style="{StaticResource OnlyProd_ComboBox}" />
-
+
+ Margin="0,5,0,0" Style="{StaticResource OnlyProd_ComboBox}" />
+ Margin="0,0,0,5"
+ Foreground="{StaticResource BeamWall_Corduroy}">
-
-
+
+
-
-
+
+
-
+
-
+
@@ -65,8 +65,7 @@
-
+
@@ -89,10 +88,13 @@
Margin="0,0,2.5,0"/>
+ Margin="2.5,0,0,0"
+ Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
@@ -103,19 +105,26 @@
+ Margin="0,0,0,5" Style="{StaticResource OnlyProd_ComboBox}" />
+ Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"
+ Margin="0,0,5,0"/>
+ Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
+
+
+
+
\ No newline at end of file
diff --git a/EgtBEAMWALL.Core/ConfigurationPage/Machine_ConfigurationPageV.xaml b/EgtBEAMWALL.Core/ConfigurationPage/Machine_ConfigurationPageV.xaml
index c250f67c..cdc36f45 100644
--- a/EgtBEAMWALL.Core/ConfigurationPage/Machine_ConfigurationPageV.xaml
+++ b/EgtBEAMWALL.Core/ConfigurationPage/Machine_ConfigurationPageV.xaml
@@ -1,7 +1,7 @@
@@ -13,13 +13,13 @@
-
+
-
+
-
+
@@ -28,7 +28,7 @@
-
+
@@ -46,17 +46,17 @@
-
-
+ Width="148"
+ Style="{StaticResource MachParamTextBlock}"/>
@@ -67,12 +67,11 @@
-
diff --git a/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdGeneral_ConfigurationPageV.xaml b/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdGeneral_ConfigurationPageV.xaml
deleted file mode 100644
index 2da3afce..00000000
--- a/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdGeneral_ConfigurationPageV.xaml
+++ /dev/null
@@ -1,130 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
\ No newline at end of file
diff --git a/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdGeneral_ConfigurationPageV.xaml.vb b/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdGeneral_ConfigurationPageV.xaml.vb
deleted file mode 100644
index e0827008..00000000
--- a/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdGeneral_ConfigurationPageV.xaml.vb
+++ /dev/null
@@ -1,3 +0,0 @@
-Public Class OnlyProdGeneral_ConfigurationPageV
-
-End Class
\ No newline at end of file
diff --git a/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdMachine_ConfigurationPageV.xaml b/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdMachine_ConfigurationPageV.xaml
deleted file mode 100644
index 2a47ef9e..00000000
--- a/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdMachine_ConfigurationPageV.xaml
+++ /dev/null
@@ -1,78 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdMachine_ConfigurationPageV.xaml.vb b/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdMachine_ConfigurationPageV.xaml.vb
deleted file mode 100644
index e543003f..00000000
--- a/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdMachine_ConfigurationPageV.xaml.vb
+++ /dev/null
@@ -1,3 +0,0 @@
-Public Class OnlyProdMachine_ConfigurationPageV
-
-End Class
\ No newline at end of file
diff --git a/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdQParameter_ConfigurationPageV.xaml b/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdQParameter_ConfigurationPageV.xaml
deleted file mode 100644
index 9fb0d98a..00000000
--- a/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdQParameter_ConfigurationPageV.xaml
+++ /dev/null
@@ -1,82 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdQParameter_ConfigurationPageV.xaml.vb b/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdQParameter_ConfigurationPageV.xaml.vb
deleted file mode 100644
index c99af9c6..00000000
--- a/EgtBEAMWALL.Core/ConfigurationPage/OnlyProdQParameter_ConfigurationPageV.xaml.vb
+++ /dev/null
@@ -1,3 +0,0 @@
-Public Class OnlyProdQParameter_ConfigurationPageV
-
-End Class
\ No newline at end of file
diff --git a/EgtBEAMWALL.Core/ConfigurationPage/QParameter_ConfigurationPageV.xaml b/EgtBEAMWALL.Core/ConfigurationPage/QParameter_ConfigurationPageV.xaml
deleted file mode 100644
index 622874ea..00000000
--- a/EgtBEAMWALL.Core/ConfigurationPage/QParameter_ConfigurationPageV.xaml
+++ /dev/null
@@ -1,80 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/EgtBEAMWALL.Core/ConfigurationPage/QParameter_ConfigurationPageV.xaml.vb b/EgtBEAMWALL.Core/ConfigurationPage/QParameter_ConfigurationPageV.xaml.vb
deleted file mode 100644
index c059e15e..00000000
--- a/EgtBEAMWALL.Core/ConfigurationPage/QParameter_ConfigurationPageV.xaml.vb
+++ /dev/null
@@ -1,3 +0,0 @@
-Public Class QParameter_ConfigurationPageV
-
-End Class
\ No newline at end of file
diff --git a/EgtBEAMWALL.Core/EgtBEAMWALL.Core.vbproj b/EgtBEAMWALL.Core/EgtBEAMWALL.Core.vbproj
index fdf86dcb..8550c904 100644
--- a/EgtBEAMWALL.Core/EgtBEAMWALL.Core.vbproj
+++ b/EgtBEAMWALL.Core/EgtBEAMWALL.Core.vbproj
@@ -116,27 +116,18 @@
+ BeamMachiningsWindowV.xaml
-
-
- OnlyProdBeamMachiningsWindowV.xaml
-
-
- OnlyProdMachine_ConfigurationPageV.xaml
-
-
- OnlyProdGeneral_ConfigurationPageV.xaml
+
+ Machine_ConfigurationPageV.xamlGeneral_ConfigurationPageV.xaml
-
- Machine_ConfigurationPageV.xaml
-
@@ -148,9 +139,6 @@
EgtColorPickerV.xaml
-
- OnlyProdEgtColorPickerV.xaml
- EgtDataGrid.xaml
@@ -164,21 +152,9 @@
EgtManageFileDialogV.xaml
-
- OnlyProdEgtManageFileDialogV.xaml
- EgtMessageBoxV.xaml
-
- OnlyProdEgtMessageBoxV.xaml
-
-
- OnlyProd_QParamListV.xaml
-
-
- QParamListV.xaml
-
@@ -190,31 +166,22 @@
+ LoadingWndV.xaml
-
-
- OnlyProdLoadingWndV.xaml
-
-
- OnlyProdMachinePanelV.xaml
- MachinePanelV.xaml
-
- OnlyProdMachiningDbWindowV.xaml
+
+ MachiningDbWindowV.xaml
+ NewOpenProjectFileDialogV.xaml
-
-
- OnlyProdNewOpenProjectFileDialogV.xaml
-
-
- OnlyProdOpenProjectFileDialogV.xaml
+
+ OpenProjectFileDialogV.xaml
@@ -248,9 +215,6 @@
-
- OpenProjectFileDialogV.xaml
-
@@ -291,37 +255,21 @@
- MSBuild:Compile
- Designer
-
- DesignerMSBuild:Compile
-
- MSBuild:Compile
- Designer
-
-
+ MSBuild:CompileDesigner
+ MSBuild:CompileDesigner
- XamlIntelliSenseFileGenerator
-
-
- Designer
- XamlIntelliSenseFileGeneratorDesignerMSBuild:Compile
-
- Designer
- MSBuild:Compile
- MSBuild:CompileDesigner
@@ -330,61 +278,29 @@
DesignerMSBuild:Compile
-
- Designer
- MSBuild:Compile
- DesignerMSBuild:Compile
-
- Designer
- MSBuild:Compile
-
-
- MSBuild:Compile
- Designer
-
-
- MSBuild:Compile
- Designer
-
- Designer
- XamlIntelliSenseFileGenerator
-
- DesignerMSBuild:Compile
-
- MSBuild:Compile
- Designer
-
+ MSBuild:CompileDesigner
- XamlIntelliSenseFileGenerator
-
+ DesignerMSBuild:Compile
- MSBuild:Compile
- Designer
-
-
- Designer
- MSBuild:Compile
-
- DesignerMSBuild:Compile
- MSBuild:CompileDesigner
+ MSBuild:CompileMSBuild:Compile
diff --git a/EgtBEAMWALL.Core/EgtColorPicker/EgtColorPickerV.xaml b/EgtBEAMWALL.Core/EgtColorPicker/EgtColorPickerV.xaml
index d3a69a88..1da51c37 100644
--- a/EgtBEAMWALL.Core/EgtColorPicker/EgtColorPickerV.xaml
+++ b/EgtBEAMWALL.Core/EgtColorPicker/EgtColorPickerV.xaml
@@ -8,66 +8,66 @@
WindowStyle="None" ResizeMode="NoResize"
IsMinimizable="False" ShowInTaskbar="False"
Width="750" Height="450"
- Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}">
-
+ Style="{StaticResource OnlyProd_EgtCustomWindow}">
+
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
-
-
-
-
-
+
+
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
-
-
-
+
+
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
+
+
+
+
-
-
-
-
-
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
+
-
-
+
-
+ Style="{StaticResource OnlyRightPanel_HalfRound_Button}"/>
+
diff --git a/EgtBEAMWALL.Core/EgtColorPicker/EgtColorPickerV.xaml.vb b/EgtBEAMWALL.Core/EgtColorPicker/EgtColorPickerV.xaml.vb
index 4e15e305..3137d429 100644
--- a/EgtBEAMWALL.Core/EgtColorPicker/EgtColorPickerV.xaml.vb
+++ b/EgtBEAMWALL.Core/EgtColorPicker/EgtColorPickerV.xaml.vb
@@ -1,6 +1,6 @@
-Imports System.Windows
+Imports EgtWPFLib5
+Imports System.Windows
Imports System.Windows.Forms
-Imports EgtWPFLib5
Public Class EgtColorPickerV
@@ -66,4 +66,4 @@ Public Class EgtColorPickerV
#End Region ' Methods
-End Class
\ No newline at end of file
+End Class
diff --git a/EgtBEAMWALL.Core/EgtColorPicker/OnlyProdEgtColorPickerV.xaml b/EgtBEAMWALL.Core/EgtColorPicker/OnlyProdEgtColorPickerV.xaml
deleted file mode 100644
index c70ea1ed..00000000
--- a/EgtBEAMWALL.Core/EgtColorPicker/OnlyProdEgtColorPickerV.xaml
+++ /dev/null
@@ -1,268 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/EgtBEAMWALL.Core/EgtColorPicker/OnlyProdEgtColorPickerV.xaml.vb b/EgtBEAMWALL.Core/EgtColorPicker/OnlyProdEgtColorPickerV.xaml.vb
deleted file mode 100644
index 68dee6ac..00000000
--- a/EgtBEAMWALL.Core/EgtColorPicker/OnlyProdEgtColorPickerV.xaml.vb
+++ /dev/null
@@ -1,69 +0,0 @@
-Imports EgtWPFLib5
-Imports System.Windows
-Imports System.Windows.Forms
-
-Public Class OnlyProdEgtColorPickerV
-
-#Region "FIELDS & PROPERTIES"
-
- Private WithEvents m_EgtColorPickerVM As EgtColorPickerVM
-
- Private Shadows DialogResult As DialogResult
-
- Public Property CustomColors As Integer()
- Get
- Return m_EgtColorPickerVM.GetCustomColors()
- End Get
- Set(value As Integer())
- m_EgtColorPickerVM.SetCustomColors(value)
- End Set
- End Property
-
- Public Property Color As System.Drawing.Color
- Get
- Return System.Drawing.Color.FromArgb(255, m_EgtColorPickerVM.Red, m_EgtColorPickerVM.Green, m_EgtColorPickerVM.Blue)
- End Get
- Set(value As System.Drawing.Color)
- m_EgtColorPickerVM.Red = value.R
- m_EgtColorPickerVM.Green = value.G
- m_EgtColorPickerVM.Blue = value.B
- End Set
- End Property
-
-#End Region ' Fields & Properties
-
-#Region "CONTRUCTORS"
-
- Sub New(Owner As Window, EtgColorPickerVM As EgtColorPickerVM)
- MyBase.New(Owner)
- InitializeComponent()
- Me.DataContext = EtgColorPickerVM
- ' Assegno al riferimento locale al VM il VM preso dal DataContext
- m_EgtColorPickerVM = EtgColorPickerVM
- End Sub
-
-#End Region ' Constructors
-
-#Region "EVENTS"
-
- Private Sub CloseWindow(DialogResult As MessageBoxResult) Handles m_EgtColorPickerVM.m_CloseWindow
- Me.DialogResult = DialogResult
- Me.Close()
- End Sub
-
-#End Region ' Events
-
-#Region "METHODS"
-
- '''
- ''' Apre una finestra EgtColorPicker
- '''
- '''
- Public Overloads Function ShowDialog() As DialogResult
- MyBase.ShowDialog()
- Return Me.DialogResult
- End Function
-
-#End Region ' Methods
-
-End Class
diff --git a/EgtBEAMWALL.Core/EgtManageFileDialog/EgtManageFileDialogV.xaml b/EgtBEAMWALL.Core/EgtManageFileDialog/EgtManageFileDialogV.xaml
index 66214325..4ba4ddb6 100644
--- a/EgtBEAMWALL.Core/EgtManageFileDialog/EgtManageFileDialogV.xaml
+++ b/EgtBEAMWALL.Core/EgtManageFileDialog/EgtManageFileDialogV.xaml
@@ -7,8 +7,8 @@
WindowStyle="None" ResizeMode="NoResize"
IsMinimizable="False" ShowInTaskbar="False"
Height="500" Width="800"
- Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}">
-
+ Style="{StaticResource OnlyProd_EgtCustomWindow}">
+
@@ -266,10 +266,26 @@
-
+ SelectedItem="{Binding ItemSelected}"
+ RowStyle="{StaticResource RowDataGrid_CustomHighLight}"
+ CellStyle="{StaticResource CellDataGrid_CustomHighLight}"
+ Style="{StaticResource DataGrid_OnlyProd}">
+
+
+
@@ -389,12 +405,12 @@
Command="{Binding Ok_Command}"
HorizontalAlignment="Right"
Margin="15,0,2.5,0"
- Style="{StaticResource RightPanel_HalfRound_Button}"/>
+ Style="{StaticResource OnlyRightPanel_HalfRound_Button}"/>
+ Style="{StaticResource OnlyRightPanel_HalfRound_Button}"/>
diff --git a/EgtBEAMWALL.Core/EgtManageFileDialog/EgtManageFileDialogV.xaml.vb b/EgtBEAMWALL.Core/EgtManageFileDialog/EgtManageFileDialogV.xaml.vb
index a16025dc..748fd983 100644
--- a/EgtBEAMWALL.Core/EgtManageFileDialog/EgtManageFileDialogV.xaml.vb
+++ b/EgtBEAMWALL.Core/EgtManageFileDialog/EgtManageFileDialogV.xaml.vb
@@ -1,6 +1,6 @@
-Imports System.Windows.Forms
+Imports EgtWPFLib5
+Imports System.Windows.Forms
Imports System.Windows.Input
-Imports EgtWPFLib5
Public Class EgtManageFileDialogV
@@ -139,4 +139,4 @@ Public Class EgtManageFileDialogV
#End Region ' METHODS
-End Class
\ No newline at end of file
+End Class
diff --git a/EgtBEAMWALL.Core/EgtManageFileDialog/OnlyProdEgtManageFileDialogV.xaml b/EgtBEAMWALL.Core/EgtManageFileDialog/OnlyProdEgtManageFileDialogV.xaml
deleted file mode 100644
index 7290412f..00000000
--- a/EgtBEAMWALL.Core/EgtManageFileDialog/OnlyProdEgtManageFileDialogV.xaml
+++ /dev/null
@@ -1,416 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/EgtBEAMWALL.Core/EgtManageFileDialog/OnlyProdEgtManageFileDialogV.xaml.vb b/EgtBEAMWALL.Core/EgtManageFileDialog/OnlyProdEgtManageFileDialogV.xaml.vb
deleted file mode 100644
index 309f3abf..00000000
--- a/EgtBEAMWALL.Core/EgtManageFileDialog/OnlyProdEgtManageFileDialogV.xaml.vb
+++ /dev/null
@@ -1,142 +0,0 @@
-Imports EgtWPFLib5
-Imports System.Windows.Forms
-Imports System.Windows.Input
-
-Public Class OnlyProdEgtManageFileDialogV
-
-#Region "FIELDS & PROPERTIES"
-
- Private WithEvents m_EgtManageFileDialogVM As EgtManageFileDialogVM
-
- Private Shadows DialogResult As DialogResult
-
- '''
- ''' Stringa che specifica il titolo da mostrare
- '''
- Public Overloads Property Title As String
- Get
- Return m_EgtManageFileDialogVM.sTitle
- End Get
- Set(value As String)
- m_EgtManageFileDialogVM.sTitle = value
- End Set
- End Property
-
- Public Property Filter As String
- Get
- Return m_EgtManageFileDialogVM.sFilter
- End Get
- Set(value As String)
- m_EgtManageFileDialogVM.sFilter = value
- End Set
- End Property
-
- Public Property InitialDirectory As String
- Get
- Return m_EgtManageFileDialogVM.sInitialDirectory
- End Get
- Set(value As String)
- m_EgtManageFileDialogVM.sInitialDirectory = value
- End Set
- End Property
-
- Public Property SafeFileName As String
- Get
- Return m_EgtManageFileDialogVM.sSaveFileName
- End Get
- Set(value As String)
- m_EgtManageFileDialogVM.sSaveFileName = value
- End Set
- End Property
-
- Public Property FileName As String
- Get
- Return m_EgtManageFileDialogVM.sFileName
- End Get
- Set(value As String)
- m_EgtManageFileDialogVM.sFileName = value
- End Set
- End Property
-
- Public Property FilterIndex As Integer
- Get
- Return m_EgtManageFileDialogVM.nFilterIndex
- End Get
- Set(value As Integer)
- m_EgtManageFileDialogVM.nFilterIndex = value
- End Set
- End Property
-
- Public Property Mode As Integer
- Get
- Return m_EgtManageFileDialogVM.nMode
- End Get
- Set(value As Integer)
- m_EgtManageFileDialogVM.nMode = value
- End Set
- End Property
-
- Public Property CheckFileExists As Boolean
- Get
- Return m_EgtManageFileDialogVM.bCheckFileExists
- End Get
- Set(value As Boolean)
- m_EgtManageFileDialogVM.bCheckFileExists = value
- End Set
- End Property
-
- Public Property ValidateNames As Boolean
- Get
- Return m_EgtManageFileDialogVM.bValidateNames
- End Get
- Set(value As Boolean)
- m_EgtManageFileDialogVM.bValidateNames = value
- End Set
- End Property
-
- Public Property OverwritePrompt As Boolean
- Get
- Return m_EgtManageFileDialogVM.bOverwritePrompt
- End Get
- Set(value As Boolean)
- m_EgtManageFileDialogVM.bOverwritePrompt = value
- End Set
- End Property
-
-#End Region ' FIELDS & PROPERTIES
-
-#Region "CONTRUCTORS"
-
- Sub New(Owner As System.Windows.Window, EgtManageFileDialogVM As EgtManageFileDialogVM)
- MyBase.New(Owner)
- InitializeComponent()
- Me.DataContext = EgtManageFileDialogVM
- ' Assegno al riferimento locale al VM il VM preso dal DataContext
- m_EgtManageFileDialogVM = EgtManageFileDialogVM
- End Sub
-
-#End Region
-
-#Region "EVENTS"
-
- Private Sub CloseWindow(DialogResult As DialogResult) Handles m_EgtManageFileDialogVM.m_CloseWindow
- Me.DialogResult = DialogResult
- Me.Close()
- End Sub
-
-#End Region
-
-#Region "METHODS"
-
- Public Overloads Function ShowDialog() As DialogResult
- MyBase.ShowDialog()
- Return Me.DialogResult
- End Function
-
- Private Sub ListBoxItem_MouseDoubleClick(sender As Object, e As MouseButtonEventArgs)
- m_EgtManageFileDialogVM.MouseDoubleClick()
- End Sub
-
-#End Region ' METHODS
-
-End Class
diff --git a/EgtBEAMWALL.Core/EgtMessageBox/EgtMessageBoxV.xaml b/EgtBEAMWALL.Core/EgtMessageBox/EgtMessageBoxV.xaml
index 9f4bbbbd..a03b41de 100644
--- a/EgtBEAMWALL.Core/EgtMessageBox/EgtMessageBoxV.xaml
+++ b/EgtBEAMWALL.Core/EgtMessageBox/EgtMessageBoxV.xaml
@@ -3,11 +3,11 @@
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
Title="{Binding sTitle}"
- WindowStartupLocation="CenterOwner"
SizeToContent="WidthAndHeight"
+ WindowStartupLocation="CenterOwner"
WindowStyle="None" ResizeMode="NoResize"
IsMinimizable="False" ShowInTaskbar="False"
- Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}">
+ Style="{StaticResource OnlyProd_EgtCustomWindow}">
@@ -40,7 +40,7 @@
Content="{Binding sMessage}"
Command="{Binding Command_Command}"
Margin="2.5,0,2.5,0"
- Style="{StaticResource RightPanel_HalfRound_Button}"/>
+ Style="{StaticResource OnlyRightPanel_HalfRound_Button}"/>
diff --git a/EgtBEAMWALL.Core/EgtMessageBox/OnlyProdEgtMessageBoxV.xaml b/EgtBEAMWALL.Core/EgtMessageBox/OnlyProdEgtMessageBoxV.xaml
deleted file mode 100644
index 2aa37e5f..00000000
--- a/EgtBEAMWALL.Core/EgtMessageBox/OnlyProdEgtMessageBoxV.xaml
+++ /dev/null
@@ -1,49 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/EgtBEAMWALL.Core/EgtMessageBox/OnlyProdEgtMessageBoxV.xaml.vb b/EgtBEAMWALL.Core/EgtMessageBox/OnlyProdEgtMessageBoxV.xaml.vb
deleted file mode 100644
index da68c242..00000000
--- a/EgtBEAMWALL.Core/EgtMessageBox/OnlyProdEgtMessageBoxV.xaml.vb
+++ /dev/null
@@ -1,110 +0,0 @@
-Imports EgtWPFLib5
-Imports System.Windows
-
-Public Class OnlyProdEgtMessageBoxV
-
-#Region "FIELDS & PROPERTIES"
-
- Private WithEvents m_EgtMessageBoxVM As EgtMessageBoxVM
-
- Private Shadows DialogResult As MessageBoxResult
-
-#End Region ' FIELDS & PROPERTIES
-
-#Region "CONTRUCTORS"
-
- Sub New(Owner As Window, EgtMessageBoxVM As EgtMessageBoxVM)
- MyBase.New(Owner)
- ' This call is required by the designer.
- InitializeComponent()
- Me.DataContext = EgtMessageBoxVM
- ' Assegno al riferimento locale al VM il VM preso dal DataContext
- m_EgtMessageBoxVM = EgtMessageBoxVM
- End Sub
-
-#End Region
-
-#Region "METHODS"
-
- '''
- ''' Apre una EgtMessageBox con un messaggio che ritorna un risultato
- '''
- ''' Finestra di appartenenza
- ''' Stringa che specifica il messaggio da mostrare
- ''' Valore che specifica quale bottone e' stato premuto dall'utente
- Public Overloads Shared Function Show(Owner As Window, sMessageBoxText As String) As MessageBoxResult
- Dim NewMessagebox As New OnlyProdEgtMessageBoxV(Owner, New EgtMessageBoxVM(sMessageBoxText))
- NewMessagebox.ShowDialog()
- Return NewMessagebox.DialogResult
- End Function
-
- '''
- ''' Apre una EgtMessageBox con un titolo ed un messaggio che ritorna un risultato
- '''
- ''' Finestra di appartenenza
- ''' Stringa che specifica il messaggio da mostrare
- ''' Stringa che specifica il titolo da mostrare
- ''' Valore che specifica quale bottone e' stato premuto dall'utente
- Public Overloads Shared Function Show(Owner As Window, sMessageBoxText As String, sCaption As String) As MessageBoxResult
- Dim NewMessagebox As New OnlyProdEgtMessageBoxV(Owner, New EgtMessageBoxVM(sMessageBoxText, sCaption))
- NewMessagebox.ShowDialog()
- Return NewMessagebox.DialogResult
- End Function
-
- '''
- ''' Apre una EgtMessageBox con un titolo ed un messaggio che ritorna un risultato
- '''
- ''' Finestra di appartenenza
- ''' Stringa che specifica il messaggio da mostrare
- ''' Stringa che specifica il titolo da mostrare
- ''' Valore che specifica quali bottoni mostrare
- ''' Valore che specifica quale bottone e' stato premuto dall'utente
- Public Overloads Shared Function Show(Owner As Window, sMessageBoxText As String, sCaption As String, Button As MessageBoxButton) As MessageBoxResult
- Dim NewMessagebox As New OnlyProdEgtMessageBoxV(Owner, New EgtMessageBoxVM(sMessageBoxText, sCaption, Button))
- NewMessagebox.ShowDialog()
- Return NewMessagebox.DialogResult
- End Function
-
- '''
- ''' Apre una EgtMessageBox con un titolo ed un messaggio che ritorna un risultato
- '''
- ''' Finestra di appartenenza
- ''' Stringa che specifica il messaggio da mostrare
- ''' Stringa che specifica il titolo da mostrare
- ''' Valore che specifica quali bottoni mostrare
- ''' Valore che specifica quale icona mostrare
- ''' Valore che specifica quale bottone e' stato premuto dall'utente
- Public Overloads Shared Function Show(Owner As Window, sMessageBoxText As String, sCaption As String, Button As MessageBoxButton, Icon As MessageBoxImage) As MessageBoxResult
- Dim NewMessagebox As New OnlyProdEgtMessageBoxV(Owner, New EgtMessageBoxVM(sMessageBoxText, sCaption, Button, Icon))
- NewMessagebox.ShowDialog()
- Return NewMessagebox.DialogResult
- End Function
-
- '''
- ''' Apre una EgtMessageBox con un titolo ed un messaggio che ritorna un risultato
- '''
- ''' Finestra di appartenenza
- ''' Stringa che specifica il messaggio da mostrare
- ''' Stringa che specifica il titolo da mostrare
- ''' Valore che specifica quali bottoni mostrare
- ''' Valore che specifica quale icona mostrare
- ''' Valore che specifica il bottone di default
- ''' Valore che specifica quale bottone e' stato premuto dall'utente
- Public Overloads Shared Function Show(Owner As Window, sMessageBoxText As String, sCaption As String, Button As MessageBoxButton, Icon As MessageBoxImage, DefaultResult As MessageBoxResult) As MessageBoxResult
- Dim NewMessagebox As New OnlyProdEgtMessageBoxV(Owner, New EgtMessageBoxVM(sMessageBoxText, sCaption, Button, Icon, DefaultResult))
- NewMessagebox.ShowDialog()
- Return NewMessagebox.DialogResult
- End Function
-
-#End Region ' METHODS
-
-#Region "EVENTS"
-
- Private Sub CloseWindow(DialogResult As MessageBoxResult) Handles m_EgtMessageBoxVM.m_CloseWindow
- Me.DialogResult = DialogResult
- Me.Close()
- End Sub
-
-#End Region
-
-End Class
diff --git a/EgtBEAMWALL.Core/ItemParamList/OnlyProd_QParamListV.xaml b/EgtBEAMWALL.Core/ItemParamList/OnlyProd_QParamListV.xaml
deleted file mode 100644
index f7e23c52..00000000
--- a/EgtBEAMWALL.Core/ItemParamList/OnlyProd_QParamListV.xaml
+++ /dev/null
@@ -1,91 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
\ No newline at end of file
diff --git a/EgtBEAMWALL.Core/ItemParamList/OnlyProd_QParamListV.xaml.vb b/EgtBEAMWALL.Core/ItemParamList/OnlyProd_QParamListV.xaml.vb
deleted file mode 100644
index d395cd69..00000000
--- a/EgtBEAMWALL.Core/ItemParamList/OnlyProd_QParamListV.xaml.vb
+++ /dev/null
@@ -1,3 +0,0 @@
-Public Class OnlyProd_QParamListV
-
-End Class
diff --git a/EgtBEAMWALL.Core/ItemParamList/QParamListV.xaml b/EgtBEAMWALL.Core/ItemParamList/QParamListV.xaml
deleted file mode 100644
index 5f018ba2..00000000
--- a/EgtBEAMWALL.Core/ItemParamList/QParamListV.xaml
+++ /dev/null
@@ -1,83 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
\ No newline at end of file
diff --git a/EgtBEAMWALL.Core/ItemParamList/QParamListV.xaml.vb b/EgtBEAMWALL.Core/ItemParamList/QParamListV.xaml.vb
deleted file mode 100644
index e780b75a..00000000
--- a/EgtBEAMWALL.Core/ItemParamList/QParamListV.xaml.vb
+++ /dev/null
@@ -1,3 +0,0 @@
-Public Class QParamListV
-
-End Class
diff --git a/EgtBEAMWALL.Core/LoadingWnd/LoadingWndHelper.vb b/EgtBEAMWALL.Core/LoadingWnd/LoadingWndHelper.vb
index eedb4a90..b3e310db 100644
--- a/EgtBEAMWALL.Core/LoadingWnd/LoadingWndHelper.vb
+++ b/EgtBEAMWALL.Core/LoadingWnd/LoadingWndHelper.vb
@@ -59,7 +59,7 @@ Public Module LoadingWndHelper
m_thread = New Thread(Sub()
m_LoadingWndVM = New Core.LoadingWndVM(nSteps, TotText, AddressOf LoadingCallback)
m_LoadingWndVM.UpdateProgress(m_CurrStep, m_StepText, m_nProgress, m_nNextProgress)
- Dim LoadingWnd As New OnlyProdLoadingWndV(Nothing, m_LoadingWndVM)
+ Dim LoadingWnd As New LoadingWndV(Nothing, m_LoadingWndVM)
' posiziono la finestra
If WindowStartupLocation = Windows.WindowStartupLocation.CenterScreen Then
LoadingWnd.WindowStartupLocation = Windows.WindowStartupLocation.CenterScreen
diff --git a/EgtBEAMWALL.Core/LoadingWnd/LoadingWndV.xaml b/EgtBEAMWALL.Core/LoadingWnd/LoadingWndV.xaml
index 6eab8aec..9b052ba6 100644
--- a/EgtBEAMWALL.Core/LoadingWnd/LoadingWndV.xaml
+++ b/EgtBEAMWALL.Core/LoadingWnd/LoadingWndV.xaml
@@ -2,13 +2,13 @@
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
- Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
+ Style="{StaticResource OnlyProd_EgtCustomWindow}"
Height="200" Width="300"
TitleBarHeight="0"
ResizeMode="NoResize" WindowStyle="None"
IsClosable="False" IsMinimizable="False"
WindowStartupLocation="Manual" ShowInTaskbar="False">
-
+
@@ -52,5 +52,4 @@
Text="{Binding TotProgress_Msg}"
TextAlignment="Center"/>
-
diff --git a/EgtBEAMWALL.Core/LoadingWnd/LoadingWndV.xaml.vb b/EgtBEAMWALL.Core/LoadingWnd/LoadingWndV.xaml.vb
index 1866b7b7..02b440a6 100644
--- a/EgtBEAMWALL.Core/LoadingWnd/LoadingWndV.xaml.vb
+++ b/EgtBEAMWALL.Core/LoadingWnd/LoadingWndV.xaml.vb
@@ -1,5 +1,5 @@
-Imports System.Windows
-Imports System.Windows.Input
+Imports System.Windows.Input
+Imports System.Windows
Public Class LoadingWndV
diff --git a/EgtBEAMWALL.Core/LoadingWnd/OnlyProdLoadingWndV.xaml b/EgtBEAMWALL.Core/LoadingWnd/OnlyProdLoadingWndV.xaml
deleted file mode 100644
index 1b334820..00000000
--- a/EgtBEAMWALL.Core/LoadingWnd/OnlyProdLoadingWndV.xaml
+++ /dev/null
@@ -1,55 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/EgtBEAMWALL.Core/LoadingWnd/OnlyProdLoadingWndV.xaml.vb b/EgtBEAMWALL.Core/LoadingWnd/OnlyProdLoadingWndV.xaml.vb
deleted file mode 100644
index 4820c07d..00000000
--- a/EgtBEAMWALL.Core/LoadingWnd/OnlyProdLoadingWndV.xaml.vb
+++ /dev/null
@@ -1,36 +0,0 @@
-Imports System.Windows.Input
-Imports System.Windows
-
-Public Class OnlyProdLoadingWndV
-
- Private WithEvents m_LoadingWndVM As LoadingWndVM
-
- Sub New(Owner As Window, LoadingWndVM As LoadingWndVM)
- MyBase.New(Owner)
- ' This call is required by the designer.
- InitializeComponent()
- Me.DataContext = LoadingWndVM
- ' Assegno al riferimento locale al VM il VM preso dal DataContext
- m_LoadingWndVM = LoadingWndVM
- End Sub
-
- Private Sub CloseWindow(bDialogResult As Boolean) Handles m_LoadingWndVM.m_CloseWindow
- Me.Close()
- End Sub
-
- Private Sub ActivateWindow() Handles m_LoadingWndVM.m_ActivateWindow
- Me.Activate()
- End Sub
-
- Private Sub Me_ContentRendered() Handles Me.ContentRendered
- m_LoadingWndVM.StartFunction()
- End Sub
-
- Private Sub ToolsDbView_Closing(sender As Object, e As ComponentModel.CancelEventArgs) Handles Me.Closing
- If (Keyboard.Modifiers And ModifierKeys.Alt) = ModifierKeys.Alt OrElse Keyboard.IsKeyDown(Key.F4) Then
- e.Cancel = True
- Return
- End If
- End Sub
-
-End Class
diff --git a/EgtBEAMWALL.Core/MachGroupModel/BeamM.vb b/EgtBEAMWALL.Core/MachGroupModel/BeamM.vb
deleted file mode 100644
index 5155f93c..00000000
--- a/EgtBEAMWALL.Core/MachGroupModel/BeamM.vb
+++ /dev/null
@@ -1,205 +0,0 @@
-Imports System.Collections.ObjectModel
-Imports System.IO
-Imports EgtUILib
-Imports EgtWPFLib5
-
-Public Class BeamM
- Inherits PartM
-
- Protected m_dOffset As Double
- Public Property dOffset As Double
- Get
- Return m_dOffset
- End Get
- Set(value As Double)
- m_dOffset = value
- End Set
- End Property
-
- ' Id del grezzo
- Protected m_nRawPartId As Integer = GDB_ID.NULL
-
- '#Region "CONSTRUCTOR"
-
- ' Sub New(nParentMachGroup As MyMachGroupM, nPartId As Integer, nRawPartId As Integer)
- ' MyBase.New(nParentMachGroup, nPartId)
- ' m_nRawPartId = nRawPartId
- ' End Sub
-
- '#End Region ' CONSTRUCTOR
-
-#Region "CONSTRUCTORS"
-
- Protected Sub New(nParentMachGroup As MyMachGroupM, nPartId As Integer)
- MyBase.New(nParentMachGroup, nPartId)
- End Sub
-
- 'Public Shared Function CreateNewBeam() As BeamM
- ' Return New BeamM
- 'End Function
-
- Public Shared Function CreateBeam(nParentMachGroup As MyMachGroupM, nPartId As Integer, nRawPartId As Integer) As BeamM
- Dim NewBeamM As New BeamM(nParentMachGroup, nPartId)
- NewBeamM.m_nRawPartId = nRawPartId
- ' leggo info pezzo
- EgtGetInfo(nPartId, BTL_PRT_PROJ, NewBeamM.m_nProjId)
- EgtGetInfo(nPartId, BTL_PRT_PDN, NewBeamM.m_nPDN)
- EgtGetInfo(nPartId, BTL_PRT_NAM, NewBeamM.m_sNAM)
- EgtGetInfo(nPartId, BTL_PRT_L, NewBeamM.m_dBtlL)
- EgtGetInfo(nPartId, BTL_PRT_W, NewBeamM.m_dBtlW)
- EgtGetInfo(nPartId, BTL_PRT_H, NewBeamM.m_dBtlH)
- EgtGetInfo(nPartId, BTL_PRT_CNT, NewBeamM.m_nCNT)
- EgtGetInfo(nPartId, BTL_PRT_GROUP, NewBeamM.m_sGROUP)
- EgtGetInfo(nPartId, BTL_PRT_MATERIAL, NewBeamM.m_sMATERIAL)
- Dim nTemp As Integer = 0
- If Not EgtGetInfo(nPartId, BTL_PRT_ROTATED, nTemp) Then
- nTemp = 0
- End If
- NewBeamM.SetRotated(nTemp)
- If Not EgtGetInfo(nPartId, BTL_PRT_INVERTED, nTemp) Then
- nTemp = 0
- End If
- NewBeamM.SetInverted(nTemp)
- ' leggo PosX
- Dim sInfo As String = ""
- Dim Index = 1
- Dim sSplitInfo() As String = Nothing
- Dim bFound As Boolean = False
- While EgtGetInfo(NewBeamM.m_ParentMachGroup.Id, MGR_RPT_PART & Index, sInfo)
- If Not String.IsNullOrWhiteSpace(sInfo) Then
- sSplitInfo = sInfo.Split(","c)
- If sSplitInfo(0) = nPartId Then
- bFound = True
- Exit While
- End If
- End If
- Index += 1
- End While
- If bFound Then
- StringToDouble(sSplitInfo(1), NewBeamM.m_dPOSX)
- End If
- ' leggo feature
- NewBeamM.m_FeatureMList = LoadBTLFeatures(nPartId)
- ' leggo calc error
- Dim nErr As Integer = 0
- Dim nRot As Integer = 0
- Dim nFall As Integer = 0
- Dim sMsg As String = ""
- Dim bCalc As Boolean = False
- bCalc = EgtGetInfo(nPartId, ITG_PROD_ERR, nErr)
- EgtGetInfo(nPartId, ITG_PROD_ROT, nRot)
- EgtGetInfo(nPartId, ITG_PROD_FALL, nFall)
- EgtGetInfo(nPartId, ITG_PROD_MSG, sMsg)
- If Not bCalc Then
- NewBeamM.m_nCALC_State = CalcStates.NOTCALCULATED
- NewBeamM.m_nCALC_ERR = -1
- NewBeamM.m_nCALC_ROT = 0
- NewBeamM.m_nCALC_FALL = 0
- NewBeamM.m_sCALC_MSG = ""
- Else
- NewBeamM.m_nCALC_ERR = nErr
- NewBeamM.m_nCALC_ROT = nRot
- NewBeamM.m_nCALC_FALL = nFall
- NewBeamM.m_sCALC_MSG = sMsg
- If nErr = 0 Then
- NewBeamM.m_nCALC_State = CalcStates.OK
- ElseIf nErr > 1 Then
- NewBeamM.m_nCALC_State = CalcStates.ERROR_
- ElseIf nErr < 1 Then
- NewBeamM.m_nCALC_State = CalcStates.NOTCALCULATED
- End If
- End If
- EgtGetInfo(nPartId, ITG_PROD_TIME, NewBeamM.m_nCALC_TIME)
- ReadMachGroupData(NewBeamM)
- Return NewBeamM
- End Function
-
-#End Region ' CONSTRUCTORS
-
-#Region "X DataLayer"
-
- Public Shared Function CreateBeamDL(nParentMachGroup As MyMachGroupM, nPartId As Integer, nRawPartId As Integer) As BeamM
- Dim NewBeamM As New BeamM(nParentMachGroup, nPartId)
- NewBeamM.m_nRawPartId = nRawPartId
- '' leggo info pezzo
- 'EgtGetInfo(nPartId, BTL_PRT_PROJ, NewBeamM.nProjId)
- 'EgtGetInfo(nPartId, BTL_PRT_PDN, NewBeamM.nPDN)
- 'EgtGetInfo(nPartId, BTL_PRT_NAM, NewBeamM.sNAM)
- 'EgtGetInfo(nPartId, BTL_PRT_L, NewBeamM.dL)
- 'EgtGetInfo(nPartId, BTL_PRT_W, NewBeamM.dW)
- 'EgtGetInfo(nPartId, BTL_PRT_H, NewBeamM.dH)
- 'EgtGetInfo(nPartId, BTL_PRT_CNT, NewBeamM.nCNT)
- 'Dim nTemp As Integer = 0
- 'If Not EgtGetInfo(nPartId, BTL_PRT_ROTATED, nTemp) Then
- ' nTemp = 0
- 'End If
- 'NewBeamM.SetRotated(nTemp)
- 'If Not EgtGetInfo(nPartId, BTL_PRT_INVERTED, nTemp) Then
- ' nTemp = 0
- 'End If
- 'NewBeamM.SetInverted(nTemp)
- '' leggo PosX
- 'Dim sInfo As String = ""
- 'Dim Index = 1
- 'Dim sSplitInfo() As String
- 'Dim bFound As Boolean = False
- 'While EgtGetInfo(NewBeamM.m_ParentMachGroup.Id, MGR_RPT_PART & Index, sInfo)
- ' If Not String.IsNullOrWhiteSpace(sInfo) Then
- ' sSplitInfo = sInfo.Split(","c)
- ' If sSplitInfo(0) = nPartId Then
- ' bFound = True
- ' Exit While
- ' End If
- ' End If
- ' Index += 1
- 'End While
- 'If bFound Then
- ' StringToDouble(sSplitInfo(1), NewBeamM.dPOSX)
- 'End If
- '' leggo feature
- 'NewBeamM.m_FeatureMList = LoadBTLFeatures(nPartId)
- Return NewBeamM
- End Function
-
-#End Region
-
- Private Shared Function LoadBTLFeatures(nPartId As Integer) As List(Of BTLFeatureM)
- Dim TempList As New List(Of BTLFeatureM)
- ' Aggiungo outline
- Dim nOutLayerId As Integer = EgtGetFirstNameInGroup(nPartId, OUTLINE)
- Dim nOutlineId As Integer = EgtGetFirstInGroup(nOutLayerId)
- While nOutlineId <> GDB_ID.NULL
- ' verifico che sia una feature
- Dim nGRP As Integer
- If EgtGetInfo(nOutlineId, BTL_FTR_GRP, nGRP) AndAlso Not EgtExistsInfo(nOutlineId, BTL_FTR_MAINID) Then
- ' creo la feature
- TempList.Add(BTLFeatureM.CreateBTLFeature(Nothing, nOutlineId))
- End If
- nOutlineId = EgtGetNext(nOutlineId)
- End While
- ' Aggiungo feature
- Dim nProcessingId As Integer = EgtGetFirstNameInGroup(nPartId, PROCESSINGS)
- Dim nFeatureId As Integer = EgtGetFirstInGroup(nProcessingId)
- While nFeatureId <> GDB_ID.NULL
- ' verifico che sia una feature
- Dim nGRP As Integer
- If EgtGetInfo(nFeatureId, BTL_FTR_GRP, nGRP) AndAlso Not EgtExistsInfo(nFeatureId, BTL_FTR_MAINID) Then
- ' creo la feature
- TempList.Add(BTLFeatureM.CreateBTLFeature(Nothing, nFeatureId))
- End If
- nFeatureId = EgtGetNext(nFeatureId)
- End While
- Return TempList
- End Function
-
- Public Sub UpdateOffset()
- ' calcolo offset
- Dim nBeamIndex As Integer = ParentMachGroup.PartMList.IndexOf(Me)
- If nBeamIndex > 0 Then
- m_dOffset = dPOSX - (ParentMachGroup.PartMList(nBeamIndex - 1).dPOSX + ParentMachGroup.PartMList(nBeamIndex - 1).dL)
- Else
- m_dOffset = dPOSX
- End If
- End Sub
-
-End Class
diff --git a/EgtBEAMWALL.Core/MachGroupModel/BeamMachGroupM.vb b/EgtBEAMWALL.Core/MachGroupModel/BeamMachGroupM.vb
deleted file mode 100644
index 8d99f930..00000000
--- a/EgtBEAMWALL.Core/MachGroupModel/BeamMachGroupM.vb
+++ /dev/null
@@ -1,133 +0,0 @@
-Imports System.Collections.ObjectModel
-Imports System.IO
-Imports EgtUILib
-Imports EgtWPFLib5
-
-Public Class BeamMachGroupM
- Inherits MyMachGroupM
-
- Protected m_dStartCut As Double
- Public Property dStartCut As Double
- Get
- Return m_dStartCut
- End Get
- Set(value As Double)
- m_dStartCut = value
- End Set
- End Property
-
-#Region "CONSTRUCTORS"
-
- Protected Sub New()
- End Sub
-
- Public Shared Function CreateNewBeamMachGroup() As MachGroupM
- Return New MachGroupM
- End Function
-
- Public Shared Function CreateBeamMachGroup(nId As Integer, sName As String, sMachine As String) As MachGroupM
- Dim NewMachGroupM As New BeamMachGroupM
- NewMachGroupM.m_Id = nId
- NewMachGroupM.m_Name = sName
- NewMachGroupM.m_Machine = sMachine
- ' NewMachGroupM.SetMachineType(MachineType.BEAM)
- EgtGetInfo(NewMachGroupM.m_Id, MGR_RPT_BARLEN, NewMachGroupM.m_dL)
- EgtGetInfo(NewMachGroupM.m_Id, MGR_RPT_BARHEIGHT, NewMachGroupM.m_dH)
- EgtGetInfo(NewMachGroupM.m_Id, MGR_RPT_BARWIDTH, NewMachGroupM.m_dW)
- NewMachGroupM.m_dTotMat = NewMachGroupM.m_dL
- NewMachGroupM.m_PartMList = LoadParts(NewMachGroupM)
- For Each Part As BeamM In NewMachGroupM.m_PartMList
- Part.UpdateOffset()
- NewMachGroupM.m_dMatForPart += Part.dL
- Next
- ReadMachGroupData(NewMachGroupM)
- Return NewMachGroupM
- End Function
-
- Public Shared Function CreateBeamMachGroup(sName As String, sMachine As String) As MachGroupM
- Dim NewMachGroupM As New BeamMachGroupM
- ' Creo il nuovo gruppo di lavorazione con i dati ottenuti a seconda del caso in cui mi trovo
- NewMachGroupM.m_Id = EgtAddMachGroup(sName, sMachine)
- If NewMachGroupM.m_Id = GDB_ID.NULL Then Return Nothing
- NewMachGroupM.m_Name = sName
- NewMachGroupM.m_Machine = sMachine
- 'NewMachGroupM.SetMachineType(MachineType.BEAM)
- EgtGetInfo(NewMachGroupM.m_Id, MGR_RPT_BARLEN, NewMachGroupM.m_dL)
- EgtGetInfo(NewMachGroupM.m_Id, MGR_RPT_BARHEIGHT, NewMachGroupM.m_dH)
- EgtGetInfo(NewMachGroupM.m_Id, MGR_RPT_BARWIDTH, NewMachGroupM.m_dW)
- NewMachGroupM.m_dTotMat = NewMachGroupM.m_dL
- For Each Part In NewMachGroupM.m_PartMList
- NewMachGroupM.m_dMatForPart += Part.dL
- Next
- ReadMachGroupData(NewMachGroupM)
- Return NewMachGroupM
- End Function
-
-#End Region ' CONSTRUCTORS
-
-#Region "X DataLayer"
-
- Public Shared Function CreateBeamMachGroupDL(nId As Integer, sName As String, sMachine As String, PartMList As List(Of PartM)) As MachGroupM
- Dim NewMachGroupM As New BeamMachGroupM
- NewMachGroupM.m_Id = nId
- NewMachGroupM.m_Name = sName
- NewMachGroupM.m_Machine = sMachine
- 'NewMachGroupM.SetMachineType(MachineType.BEAM)
- 'EgtGetInfo(NewMachGroupM.m_Id, MGR_RPT_BARLEN, NewMachGroupM.m_dL)
- 'EgtGetInfo(NewMachGroupM.m_Id, MGR_RPT_BARHEIGHT, NewMachGroupM.m_dH)
- 'EgtGetInfo(NewMachGroupM.m_Id, MGR_RPT_BARWIDTH, NewMachGroupM.m_dW)
- 'NewMachGroupM.m_dTotMat = NewMachGroupM.m_dL
- NewMachGroupM.m_PartMList = PartMList
- Return NewMachGroupM
- End Function
-
-#End Region
-
- Private Shared Function LoadParts(NewBeamMachGroupM As BeamMachGroupM) As List(Of PartM)
- Dim TempList As New List(Of PartM)
- Dim nRawPartId As Integer = EgtGetFirstRawPart()
- While nRawPartId <> GDB_ID.NULL
- Dim nPartId As Integer = EgtGetFirstPartInRawPart(nRawPartId)
- If nPartId <> GDB_ID.NULL Then
- Dim NewBeam As BeamM = BeamM.CreateBeam(NewBeamMachGroupM, nPartId, nRawPartId)
- TempList.Add(NewBeam)
- End If
- nRawPartId = EgtGetNextRawPart(nRawPartId)
- End While
- Return TempList
- End Function
-
- Public Overrides Sub RefreshPartList()
- ' leggo StartCut da posizione primo pezzo
- Dim sInfo As String = ""
- Dim sSplitInfo() As String
- Dim bFound As Boolean = False
- EgtGetInfo(Id, MGR_RPT_PART & 1, sInfo)
- If Not String.IsNullOrWhiteSpace(sInfo) Then
- sSplitInfo = sInfo.Split(","c)
- StringToDouble(sSplitInfo(1), m_dStartCut)
- Else
- m_dStartCut = 0
- End If
- ' aggiorno lista pezzi
- RemoveAllParts()
- Dim nRawPartId As Integer = EgtGetFirstRawPart()
- While nRawPartId <> GDB_ID.NULL
- Dim nPartId As Integer = EgtGetFirstPartInRawPart(nRawPartId)
- If nPartId <> GDB_ID.NULL Then
- Dim NewBeam As BeamM = BeamM.CreateBeam(Me, nPartId, nRawPartId)
- AddPart(NewBeam)
- NewBeam.UpdateOffset()
- End If
- nRawPartId = EgtGetNextRawPart(nRawPartId)
- End While
- End Sub
-
- Public Overrides Sub RefreshGroupData()
- EgtGetInfo(Id, MGR_RPT_BARLEN, dL)
- EgtGetInfo(Id, MGR_RPT_BARHEIGHT, dH)
- EgtGetInfo(Id, MGR_RPT_BARWIDTH, dW)
- EgtGetInfo(Id, MGR_RPT_MATERIAL, sMATERIAL)
- End Sub
-
-End Class
diff --git a/EgtBEAMWALL.Core/MachGroupModel/WallM.vb b/EgtBEAMWALL.Core/MachGroupModel/WallM.vb
deleted file mode 100644
index 5af428d9..00000000
--- a/EgtBEAMWALL.Core/MachGroupModel/WallM.vb
+++ /dev/null
@@ -1,110 +0,0 @@
-Imports System.Collections.ObjectModel
-Imports System.IO
-Imports EgtUILib
-Imports EgtWPFLib5
-
-Public Class WallM
- Inherits PartM
-
- Protected m_dPOSY As Double
- Public Property dPOSY As Double
- Get
- Return m_dPOSY
- End Get
- Set(value As Double)
- m_dPOSY = value
- End Set
- End Property
-
- Protected m_dROT As Double
- Public Property dROT As Double
- Get
- Return m_dROT
- End Get
- Set(value As Double)
- m_dROT = value
- End Set
- End Property
-
- Protected m_bFLIP As Boolean
- Public Property bFLIP As Boolean
- Get
- Return m_bFLIP
- End Get
- Set(value As Boolean)
- m_bFLIP = value
- End Set
- End Property
-
-#Region "CONSTRUCTOR"
-
- Protected Sub New(nParentMachGroup As MyMachGroupM, nPartId As Integer)
- MyBase.New(nParentMachGroup, nPartId)
- End Sub
-
- Public Shared Function CreateWall(nParentMachGroup As MyMachGroupM, nPartId As Integer, nRawPartId As Integer) As WallM
- Dim NewWallM As New WallM(nParentMachGroup, nPartId)
- ' leggo info pezzo
- EgtGetInfo(nPartId, BTL_PRT_PROJ, NewWallM.m_nProjId)
- EgtGetInfo(nPartId, BTL_PRT_PDN, NewWallM.m_nPDN)
- EgtGetInfo(nPartId, BTL_PRT_NAM, NewWallM.m_sNAM)
- EgtGetInfo(nPartId, BTL_PRT_L, NewWallM.m_dBtlL)
- EgtGetInfo(nPartId, BTL_PRT_W, NewWallM.m_dBtlW)
- EgtGetInfo(nPartId, BTL_PRT_H, NewWallM.m_dBtlH)
- EgtGetInfo(nPartId, BTL_PRT_CNT, NewWallM.m_nCNT)
- Dim nTemp As Integer = 0
- If Not EgtGetInfo(nPartId, BTL_PRT_ROTATED, nTemp) Then
- nTemp = 0
- End If
- NewWallM.SetRotated(nTemp)
- If Not EgtGetInfo(nPartId, BTL_PRT_INVERTED, nTemp) Then
- nTemp = 0
- End If
- NewWallM.SetInverted(nTemp)
- ' leggo PosX, PosY, Rot e Flip
- EgtGetInfo(nPartId, MGR_PRT_POSX, NewWallM.m_dPOSX)
- EgtGetInfo(nPartId, MGR_PRT_POSY, NewWallM.m_dPOSY)
- EgtGetInfo(nPartId, MGR_PRT_ROT, NewWallM.m_dROT)
- EgtGetInfo(nPartId, MGR_PRT_FLIP, NewWallM.m_bFLIP)
- ' leggo feature
- NewWallM.m_FeatureMList = LoadBTLFeatures(nPartId)
- ReadMachGroupData(NewWallM)
- Return NewWallM
- End Function
-
-#End Region ' CONSTRUCTOR
-
-#Region "METHODS"
-
- Private Shared Function LoadBTLFeatures(nPartId As Integer) As List(Of BTLFeatureM)
- Dim TempList As New List(Of BTLFeatureM)
- ' Aggiungo outline
- Dim nOutLayerId As Integer = EgtGetFirstNameInGroup(nPartId, OUTLINE)
- Dim nOutlineId As Integer = EgtGetFirstInGroup(nOutLayerId)
- While nOutlineId <> GDB_ID.NULL
- ' verifico che sia una feature
- Dim nGRP As Integer
- If EgtGetInfo(nOutlineId, BTL_FTR_GRP, nGRP) AndAlso Not EgtExistsInfo(nOutlineId, BTL_FTR_MAINID) Then
- ' creo la feature
- TempList.Add(BTLFeatureM.CreateBTLFeature(Nothing, nOutlineId))
- End If
- nOutlineId = EgtGetNext(nOutlineId)
- End While
- ' Aggiungo feature
- Dim nProcessingId As Integer = EgtGetFirstNameInGroup(nPartId, PROCESSINGS)
- Dim nFeatureId As Integer = EgtGetFirstInGroup(nProcessingId)
- While nFeatureId <> GDB_ID.NULL
- ' verifico che sia una feature
- Dim nGRP As Integer
- If EgtGetInfo(nFeatureId, BTL_FTR_GRP, nGRP) AndAlso Not EgtExistsInfo(nFeatureId, BTL_FTR_MAINID) Then
- ' creo la feature
- TempList.Add(BTLFeatureM.CreateBTLFeature(Nothing, nFeatureId))
- End If
- nFeatureId = EgtGetNext(nFeatureId)
- End While
- Return TempList
- End Function
-
-#End Region ' METHODS
-
-End Class
diff --git a/EgtBEAMWALL.Core/MachGroupModel/WallMachGroupM.vb b/EgtBEAMWALL.Core/MachGroupModel/WallMachGroupM.vb
deleted file mode 100644
index f6d97df2..00000000
--- a/EgtBEAMWALL.Core/MachGroupModel/WallMachGroupM.vb
+++ /dev/null
@@ -1,103 +0,0 @@
-Imports System.Collections.ObjectModel
-Imports System.IO
-Imports EgtUILib
-Imports EgtWPFLib5
-
-Public Class WallMachGroupM
- Inherits MyMachGroupM
-
- Protected m_nRawPartId As Integer = GDB_ID.NULL
- Public ReadOnly Property nRawPartId As Integer
- Get
- Return m_nRawPartId
- End Get
- End Property
-
-#Region "CONSTRUCTORS"
-
- Protected Sub New()
- End Sub
-
- Public Shared Function CreateNewWallMachGroup() As MachGroupM
- Return New MachGroupM
- End Function
-
- Public Shared Function CreateWallMachGroup(nId As Integer, sName As String, sMachine As String) As MachGroupM
- Dim NewMachGroupM As New WallMachGroupM
- NewMachGroupM.m_Id = nId
- NewMachGroupM.m_Name = sName
- NewMachGroupM.m_Machine = sMachine
- NewMachGroupM.m_nType = MachineType.WALL
- NewMachGroupM.m_nRawPartId = EgtGetFirstRawPart()
- EgtGetInfo(NewMachGroupM.m_Id, MGR_RPT_PANELLEN, NewMachGroupM.m_dL)
- EgtGetInfo(NewMachGroupM.m_Id, MGR_RPT_PANELWIDTH, NewMachGroupM.m_dW)
- EgtGetInfo(NewMachGroupM.m_Id, MGR_RPT_PANELHEIGHT, NewMachGroupM.m_dH)
- NewMachGroupM.m_dTotMat = NewMachGroupM.m_dL * NewMachGroupM.m_dW
- NewMachGroupM.m_PartMList = LoadParts(NewMachGroupM)
- For Each Part In NewMachGroupM.m_PartMList
- NewMachGroupM.m_dMatForPart += (Part.dL * Part.dW)
- Next
- ReadMachGroupData(NewMachGroupM)
- Return NewMachGroupM
- End Function
-
- Public Shared Function CreateWallMachGroup(sName As String, sMachine As String) As MachGroupM
- Dim NewMachGroupM As New WallMachGroupM
- ' Creo il nuovo gruppo di lavorazione con i dati ottenuti a seconda del caso in cui mi trovo
- NewMachGroupM.m_Id = EgtAddMachGroup(sName, sMachine)
- If NewMachGroupM.m_Id = GDB_ID.NULL Then Return Nothing
- NewMachGroupM.m_Name = sName
- NewMachGroupM.m_Machine = sMachine
- NewMachGroupM.m_nType = MachineType.WALL
- NewMachGroupM.m_nRawPartId = EgtGetFirstRawPart()
- EgtGetInfo(NewMachGroupM.m_Id, MGR_RPT_PANELLEN, NewMachGroupM.m_dL)
- EgtGetInfo(NewMachGroupM.m_Id, MGR_RPT_PANELWIDTH, NewMachGroupM.m_dW)
- EgtGetInfo(NewMachGroupM.m_Id, MGR_RPT_PANELHEIGHT, NewMachGroupM.m_dH)
- NewMachGroupM.m_dTotMat = NewMachGroupM.m_dL * NewMachGroupM.m_dW
- For Each Part In NewMachGroupM.m_PartMList
- NewMachGroupM.m_dMatForPart += (Part.dL * Part.dW)
- Next
- ReadMachGroupData(NewMachGroupM)
- Return NewMachGroupM
- End Function
-
-#End Region ' CONSTRUCTORS
-
- Private Shared Function LoadParts(NewWallMachGroupM As WallMachGroupM) As List(Of PartM)
- Dim TempList As New List(Of PartM)
- Dim nWallId As Integer = EgtGetFirstPartInRawPart(NewWallMachGroupM.m_nRawPartId)
- While nWallId <> GDB_ID.NULL
- If nWallId <> GDB_ID.NULL Then
- Dim NewWall As WallM = WallM.CreateWall(NewWallMachGroupM, nWallId, NewWallMachGroupM.m_nRawPartId)
- TempList.Add(NewWall)
- End If
- nWallId = EgtGetNextPartInRawPart(nWallId)
- End While
- Return TempList
- End Function
-
- Public Overrides Sub RefreshPartList()
- ' aggiorno lista pezzi
- RemoveAllParts()
- Dim nRawPartId As Integer = EgtGetFirstRawPart()
- If nRawPartId <> GDB_ID.NULL Then
- Me.m_nRawPartId = nRawPartId
- End If
- Dim nWallId As Integer = EgtGetFirstPartInRawPart(m_nRawPartId)
- While nWallId <> GDB_ID.NULL
- If nWallId <> GDB_ID.NULL Then
- Dim NewWall As WallM = WallM.CreateWall(Me, nWallId, m_nRawPartId)
- AddPart(NewWall)
- End If
- nWallId = EgtGetNextPartInRawPart(nWallId)
- End While
- End Sub
-
- Public Overrides Sub RefreshGroupData()
- EgtGetInfo(Id, MGR_RPT_PANELLEN, dL)
- EgtGetInfo(Id, MGR_RPT_PANELWIDTH, dW)
- EgtGetInfo(Id, MGR_RPT_PANELHEIGHT, dH)
- EgtGetInfo(Id, MGR_RPT_MATERIAL, sMATERIAL)
- End Sub
-
-End Class
diff --git a/EgtBEAMWALL.Core/MachGroupPanel/BeamMachGroupVM.vb b/EgtBEAMWALL.Core/MachGroupPanel/BeamMachGroupVM.vb
deleted file mode 100644
index f3bf25c9..00000000
--- a/EgtBEAMWALL.Core/MachGroupPanel/BeamMachGroupVM.vb
+++ /dev/null
@@ -1,113 +0,0 @@
-Imports System.Collections.ObjectModel
-Imports System.Collections.Specialized
-Imports System.ComponentModel
-Imports System.IO
-Imports EgtBEAMWALL.Core
-Imports EgtUILib
-Imports EgtWPFLib5
-
-Public MustInherit Class BeamMachGroupVM
- Inherits MyMachGroupVM
-
- Public ReadOnly Property m_BeamMachGroupM As BeamMachGroupM
- Get
- Return m_MachGroupM
- End Get
- End Property
-
- Public Overridable Property sStartCut As String
- Get
- Return LenToString(m_BeamMachGroupM.dStartCut, 3)
- End Get
- Set(value As String)
- StringToLen(value, m_BeamMachGroupM.dStartCut)
- End Set
- End Property
- Public Property dStartCut As Double
- Get
- Return m_BeamMachGroupM.dStartCut
- End Get
- Set(value As Double)
- m_BeamMachGroupM.dStartCut = value
- NotifyPropertyChanged(NameOf(sStartCut))
- End Set
- End Property
-
- Public Property SelBeam As BeamVM
- Get
- Return m_SelPart
- End Get
- Set(value As BeamVM)
- m_SelPart = value
- End Set
- End Property
-
-#Region "CONSTRUCTORS"
-
- Sub New(BeamMachGroupM As BeamMachGroupM)
- MyBase.New(BeamMachGroupM)
- AddHandler m_BeamMachGroupM.PartAdded, AddressOf OnBeamAdded
- AddHandler m_BeamMachGroupM.PartRemoved, AddressOf OnBeamRemoved
- CreateBeamVMList()
- ' Aggiorno stato da stati feature
- CalcGlobalUpdate()
- NotifyPropertyChanged(NameOf(CALC_FALL_Visibility))
- End Sub
-
-#End Region ' CONSTRUCTORS
-
-#Region "METHODS"
-
- Protected MustOverride Sub CreateBeamVMList()
-
- Public Overrides Sub RefreshPartList()
- End Sub
-
- Public Overrides Sub RefreshGroupData()
- End Sub
-
-#End Region ' METHODS
-
-#Region "COMMANDS"
-
-#End Region ' COMMANDS
-
-#Region "EVENTS"
-
- Protected MustOverride Sub OnBeamAdded(sender As Object, e As PartAddedEventArgs)
- Private Sub OnBeamRemoved(sender As Object, e As PartAddedEventArgs)
- Dim BeamVM As BeamVM = PartVMList.FirstOrDefault(Function(x) x.PartM Is e.m_NewPart)
- If Not IsNothing(BeamVM) Then PartVMList.Remove(BeamVM)
- End Sub
-
- Protected Sub OnBeamVMListChanged(sender As Object, e As NotifyCollectionChangedEventArgs)
- If e.Action = NotifyCollectionChangedAction.Add Then
- If Not IsNothing(e.NewItems) AndAlso e.NewItems.Count > 0 Then
- For Each BeamVM As BeamVM In e.NewItems
- AddHandler BeamVM.PropertyChanged, AddressOf OnBeamVMPropertyChanged
- Next
- End If
- End If
- If e.Action = NotifyCollectionChangedAction.Remove Then
- If Not IsNothing(e.OldItems) AndAlso e.OldItems.Count > 0 Then
- For Each BeamVM As BeamVM In e.OldItems
- RemoveHandler BeamVM.PropertyChanged, AddressOf OnBeamVMPropertyChanged
- Next
- End If
- End If
- If e.Action = NotifyCollectionChangedAction.Move Then
- Dim ItemVM As PartVM = e.OldItems(0)
- m_BeamMachGroupM.PartMList.RemoveAt(e.OldStartingIndex)
- m_BeamMachGroupM.PartMList.Insert(e.NewStartingIndex, ItemVM.PartM)
- End If
- End Sub
-
- Protected Overridable Sub OnBeamVMPropertyChanged(sender As Object, e As PropertyChangedEventArgs)
- 'Select Case e.PropertyName
- ' Case NameOf(sender.nSelGRP), NameOf(sender.nSelSIDE)
- 'End Select
- End Sub
-
-#End Region
-
-End Class
diff --git a/EgtBEAMWALL.Core/MachGroupPanel/BeamVM.vb b/EgtBEAMWALL.Core/MachGroupPanel/BeamVM.vb
deleted file mode 100644
index 2a0e2054..00000000
--- a/EgtBEAMWALL.Core/MachGroupPanel/BeamVM.vb
+++ /dev/null
@@ -1,43 +0,0 @@
-Imports System.Collections.ObjectModel
-Imports System.IO
-Imports EgtBEAMWALL.Core
-Imports EgtUILib
-Imports EgtWPFLib5
-
-Public MustInherit Class BeamVM
- Inherits PartVM
-
- Public ReadOnly Property m_BeamM As BeamM
- Get
- Return m_PartM
- End Get
- End Property
-
- Public Overridable Property sOffset As String
- Get
- Return LenToString(m_BeamM.dOffset, 3)
- End Get
- Set(value As String)
- StringToLen(value, m_BeamM.dOffset)
- End Set
- End Property
- Public ReadOnly Property dOffset As Double
- Get
- Return m_BeamM.dOffset
- End Get
- End Property
-
-
-#Region "CONSTRUCTOR"
-
- Sub New(BeamM As BeamM, ParentMachGroupVM As BeamMachGroupVM)
- MyBase.New(BeamM, ParentMachGroupVM)
- End Sub
-
-#End Region ' CONSTRUCTOR
-
-#Region "METHODS"
-
-#End Region ' METHODS
-
-End Class
diff --git a/EgtBEAMWALL.Core/MachGroupPanel/WallMachGroupVM.vb b/EgtBEAMWALL.Core/MachGroupPanel/WallMachGroupVM.vb
deleted file mode 100644
index 9987edc2..00000000
--- a/EgtBEAMWALL.Core/MachGroupPanel/WallMachGroupVM.vb
+++ /dev/null
@@ -1,78 +0,0 @@
-Imports System.Collections.ObjectModel
-Imports System.Collections.Specialized
-Imports System.ComponentModel
-Imports System.IO
-Imports EgtBEAMWALL.Core
-Imports EgtUILib
-Imports EgtWPFLib5
-
-Public MustInherit Class WallMachGroupVM
- Inherits MyMachGroupVM
-
- Public ReadOnly Property m_WallMachGroupM As WallMachGroupM
- Get
- Return m_MachGroupM
- End Get
- End Property
-
-#Region "CONSTRUCTORS"
-
- Sub New(WallMachGroupM As WallMachGroupM)
- MyBase.New(WallMachGroupM)
- AddHandler m_WallMachGroupM.PartAdded, AddressOf OnWallAdded
- AddHandler m_WallMachGroupM.PartRemoved, AddressOf OnWallRemoved
- CreateWallVMList()
- ' Aggiorno stato da stati feature
- CalcGlobalUpdate()
- NotifyPropertyChanged(NameOf(CALC_FALL_Visibility))
- End Sub
-
-#End Region ' CONSTRUCTORS
-
-#Region "METHODS"
-
- Protected MustOverride Sub CreateWallVMList()
-
-#End Region ' METHODS
-
- Public Overrides Sub RefreshPartList()
- End Sub
-
- Public Overrides Sub RefreshGroupData()
- End Sub
-
-#Region "COMMANDS"
-
-#End Region ' COMMANDS
-
-#Region "EVENTS"
-
- Protected MustOverride Sub OnWallAdded(sender As Object, e As PartAddedEventArgs)
-
- Private Sub OnWallRemoved(sender As Object, e As PartAddedEventArgs)
- Dim WallVM As WallVM = PartVMList.FirstOrDefault(Function(x) x.PartM Is e.m_NewPart)
- If Not IsNothing(WallVM) Then PartVMList.Remove(WallVM)
- End Sub
-
- Protected Sub OnWallVMListChanged(sender As Object, e As NotifyCollectionChangedEventArgs)
- If Not IsNothing(e.NewItems) AndAlso e.NewItems.Count > 0 Then
- For Each WallVM As WallVM In e.NewItems
- AddHandler WallVM.PropertyChanged, AddressOf OnWallVMPropertyChanged
- Next
- End If
- If Not IsNothing(e.OldItems) AndAlso e.OldItems.Count > 0 Then
- For Each WallVM As WallVM In e.OldItems
- RemoveHandler WallVM.PropertyChanged, AddressOf OnWallVMPropertyChanged
- Next
- End If
- End Sub
-
- Protected Sub OnWallVMPropertyChanged(sender As Object, e As PropertyChangedEventArgs)
- 'Select Case e.PropertyName
- ' Case NameOf(sender.nSelGRP), NameOf(sender.nSelSIDE)
- 'End Select
- End Sub
-
-#End Region
-
-End Class
diff --git a/EgtBEAMWALL.Core/MachGroupPanel/WallVM.vb b/EgtBEAMWALL.Core/MachGroupPanel/WallVM.vb
deleted file mode 100644
index 034078c9..00000000
--- a/EgtBEAMWALL.Core/MachGroupPanel/WallVM.vb
+++ /dev/null
@@ -1,81 +0,0 @@
-Imports System.Collections.ObjectModel
-Imports System.IO
-Imports System.Windows.Input
-Imports EgtBEAMWALL.Core
-Imports EgtUILib
-Imports EgtWPFLib5
-
-Public MustInherit Class WallVM
- Inherits PartVM
-
- Public ReadOnly Property m_WallM As WallM
- Get
- Return m_PartM
- End Get
- End Property
-
- Public Overrides Property sPOSX As String
- Get
- Return LenToString(m_WallM.dPOSX, 3)
- End Get
- Set(value As String)
- StringToLen(value, m_WallM.dPOSX)
- End Set
- End Property
-
- Public Overridable Property sPOSY As String
- Get
- Return LenToString(m_WallM.dPOSY, 3)
- End Get
- Set(value As String)
- StringToLen(value, m_WallM.dPOSY)
- End Set
- End Property
-
- Public ReadOnly Property dPOSY As Double
- Get
- Return m_WallM.dPOSY
- End Get
- End Property
-
- Public Property sROT As String
- Get
- Return LenToString(m_WallM.dROT, 3) & "°"
- End Get
- Set(value As String)
- StringToLen(value, m_WallM.dROT)
- End Set
- End Property
-
- Public ReadOnly Property dROT As Double
- Get
- Return m_WallM.dROT
- End Get
- End Property
-
- Public Overridable Property bFLIP As Boolean
- Get
- Return m_WallM.bFLIP
- End Get
- Set(value As Boolean)
- m_WallM.bFLIP = value
- End Set
- End Property
-
-#Region "CONSTRUCTOR"
-
- Sub New(WallM As WallM, ParentMachGroupVM As WallMachGroupVM)
- MyBase.New(WallM, ParentMachGroupVM)
- End Sub
-
-#End Region ' CONSTRUCTOR
-
-#Region "METHODS"
-
-#End Region ' METHODS
-
-#Region "COMMANDS"
-
-#End Region ' COMMANDS
-
-End Class
diff --git a/EgtBEAMWALL.Core/MachinePanel/MachinePanelV.xaml b/EgtBEAMWALL.Core/MachinePanel/MachinePanelV.xaml
index 7f8651e1..5f2ce1bf 100644
--- a/EgtBEAMWALL.Core/MachinePanel/MachinePanelV.xaml
+++ b/EgtBEAMWALL.Core/MachinePanel/MachinePanelV.xaml
@@ -13,37 +13,30 @@
-
+
-
+ Style="{StaticResource OnlyProdCalcPanel_ComboBox}"/>
-
-
-
+
-
-
+ Style="{StaticResource MachineToolBar_ParameterMachineButton}" Width="140"/>
diff --git a/EgtBEAMWALL.Core/MachinePanel/MachinePanelVM.vb b/EgtBEAMWALL.Core/MachinePanel/MachinePanelVM.vb
deleted file mode 100644
index 88351e28..00000000
--- a/EgtBEAMWALL.Core/MachinePanel/MachinePanelVM.vb
+++ /dev/null
@@ -1,357 +0,0 @@
-Imports System.Collections.ObjectModel
-Imports System.IO
-Imports EgtBEAMWALL.Core
-Imports EgtUILib
-Imports EgtWPFLib5
-
-Public Class MachinePanelVM
- Inherits EgtWPFLib5.MachinePanelVM
-
-#Region "FIELDS & PROPERTIES"
-
- ' Radice del direttorio delle macchine
- Private m_sMachinesRoot As String
-
- ' Macchina correntemente selezionata e quindi attiva
- Private m_SelectedMachine As Machine = Nothing
- Public Overrides Property SelectedMachine As Machine
- Get
- Return m_SelectedMachine
- End Get
- Set(value As Machine)
- If value IsNot m_SelectedMachine Then
- ' imposto macchina in DbGeometrico
- If Not IsNothing(value) AndAlso EgtSetCurrMachine(value.Name) Then
- m_SelectedMachine = value
- End If
- ' Salvo impostazione macchina corrente
- SaveCurrentMachine()
- NotifyPropertyChanged(NameOf(SelectedMachine))
- ' inizializzo la macchina selezionata come macchina corrente
- Dim nMachType As MachineType = DirectCast(m_SelectedMachine, MyMachine).nType
- SectionXMaterial.SetType(nMachType)
- If Not IsNothing(value) Then
- InitCurrentMachine(Map.refMainWindowVM.MainWindowM.sMachinesRoot, value.Name, nMachType)
- Else
- InitCurrentMachine(Map.refMainWindowVM.MainWindowM.sMachinesRoot, m_SelectedMachine.Name, nMachType)
- End If
- ' mostro bottone tabella beam o wall a seconda del tipo
- m_BeamTable_Visibility = If(nMachType = MachineType.BEAM OrElse nMachType = MachineType.BOTH, Visibility.Visible, Visibility.Collapsed)
- m_WallTable_Visibility = If(nMachType = MachineType.WALL OrElse nMachType = MachineType.BOTH, Visibility.Visible, Visibility.Collapsed)
- NotifyPropertyChanged(NameOf(BeamTable_Visibility))
- NotifyPropertyChanged(NameOf(WallTable_Visibility))
- ' carico i Parametri Q da mostrare (Beam, Wall o entrambi) in base al tipo di macchina selezionata
- If Not IsNothing(Map.refConfigurationPageVM) Then
- ' carico i parametri Q dei Process letti dall'ini
- Map.refConfigurationPageVM.GetQParamsList()
- ' carico la lista di tutti i parametri Q ciclando su ogni Process di PRCList
- If Not IsNothing(Map.refConfigurationPageVM.QBTLParamVMList) Then
- Map.refConfigurationPageVM.QBTLParamVMList.Clear()
- End If
- For Each PRCItem In Map.refConfigurationPageVM.PRCList
- For Each QBTLParam In PRCItem.QBTLParamVMList
- Map.refConfigurationPageVM.QBTLParamVMList.Add(QBTLParam)
- Next
- Next
- NotifyPropertyChanged(NameOf(Map.refConfigurationPageVM.QBTLParamVMList))
- End If
- ' aggiorno nome macchina in statusbar
- Map.refMyStatusBarVM.RefreshMachName()
- End If
- End Set
- End Property
-
- Private m_MachPanel_IsEnabled As Boolean = True
- Public Property MachPanel_IsEnabled As Boolean
- Get
- Return m_MachPanel_IsEnabled
- End Get
- Set(value As Boolean)
- m_MachPanel_IsEnabled = value
- NotifyPropertyChanged("MachPanel_IsEnabled")
- End Set
- End Property
-
- Private m_BeamTable_Visibility As Visibility
- Public ReadOnly Property BeamTable_Visibility As Visibility
- Get
- Return m_BeamTable_Visibility
- End Get
- End Property
-
- Private m_WallTable_Visibility As Visibility
- Public ReadOnly Property WallTable_Visibility As Visibility
- Get
- Return m_WallTable_Visibility
- End Get
- End Property
-
- Public ReadOnly Property SetUp_Visibility As Visibility
- Get
- Return If(Map.refMainWindowVM.MainWindowM.bModifySetup, Visibility.Visible, Visibility.Collapsed)
- End Get
- End Property
-
-
-#Region "Messages"
-
- Public ReadOnly Property ToolDBMsg As String
- Get
- Return EgtMsg(MSG_MACHINEPAGEUC + 6)
- End Get
- End Property
- Public ReadOnly Property MachiningDbMsg As String
- Get
- Return EgtMsg(MSG_MACHINEPAGEUC + 7)
- End Get
- End Property
- Public ReadOnly Property SetUpMsg As String
- Get
- Return EgtMsg(MSG_ALARMSPAGEUC + 33)
- End Get
- End Property
-
-#End Region ' Messages
-
-#Region "ToolTip"
-
- Public ReadOnly Property ToolDBToolTip As String
- Get
- Return EgtMsg(5003)
- End Get
- End Property
- Public ReadOnly Property MachiningDbToolTip As String
- Get
- Return EgtMsg(5004)
- End Get
- End Property
- Public ReadOnly Property SetUpToolTip As String
- Get
- Return EgtMsg(31501)
- End Get
- End Property
-
-#End Region ' ToolTip
-
- ' Definizione comandi
- Private m_cmdBeamTable As ICommand
- Private m_cmdWallTable As ICommand
-
-#End Region 'FIELDS & PROPERTIES
-
-#Region "CONSTRUCTOR"
-
- Sub New()
- ' Creo riferimento a questa classe in Map
- Map.SetRefMachinePanelVM(Me)
- ' recupero cartella radice delle macchine
- m_sMachinesRoot = Map.refMainWindowVM.MainWindowM.sMachinesRoot
- ' Carica macchine da cartella delle macchine
- MyMachine.MachineListInit(m_sMachinesRoot, MachineList)
- End Sub
-
-#End Region ' CONSTRUCTOR
-
-#Region "METHODS"
-
- Friend Sub LoadCurrentMachine()
- If MachineList.Count = 0 Then Return
- Dim CurrMachine As Machine = Nothing
- Dim CurrMachineName As String = String.Empty
- GetMainPrivateProfileString(S_MACH, K_CURRMACH, String.Empty, CurrMachineName)
- Dim bFound As Boolean = False
- If Not String.IsNullOrEmpty(CurrMachineName) Then
- For Each Mach In MachineList
- If Mach.Name = CurrMachineName Then
- bFound = True
- CurrMachine = Mach
- Exit For
- End If
- Next
- End If
- If Not bFound And MachineList.Count > 0 Then
- CurrMachine = MachineList(0)
- End If
- If Not IsNothing(CurrMachine) Then
- If EgtSetCurrMachine(CurrMachine.Name) Then
- SelectedMachine = CurrMachine
- End If
- End If
- End Sub
-
- Friend Sub SaveCurrentMachine()
- If IsNothing(m_SelectedMachine) Then Return
- WriteMainPrivateProfileString(S_MACH, K_CURRMACH, SelectedMachine.Name)
- End Sub
-
- Friend Sub UpdateCurrentMachine()
- 'EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
- Dim sMachName As String = String.Empty
- If EgtGetCurrMachineName(sMachName) Then
- For Each Mach In MachineList
- If Mach.Name = sMachName Then
- SelectedMachine = Mach
- Exit For
- End If
- Next
- End If
- End Sub
-
- Friend Function BeamMachDb() As Boolean
- ' Assegno le path
- Dim sBaseDir As String = m_sMachinesRoot & "\" & m_SelectedMachine.Name & "\" & "Beam"
- ' verifico se ci sono i file ini
- Dim sMachTypePath As String = sBaseDir & "\MachiningTypes.ini"
- Dim sTabTemplPath As String = sBaseDir & "\BeamTableTemplate.ini"
- If File.Exists(sMachTypePath) AndAlso File.Exists(sTabTemplPath) Then
- ' apro finestra di gestione lavorazioni travi
- Dim sTitle = EgtMsg(9000) 'Tabelle delle lavorazioni delle travi
- Dim BeamMchsWinVM As New MyBeamMachiningsWindowVM(sTitle, sBaseDir, sMachTypePath, sTabTemplPath)
- Dim BeamMchsWinV As New BeamMachiningsWindowV(Application.Current.MainWindow, BeamMchsWinVM)
- BeamMchsWinV.ShowDialog()
- Else
- ' Impossibile aprire l'Editor delle lavorazioni delle travi. Mancano i file di configurazione. - Errore
- MessageBox.Show(EgtMsg(9009), EgtMsg(9008), MessageBoxButton.OK, MessageBoxImage.Stop)
- End If
- Return True
- End Function
-
- Friend Function WallMachDb() As Boolean
- ' Assegno le path
- Dim sBaseDir As String = m_sMachinesRoot & "\" & m_SelectedMachine.Name & "\" & "Wall"
- ' verifico se ci sono i file ini
- Dim sMachTypePath As String = sBaseDir & "\MachiningTypes.ini"
- Dim sTabTemplPath As String = sBaseDir & "\WallTableTemplate.ini"
- If File.Exists(sMachTypePath) AndAlso File.Exists(sTabTemplPath) Then
- ' apro finestra di gestione lavorazioni pareti
- Dim sTitle = EgtMsg(9010) 'Tabelle delle lavorazioni delle pareti
- Dim WallMchsWinVM As New MyBeamMachiningsWindowVM(sTitle, sBaseDir, sMachTypePath, sTabTemplPath, False)
- Dim WallMchsWinV As New BeamMachiningsWindowV(Application.Current.MainWindow, WallMchsWinVM)
- WallMchsWinV.ShowDialog()
- Else
- ' Impossibile aprire l'Editor delle lavorazioni delle pareti. Mancano i file di configurazione. - Errore
- MessageBox.Show(EgtMsg(9011), EgtMsg(9008), MessageBoxButton.OK, MessageBoxImage.Stop)
- End If
- Return True
- End Function
-
- Public Overrides Sub ToolDb(ByVal param As Object)
- If Not VerifyMachinesDir(m_sMachinesRoot) Then Return
- ' ricarico il database per intercettare eventuali aggiornamenti fatti da altre istanze del programma (se la cartella Machines è condivisa)
- If Not EgtTdbReload() Then
- EgtOutLog("Impossible reloading tool Db")
- MessageBox.Show(EgtMsg(MSG_TOOLDBERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
- Return
- End If
-
- Dim ToolDbWindowVM As New MyToolDbWindowVM(CurrentMachine.sMachDir, CurrentMachine.sMachIniFile, Map.refSceneHostVM.MainScene.GetCtx(), "Beam")
- Dim ToolDbWindowV As New ToolDbWindowV(Application.Current.MainWindow, ToolDbWindowVM)
- If ToolDbWindowVM.MatType <> 0 Then
- ToolDbWindowV.Height = 640
- ToolDbWindowV.Width = 1024
- ToolDbWindowV.ShowDialog()
- Else
- Exit Sub
- End If
-
- End Sub
-
- Public Overrides Sub MachDb(ByVal param As Object)
- If Not VerifyMachinesDir(m_sMachinesRoot) Then Return
- ' ricarico il database per intercettare eventuali aggiornamenti fatti da altre istanze del programma (se la cartella Machines è condivisa)
- If Not EgtMdbReload() Then
- EgtOutLog("Impossible reloading machining Db")
- MessageBox.Show(EgtMsg(MSG_MACHININGDBERRORS + 8), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
- Return
- End If
- Dim MachDbWindowVM As New EgtWPFLib5.MachiningDbWindowVM(CurrentMachine.sMachIniFile, Map.refSceneHostVM.MainScene.GetCtx(), "Stone")
- Dim MachDbWindowV As New EgtWPFLib5.MachiningDbWindowV(Application.Current.MainWindow, MachDbWindowVM)
-
- If EgtWPFLib5.MachiningTreeViewItem.m_MatType <> 0 Then
- MachDbWindowV.Height = 768
- MachDbWindowV.Width = 1024
- MachDbWindowV.ShowDialog()
- Else
- Exit Sub
- End If
-
- End Sub
-
- Public Overrides Sub SetUp(ByVal param As Object)
- ' verifico che il file di configurazione attrezzaggio (lua) della macchina esista
- If Not File.Exists(CurrentMachine.sMachDir & "\Scripts\" & SETUP_LUA) Then
- EgtOutLog("SetUp error: SetUp configuration file doesn't exist ")
- MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
- Return
- End If
- ' carico Lua che contiene le funzioni per ottenere le posizioni valide dell'utensile selezionato,
- ' e testa e uscita dell'utensile attrezzato
- EgtLuaExecFile(CurrentMachine.sMachDir & "\Scripts\" & SETUP_LUA)
- ' verifico che le teste riportate in configurazione esistano
- Dim Index As Integer = 1
- Dim nErr As Integer = 0
- While nErr = 0
- Dim sHead As String = String.Empty
- nErr = 999
- EgtLuaSetGlobIntVar("STU.INDEX", Index)
- EgtLuaCallFunction("STU.GetTcPosHeadGroupFromPos")
- ' Leggo variabili
- EgtLuaGetGlobStringVar("STU.HEAD", sHead)
- EgtLuaGetGlobIntVar("STU.ERR", nErr)
- If nErr = 0 Then
- If EgtGetHeadExitCount(sHead) = 0 Then
- MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
- Return
- End If
- End If
- Index += 1
- End While
- ' Reset lua
- EgtLuaResetGlobVar("STU")
-
- Dim SetUpWindow As New SetUpWindowV(Application.Current.MainWindow, New SetUpWindowVM(CurrentMachine.sMachDir, CurrentMachine.sMachineName))
- SetUpWindow.Height = 614
- SetUpWindow.Width = 1024
- SetUpWindow.ShowDialog()
-
- End Sub
-
-#End Region
-
-#Region "COMMANDS"
-
-#Region "BeamTable"
-
- '''
- ''' Returns a command that do Exec.
- '''
- Public ReadOnly Property BeamTable_Command As ICommand
- Get
- If m_cmdBeamTable Is Nothing Then
- m_cmdBeamTable = New Command(AddressOf BeamMachDb)
- End If
- Return m_cmdBeamTable
- End Get
- End Property
-
-#End Region ' BeamTable
-
-#Region "WallTable"
-
- '''
- ''' Returns a command that do Exec.
- '''
- Public ReadOnly Property WallTable_Command As ICommand
- Get
- If m_cmdWallTable Is Nothing Then
- m_cmdWallTable = New Command(AddressOf WallMachDb)
- End If
- Return m_cmdWallTable
- End Get
- End Property
-
-#End Region ' WallTable
-
-#End Region ' COMMANDS
-
-End Class
diff --git a/EgtBEAMWALL.Core/MachinePanel/OnlyProdMachinePanelV.xaml b/EgtBEAMWALL.Core/MachinePanel/OnlyProdMachinePanelV.xaml
deleted file mode 100644
index 5c315513..00000000
--- a/EgtBEAMWALL.Core/MachinePanel/OnlyProdMachinePanelV.xaml
+++ /dev/null
@@ -1,58 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/EgtBEAMWALL.Core/MachinePanel/OnlyProdMachinePanelV.xaml.vb b/EgtBEAMWALL.Core/MachinePanel/OnlyProdMachinePanelV.xaml.vb
deleted file mode 100644
index b38f49c9..00000000
--- a/EgtBEAMWALL.Core/MachinePanel/OnlyProdMachinePanelV.xaml.vb
+++ /dev/null
@@ -1,3 +0,0 @@
-Public Class OnlyProdMachinePanelV
-
-End Class
diff --git a/EgtBEAMWALL.Core/MachiningDbWindow/OnlyProdMachiningDbWindowV.xaml b/EgtBEAMWALL.Core/MachiningDbWindow/MachiningDbWindowV.xaml
similarity index 99%
rename from EgtBEAMWALL.Core/MachiningDbWindow/OnlyProdMachiningDbWindowV.xaml
rename to EgtBEAMWALL.Core/MachiningDbWindow/MachiningDbWindowV.xaml
index 13e9030a..6cc75b74 100644
--- a/EgtBEAMWALL.Core/MachiningDbWindow/OnlyProdMachiningDbWindowV.xaml
+++ b/EgtBEAMWALL.Core/MachiningDbWindow/MachiningDbWindowV.xaml
@@ -1,4 +1,4 @@
-
+ Visibility="{Binding Filters_Visibility}"
+ Margin="5">
@@ -38,24 +38,26 @@
-
+ Style="{StaticResource BTLDateTypeList_ComboBox}"/>
+
-
+ Style="{StaticResource DayTypeList_ComboBox}"/>
+
+ Style="{StaticResource Filter_TextBlock}"
+ Foreground="{StaticResource BeamWall_Corduroy}"/>
+ Style="{StaticResource Filter_DatePicker}"
+ CalendarStyle="{StaticResource Filter_Calendar}"/>
+ Style="{StaticResource Filter_TextBlock}"
+ Foreground="{StaticResource BeamWall_Corduroy}"/>
+ Style="{StaticResource Filter_DatePicker}"
+ CalendarStyle="{StaticResource Filter_Calendar}"/>
+ Style="{StaticResource OnlyProdCalcPanel_ComboBox}"/>
+ Visibility="{Binding SearchText_Visibility}"
+ Style="{StaticResource NewSearchText_TextBox}"/>
+ Style="{StaticResource OptionTextBlock}"
+ Foreground="{StaticResource BeamWall_Corduroy}"/>
+ Style="{StaticResource OnyProd_FeatureComboBox}"/>
-
+
+
+
-
+
@@ -121,11 +126,10 @@
-
+
+ IsChecked="{Binding Path=DataContext.bIsEditNameActive,RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALLCORE:NewOpenProjectFileDialogV}}}"
+ Style="{StaticResource ToolBar_SmallToggleButton}">
@@ -135,13 +139,13 @@
-
+
-
+
@@ -150,18 +154,16 @@
+ Style="{StaticResource Archived_Image}"/>
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/EgtBEAMWALL.Core/NewOpenProjectFileDialog/OnlyProdNewOpenProjectFileDialogV.xaml.vb b/EgtBEAMWALL.Core/NewOpenProjectFileDialog/OnlyProdNewOpenProjectFileDialogV.xaml.vb
deleted file mode 100644
index 5455f92c..00000000
--- a/EgtBEAMWALL.Core/NewOpenProjectFileDialog/OnlyProdNewOpenProjectFileDialogV.xaml.vb
+++ /dev/null
@@ -1,93 +0,0 @@
-Imports System.Windows
-Imports System.Windows.Controls
-Imports System.Windows.Input
-Imports EgtWPFLib5
-
-Public Class OnlyProdNewOpenProjectFileDialogV
-
- Private WithEvents m_OpenProjFileDialogVM As NewOpenProjectFileDialogVM
-
-#Region "CONSTRUCTOR"
-
- Sub New(Owner As Window, OpenProjFileDialogVM As NewOpenProjectFileDialogVM)
- ' Funzione che interpreta l'xaml
- InitializeComponent()
- Me.Owner = Owner
- Me.DataContext = OpenProjFileDialogVM
- ' Assegno al riferimento locale al VM il VM preso dal DataContext
- m_OpenProjFileDialogVM = OpenProjFileDialogVM
- AddHandler Me.Loaded, AddressOf OpenProjectFileDialog_Loaded
- AddHandler Me.Closing, AddressOf OpenProjectFileDialog_Closing
- End Sub
-
-#End Region ' CONSTRUCTOR
-
-#Region "METHODS"
-
- Public Function EgtShowDialog(ProjectType As ProjectType) As Boolean?
- m_OpenProjFileDialogVM.Init(ProjectType)
- ' mostro la finestra di dialogo
- Return Me.ShowDialog()
- End Function
- Public Function EgtShowDialog(ProjectType As ProjectType, ProjectList As List(Of ProjectFileVM)) As Boolean?
- m_OpenProjFileDialogVM.Init(ProjectType, ProjectList)
- ' mostro la finestra di dialogo
- Return Me.ShowDialog()
- End Function
-
- Public Function EgtShowDialog(ProjectType As ProjectType, GoToProd As Boolean) As Boolean?
- m_OpenProjFileDialogVM.Init(ProjectType, Nothing, GoToProd)
- ' mostro la finestra di dialogo
- Return Me.ShowDialog()
- End Function
-
- Private Sub OpenProjectFileDialog_Loaded(sender As Object, e As RoutedEventArgs)
- ' Carico e imposto posizione finestra
- WinPosFromIniToWindow(S_OPENFILEDIALOG, K_VIEWOPTIMWINPLACE, Me)
- End Sub
-
- Private Sub OpenProjectFileDialog_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs)
- If (Keyboard.Modifiers And ModifierKeys.Alt) = ModifierKeys.Alt OrElse Keyboard.IsKeyDown(Key.F4) Then
- e.Cancel = True
- Return
- End If
- ' Salvo posizione finestra (se non minimizzata)
- WinPosFromWindowToIni(Me, S_OPENFILEDIALOG, K_VIEWOPTIMWINPLACE)
- End Sub
-
-#End Region ' METHODS
-
-#Region "EVENTS"
-
- Private Sub ProjectList_MouseDoubleClick(sender As Object, e As MouseButtonEventArgs)
- m_OpenProjFileDialogVM.ProjDoubleClick()
- End Sub
-
-#End Region ' EVENTS
-
- Private Sub OpenBtn_Click(sender As Object, e As RoutedEventArgs) Handles OpenBtn.Click
- DialogResult = m_OpenProjFileDialogVM.VerifySelected()
- End Sub
-
- Private Sub CloseWindow(bDialogResult As Boolean) Handles m_OpenProjFileDialogVM.m_CloseWindow
- Me.DialogResult = bDialogResult
- End Sub
-
- Private Sub MainDataGrid_CellEditEnding(sender As Object, e As DataGridCellEditEndingEventArgs)
- 'm_OpenProjFileDialogVM.SetIsEditNameActive(False)
- End Sub
-
- Public Shared ReadOnly IsSelectedProperty As DependencyProperty = DependencyProperty.Register("IsSelected",
- GetType(Boolean),
- GetType(ItemsControl))
-
- Public Property IsSelected As Boolean
- Get
- Return DirectCast(GetValue(IsSelectedProperty), Boolean)
- End Get
- Set(value As Boolean)
- SetValue(IsSelectedProperty, value)
- End Set
- End Property
-
-End Class
diff --git a/EgtBEAMWALL.Core/OpenProjectFileDialog/OnlyProdOpenProjectFileDialogV.xaml b/EgtBEAMWALL.Core/OpenProjectFileDialog/OnlyProdOpenProjectFileDialogV.xaml
deleted file mode 100644
index efce95fc..00000000
--- a/EgtBEAMWALL.Core/OpenProjectFileDialog/OnlyProdOpenProjectFileDialogV.xaml
+++ /dev/null
@@ -1,198 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/EgtBEAMWALL.Core/OpenProjectFileDialog/OnlyProdOpenProjectFileDialogV.xaml.vb b/EgtBEAMWALL.Core/OpenProjectFileDialog/OnlyProdOpenProjectFileDialogV.xaml.vb
deleted file mode 100644
index f9fd9403..00000000
--- a/EgtBEAMWALL.Core/OpenProjectFileDialog/OnlyProdOpenProjectFileDialogV.xaml.vb
+++ /dev/null
@@ -1,75 +0,0 @@
-Imports System.Windows
-Imports System.Windows.Input
-Imports EgtWPFLib5
-
-Public Class OnlyProdOpenProjectFileDialogV
-
- Private WithEvents m_OpenProjFileDialogVM As OpenProjectFileDialogVM
-
-#Region "CONSTRUCTOR"
-
- Sub New(Owner As Window, OpenProjFileDialogVM As OpenProjectFileDialogVM)
- ' Funzione che interpreta l'xaml
- InitializeComponent()
- Me.Owner = Owner
- Me.DataContext = OpenProjFileDialogVM
- ' Assegno al riferimento locale al VM il VM preso dal DataContext
- m_OpenProjFileDialogVM = OpenProjFileDialogVM
- AddHandler Me.Loaded, AddressOf OpenProjectFileDialog_Loaded
- AddHandler Me.Closing, AddressOf OpenProjectFileDialog_Closing
- End Sub
-
-#End Region ' CONSTRUCTOR
-
-#Region "METHODS"
-
- Public Function EgtShowDialog(ProjectType As ProjectType) As Boolean?
- m_OpenProjFileDialogVM.Init(ProjectType)
- ' mostro la finestra di dialogo
- Return Me.ShowDialog()
- End Function
- Public Function EgtShowDialog(ProjectType As ProjectType, ProjectList As List(Of ProjectFileVM)) As Boolean?
- m_OpenProjFileDialogVM.Init(ProjectType, ProjectList)
- ' mostro la finestra di dialogo
- Return Me.ShowDialog()
- End Function
-
- Public Function EgtShowDialog(ProjectType As ProjectType, GoToProd As Boolean) As Boolean?
- m_OpenProjFileDialogVM.Init(ProjectType, Nothing, GoToProd)
- ' mostro la finestra di dialogo
- Return Me.ShowDialog()
- End Function
-
- Private Sub OpenProjectFileDialog_Loaded(sender As Object, e As RoutedEventArgs)
- ' Carico e imposto posizione finestra
- WinPosFromIniToWindow(S_OPENFILEDIALOG, K_VIEWOPTIMWINPLACE, Me)
- End Sub
-
- Private Sub OpenProjectFileDialog_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs)
- If (Keyboard.Modifiers And ModifierKeys.Alt) = ModifierKeys.Alt OrElse Keyboard.IsKeyDown(Key.F4) Then
- e.Cancel = True
- Return
- End If
- ' Salvo posizione finestra (se non minimizzata)
- WinPosFromWindowToIni(Me, S_OPENFILEDIALOG, K_VIEWOPTIMWINPLACE)
- End Sub
-
-#End Region ' METHODS
-
-#Region "EVENTS"
-
- Private Sub ProjectList_MouseDoubleClick(sender As Object, e As MouseButtonEventArgs)
- m_OpenProjFileDialogVM.ProjDoubleClick()
- End Sub
-
-#End Region ' EVENTS
-
- Private Sub OpenBtn_Click(sender As Object, e As RoutedEventArgs) Handles OpenBtn.Click
- DialogResult = m_OpenProjFileDialogVM.VerifySelected()
- End Sub
-
- Private Sub CloseWindow(bDialogResult As Boolean) Handles m_OpenProjFileDialogVM.m_CloseWindow
- Me.DialogResult = bDialogResult
- End Sub
-
-End Class
diff --git a/EgtBEAMWALL.Core/OpenProjectFileDialog/OpenProjectFileDialogV.xaml b/EgtBEAMWALL.Core/OpenProjectFileDialog/OpenProjectFileDialogV.xaml
index 3dec78b6..064f04ee 100644
--- a/EgtBEAMWALL.Core/OpenProjectFileDialog/OpenProjectFileDialogV.xaml
+++ b/EgtBEAMWALL.Core/OpenProjectFileDialog/OpenProjectFileDialogV.xaml
@@ -2,9 +2,9 @@
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
- xmlns:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Core"
+ xmlns:EgtBEAMWALLCORE="clr-namespace:EgtBEAMWALL.Core"
Title="{Binding Title}"
- Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
+ Style="{StaticResource OnlyProd_EgtCustomWindow}"
WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="30" IsResizable="True"
IsMinimizable="False" WindowStartupLocation="CenterScreen" ShowInTaskbar="False"
MinHeight="500" MinWidth="500"
@@ -23,7 +23,8 @@
+ Visibility="{Binding Filters_Visibility}"
+ BorderBrush="{StaticResource BeamWall_RegentStBlue}">
@@ -38,22 +39,26 @@
SelectedIndex="{Binding SelBTLDateType}"
Width="105"
Margin="5"
- Style="{StaticResource FeatureComboBox}"/>
+ Style="{StaticResource OnlyProdCalcPanel_ComboBox}"/>
+ Style="{StaticResource OnlyProdCalcPanel_ComboBox}"/>
+ Style="{StaticResource Filter_TextBlock}"
+ Foreground="{StaticResource BeamWall_Corduroy}"/>
+ Style="{StaticResource Filter_DatePicker}"
+ CalendarStyle="{StaticResource Filter_Calendar}"/>
+ Style="{StaticResource Filter_TextBlock}"
+ Foreground="{StaticResource BeamWall_Corduroy}"/>
+ Style="{StaticResource Filter_DatePicker}"
+ CalendarStyle="{StaticResource Filter_Calendar}"/>
@@ -67,41 +72,51 @@
SelectedItem="{Binding SelFilterType}"
Width="105"
Margin="5"
- Style="{StaticResource FeatureComboBox}"/>
+ Style="{StaticResource OnlyProdCalcPanel_ComboBox}"/>
+ Visibility="{Binding SearchText_Visibility}"
+ Style="{StaticResource NewSearchText_TextBox}"/>
+ Style="{StaticResource OptionTextBlock}"
+ Foreground="{StaticResource BeamWall_Corduroy}"/>
+ Width="55"
+ Style="{StaticResource OnlyProdCalcPanel_ComboBox}"/>
-
+
+
+
+
+
+
-
+
@@ -109,7 +124,7 @@
-
+
@@ -117,7 +132,7 @@
-
+
@@ -125,7 +140,7 @@
-
+
@@ -133,7 +148,7 @@
-
+
@@ -141,46 +156,41 @@
-
+
-
+
-
+
-
+
-
-
-
-
+
+ Content="{Binding Open_Msg}"
+ Style="{DynamicResource OnlyProdEgtWPFLib5_InputButton}"/>
+ Style="{DynamicResource OnlyProdEgtWPFLib5_InputButton}"/>
+ Style="{DynamicResource OnlyProdEgtWPFLib5_InputButton}"/>
diff --git a/EgtBEAMWALL.Core/OpenProjectFileDialog/OpenProjectFileDialogV.xaml.vb b/EgtBEAMWALL.Core/OpenProjectFileDialog/OpenProjectFileDialogV.xaml.vb
index 06dc095d..43fb9f00 100644
--- a/EgtBEAMWALL.Core/OpenProjectFileDialog/OpenProjectFileDialogV.xaml.vb
+++ b/EgtBEAMWALL.Core/OpenProjectFileDialog/OpenProjectFileDialogV.xaml.vb
@@ -1,12 +1,6 @@
-Imports System.ComponentModel
-Imports System.IO
-Imports System.Windows
-Imports System.Windows.Controls
+Imports System.Windows
Imports System.Windows.Input
-Imports EgtBEAMWALL.Core.ConstBeam
-Imports EgtUILib
Imports EgtWPFLib5
-Imports EgtBEAMWALL
Public Class OpenProjectFileDialogV
@@ -78,4 +72,4 @@ Public Class OpenProjectFileDialogV
Me.DialogResult = bDialogResult
End Sub
-End Class
\ No newline at end of file
+End Class
diff --git a/EgtBEAMWALL.Core/ProjectManager/ProdFile.vb b/EgtBEAMWALL.Core/ProjectManager/ProdFile.vb
deleted file mode 100644
index f2fddca8..00000000
--- a/EgtBEAMWALL.Core/ProjectManager/ProdFile.vb
+++ /dev/null
@@ -1,69 +0,0 @@
-Imports System.IO
-
-Public Class ProdFile
-
- 'Private m_nProjId As Integer = 0
- 'Public ReadOnly Property nProjId As Integer
- ' Get
- ' Return m_nProjId
- ' End Get
- 'End Property
-
- 'Friend ReadOnly Property sProjPath As String
- ' Get
- ' Dim sPath As String = String.Empty
- ' If IsNothing(m_nProjId) OrElse m_nProjId = 0 Then Return String.Empty
- ' sPath = refMainWindowVM.MainWindowM.sProjsDir & "\" & nProjId.ToString("0000") & "\" & nProjId.ToString("0000") & FILENAMESEPARATOR
- ' If Not IsNothing(m_nProdId) AndAlso m_nProdId > 0 Then
- ' sPath &= nProjId.ToString("0000")
- ' End If
- ' sPath &= FILENAMESEPARATOR & BTLFileName & ".nge"
- ' Return sPath
- ' End Get
- 'End Property
-
- Private m_nProdId As Integer = 0
- Public ReadOnly Property nProdId As Integer
- Get
- Return m_nProdId
- End Get
- End Property
- Friend ReadOnly Property sProdPath As String
- Get
- Dim sPath As String = String.Empty
- If IsNothing(m_nProdId) OrElse m_nProdId = 0 Then Return String.Empty
- Return refMainWindowVM.MainWindowM.sProdsDir & "\" & nProdId.ToString("0000") & "\" & nProdId.ToString("0000") & ".nge"
- End Get
- End Property
-
- 'Private m_BTLFileName As String = String.Empty
- 'Public ReadOnly Property BTLFileName As String
- ' Get
- ' Return m_BTLFileName
- ' End Get
- 'End Property
-
- Private m_NewProd As Boolean
- Friend Property NewProd As Boolean
- Get
- Return m_NewProd
- End Get
- Set(value As Boolean)
- m_NewProd = value
- End Set
- End Property
- Public ReadOnly Property ProjectFileName As String
- Get
- Return m_nProdId.ToString("0000")
- End Get
- End Property
-
- Sub New(ProdFileName As String)
- Integer.TryParse(Path.GetFileNameWithoutExtension(ProdFileName), m_nProdId)
- End Sub
-
- Friend Sub SetProdId(nProdId As Integer)
- m_nProdId = nProdId
- End Sub
-
-End Class
\ No newline at end of file
diff --git a/EgtBEAMWALL.Core/Utility/ManageView.vb b/EgtBEAMWALL.Core/Utility/ManageView.vb
deleted file mode 100644
index 0942ce60..00000000
--- a/EgtBEAMWALL.Core/Utility/ManageView.vb
+++ /dev/null
@@ -1,81 +0,0 @@
-Imports EgtUILib
-
-Public Module ManageView
-
- ' Tipo di progetto aperto
- Private m_Type As BWType
-
- ' Per macchine pareti:
- ' Posizione vista
- Private m_nViewDir As VT
-
- Public Function BWSetView(nView As VT, Optional bRedraw As Boolean = True)
- ' condizioni che cambiano la vista del progetto
- Select Case m_Type
- Case BWType.BEAM
- EgtSetView(VT.ISO_SW, bRedraw)
- Case BWType.WALL
- Select Case nView
- Case VT.TOP
- Select Case m_nViewDir
- Case VT.ISO_SW, VT.ISO_SE
- EgtSetGenericView(0, -90, bRedraw) ' equivalente a vista TOP
- Case VT.ISO_NW, VT.ISO_NE
- EgtSetGenericView(0, 90, bRedraw) ' equivalente a vista TOP ruotata di 180 su Z
- End Select
- Case VT.FRONT
- Select Case m_nViewDir
- Case VT.ISO_SW, VT.ISO_SE
- EgtSetGenericView(90, -90, bRedraw) ' equivalente a vista FRONT
- Case VT.ISO_NW, VT.ISO_NE
- EgtSetGenericView(90, 90, bRedraw) ' equivalente a vista FRONT ruotata di 180 su Z
- End Select
- Case VT.BACK
- Select Case m_nViewDir
- Case VT.ISO_SW, VT.ISO_SE
- EgtSetGenericView(-90, -90, bRedraw) ' equivalente a vista BACK
- Case VT.ISO_NW, VT.ISO_NE
- EgtSetGenericView(-90, 90, bRedraw) ' equivalente a vista BACK ruotata di 180 su Z
- End Select
- Case VT.RIGHT
- Select Case m_nViewDir
- Case VT.ISO_SW, VT.ISO_SE
- EgtSetGenericView(90, 0, bRedraw) ' equivalente a vista RIGHT
- Case VT.ISO_NW, VT.ISO_NE
- EgtSetGenericView(-90, 0, bRedraw) ' equivalente a vista RIGHT ruotata di 180 su Z
- End Select
- Case VT.LEFT
- Select Case m_nViewDir
- Case VT.ISO_SW, VT.ISO_SE
- EgtSetGenericView(-90, 0, bRedraw) ' equivalente a vista RIGHT
- Case VT.ISO_NW, VT.ISO_NE
- EgtSetGenericView(90, 0, bRedraw) ' equivalente a vista RIGHT ruotata di 180 su Z
- End Select
- Case VT.ISO_SW
- Select Case m_nViewDir
- Case VT.ISO_SW, VT.ISO_SE
- EgtSetGenericView(60, 225, bRedraw) ' equivalente a vista ISO_SW
- Case VT.ISO_NW, VT.ISO_NE
- EgtSetGenericView(60, 45, bRedraw) ' equivalente a vista ISO_SW ruotata di 180 su Z
- End Select
- Case Else ' VT.ISO_SW
- Select Case m_nViewDir
- Case VT.ISO_SW, VT.ISO_SE
- EgtSetGenericView(60, 225, bRedraw) ' equivalente a vista ISO_SW
- Case VT.ISO_NW, VT.ISO_NE
- EgtSetGenericView(60, 45, bRedraw) ' equivalente a vista ISO_SW ruotata di 180 su Z
- End Select
- End Select
- End Select
-
- End Function
-
- Public Sub UpdateMachParam(ViewDir As Integer)
- m_nViewDir = ViewDir
- End Sub
-
- Public Sub UpdateBWType(Type As BWType)
- m_Type = Type
- End Sub
-
-End Module
diff --git a/EgtBEAMWALL.Optimizer/BTLViewModel/BTLFeatureVM.vb b/EgtBEAMWALL.Optimizer/BTLViewModel/BTLFeatureVM.vb
index 243682a8..2ed8bb9e 100644
--- a/EgtBEAMWALL.Optimizer/BTLViewModel/BTLFeatureVM.vb
+++ b/EgtBEAMWALL.Optimizer/BTLViewModel/BTLFeatureVM.vb
@@ -574,7 +574,7 @@ Public Class BTLFeatureVM
#End Region ' Strategy
-#Region "Edit"
+#Region "EditFeature"
Public ReadOnly Property EditFeature_Command As ICommand
Get
@@ -604,7 +604,7 @@ Public Class BTLFeatureVM
EgtDraw()
End Sub
-#End Region ' Edit
+#End Region ' EditFeature
#End Region ' COMMANDS
diff --git a/EgtBEAMWALL.Optimizer/BTLViewModel/BTLPartVM.vb b/EgtBEAMWALL.Optimizer/BTLViewModel/BTLPartVM.vb
index 0be26e29..4490b9b6 100644
--- a/EgtBEAMWALL.Optimizer/BTLViewModel/BTLPartVM.vb
+++ b/EgtBEAMWALL.Optimizer/BTLViewModel/BTLPartVM.vb
@@ -2291,7 +2291,7 @@ Public Class BTLPartVM
' .FullOpen = True,
' .Color = Col.ToColor()
'}
- Dim ColorDlg As New OnlyProdEgtColorPickerV(Application.Current.MainWindow, New EgtColorPickerVM()) With {
+ Dim ColorDlg As New EgtColorPickerV(Application.Current.MainWindow, New EgtColorPickerVM()) With {
.Color = Col.ToColor()
}
' Visualizzo dialogo
diff --git a/EgtBEAMWALL.Optimizer/ConfigurationPage/ConfigurationProgramV.xaml b/EgtBEAMWALL.Optimizer/ConfigurationPage/ConfigurationProgramV.xaml
index 4cbab77d..e4e5df93 100644
--- a/EgtBEAMWALL.Optimizer/ConfigurationPage/ConfigurationProgramV.xaml
+++ b/EgtBEAMWALL.Optimizer/ConfigurationPage/ConfigurationProgramV.xaml
@@ -30,7 +30,7 @@
-
+
diff --git a/EgtBEAMWALL.Optimizer/ItemParamList/BTLPartListV.xaml b/EgtBEAMWALL.Optimizer/ItemParamList/BTLPartListV.xaml
index 39440e58..5bf5fde5 100644
--- a/EgtBEAMWALL.Optimizer/ItemParamList/BTLPartListV.xaml
+++ b/EgtBEAMWALL.Optimizer/ItemParamList/BTLPartListV.xaml
@@ -59,21 +59,21 @@
diff --git a/EgtBEAMWALL.Optimizer/ItemParamList/RawPartListVM.vb b/EgtBEAMWALL.Optimizer/ItemParamList/RawPartListVM.vb
index eed41ccd..788ab445 100644
--- a/EgtBEAMWALL.Optimizer/ItemParamList/RawPartListVM.vb
+++ b/EgtBEAMWALL.Optimizer/ItemParamList/RawPartListVM.vb
@@ -213,8 +213,8 @@ Public Class RawPartListVM
' Aggiungo riferimento a Map
Map.SetRefRawPartListVM(Me)
- '' carico le colonne della datagrid BEAM
- 'EgwWPFBaseLib.EgwDataGrid.ReadColumnLayout(Path.ChangeExtension(DataGridColumnsIniFile.m_sDataGridColumnsIniFile, ".json"), S_RAWPARTLIST_BEAM, RawPartColumns)
+ ' carico le colonne della datagrid BEAM
+ EgwWPFBaseLib.EgwDataGrid.ReadColumnLayout(Path.ChangeExtension(DataGridColumnsIniFile.m_sDataGridColumnsIniFile, ".json"), S_RAWPARTLIST_BEAM, RawPartColumns)
End Sub
#End Region ' CONSTRUCTOR
diff --git a/EgtBEAMWALL.Optimizer/LeftPanel/LeftPanelV.xaml b/EgtBEAMWALL.Optimizer/LeftPanel/LeftPanelV.xaml
index 13542e1f..694663ca 100644
--- a/EgtBEAMWALL.Optimizer/LeftPanel/LeftPanelV.xaml
+++ b/EgtBEAMWALL.Optimizer/LeftPanel/LeftPanelV.xaml
@@ -31,7 +31,6 @@
-
-
Mancano i file di configurazione. - Errore
@@ -316,7 +316,7 @@ Public Class MachinePanelVM
' apro finestra di gestione lavorazioni pareti
Dim sTitle = EgtMsg(9010) 'Tabelle delle lavorazioni delle pareti
Dim WallMchsWinVM As New MyBeamMachiningsWindowVM(sTitle, sBaseDir, sMachTypePath, sTabTemplPath, False)
- Dim WallMchsWinV As New OnlyProdBeamMachiningsWindowV(Application.Current.MainWindow, WallMchsWinVM)
+ Dim WallMchsWinV As New BeamMachiningsWindowV(Application.Current.MainWindow, WallMchsWinVM)
WallMchsWinV.ShowDialog()
Else
' Impossibile aprire l'Editor delle lavorazioni delle pareti. Mancano i file di configurazione. - Errore
diff --git a/EgtBEAMWALL.Optimizer/My Project/AssemblyInfo.vb b/EgtBEAMWALL.Optimizer/My Project/AssemblyInfo.vb
index b4ac0efe..71f630de 100644
--- a/EgtBEAMWALL.Optimizer/My Project/AssemblyInfo.vb
+++ b/EgtBEAMWALL.Optimizer/My Project/AssemblyInfo.vb
@@ -67,5 +67,5 @@ Imports System.Windows
' Revision
'
-
-
+
+
diff --git a/EgtBEAMWALL.Optimizer/ProdManager/ProdManagerVM.vb b/EgtBEAMWALL.Optimizer/ProdManager/ProdManagerVM.vb
index 18c1691c..88b7159c 100644
--- a/EgtBEAMWALL.Optimizer/ProdManager/ProdManagerVM.vb
+++ b/EgtBEAMWALL.Optimizer/ProdManager/ProdManagerVM.vb
@@ -857,6 +857,11 @@ Public Class ProdManagerVM
Dim nAsseBaseLayer As Integer = EgtGetLastNameInGroup(GDB_ID.ROOT, ASSEBASE)
EgtSetInfo(nAsseBaseLayer, BTL_PRT_PROJ, nProjId)
+ ' Apro finestra parametri generali
+ Dim GeneralParametersWndVM As New GeneralParametersWndVM()
+ GeneralParametersWndVM.SetbSaveGeneralParameters(True)
+ GeneralParametersWndVM.SaveProjectParameters()
+
' Controllo se effettuare import + verifica
If Map.refConfigurationPageVM.bVerifyImportBTL_IsChecked Then
' Eseguo procedura
@@ -1026,7 +1031,7 @@ Public Class ProdManagerVM
Dim OpenProdFileDialogVM As NewOpenProjectFileDialogVM = Nothing
' apro dialogo di scelta Prod
OpenProdFileDialogVM = New NewOpenProjectFileDialogVM
- Dim OpenFile As New OnlyProdNewOpenProjectFileDialogV(Application.Current.MainWindow, OpenProdFileDialogVM)
+ Dim OpenFile As New NewOpenProjectFileDialogV(Application.Current.MainWindow, OpenProdFileDialogVM)
Dim DialogResult As Boolean? = OpenFile.EgtShowDialog(ProjectType.PROD)
If IsNothing(DialogResult) OrElse Not DialogResult Then Return True
sFilePath = OpenProdFileDialogVM.SelProject.ProdFileVM.sProdPath
@@ -1035,7 +1040,7 @@ Public Class ProdManagerVM
Dim OpenProjectFileDialogVM As OpenProjectFileDialogVM = Nothing
' apro dialogo di scelta file
OpenProjectFileDialogVM = New OpenProjectFileDialogVM
- Dim OpenFile As New OnlyProdOpenProjectFileDialogV(Application.Current.MainWindow, OpenProjectFileDialogVM)
+ Dim OpenFile As New OpenProjectFileDialogV(Application.Current.MainWindow, OpenProjectFileDialogVM)
Dim DialogResult As Boolean? = OpenFile.EgtShowDialog(ProjectType.PROD)
If IsNothing(DialogResult) OrElse Not DialogResult Then Return True
sFilePath = OpenProjectFileDialogVM.SelProject.sProdPath