-pulizia codice

2025-04-22 08:03:44 +02:00
parent 069df21cfa
commit ad47a070ef
6 changed files with 400 additions and 413 deletions
@@ -58,51 +58,51 @@ Public Class ProjectVM
   End Property
   Private m_bLockUX As Boolean = False

-   Private m_LeftPanel_Visibility As Boolean = True
-   Public Property LeftPanel_Visibility As Visibility
-      Get
-         Return If(m_LeftPanel_Visibility, Visibility.Visible, Visibility.Collapsed)
-      End Get
-      Set(value As Visibility)
-         m_LeftPanel_Visibility = (value = Visibility.Visible)
-      End Set
-   End Property
-   Friend Sub SetLeftPanel_Visibility(IsVisible As Boolean)
-      m_LeftPanel_Visibility = IsVisible
-   End Sub
+   'Private m_LeftPanel_Visibility As Boolean = True
+   'Public Property LeftPanel_Visibility As Visibility
+   '   Get
+   '      Return If(m_LeftPanel_Visibility, Visibility.Visible, Visibility.Collapsed)
+   '   End Get
+   '   Set(value As Visibility)
+   '      m_LeftPanel_Visibility = (value = Visibility.Visible)
+   '   End Set
+   'End Property
+   'Friend Sub SetLeftPanel_Visibility(IsVisible As Boolean)
+   '   m_LeftPanel_Visibility = IsVisible
+   'End Sub

-   Private m_TopPanel_Visibility As Boolean = False
-   Public Property TopPanel_Visibility As Visibility
-      Get
-         Return If(m_TopPanel_Visibility, Visibility.Visible, Visibility.Collapsed)
-      End Get
-      Set(value As Visibility)
-         m_TopPanel_Visibility = (value = Visibility.Visible)
-      End Set
-   End Property
-   Friend Sub SetTopPanel_Visibility(IsVisible As Boolean)
-      m_TopPanel_Visibility = IsVisible
-   End Sub
+   'Private m_TopPanel_Visibility As Boolean = False
+   'Public Property TopPanel_Visibility As Visibility
+   '   Get
+   '      Return If(m_TopPanel_Visibility, Visibility.Visible, Visibility.Collapsed)
+   '   End Get
+   '   Set(value As Visibility)
+   '      m_TopPanel_Visibility = (value = Visibility.Visible)
+   '   End Set
+   'End Property
+   'Friend Sub SetTopPanel_Visibility(IsVisible As Boolean)
+   '   m_TopPanel_Visibility = IsVisible
+   'End Sub

-   Private m_BottomPanel_Visibility As Boolean = True
-   Public Property BottomPanel_Visibility As Visibility
-      Get
-         Return If(m_BottomPanel_Visibility, Visibility.Visible, Visibility.Collapsed)
-      End Get
-      Set(value As Visibility)
-         m_BottomPanel_Visibility = (value = Visibility.Visible)
-      End Set
-   End Property
-   Friend Sub SetBottomPanel_Visibility(IsVisible As Boolean)
-      m_BottomPanel_Visibility = IsVisible
-   End Sub
+   'Private m_BottomPanel_Visibility As Boolean = True
+   'Public Property BottomPanel_Visibility As Visibility
+   '   Get
+   '      Return If(m_BottomPanel_Visibility, Visibility.Visible, Visibility.Collapsed)
+   '   End Get
+   '   Set(value As Visibility)
+   '      m_BottomPanel_Visibility = (value = Visibility.Visible)
+   '   End Set
+   'End Property
+   'Friend Sub SetBottomPanel_Visibility(IsVisible As Boolean)
+   '   m_BottomPanel_Visibility = IsVisible
+   'End Sub

