EgtCAM5 :

- Cambiati nomi classi e file.
This commit is contained in:
Emmanuele Sassi
2018-04-10 17:08:35 +00:00
parent 4e2801a1c4
commit a4b5cd4834
144 changed files with 517 additions and 521 deletions
+9 -9
View File
@@ -1837,23 +1837,23 @@ Public Class ToolParamVisibilityConverter
Case MCH_TY.NONE
Return Visibility.Hidden
Case MCH_TY.DRILL_STD
Return SharedFieldsClass.Drill_Std(CInt(parameter))
Return TMDbParamVisibility.Drill_Std(CInt(parameter))
Case MCH_TY.DRILL_LONG
Return SharedFieldsClass.Drill_Long(CInt(parameter))
Return TMDbParamVisibility.Drill_Long(CInt(parameter))
Case MCH_TY.SAW_STD
Return SharedFieldsClass.Saw_Std(CInt(parameter))
Return TMDbParamVisibility.Saw_Std(CInt(parameter))
Case MCH_TY.SAW_FLAT
Return SharedFieldsClass.Saw_Flat(CInt(parameter))
Return TMDbParamVisibility.Saw_Flat(CInt(parameter))
Case MCH_TY.MILL_STD
Return SharedFieldsClass.Mill_Std(CInt(parameter))
Return TMDbParamVisibility.Mill_Std(CInt(parameter))
Case MCH_TY.MILL_NOTIP
Return SharedFieldsClass.Mill_NoTip(CInt(parameter))
Return TMDbParamVisibility.Mill_NoTip(CInt(parameter))
Case MCH_TY.MORTISE_STD
Return SharedFieldsClass.Mortise_Std(CInt(parameter))
Return TMDbParamVisibility.Mortise_Std(CInt(parameter))
Case MCH_TY.CHISEL_STD
Return SharedFieldsClass.Chisel_Std(CInt(parameter))
Return TMDbParamVisibility.Chisel_Std(CInt(parameter))
Case MCH_TY.COMPO
Return SharedFieldsClass.Compo(CInt(parameter))
Return TMDbParamVisibility.Compo(CInt(parameter))
Case Else
Return Visibility.Hidden
End Select
@@ -1,4 +1,4 @@
<EgtWPFLib5:EgtCustomWindow x:Class="ToolsDbView"
<EgtWPFLib5:EgtCustomWindow x:Class="ToolsDbV"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:sys="clr-namespace:System;assembly=mscorlib"
@@ -1,6 +1,6 @@
Imports EgtUILib
Public Class ToolsDbView
Public Class ToolsDbV
Private Sub ToolsDbView_Closed(sender As Object, e As System.EventArgs) Handles Me.Closed
' Imposto contesto generale
@@ -7,7 +7,7 @@ Imports EgtWPFLib5
Namespace EgtCAM5
Public Class ToolsDbViewModel
Public Class ToolsDbVM
Inherits TabViewModel
Friend Shared m_bActive As Boolean = False
@@ -626,8 +626,8 @@ Namespace EgtCAM5
ToolTreeViewItem.m_delIsEnabledBtns = Nothing
FamilyToolTreeViewItem.m_delIsEnabledBtns = Nothing
For Each Window In Application.Current.Windows
If TypeOf Window Is ToolsDbView Then
Dim ToolsDbWindow As ToolsDbView = DirectCast(Window, ToolsDbView)
If TypeOf Window Is ToolsDbV Then
Dim ToolsDbWindow As ToolsDbV = DirectCast(Window, ToolsDbV)
ToolsDbWindow.DataContext = Nothing
ToolsDbWindow.Close()
End If