omagoffice/Utility/OmagOFFICEMap.vb

Imports EgtWPFLib5

Module OmagOFFICEMap

   Private m_refMainWindowVM As MainWindowVM
   Private m_refTopCommandBarVM As TopCommandBarVM
   Private m_refProjectVM As ProjectVM
   Private m_refVeinMatchPanelVM As VeinMatchPanelVM
   Private m_refMachinePanelVM As MachinePanelVM
   Private m_refOptionPanelVM As OptionPanelVM
   Private m_refRawPartTabVM As RawPartTabVM
   Private m_refNestingTabVM As NestingTabVM
   Private m_refMachiningTabVM As MachiningTabVM
   Private m_refSplitModeVM As SplitModeVM
   Private m_refMoveRawModeVM As MoveRawModeVM
   Private m_refSimulTabVM As SimulTabVM

#Region "Get"

   Public ReadOnly Property refMainWindowVM As MainWindowVM
      Get
         Return m_refMainWindowVM
      End Get
   End Property

   Public ReadOnly Property refStatusBarVM As StatusBarVM
      Get
         Return LibMap.refStatusBarVM
      End Get
   End Property

   Public ReadOnly Property refTopCommandBarVM As TopCommandBarVM
      Get
         Return m_refTopCommandBarVM
      End Get
   End Property

   Public ReadOnly Property refProjectVM As ProjectVM
      Get
         Return m_refProjectVM
      End Get
   End Property

   Public ReadOnly Property refSceneHostVM As SceneHostVM
      Get
         Return LibMap.refSceneHostVM
      End Get
   End Property

   Public ReadOnly Property refShowPanelVM As ShowPanelVM
      Get
         Return LibMap.refShowPanelVM
      End Get
   End Property

   Public ReadOnly Property refVeinMatchPanelVM As VeinMatchPanelVM
      Get
         Return m_refVeinMatchPanelVM
      End Get
   End Property

   Public ReadOnly Property refMachinePanelVM As MachinePanelVM
      Get
         Return m_refMachinePanelVM
      End Get
   End Property

   Public ReadOnly Property refMachGroupPanelVM As MyMachGroupPanelVM
      Get
         Return LibMap.refMachGroupPanelVM
      End Get
   End Property

   Public ReadOnly Property refOptionPanelVM As OptionPanelVM
      Get
         Return m_refOptionPanelVM
      End Get
   End Property

   Public ReadOnly Property refRawPartTabVM As RawPartTabVM
      Get
         Return m_refRawPartTabVM
      End Get
   End Property

   Public ReadOnly Property refNestingTabVM As NestingTabVM
      Get
         Return m_refNestingTabVM
      End Get
   End Property

   Public ReadOnly Property refMachiningTabVM As MachiningTabVM
      Get
         Return m_refMachiningTabVM
      End Get
   End Property

   Public ReadOnly Property refSplitModeVM As SplitModeVM
      Get
         Return m_refSplitModeVM
      End Get
   End Property

   Public ReadOnly Property refMoveRawModeVM As MoveRawModeVM
      Get
         Return m_refMoveRawModeVM
      End Get
   End Property

   Public ReadOnly Property refSimulTabVM As SimulTabVM
      Get
         Return m_refSimulTabVM
      End Get
   End Property

#End Region    ' Get

