-gestione pulsante per visualizzare la lista di utensili selezionabili

EgtBEAMWALL.Optimizer/ConfigurationPage/ConfigurationPageVM.vb

@@ -600,7 +600,7 @@ Public Class ConfigurationPageVM
             WriteMainPrivateProfileString(S_NEST, K_PARTTIME, DoubleToString(m_PartTime, 5))
             WriteMainPrivateProfileString(S_PRINTER, K_ENABLE, If(m_bPrintLabel_IsChecked, 1, 0))
          Case ConfigSubPages.MACHINE
-            ' Map.refMachinePanelVM.VerifyConfigPageModification()
+            'Map.refMachinePanelVM.VerifyConfigPageModification()
       End Select
    End Sub
 

EgtBEAMWALL.Optimizer/EgtBEAMWALL.Optimizer.vbproj

@@ -1114,6 +1114,9 @@
   <ItemGroup>
     <Resource Include="Resources\NewPage\configuration.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\configurationIsChecked.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\EgtBEAMWALL\EgtBEAMWALL.OptimizerR32.exe

EgtBEAMWALL.Optimizer/MachinePanel/MachinePanelVM.vb

@@ -8,7 +8,7 @@ Public Class MachinePanelVM
 
 #Region "FIELDS & PROPERTIES"
 
-   Private Enum ConfigTabs As Integer
+   Friend Enum ConfigTabs As Integer
       EMPTY = 0
       STRATEGYMANAGER = 1
       MACHINEPARAMS = 2
@@ -92,17 +92,6 @@ Public Class MachinePanelVM
       End Get
    End Property
 
-   Private m_Machine_Visibility As Visibility = Visibility.Collapsed
-   Public ReadOnly Property Machine_Visibility As Visibility
-      Get
-         Return m_Machine_Visibility
-      End Get
-   End Property
-   Friend Sub SetMachine_Visibility(value As Visibility)
-      m_Machine_Visibility = value
-      NotifyPropertyChanged(NameOf(Machine_Visibility))
-   End Sub
-
    Private m_ChooseMachine_Visibility As Visibility = Visibility.Collapsed
    Public ReadOnly Property ChooseMachine_Visibility As Visibility
       Get
@@ -214,17 +203,25 @@ Public Class MachinePanelVM
          Return EgtMsg(5003)
       End Get
    End Property
+
    Public ReadOnly Property MachiningDbToolTip As String
       Get
          Return EgtMsg(5004)
       End Get
    End Property
+
    Public ReadOnly Property SetUpToolTip As String
       Get
          Return EgtMsg(31501)
       End Get
    End Property
 
+   Public ReadOnly Property SaveToolTip As String
+      Get
+         Return EgtMsg(30503)
+      End Get
+   End Property
+
 #End Region   ' ToolTip
 
    ' Definizione comandi

EgtBEAMWALL.Optimizer/MachinePanel/OnlyProdMachinePanelV.xaml

@@ -144,15 +144,12 @@
                   </DataTemplate>
                </ItemsControl.ItemTemplate>
             </ItemsControl>
-            <Button Grid.Row="1"
-                    Command="{Binding SaveCommand}"
+            <!--<Button Command="{Binding SaveCommand}"
                     ToolTip="{Binding SaveToolTip}"
-                    Visibility="{Binding Machine_Visibility}"
                     Style="{StaticResource SaveMachinePanel_Button}">
                <Image Source="/Resources/ProjectManager/Save.png" Stretch="Uniform"/>
-            </Button>
+            </Button>-->
          </StackPanel>
-
       </TabItem>
    </TabControl>
 

EgtBEAMWALL.Optimizer/MainMenu/MainMenuVM.vb

@@ -32,7 +32,10 @@ Public Class MainMenuVM
          Return m_SelPage = Pages.ONLYPRODPAGE
       End Get
       Set(value As Boolean)
-         If value Then SelPage = Pages.ONLYPRODPAGE
+         If value Then
+            SelPage = Pages.ONLYPRODPAGE
+            SetConfigurationImagePath("pack://application:,,,/Resources/NewPage/configuration.png")
+         End If
       End Set
    End Property
 
@@ -41,7 +44,10 @@ Public Class MainMenuVM
          Return m_SelPage = Pages.SUPERVISOR
       End Get
       Set(value As Boolean)
