EgtDOORCreator :
- piccola modifica a stampa per migliorarne l'aspetto.
This commit is contained in:
@@ -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}"
|
||||
|
||||
@@ -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 :
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user