- Aggiunti tooltip su statistiche ed ultimi bottoni aggiunti

- Aggiunto bottone cancella tutti i grezzi

EgtBEAMWALL.ViewerOptimizer/EgtBEAMWALL.ViewerOptimizer.vbproj

@@ -952,6 +952,9 @@
   <ItemGroup>
     <Resource Include="Resources\LeftPanel\NewRawPartAuto.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\TopPanel\RemoveAllRawPart.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\EgtBEAMWALL\EgtBEAMWALL.ViewerOptimizerR32.exe

EgtBEAMWALL.ViewerOptimizer/LeftPanel/LeftPanelVM.vb

@@ -156,6 +156,12 @@ Public Class LeftPanelVM
       End Get
    End Property
 
+   Public ReadOnly Property NewRawPartAuto_ToolTip As String
+      Get
+         Return EgtMsg(61977)
+      End Get
+   End Property
+
    Public ReadOnly Property AddToRawPart_ToolTip As String
       Get
          Return EgtMsg(61904)

EgtBEAMWALL.ViewerOptimizer/StatisticsTimePanel/StatisticsTimePanelV.xaml

@@ -9,6 +9,7 @@
                               Style="{StaticResource ToolBar_EgtFloatingPanel}">
 
    <Border BorderThickness="2"
+           ToolTip="{Binding TotalTime_ToolTip}"
            BorderBrush="Crimson"
            Background="{StaticResource Omag_LightGray}"
            Padding="5,0,5,0"
@@ -21,6 +22,7 @@
                  VerticalAlignment="Center"/>
    </Border>
    <Border BorderThickness="2"
+           ToolTip="{Binding TotalTime_ToolTip}"
            BorderBrush="Crimson"
            Background="{StaticResource Omag_LightGray}"
            Padding="5,0,5,0"
@@ -33,6 +35,7 @@
                  VerticalAlignment="Center"/>
    </Border>
    <Border BorderThickness="2"
+           ToolTip="{Binding DoneTime_ToolTip}"
            BorderBrush="Gold"
            Padding="5,0,5,0"
            Margin="2"
@@ -44,6 +47,7 @@
                  VerticalAlignment="Center"/>
    </Border>
    <Border BorderThickness="2"
+           ToolTip="{Binding RemainingTime_ToolTip}"
            BorderBrush="White"
            Padding="5,0,5,0"
            Margin="2"

EgtBEAMWALL.ViewerOptimizer/StatisticsTimePanel/StatisticsTimePanelVM.vb

@@ -23,6 +23,24 @@ Public Class StatisticsTimePanelVM
 
 #Region "ToolTip"
 
+   Public ReadOnly Property TotalTime_ToolTip As String
+      Get
+         Return EgtMsg(61978)
+      End Get
+   End Property
+
+   Public ReadOnly Property DoneTime_ToolTip As String
+      Get
+         Return EgtMsg(61979)
+      End Get
+   End Property
+
+   Public ReadOnly Property RemainingTime_ToolTip As String
+      Get
+         Return EgtMsg(61980)
+      End Get
+   End Property
+
 #End Region ' ToolTip
 
 #End Region    ' Fields & Properties

EgtBEAMWALL.ViewerOptimizer/TopPanel/TopPanelV.xaml

@@ -58,6 +58,12 @@
                              Style="{StaticResource LeftPanel_Button}">
                         <Image Source="/Resources/TopPanel/RemoveRawPart.png" Stretch="Uniform"/>
                      </Button>
+                     <Button Command="{Binding RemoveAllRawPart_Command}"
+                             ToolTip="{Binding RemoveAllRawPart_ToolTip}"
+                             IsEnabled="{Binding TopPanel_IsEnabled}"
+                             Style="{StaticResource LeftPanel_Button}">
+                        <Image Source="/Resources/TopPanel/RemoveAllRawPart.png" Stretch="Uniform"/>
+                     </Button>
                      <Button Command="{Binding MovePartInRawPart_Command}"
                              ToolTip="{Binding MovePartInRawPart_ToolTip}"
                              IsEnabled="{Binding TopPanel_IsEnabled}"

EgtBEAMWALL.ViewerOptimizer/TopPanel/TopPanelVM.vb

@@ -80,6 +80,7 @@ Public Class TopPanelVM
    Private m_cmdProduceRawPart As ICommand
    Private m_cmdCopyRawPart As ICommand
    Private m_cmdRemoveRawPart As ICommand
+   Private m_cmdRemoveAllRawPart As ICommand
    Private m_cmdRemovePart As ICommand
    Private m_cmdMoveUpPart As ICommand
    Private m_cmdMoveDownPart As ICommand
@@ -127,6 +128,12 @@ Public Class TopPanelVM
       End Get
    End Property
 
+   Public ReadOnly Property RemoveAllRawPart_ToolTip As String
+      Get
+         Return EgtMsg(61976)
+      End Get
+   End Property
+
    Public ReadOnly Property ReOrderPart_ToolTip As String
       Get
          Return EgtMsg(61916)
@@ -365,7 +372,7 @@ Public Class TopPanelVM
    Public ReadOnly Property RemoveRawPart_Command As ICommand
       Get
          If m_cmdRemoveRawPart Is Nothing Then
-            m_cmdRemoveRawPart = New Command(AddressOf RemoveRawPart)
+            m_cmdRemoveRawPart = New Command(AddressOf RemoveRawPartCmd)
          End If
          Return m_cmdRemoveRawPart
       End Get
@@ -374,10 +381,14 @@ Public Class TopPanelVM
    ''' <summary>
    ''' Execute the Exec.  This method is invoked by the ExecCommand.
    ''' </summary>
-   Public Sub RemoveRawPart()
+   Public Sub RemoveRawPartCmd()
+      RemoveRawPart()
+   End Sub
+
+   Public Sub RemoveRawPart(Optional bAll As Boolean = False)
       If IsNothing(Map.refProdManagerVM.CurrProd) Then Return
       ' se premuto shift
-      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
+      If bAll Then
          ' cancello tutti
          For Index = Map.refMachGroupPanelVM.MachGroupVMList.Count - 1 To 0 Step -1
             Dim CurrMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.MachGroupVMList(Index)
@@ -400,6 +411,29 @@ Public Class TopPanelVM
 
 #End Region    ' RemoveRawPart
 
+#Region "RemoveAllRawPart"
+
+   ''' <summary>
+   ''' Returns a command that do Exec.
+   ''' </summary>
+   Public ReadOnly Property RemoveAllRawPart_Command As ICommand
+      Get
+         If m_cmdRemoveAllRawPart Is Nothing Then
+            m_cmdRemoveAllRawPart = New Command(AddressOf RemoveAllRawPart)
+         End If
+         Return m_cmdRemoveAllRawPart
+      End Get
+   End Property
+
+   ''' <summary>
+   ''' Execute the Exec.  This method is invoked by the ExecCommand.
+   ''' </summary>
+   Public Sub RemoveAllRawPart()
+      RemoveRawPart(True)
+   End Sub
+
+#End Region    ' RemoveRawPart
+
 #Region "RemovePart"
 
    ''' <summary>