From cb2ea29e28653603eadedaa0e4772fccfc56bd4d Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Mon, 2 Dec 2019 07:52:49 +0000
Subject: [PATCH] EgtDOORCreator : - piccola modifica a stampa per migliorarne
 l'aspetto.

---
 Print/PrintWndV.xaml               | 4 ++--
 Print/PrintWndVM.vb                | 2 ++
 ProjectManager/ProjectManagerVM.vb | 2 +-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/Print/PrintWndV.xaml b/Print/PrintWndV.xaml
index e6e8ce3..aa65265 100644
--- a/Print/PrintWndV.xaml
+++ b/Print/PrintWndV.xaml
@@ -21,14 +21,14 @@
                    Grid.Row="1"
                    Margin="10">
          <Button VerticalAlignment="Center"
-                 Height="30" Margin="0,0,5,0"
+                 Height="30" Margin="50,0,50,0"
                  Content="{Binding PrintMsg}"
                  Command="{Binding PrintCommand}" 
                  ToolTip="{Binding PrintToolTip}" 
                  IsDefault="True"
                  Focusable="False"/>
          <Button VerticalAlignment="Center"
-                 Height="30" Margin="5,0,0,0"
+                 Height="30" Margin="50,0,50,0"
                  Content="{Binding CancelMsg}"
                  Command="{Binding CancelCommand}" 
                  ToolTip="{Binding CancelToolTip}" 
diff --git a/Print/PrintWndVM.vb b/Print/PrintWndVM.vb
index 2fdf022..2395f37 100644
--- a/Print/PrintWndVM.vb
+++ b/Print/PrintWndVM.vb
@@ -112,11 +112,13 @@ Public Class PrintWndVM
          Dim nImgW As Integer = 3000
          Dim nImgH As Integer = 4000
          Dim sPath As String = m_sTempDir & "\Image.png"
+         EgtSetLineAttribs( 3)
          If Not EgtGetImage(SM.HIDDENLINE, colWhite, colWhite, nImgW, nImgH, sPath) Then
             ' Error in creating the print image
             EgtOutLog(EgtMsg(50181))
             Return
          End If
+         EgtSetLineAttribs( 1)
 
          Try
             'Metodo complesso di stampa che permette di rilasciare il file :
diff --git a/ProjectManager/ProjectManagerVM.vb b/ProjectManager/ProjectManagerVM.vb
index 1e8c203..279308c 100644
--- a/ProjectManager/ProjectManagerVM.vb
+++ b/ProjectManager/ProjectManagerVM.vb
@@ -109,7 +109,7 @@ Public Class ProjectManagerVM
    Public ReadOnly Property DeleteToolTip As String
       Get
          ' Delete
-         Return EgtMsg(50412)
+         Return EgtMsg(50126)
       End Get
    End Property
    Public ReadOnly Property OpenToolTip As String