-         If value Then SelPage = Pages.SUPERVISOR
+         If value Then
+            SelPage = Pages.SUPERVISOR
+            SetConfigurationImagePath("pack://application:,,,/Resources/NewPage/configuration.png")
+         End If
       End Set
    End Property
 
@@ -50,7 +56,10 @@ Public Class MainMenuVM
          Return m_SelPage = Pages.CONFIG
       End Get
       Set(value As Boolean)
-         If value Then SelPage = Pages.CONFIG
+         If value Then
+            SelPage = Pages.CONFIG
+            SetConfigurationImagePath("pack://application:,,,/Resources/NewPage/configuration.png")
+         End If
       End Set
    End Property
 
@@ -59,7 +68,12 @@ Public Class MainMenuVM
          Return m_SelPage = Pages.CONFIGPROGRAM
       End Get
       Set(value As Boolean)
-         If value Then SelPage = Pages.CONFIGPROGRAM
+         If value Then
+            SelPage = Pages.CONFIGPROGRAM
+            SetConfigurationImagePath("pack://application:,,,/Resources/NewPage/configurationIsChecked.png")
+         Else
+            SetConfigurationImagePath("pack://application:,,,/Resources/NewPage/configuration.png")
+         End If
       End Set
    End Property
 
@@ -108,6 +122,17 @@ Public Class MainMenuVM
       NotifyPropertyChanged(NameOf(ConfigProgram_IsChecked))
    End Sub
 
+   Private m_sConfigurationImagePath As String = "pack://application:,,,/Resources/NewPage/configuration.png"
+   Public ReadOnly Property sConfigurationImagePath As String
+      Get
+         Return m_sConfigurationImagePath
+      End Get
+   End Property
+   Friend Sub SetConfigurationImagePath(value As String)
+      m_sConfigurationImagePath = value
+      NotifyPropertyChanged(NameOf(sConfigurationImagePath))
+   End Sub
+
 #Region "Messages"
 
    Public ReadOnly Property Configuration_Msg As String

EgtBEAMWALL.Optimizer/MainMenu/OnlyProdMainMenuV.xaml

@@ -42,8 +42,9 @@
    <RadioButton Grid.Column="4"
                 IsChecked="{Binding ConfigProgram_IsChecked}"
                 ToolTip="{Binding ConfigurationProgramToolTip}"
-                Width="50"
+                Width="40"
+                Background="Transparent"
                 Style="{StaticResource OnlyProdMainMenu_ToggleButton}">
-      <Image Source="/Resources/NewPage/configuration.png" Stretch="Uniform"/>
+      <Image Source="{Binding sConfigurationImagePath}" Height="40" Margin="0,-6,0,0" Stretch="Uniform"/>
    </RadioButton>
 </Grid>

EgtBEAMWALL.Optimizer/Project/OnlyProdProjectV.xaml

@@ -94,7 +94,7 @@
                      <ColumnDefinition Width="Auto"/>
                      <ColumnDefinition Width="1*"/>
                   </Grid.ColumnDefinitions>
-                     <EgtBEAMWALL:OnlyProdFreeContourManagerV DataContext="{StaticResource FreeContourManagerVM}"
+                  <EgtBEAMWALL:OnlyProdFreeContourManagerV DataContext="{StaticResource FreeContourManagerVM}"
                                                               Visibility="{Binding DataContext.FreeContourManager_Visibility, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdProjectV}}}"/>
 
                   <EgtBEAMWALL:RawPartManagerWndV Grid.Column="1" 

EgtBEAMWALL.Optimizer/StrategyManager/ParameterStrategyV.xaml

@@ -60,9 +60,12 @@
          </DataTemplate>
          <DataTemplate DataType="{x:Type Optmizer:ListStrategyParameter}">
             <Grid Margin="5,5,5,0">
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="Auto"/>
+                  <RowDefinition Height="Auto"/>
+               </Grid.RowDefinitions>
                <Grid.ColumnDefinitions>
-                  <ColumnDefinition Width="1*"/>
-                  <ColumnDefinition Width="1*"/>
+                  <ColumnDefinition Width="1.3*"/>
                   <ColumnDefinition Width="1*"/>
                </Grid.ColumnDefinitions>
                <TextBlock Text="{Binding sDescriptionShort}" 
