EgtCAM5 :

- Migliorie varie.
2016-07-10 11:34:07 +00:00
parent ec2f7a38ef
commit f8b17066de
41 changed files with 1706 additions and 282 deletions
@@ -11,7 +11,8 @@
            <Button Content="New Positioning" Command="{Binding NewPositioningCommand}"  Height="40"/>
            <Button Content="Cancel Operation" Command="{Binding CancelOperationCommand}"  Height="40"/>
         </UniformGrid>
-         <ListBox ItemsSource="{Binding OperationList}" SelectedItem="{Binding SelectedOperation}">
+         <ListBox ItemsSource="{Binding OperationList}" SelectedItem="{Binding SelectedOperation}"
+                  MaxHeight="400">
            <ListBox.ItemTemplate>
               <DataTemplate>
                  <Grid>
@@ -143,6 +143,7 @@ Namespace EgtCAM5
 #End Region     ' Commands

      Private Sub LoadOperationList()
+         OperationList.Clear()
         Dim Id As Integer
         Dim OpName As String = String.Empty
         Dim OpType As Integer = 0