diff --git a/Constants/ConstIni.vb b/Constants/ConstIni.vb index f215a72..711c816 100644 --- a/Constants/ConstIni.vb +++ b/Constants/ConstIni.vb @@ -181,7 +181,7 @@ Module ConstIni Public Const K_SELGEOMGENMACHINING As String = "SelGeomGenMachining" Public Const K_SELGEOMCHISELING As String = "SelGeomChiseling" Public Const K_SELGEOMSURFFINISHING As String = "SelGeomSurfFinishing" - Public Const K_SELGEOMFIVEAXMACHINING As String = "SelGeomFiveAxMachining" + Public Const K_SELGEOMFIVEAXMILLING As String = "SelGeomFiveAxMilling" Public Const K_MACHININGGROUP As String = "MachiningGroup" Public Const K_SHOWONLYTABLE As String = "ShowOnlyTable" Public Const K_MOVETHROUGHDISPS As String = "MoveThroughDisps" diff --git a/OptionPanel/MachiningOptionPanel/OperationParametersExpander/OperationParametersExpanderVM.vb b/OptionPanel/MachiningOptionPanel/OperationParametersExpander/OperationParametersExpanderVM.vb index 1c35e94..ea9a84d 100644 --- a/OptionPanel/MachiningOptionPanel/OperationParametersExpander/OperationParametersExpanderVM.vb +++ b/OptionPanel/MachiningOptionPanel/OperationParametersExpander/OperationParametersExpanderVM.vb @@ -173,7 +173,7 @@ Public Class OperationParametersExpanderVM Case MCH_OY.WATERJETTING Map.refProjectVM.SceneSelMode = OptionModule.m_SelGeomWaterJetting Case MCH_OY.FIVEAXISMILLING - Map.refProjectVM.SceneSelMode = OptionModule.m_SelGeomFiveAxMachinig + Map.refProjectVM.SceneSelMode = OptionModule.m_SelGeomFiveAxMilling End Select ' Imposto visualizzazione utensile DirectCast(m_MachiningParameterExpander.DataContext, MachiningParameterExpanderVM).ViewTool = True diff --git a/OptionsWindow/OptionModule.vb b/OptionsWindow/OptionModule.vb index 47e7aaa..747ded3 100644 --- a/OptionsWindow/OptionModule.vb +++ b/OptionsWindow/OptionModule.vb @@ -54,7 +54,7 @@ Friend Module OptionModule Friend m_SelGeomChiseling As SceneSelModeOpt Friend m_SelGeomSurfFinishing As SceneSelModeOpt Friend m_SelGeomWaterJetting As SceneSelModeOpt - Friend m_SelGeomFiveAxMachinig As SceneSelModeOpt + Friend m_SelGeomFiveAxMilling As SceneSelModeOpt ' Flag per aggiungere una nuova lavorazione alla fine della fase o subito dopo la lavorazione selezionata Friend m_bNewMachiningIsLastOne As Boolean ' Variabile che indica se usare lo script per calcolare automaticamente la disposizione quando si passa in lavorazione @@ -79,7 +79,7 @@ Friend Module OptionModule End While If nIndex = 1 Then EgtOutLog("Error missing languages section in Config.ini") - MessageBox.Show( "Error : missing languages informations", "EgtCAM5", MessageBoxButton.OK, MessageBoxImage.Error) + MessageBox.Show("Error : missing languages informations", "EgtCAM5", MessageBoxButton.OK, MessageBoxImage.Error) End End If ' Inizializzo la lingua corrente @@ -103,9 +103,9 @@ Friend Module OptionModule GetPrivateProfileColor(S_GRID, K_MINLNCOLOR, GridColor) m_GridColor = GridColor ' Inizializzo flag linee ingrossate - m_bThickLine = ( GetPrivateProfileInt(S_SCENE, K_LINEWIDTH, 1) <> 1) + m_bThickLine = (GetPrivateProfileInt(S_SCENE, K_LINEWIDTH, 1) <> 1) ' Inizializzo flag visualizzazione smussata delle superfici - m_bSmoothTriMesh = ( GetPrivateProfileInt(S_SCENE, K_SHOWTRIAADV, 1) <> 0) + m_bSmoothTriMesh = (GetPrivateProfileInt(S_SCENE, K_SHOWTRIAADV, 1) <> 0) ' Inizio colore di default in disegno Dim DefColor As New Color3d(0, 0, 0) GetPrivateProfileColor(S_GEOMDB, K_DEFAULTCOLOR, DefColor) @@ -142,8 +142,8 @@ Friend Module OptionModule m_SelGeomChiseling = If(Temp < 0 Or Temp > 3, SceneSelModeOpt.PARTCURVESANDSURFACES, DirectCast(Temp, SceneSelModeOpt)) Temp = GetPrivateProfileInt(S_MACH, K_SELGEOMSURFFINISHING, -1) m_SelGeomSurfFinishing = If(Temp < 0 Or Temp > 3, SceneSelModeOpt.PARTCURVESANDSURFACES, DirectCast(Temp, SceneSelModeOpt)) - Temp = GetPrivateProfileInt(S_MACH, K_SELGEOMFIVEAXMACHINING, -1) - m_SelGeomFiveAxMachinig = If(Temp < 0 Or Temp > 3, SceneSelModeOpt.PARTCURVESANDSURFACES, DirectCast(Temp, SceneSelModeOpt)) + Temp = GetPrivateProfileInt(S_MACH, K_SELGEOMFIVEAXMILLING, -1) + m_SelGeomFiveAxMilling = If(Temp < 0 Or Temp > 3, SceneSelModeOpt.PARTCURVESANDSURFACES, DirectCast(Temp, SceneSelModeOpt)) m_SelGeomWaterJetting = SceneSelModeOpt.PARTCURVES ' Inizializzo variabile che indica posizione nuova operazione di lavorazione m_bNewMachiningIsLastOne = (GetPrivateProfileInt(S_OPTIONS, K_NEWMACHININGISLASTONE, 0) <> 0) diff --git a/OptionsWindow/OptionWindowV.xaml b/OptionsWindow/OptionWindowV.xaml index ebd54a0..e085c11 100644 --- a/OptionsWindow/OptionWindowV.xaml +++ b/OptionsWindow/OptionWindowV.xaml @@ -1,21 +1,21 @@  - + xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" + xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" + xmlns:local="clr-namespace:EgtCAM5" + xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5" + Title="{Binding Title}" Icon="/Resources/EgtCAM5.ico" + TitleBarBrush="{StaticResource EgaltechBlue1}" + BorderBrush="{StaticResource EgaltechBlue1}" + WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="30" IsResizable="False" + IsMinimizable="False" WindowStartupLocation="CenterScreen" ShowInTaskbar="False" + MinWidth="400" MinHeight="382" + Width="400" Height="500" + CloseCommand="{Binding CloseOptionsCommand,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}"> + - + @@ -25,8 +25,9 @@ - + - - + Margin="0,0,0,5"> + +