-   Private m_PartManager_Visibility As Boolean = True
-   Public ReadOnly Property PartManager_Visibility As Visibility
-      Get
-         Return If(Map.refMainMenuVM.SelPage = Pages.VIEW AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM) AndAlso Map.refProjectVM.BTLStructureVM.SelectionType = BTLStructureVM.SelectionTypes.SELECT_ AndAlso Not Map.refFreeContourManagerVM.bIsActive, Visibility.Visible, Visibility.Collapsed)
-      End Get
-   End Property
+   'Private m_PartManager_Visibility As Boolean = True
+   'Public ReadOnly Property PartManager_Visibility As Visibility
+   '   Get
+   '      Return If(Map.refMainMenuVM.SelPage = Pages.VIEW AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM) AndAlso Map.refProjectVM.BTLStructureVM.SelectionType = BTLStructureVM.SelectionTypes.SELECT_ AndAlso Not Map.refFreeContourManagerVM.bIsActive, Visibility.Visible, Visibility.Collapsed)
+   '   End Get
+   'End Property

   Private m_FeatureManager_Visibility As Boolean = True
   Public Property FeatureManager_Visibility As Visibility
@@ -130,53 +130,53 @@ Public Class ProjectVM
      m_ShowBeamPanel_Visibility = IsVisible
   End Sub

-   Private m_ProjManager_Visibility As Boolean = True
-   Public Property ProjManager_Visibility As Visibility
-      Get
-         Return If(m_ProjManager_Visibility, Visibility.Visible, Visibility.Collapsed)
-      End Get
-      Set(value As Visibility)
-         m_ProjManager_Visibility = (value = Visibility.Visible)
-      End Set
-   End Property
-   Friend Sub SetProjManager_Visibility(IsVisible As Boolean)
-      m_ProjManager_Visibility = IsVisible
-      If Not IsNothing(Map.refProjManagerVM) Then Map.refProjManagerVM.NotifyPropertyChanged(NameOf(Map.refProjManagerVM.GoToProd_Visibility))
-   End Sub
+   'Private m_ProjManager_Visibility As Boolean = True
+   'Public Property ProjManager_Visibility As Visibility
+   '   Get
+   '      Return If(m_ProjManager_Visibility, Visibility.Visible, Visibility.Collapsed)
+   '   End Get
+   '   Set(value As Visibility)
+   '      m_ProjManager_Visibility = (value = Visibility.Visible)
+   '   End Set
+   'End Property
+   'Friend Sub SetProjManager_Visibility(IsVisible As Boolean)
+   '   m_ProjManager_Visibility = IsVisible
+   '   If Not IsNothing(Map.refProjManagerVM) Then Map.refProjManagerVM.NotifyPropertyChanged(NameOf(Map.refProjManagerVM.GoToProd_Visibility))
+   'End Sub

-   Private m_ProdManager_Visibility As Boolean = True
-   Public Property ProdManager_Visibility As Visibility
-      Get
-         Return If(m_ProdManager_Visibility, Visibility.Visible, Visibility.Collapsed)
-      End Get
-      Set(value As Visibility)
-         m_ProdManager_Visibility = (value = Visibility.Visible)
-      End Set
-   End Property
-   Friend Sub SetProdManager_Visibility(IsVisible As Boolean)
-      m_ProdManager_Visibility = IsVisible
-      If Not IsNothing(Map.refProdManagerVM) Then Map.refProdManagerVM.NotifyPropertyChanged(NameOf(Map.refProdManagerVM.GoToProj_Visibility))
-   End Sub
+   'Private m_ProdManager_Visibility As Boolean = True
+   'Public Property ProdManager_Visibility As Visibility
+   '   Get
+   '      Return If(m_ProdManager_Visibility, Visibility.Visible, Visibility.Collapsed)
+   '   End Get
+   '   Set(value As Visibility)
+   '      m_ProdManager_Visibility = (value = Visibility.Visible)
+   '   End Set
+   'End Property
+   'Friend Sub SetProdManager_Visibility(IsVisible As Boolean)
+   '   m_ProdManager_Visibility = IsVisible
+   '   If Not IsNothing(Map.refProdManagerVM) Then Map.refProdManagerVM.NotifyPropertyChanged(NameOf(Map.refProdManagerVM.GoToProj_Visibility))
+   'End Sub