@@ -70,64 +73,88 @@
                           VerticalAlignment="Top"
                           TextWrapping="WrapWithOverflow"
                           Style="{StaticResource DialogWindow_TextBlock}"/>
-               <StackPanel Grid.Column="1" Orientation="Vertical" Margin="0,5,5,0" HorizontalAlignment="Right">
-                  <Button VerticalAlignment="Top"
-                          Width="50"
-                          Margin="0,0,0,5"
-                          ToolTip="{Binding SelectAllToolTip}"
-                          Command="{Binding SelectAllCommand}"
-                          Style="{StaticResource MachineToolBar_ParameterMachineButton}">
-                     <Image Source="/Resources/NewPage/selectall.png" Stretch="Uniform"/>
-                  </Button>
-                  <Button VerticalAlignment="Top"
-                          Width="50"
-                          Margin="0"
-                          ToolTip="{Binding DeselectAllToolTip}"
-                          Command="{Binding DeselectAllCommand}"
-                          Style="{StaticResource MachineToolBar_ParameterMachineButton}">
-                     <Image Source="/Resources/NewPage/deselectall.png" Stretch="Uniform"/>
-                  </Button>
+               <StackPanel Grid.Column="1" Orientation="Horizontal">                  
+                  <StackPanel  Orientation="Vertical" Margin="0,7,5,0" HorizontalAlignment="Right">
+                     <Button VerticalAlignment="Top"
+                             Width="50"
+                             Margin="0,0,0,5"
+                             ToolTip="{Binding OpenToolListToolTip}"
+                             IsEnabled="{Binding OpenToolListIsEnable}"
+                             Command="{Binding OpenToolListCommand}"
+                             Style="{StaticResource MachineToolBar_ParameterMachineButton}">
+                        <Image Source="/Resources/NewPage/+.png" Stretch="Uniform"/>
+                     </Button>
+                     <Button VerticalAlignment="Top"
+                             Width="50"
+                             Margin="0"
+                             ToolTip="{Binding DeselectAllToolTip}"
+                             IsEnabled="{Binding ActiveToolListIsEnable}"
+                             Command="{Binding DeselectAllCommand}"
+                             Style="{StaticResource MachineToolBar_ParameterMachineButton}">
+                        <Image Source="/Resources/NewPage/deselectall.png" Stretch="Uniform"/>
+                     </Button>
+                  </StackPanel>
+                  <Border Margin="2,0,2,0" 
+                          Style="{StaticResource OnlyProdPage_Border}">
+                     <ItemsControl ItemsSource="{Binding ActiveToolList_View}"
+                                   BorderThickness="0"
+                                   Height="95"
+                                   Width="180"
+                                   Foreground="Black"
+                                   Style="{StaticResource UsersControlStyle}">
+                        <ItemsControl.ItemTemplate>
+                           <DataTemplate>
+                              <StackPanel Style="{StaticResource StackPanel_List}">
+                                 <CheckBox IsChecked="{Binding bIsActive, UpdateSourceTrigger=PropertyChanged}"
+                                           Style="{StaticResource FreeContourInput_CheckBox}"/>
+                                 <TextBlock Text="{Binding sName}"
+                                            Style="{StaticResource DialogWindow_TextBlock}"/>
+                              </StackPanel>
+                           </DataTemplate>
+                        </ItemsControl.ItemTemplate>
+                     </ItemsControl>
+                  </Border>
                </StackPanel>