#Region "Set"

   Friend Function SetRefStatusBarVM(StatusBarVM As StatusBarVM) As Boolean
      LibMap.SetRefStatusBarVM(StatusBarVM)
      Return Not IsNothing(LibMap.refStatusBarVM)
   End Function

   Friend Function SetRefTopCommandBarVM(TopCommandBarVM As TopCommandBarVM) As Boolean
      m_refTopCommandBarVM = TopCommandBarVM
      Return Not IsNothing(m_refTopCommandBarVM)
   End Function

   Friend Function SetRefProjectVM(ProjectVM As ProjectVM) As Boolean
      m_refProjectVM = ProjectVM
      Return Not IsNothing(m_refProjectVM)
   End Function

   Friend Function SetRefSceneHostVM(SceneHostVM As SceneHostVM) As Boolean
      LibMap.SetRefSceneHostVM(SceneHostVM)
      Return Not IsNothing(LibMap.refSceneHostVM)
   End Function

   Friend Function SetRefShowPanelVM(ShowPanelVM As ShowPanelVM) As Boolean
      LibMap.SetRefShowPanelVM(ShowPanelVM)
      Return Not IsNothing(LibMap.refShowPanelVM)
   End Function

   Friend Function SetRefVeinMatchPanelVM(VeinMatchPanelVM As VeinMatchPanelVM) As Boolean
      m_refVeinMatchPanelVM = VeinMatchPanelVM
      Return Not IsNothing(m_refVeinMatchPanelVM)
   End Function

   Friend Function SetRefMachinePanelVM(MachinePanelVM As MachinePanelVM) As Boolean
      m_refMachinePanelVM = MachinePanelVM
      Return Not IsNothing(m_refMachinePanelVM)
   End Function

   Friend Function SetRefMachGroupPanelVM(MachGroupPanelVM As MyMachGroupPanelVM) As Boolean
      LibMap.setrefMachGroupPanelVM(MachGroupPanelVM)
      Return Not IsNothing(LibMap.refMachGroupPanelVM)
   End Function

   Friend Function SetRefOptionPanelVM(OptionPanelVM As OptionPanelVM) As Boolean
      m_refOptionPanelVM = OptionPanelVM
      Return Not IsNothing(m_refOptionPanelVM)
   End Function

   Friend Function SetRefRawPartTabVM(RawPartTabVM As RawPartTabVM) As Boolean
      m_refRawPartTabVM = RawPartTabVM
      Return Not IsNothing(m_refRawPartTabVM)
   End Function

   Friend Function SetRefNestingTabVM(NestingTabVM As NestingTabVM) As Boolean
      m_refNestingTabVM = NestingTabVM
      Return Not IsNothing(m_refNestingTabVM)
   End Function

   Friend Function SetRefMachiningTabVM(MachiningTabVM As MachiningTabVM) As Boolean
      m_refMachiningTabVM = MachiningTabVM
      Return Not IsNothing(m_refMachiningTabVM)
   End Function

   Friend Function SetRefSplitModeVM(SplitModeVM As SplitModeVM) As Boolean
      m_refSplitModeVM = SplitModeVM
      Return Not IsNothing(m_refSplitModeVM)
   End Function

   Friend Function SetRefMoveRawModeVM(MoveRawModeVM As MoveRawModeVM) As Boolean
      m_refMoveRawModeVM = MoveRawModeVM
      Return Not IsNothing(m_refMoveRawModeVM)
   End Function

   Friend Function SetRefSimulTabVM(SimulTabVM As SimulTabVM) As Boolean
      m_refSimulTabVM = SimulTabVM
      Return Not IsNothing(m_refSimulTabVM)
   End Function

#End Region    ' Set

#Region "Init"

   Friend Function BeginInit(MainWindowVM As MainWindowVM) As Boolean
      m_refMainWindowVM = MainWindowVM
      Return Not IsNothing(m_refMainWindowVM)
   End Function
   Friend Function EndInit() As Boolean
      ' Verifico se tutti i pezzi necessari sono stati caricati
      Return Not IsNothing(m_refMainWindowVM) AndAlso Not IsNothing(m_refProjectVM) AndAlso
             Not IsNothing(LibMap.refStatusBarVM) AndAlso Not IsNothing(m_refTopCommandBarVM) AndAlso
             Not IsNothing(LibMap.refSceneHostVM) AndAlso Not IsNothing(LibMap.refShowPanelVM) AndAlso
             Not IsNothing(m_refVeinMatchPanelVM) AndAlso
             Not IsNothing(m_refMachinePanelVM) AndAlso Not IsNothing(LibMap.refMachGroupPanelVM) AndAlso
             Not IsNothing(m_refOptionPanelVM) AndAlso Not IsNothing(m_refRawPartTabVM) AndAlso
             Not IsNothing(m_refNestingTabVM) AndAlso Not IsNothing(m_refSimulTabVM) AndAlso
             Not IsNothing(m_refMachiningTabVM) AndAlso
             LibMap.EndInit()
   End Function

#End Region    ' Init

End Module