-   Private m_OptimizePanel_Visibility As Boolean = True
-   Public Property OptimizePanel_Visibility As Visibility
-      Get
-         Return If(m_OptimizePanel_Visibility, Visibility.Visible, Visibility.Collapsed)
-      End Get
-      Set(value As Visibility)
-         m_OptimizePanel_Visibility = (value = Visibility.Visible)
-      End Set
-   End Property
-   Friend Sub SetOptimizePanel_Visibility(IsVisible As Boolean)
-      m_OptimizePanel_Visibility = IsVisible
-      NotifyPropertyChanged(NameOf(OptimizePanel_Visibility))
-      Map.refOptimizePanelVM.NotifyPropertyChanged(NameOf(Map.refOptimizePanelVM.CalcRotFlip_Visibility))
-      Map.refOptimizePanelVM.NotifyPropertyChanged(NameOf(Map.refOptimizePanelVM.Optimize_Visibility))
-      Map.refOptimizePanelVM.NotifyPropertyChanged(NameOf(Map.refOptimizePanelVM.OriginType_Visibility))
-      Map.refOptimizePanelVM.NotifyPropertyChanged(NameOf(Map.refOptimizePanelVM.ViewPage_Visibility))
-      Map.refOptimizePanelVM.NotifyPropertyChanged(NameOf(Map.refOptimizePanelVM.MachiningPage_Visibility))
-      Map.refOptimizePanelVM.NotifyPropertyChanged(NameOf(Map.refOptimizePanelVM.NestingOption_Visibility))
-   End Sub
+   'Private m_OptimizePanel_Visibility As Boolean = True
+   'Public Property OptimizePanel_Visibility As Visibility
+   '   Get
+   '      Return If(m_OptimizePanel_Visibility, Visibility.Visible, Visibility.Collapsed)
+   '   End Get
+   '   Set(value As Visibility)
+   '      m_OptimizePanel_Visibility = (value = Visibility.Visible)
+   '   End Set
+   'End Property
+   'Friend Sub SetOptimizePanel_Visibility(IsVisible As Boolean)
+   '   m_OptimizePanel_Visibility = IsVisible
+   '   NotifyPropertyChanged(NameOf(OptimizePanel_Visibility))
+   '   Map.refOptimizePanelVM.NotifyPropertyChanged(NameOf(Map.refOptimizePanelVM.CalcRotFlip_Visibility))
+   '   Map.refOptimizePanelVM.NotifyPropertyChanged(NameOf(Map.refOptimizePanelVM.Optimize_Visibility))
+   '   Map.refOptimizePanelVM.NotifyPropertyChanged(NameOf(Map.refOptimizePanelVM.OriginType_Visibility))
+   '   Map.refOptimizePanelVM.NotifyPropertyChanged(NameOf(Map.refOptimizePanelVM.ViewPage_Visibility))
+   '   Map.refOptimizePanelVM.NotifyPropertyChanged(NameOf(Map.refOptimizePanelVM.MachiningPage_Visibility))
+   '   Map.refOptimizePanelVM.NotifyPropertyChanged(NameOf(Map.refOptimizePanelVM.NestingOption_Visibility))
+   'End Sub

   Friend Sub NotifyCalcPanel_Visibility()
      'Map.refCALCPanelVM.NotifyPropertyChanged(NameOf(Map.refCALCPanelVM.ViewPage_Visibility))
@@ -507,14 +507,14 @@ Public Class ProjectVM
   End Sub

   Friend Sub NotifyAllPanelVisibility()
-      NotifyPropertyChanged(NameOf(LeftPanel_Visibility))
-      NotifyPropertyChanged(NameOf(TopPanel_Visibility))
-      NotifyPropertyChanged(NameOf(BottomPanel_Visibility))
-      NotifyPropertyChanged(NameOf(PartManager_Visibility))
+      'NotifyPropertyChanged(NameOf(LeftPanel_Visibility))
+      'NotifyPropertyChanged(NameOf(TopPanel_Visibility))
+      'NotifyPropertyChanged(NameOf(BottomPanel_Visibility))
+      'NotifyPropertyChanged(NameOf(PartManager_Visibility))
      NotifyPropertyChanged(NameOf(FeatureManager_Visibility))
      NotifyPropertyChanged(NameOf(ShowBeamPanel_Visibility))
-      NotifyPropertyChanged(NameOf(ProjManager_Visibility))
-      NotifyPropertyChanged(NameOf(ProdManager_Visibility))
+      'NotifyPropertyChanged(NameOf(ProjManager_Visibility))
+      'NotifyPropertyChanged(NameOf(ProdManager_Visibility))
      NotifyCalcPanel_Visibility()
   End Sub