Egalware/EgtDOORCreator
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtDOOCreator 2.3a1:

Browse Source 
-> riscalato i pixel per le immagini Hardware (1500x2000) mentre per la Door è rimasta invariata (3000x4000).
This commit is contained in:
Nicola Pievani
2021-01-07 17:20:47 +00:00
parent cc240ccb65
commit f422f7a25f
3 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
HardwareGeometry/GeometryListConfigVM.vb
+1 -1
View File
@@ -384,7 +384,7 @@ Public Class GeometryListConfigVM
End If
Next
If Not String.IsNullOrEmpty(ParamName) Then
m_GeometryName = ParamName
GeometryName = ParamName
End If
' carico la lista dei Parametri
LoadNameComboBoxLua(Map.refHardwarePageVM.CurrHardware)
My Project/AssemblyInfo.vb
+2 -2
View File
@@ -72,5 +72,5 @@ Imports System.Windows
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.2.11.2")>
<Assembly: AssemblyFileVersion("2.2.11.2")>
<Assembly: AssemblyVersion("2.3.1.1")>
<Assembly: AssemblyFileVersion("2.3.1.1")>
SceneManager/InstrumentPanel/InstrumentPanelVM.vb
+7 -6
View File
@@ -212,11 +212,11 @@ Public Class InstrumentPanelVM
If IsNothing(Map.refHardwarePageVM.CurrHardware) OrElse IsNothing(Map.refHardwarePageVM.CurrHardware.SelTemplate) Then Return
Dim sCurrDir As String = Path.GetDirectoryName(Map.refHardwarePageVM.CurrHardware.CurrPath())
Dim sImageFile As String = sCurrDir & "\" & Path.GetFileNameWithoutExtension(Map.refHardwarePageVM.CurrHardware.CurrPath) & ".png"
ExportPngFromNge(sImageFile)
ExportPngFromNge(sImageFile, 1500, 2000)
ElseIf Map.refMainWindowVM.SelectedPage = MainWindowVM.ListPageEnum.nDDFPage Then
If IsNothing(Map.refAssemblyManagerVM.CurrProject) OrElse IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) OrElse IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.Name) Then Return
Dim sImageFile As String = IniFile.m_sTempDir & "\Image.png"
ExportPngFromNge(sImageFile)
ExportPngFromNge(sImageFile, 3000, 4000)
Else
Return
End If
@@ -248,16 +248,17 @@ Public Class InstrumentPanelVM
#Region "METHODS"
Public Function ExportPngFromNge(ByRef SPathImage As String) As Boolean
Public Function ExportPngFromNge(ByRef SPathImage As String, nImgW As Integer, nImgH As Integer) As Boolean
' Creo l'immagine da allegare
' Nascondo la tavola ed eseguo zoom su quello che rimane
' EgtZoom(ZM.ALL, True)
' Prendo l'immagine per la stampa
Dim colWhite As New Color3d(255, 255, 255)
Dim nImgW As Integer = 3000
Dim nImgH As Integer = 4000
' 3000x4000
' Dim nImgW As Integer = 3000
' Dim nImgH As Integer = 4000
Dim sPath As String = SPathImage
EgtSetLineAttribs(3)
EgtSetLineAttribs(4)
If Not EgtGetImage(SM.HIDDENLINE, colWhite, colWhite, nImgW, nImgH, sPath) Then
' Error in creating the print image
EgtOutLog(EgtMsg(50181))