From ee5bfd11ee2f55f225ddad3982de41cec1911495 Mon Sep 17 00:00:00 2001
From: Nicola Pievani <nicola.pievani@steamware.local.net>
Date: Wed, 9 Jun 2021 17:16:50 +0200
Subject: [PATCH] Frame Pause: nuovo CheckBox nella pagina Machine

---
 Constants/ConstMachIni.vb    |  3 +++
 Machine/AlarmsPageUC.xaml    | 18 +++++++++++++++++-
 Machine/AlarmsPageUC.xaml.vb | 16 +++++++++++++++-
 3 files changed, 35 insertions(+), 2 deletions(-)

diff --git a/Constants/ConstMachIni.vb b/Constants/ConstMachIni.vb
index 1760815..bdfc245 100644
--- a/Constants/ConstMachIni.vb
+++ b/Constants/ConstMachIni.vb
@@ -209,6 +209,9 @@
    ' MinDistHeadsMultiCut
    ' MinSawRbHeight
 
+   Public Const S_MACH_FRAME As String = "Frame"
+   Public Const K_MACH_PAUSE As String = "Pause"
+
    Public Const S_MACH_RAWMOVE As String = "RawMove"
    Public Const K_MACH_RM_ROTATE As String = "Rotate"
    Public Const K_MACH_RM_FINALMOVE As String = "FinalMove"
diff --git a/Machine/AlarmsPageUC.xaml b/Machine/AlarmsPageUC.xaml
index ace3935..91b32e8 100644
--- a/Machine/AlarmsPageUC.xaml
+++ b/Machine/AlarmsPageUC.xaml
@@ -564,7 +564,23 @@
 
          </Border>
 
-         <UniformGrid Columns="4" Grid.Row="8">
+         <!--Cornici-->
+         <GroupBox Name="FrameGpBx" Style="{DynamicResource OmagCut_GroupBox}" Grid.Column="2" Grid.Row="8">
+                <Grid >
+                 <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="2*"/>
+                     <ColumnDefinition Width="1*"/>
+                 </Grid.ColumnDefinitions>
+
+                 <TextBlock Name="FramePauseTxBl" Grid.Column="0" Grid.Row="0"
+               Style="{DynamicResource OmagCut_ToolsDBTextBlock}" />
+                 <CheckBox Name="FramePauseChBx" Grid.Column="1" Grid.Row="0" Style="{StaticResource OmagCut_CheckBox_Single}"
+               HorizontalAlignment="Right" Margin="0,0,10,0"/>
+             </Grid>
+
+         </GroupBox>
+
+            <UniformGrid Columns="4" Grid.Row="8">
             <Button x:Name="SawProbingBtn"
          	   Style="{DynamicResource OmagCut_YellowGradientYellowIconButton}">
                <Image Source="{DynamicResource SawProbeImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>
diff --git a/Machine/AlarmsPageUC.xaml.vb b/Machine/AlarmsPageUC.xaml.vb
index 700cecd..0ded148 100644
--- a/Machine/AlarmsPageUC.xaml.vb
+++ b/Machine/AlarmsPageUC.xaml.vb
@@ -101,7 +101,9 @@ Public Class AlarmsPageUC
       CurrMillingTxBl.Text = EgtMsg(MSG_ALARMS2PAGEUC + 4)               ' Fresatura
       CurrWaterJettingTxBl.Text = EgtMsg(MSG_ALARMS2PAGEUC + 7)          ' WaterJet
       CurrDripSawingTxBl.Text = EgtMsg(MSG_ALARMS2PAGEUC + 5)            ' DripSawing
-      CurrDripDrillingTxBl.Text = EgtMsg(MSG_ALARMS2PAGEUC + 6)          ' DripDrilling     
+      CurrDripDrillingTxBl.Text = EgtMsg(MSG_ALARMS2PAGEUC + 6)          ' DripDrilling
+      FrameGpBx.Header = "Cornici"
+      FramePauseTxBl.Text = "Inserisci pausa"
       AutoRawImageParamGpBx.Visibility = Windows.Visibility.Hidden
    End Sub
 
@@ -342,12 +344,16 @@ Public Class AlarmsPageUC
       ' Flag per nesting allineato
       AlignChBx.IsChecked =
              (GetPrivateProfileInt(S_MACH_NEST, K_MACH_NEST_ALIGNED, 0, m_MainWindow.GetMachIniFile()) <> 0)
+      ' Flag per nesting a ghigliottina
       GhigliottinaChBx.IsChecked =
              (GetPrivateProfileInt(S_MACH_NEST, K_MACH_NEST_GHIGLIOTTINA, 0, m_MainWindow.GetMachIniFile()) <> 0)
       ' Flag per nesting automatico
       AutomaticChBx.IsChecked =
              (GetPrivateProfileInt(S_MACH_NEST, K_MACH_NEST_AUTOMATIC, 0, m_MainWindow.GetMachIniFile()) <> 0)
       AdjustAlignTextOnAutomaticOrCompleteCuts()
+      ' Flag per inserire la puasa dopo la sgrossatura delle cornici
+      FramePauseChBx.IsChecked =
+         (GetPrivateProfileInt(S_MACH_FRAME, K_MACH_PAUSE, 0, m_MainWindow.GetMachIniFile()) <> 0)
       ' Aggiorno messaggio sovratavola con numero tavola
       If GetTableCount() > 1 Then
          AdditionalTableTxBl.Text = EgtMsg(MSG_ALARMSPAGEUC + 36) & " " & GetCurrentTable().ToString()
@@ -847,6 +853,14 @@ Public Class AlarmsPageUC
       m_CurrentMachine.dFsevPerc = dVal
    End Sub
 
+   Private Sub FramePauseChBx_Click(sender As Object, e As RoutedEventArgs) Handles FramePauseChBx.Click
+      If FramePauseChBx.IsChecked() Then
+         WritePrivateProfileString(S_MACH_FRAME, K_MACH_PAUSE, "1", m_MainWindow.GetMachIniFile())
+      Else
+         WritePrivateProfileString(S_MACH_FRAME, K_MACH_PAUSE, "0", m_MainWindow.GetMachIniFile())
+      End If
+   End Sub
+
    Private Sub SawProbingBtn_Click(sender As Object, e As RoutedEventArgs) Handles SawProbingBtn.Click
       ' Recupero file LUA
       EgtLuaExecFile(m_MainWindow.m_CurrentMachine.sMachDir() & "\DirectCmd\SawProbing.lua")