-               <StackPanel Grid.Column="2" Orientation="Vertical" Margin="0,0,5,0">
-                  <ItemsControl ItemsSource="{Binding ActiveToolList_View}"
-                                Visibility="{Binding ActiveToolList_Visibility}"                                
-                                BorderThickness="1"
-                                BorderBrush="Black"
-                                Height="105"
-                                Width="180"
-                                Foreground="Black"
-                                Style="{StaticResource UsersControlStyle}">
-                     <ItemsControl.ItemTemplate>
-                        <DataTemplate>
-                           <StackPanel Style="{StaticResource StackPanel_List}">
-                              <CheckBox IsChecked="{Binding bIsActive, UpdateSourceTrigger=PropertyChanged}"
-                                        Style="{StaticResource FreeContourInput_CheckBox}"/>
-                              <TextBlock Text="{Binding sName}"
-                                         Style="{StaticResource DialogWindow_TextBlock}"/>
-                           </StackPanel>
-                        </DataTemplate>
-                     </ItemsControl.ItemTemplate>
-                  </ItemsControl>
-                  <ItemsControl ItemsSource="{Binding AvailableToolList_View}"
-                                Visibility="{Binding AvailableToolList_Visibility}"
-                                Margin="0,5,0,0"
-                                BorderThickness="1"
-                                BorderBrush="Black"
-                                Height="200"
-                                Width="180"
-                                Foreground="Black"
-                                Style="{StaticResource UsersControlStyle}">
-                     <ItemsControl.ItemTemplate>
-                        <DataTemplate>
-                           <StackPanel Style="{StaticResource StackPanel_List}">
-                              <CheckBox IsChecked="{Binding bIsActive, UpdateSourceTrigger=PropertyChanged}"
-                                        Style="{StaticResource FreeContourInput_CheckBox}"/>
-                              <TextBlock Text="{Binding sName}"
-                                         Style="{StaticResource DialogWindow_TextBlock}"/>
-                           </StackPanel>
-                        </DataTemplate>
-                     </ItemsControl.ItemTemplate>
-                  </ItemsControl>
+               <StackPanel Grid.Row="1" Grid.Column="1" Orientation="Horizontal" Visibility="{Binding AvailableToolListVisibility}">
+                  <StackPanel Orientation="Vertical" Margin="0,7,5,0" HorizontalAlignment="Right">
+                     <Button VerticalAlignment="Top"
+                             Width="50"
+                             Margin="0,0,0,5"
+                             ToolTip="{Binding CloseToolListToolTip}"
+                             Command="{Binding CloseToolListCommand}"
+                             Style="{StaticResource MachineToolBar_ParameterMachineButton}">
+                        <Image Source="/Resources/PDFEditor/Delete.png" Stretch="Uniform"/>
+                     </Button>
+                     <Button VerticalAlignment="Top"
+                             Width="50"
+                             Margin="0,0,0,5"
+                             ToolTip="{Binding SelectAllToolTip}"
+                             IsEnabled="{Binding AvailableToolListIsEnable}"
+                             Command="{Binding SelectAllCommand}"
+                             Style="{StaticResource MachineToolBar_ParameterMachineButton}">
+                        <Image Source="/Resources/NewPage/selectall.png" Stretch="Uniform"/>
+                     </Button>
+                  </StackPanel>
+                  <Border Margin="2,5,2,0" 
+                          Style="{StaticResource OnlyProdPage_Border}">
+                     <ItemsControl ItemsSource="{Binding AvailableToolList_View}"                                   
+                                   BorderThickness="0"
+                                   Height="200"
+                                   Width="180"
+                                   Foreground="Black"
+                                   Style="{StaticResource UsersControlStyle}">
+                        <ItemsControl.ItemTemplate>
+                           <DataTemplate>
+                              <StackPanel Style="{StaticResource StackPanel_List}">
+                                 <CheckBox IsChecked="{Binding bIsActive, UpdateSourceTrigger=PropertyChanged}"
+                                           Style="{StaticResource FreeContourInput_CheckBox}"/>
+                                 <TextBlock Text="{Binding sName}"
+                                            Style="{StaticResource DialogWindow_TextBlock}"/>
+                              </StackPanel>
+                           </DataTemplate>
+                        </ItemsControl.ItemTemplate>
+                     </ItemsControl>
+                  </Border>
                </StackPanel>
             </Grid>
          </DataTemplate>

EgtBEAMWALL.Optimizer/StrategyManager/StrategyManagerV.xaml

@@ -51,43 +51,46 @@
          <ColumnDefinition Width="1*"/>
       </Grid.ColumnDefinitions>
 
