egtbeamwall/EgtBEAMWALL.ViewerOptimizer/BTLParam/PartInRawPartListV.xaml.vb

Imports EgtBEAMWALL.Core

Public Class PartInRawPartListV

   Private Sub PartInRawPartList_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
      If TypeOf sender Is DataGridRow Then
         Dim Row As DataGridRow = DirectCast(sender, DataGridRow)
         If Not IsNothing(Row) AndAlso Row.IsSelected Then
            Dim MyMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.SelectedMachGroup
            MyMachGroup.SelPart = MyMachGroup.SelPart
         End If
      End If
   End Sub

End Class