-      <TreeView Grid.RowSpan="2"
-                Width="300"
-                Height="Auto"
-                ItemsSource="{Binding SelStrategySetup.StrategyFeatureList}">
-         <TreeView.Resources>
-            <HierarchicalDataTemplate DataType="{x:Type Optimizer:StrategyFeature}"
-                                      ItemsSource="{Binding TopologyList}">
-               <CheckBox IsChecked="{Binding RelativeSource={RelativeSource AncestorType=TreeViewItem}, Path=IsExpanded}">
-                  <CheckBox.Template>
-                     <ControlTemplate>
-                        <Border Background="{Binding Background, RelativeSource={RelativeSource AncestorType={x:Type TreeView}}}">
-                           <StackPanel Style="{StaticResource OnlyProdPartManager_StackPanel}">
-                              <TextBlock Text="[" Style="{StaticResource DialogWindow_TextBlock}"/>
-                              <TextBlock Text="{Binding nGrp}" Style="{StaticResource DialogWindow_TextBlock}"/>
-                              <TextBlock Text="-" Style="{StaticResource DialogWindow_TextBlock}"/>
-                              <TextBlock Text="{Binding nPrcDesc}" Style="{StaticResource DialogWindow_TextBlock}"/>
-                              <TextBlock Text="]" Style="{StaticResource DialogWindow_TextBlock}"/>
-                              <TextBlock Text="{Binding sName}" Style="{StaticResource DialogWindow_TextBlock}" Margin="5,0,0,0"/>
-                           </StackPanel>
-                        </Border>
-                     </ControlTemplate>
-                  </CheckBox.Template>
-               </CheckBox>
-            </HierarchicalDataTemplate>
-            <DataTemplate DataType="{x:Type Optimizer:Topology}">
-               <TextBlock Text="{Binding sName}" Style="{StaticResource DialogWindow_TextBlock}"/>
-            </DataTemplate>
-         </TreeView.Resources>
-         <TreeView.ItemContainerStyle>
-            <Style TargetType="{x:Type TreeViewItem}">
-               <Setter Property="IsSelected" Value="{Binding IsSelected, Mode=TwoWay}"/>
-               <Setter Property="IsExpanded" Value="{Binding IsExpanded, Mode=TwoWay}"/>
-               <Setter Property="Focusable" Value="{Binding RelativeSource={RelativeSource Self}, Converter={StaticResource StrategyTypeToFocusableConverter}}"/>
-            </Style>
-         </TreeView.ItemContainerStyle>
-      </TreeView>
-
+      <Border Grid.RowSpan="2" 
+              Style="{StaticResource OnlyProdPage_Border}">
+         <TreeView BorderThickness="0"
+                   Width="300"
+                   Height="Auto"
+                   ItemsSource="{Binding SelStrategySetup.StrategyFeatureList}">
+            <TreeView.Resources>
+               <HierarchicalDataTemplate DataType="{x:Type Optimizer:StrategyFeature}"
+                                         ItemsSource="{Binding TopologyList}">
+                  <CheckBox IsChecked="{Binding RelativeSource={RelativeSource AncestorType=TreeViewItem}, Path=IsExpanded}">
+                     <CheckBox.Template>
+                        <ControlTemplate>
+                           <Border Background="{Binding Background, RelativeSource={RelativeSource AncestorType={x:Type TreeView}}}">
+                              <StackPanel Style="{StaticResource OnlyProdPartManager_StackPanel}">
+                                 <TextBlock Text="[" Style="{StaticResource DialogWindow_TextBlock}"/>
+                                 <TextBlock Text="{Binding nGrp}" Style="{StaticResource DialogWindow_TextBlock}"/>
+                                 <TextBlock Text="-" Style="{StaticResource DialogWindow_TextBlock}"/>
+                                 <TextBlock Text="{Binding nPrcDesc}" Style="{StaticResource DialogWindow_TextBlock}"/>
+                                 <TextBlock Text="]" Style="{StaticResource DialogWindow_TextBlock}"/>
+                                 <TextBlock Text="{Binding sName}" Style="{StaticResource DialogWindow_TextBlock}" Margin="5,0,0,0"/>
+                              </StackPanel>
+                           </Border>
+                        </ControlTemplate>
+                     </CheckBox.Template>
+                  </CheckBox>
+               </HierarchicalDataTemplate>
+               <DataTemplate DataType="{x:Type Optimizer:Topology}">
+                  <TextBlock Text="{Binding sName}" Style="{StaticResource DialogWindow_TextBlock}"/>
+               </DataTemplate>
+            </TreeView.Resources>
+            <TreeView.ItemContainerStyle>
+               <Style TargetType="{x:Type TreeViewItem}">
+                  <Setter Property="IsSelected" Value="{Binding IsSelected, Mode=TwoWay}"/>
+                  <Setter Property="IsExpanded" Value="{Binding IsExpanded, Mode=TwoWay}"/>
+                  <Setter Property="Focusable" Value="{Binding RelativeSource={RelativeSource Self}, Converter={StaticResource StrategyTypeToFocusableConverter}}"/>
+               </Style>
+            </TreeView.ItemContainerStyle>
+         </TreeView>
+      </Border>
+      
       <Optimizer:StrategyV Grid.Column="1"
                            Grid.RowSpan="2"/>
 

EgtBEAMWALL.Optimizer/StrategyManager/StrategyManagerVM.vb

@@ -1361,17 +1361,6 @@ Public Class ListStrategyParameter
       End Get
    End Property
 
-   Private m_AvailableToolList_Visibility As Visibility = If(Not IsNothing(m_AvailableToolList_View) AndAlso m_AvailableToolList_View.IsEmpty, Visibility.Collapsed, Visibility.Visible)
-   Public ReadOnly Property AvailableToolList_Visibility As Visibility
-      Get
-         Return m_AvailableToolList_Visibility
-      End Get
-   End Property
-   Friend Sub SetAvailableToolList_Visibility(value As Visibility)
-      m_AvailableToolList_Visibility = value
-      NotifyPropertyChanged(NameOf(AvailableToolList_Visibility))
-   End Sub
-
    Private m_ActiveToolList_View As ICollectionView = Nothing
    Public ReadOnly Property ActiveToolList_View As ICollectionView
       Get
@@ -1379,20 +1368,49 @@ Public Class ListStrategyParameter
       End Get
    End Property
 
-   Private m_ActiveToolList_Visibility As Visibility = If(Not IsNothing(m_ActiveToolList_View) AndAlso m_ActiveToolList_View.IsEmpty, Visibility.Collapsed, Visibility.Visible)
-   Public ReadOnly Property ActiveToolList_Visibility As Visibility
+   Private m_bAvailableToolListVisibility As Visibility = Visibility.Collapsed
+   Public ReadOnly Property AvailableToolListVisibility As Visibility
       Get
-         Return m_ActiveToolList_Visibility
+         Return m_bAvailableToolListVisibility
       End Get
    End Property
-   Friend Sub SetActiveToolList_Visibility(value As Visibility)
-      m_ActiveToolList_Visibility = value
-      NotifyPropertyChanged(NameOf(ActiveToolList_Visibility))
+   Friend Sub SetAvailableToolListVisibility(value As Visibility)
+      m_bAvailableToolListVisibility = value
+      NotifyPropertyChanged(NameOf(AvailableToolListVisibility))
    End Sub
 
-   ' Definizione comandi
-   Private m_cmdDeselectAll As ICommand
-   Private m_cmdSelectAll As ICommand
+   Private m_bOpenToolListIsEnable As Boolean = True
+   Public ReadOnly Property OpenToolListIsEnable As Boolean
+      Get
+         Return m_bOpenToolListIsEnable
+      End Get
+   End Property
+   Friend Sub SetOpenToolListIsEnable(value As Boolean)
+      m_bOpenToolListIsEnable = value
+      NotifyPropertyChanged(NameOf(OpenToolListIsEnable))
+   End Sub
+
+   Private m_bActiveToolListIsEnable As Boolean
+   Public ReadOnly Property ActiveToolListIsEnable As Boolean
+      Get
+         Return m_bActiveToolListIsEnable
+      End Get
+   End Property
+   Friend Sub SetActiveToolListIsEnable(value As Boolean)
+      m_bActiveToolListIsEnable = value
+      NotifyPropertyChanged(NameOf(ActiveToolListIsEnable))
+   End Sub
+
+   Private m_bAvailableToolListIsEnable As Boolean
+   Public ReadOnly Property AvailableToolListIsEnable As Boolean
+      Get
+         Return m_bAvailableToolListIsEnable
+      End Get
+   End Property
+   Friend Sub SetAvailableToolListIsEnable(value As Boolean)
+      m_bAvailableToolListIsEnable = value
+      NotifyPropertyChanged(NameOf(AvailableToolListIsEnable))
+   End Sub
 
 #Region "Messages"
 
@@ -1408,8 +1426,26 @@ Public Class ListStrategyParameter
       End Get
    End Property
 
+   Public ReadOnly Property OpenToolListToolTip As String
+      Get
+         Return EgtMsg(63036)
+      End Get
+   End Property
+
+   Public ReadOnly Property CloseToolListToolTip As String
+      Get
+         Return EgtMsg(63037)
+      End Get
+   End Property
+
 #End Region    ' Messages
 
+   ' Definizione comandi
+   Private m_cmdDeselectAll As ICommand
+   Private m_cmdSelectAll As ICommand
+   Private m_cmdOpenToolList As ICommand
+   Private m_cmdCloseToolList As ICommand
+
 #End Region    ' Fields & Properties
 
 #Region "CONSTRUCTOR"
@@ -1469,21 +1505,57 @@ Public Class ListStrategyParameter
    ''' </summary>
    Friend Sub ToolView()
       If m_ActiveToolList_View.IsEmpty Then
-         SetActiveToolList_Visibility(Visibility.Collapsed)
+         SetActiveToolListIsEnable(False)
       Else
-         SetActiveToolList_Visibility(Visibility.Visible)
+         SetActiveToolListIsEnable(True)
       End If
       If m_AvailableToolList_View.IsEmpty Then
-         SetAvailableToolList_Visibility(Visibility.Collapsed)
+         SetAvailableToolListIsEnable(False)
       Else
-         SetAvailableToolList_Visibility(Visibility.Visible)
+         SetAvailableToolListIsEnable(True)
       End If
-   End Sub
 
+   End Sub
 #End Region    ' Methods
 
 #Region "COMMANDS"
 
+#Region "OpenToolListCommand"
+
+   Public ReadOnly Property OpenToolListCommand As ICommand
+      Get
+         If m_cmdOpenToolList Is Nothing Then
+            m_cmdOpenToolList = New Command(AddressOf OpenToolList)
+         End If
+         Return m_cmdOpenToolList
+      End Get
+   End Property
+
+   Friend Sub OpenToolList()
+      SetAvailableToolListVisibility(Visibility.Visible)
+      SetOpenToolListIsEnable(False)
+   End Sub
+
+#End Region ' OpenToolListCommand
+
+#Region "CloseToolListCommand"
+
+   Public ReadOnly Property CloseToolListCommand As ICommand
+      Get
+         If m_cmdCloseToolList Is Nothing Then
+            m_cmdCloseToolList = New Command(AddressOf CloseToolList)
+         End If
+         Return m_cmdCloseToolList
+      End Get
+   End Property
+
+   Friend Sub CloseToolList()
+      SetAvailableToolListVisibility(Visibility.Collapsed)
+      SetOpenToolListIsEnable(True)
+   End Sub
+
+#End Region ' CloseToolListCommand
+
 #Region "SelectAllCommand"
 
    Public ReadOnly Property SelectAllCommand As ICommand
@@ -1501,8 +1573,8 @@ Public Class ListStrategyParameter
             ItemTool.bIsActive = True
          Next
       End If
+      SetAvailableToolListIsEnable(False)
       Map.refStrategyManagerVM.SetbIsModifyStrategy(True)
-      ToolView()
    End Sub
 
 #End Region ' SelectAllCommand
@@ -1524,8 +1596,8 @@ Public Class ListStrategyParameter
             ItemTool.bIsActive = False
          Next
       End If
+      SetActiveToolListIsEnable(False)
       Map.refStrategyManagerVM.SetbIsModifyStrategy(True)
-      ToolView()
    End Sub
 
 #End Region ' DeselectAllCommand
@@ -1622,7 +1694,8 @@ Public Class ToolParameter
          If Not IsNothing(m_ParentList.AvailableToolList_View) AndAlso Not IsNothing(m_ParentList.ActiveToolList_View) Then
             m_ParentList.AvailableToolList_View.Refresh()
             m_ParentList.ActiveToolList_View.Refresh()
-            m_ParentList.ToolView()
+            m_ParentList.SetActiveToolListIsEnable(True)
+            m_ParentList.SetAvailableToolListIsEnable(True)
             Map.refStrategyManagerVM.SetbIsModifyStrategy(True)
          End If
          NotifyPropertyChanged(NameOf(bIsActive))