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

- aggiunta immagine non presente

Browse Source
This commit is contained in:
Demetrio Cassarino
2024-04-10 16:30:26 +02:00
parent 957ad00657
commit 05bf06d1e2
2 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtBEAMWALL.ViewerOptimizer/MainMenu/MainMenuVM.vb
+2 -2
View File
@@ -566,8 +566,8 @@ Public Class MainMenuVM
Map.refProjectVM.SetOnlyProdOptimizePanel_Visibility(True)
Map.refProjectVM.SetOptimizePanel_Visibility(True)
Map.refProjectVM.NotifyAllPanelVisibility()
'Map.refCALCPanelVM.SetChooseMachineBtn_Visibility(Map.refMainMenuVM.SelPage = Pages.NEWPAGE AndAlso Map.refMachinePanelVM.MachineList.Count > 1 AndAlso GetMainPrivateProfileInt(S_MACH, K_CHANGEMACH, 0) = 1)
Map.refCALCPanelVM.SetChooseMachineBtn_Visibility(True)
Map.refCALCPanelVM.SetChooseMachineBtn_Visibility(Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE AndAlso Map.refMachinePanelVM.MachineList.Count > 1 AndAlso GetMainPrivateProfileInt(S_MACH, K_CHANGEMACH, 0) = 1)
'Map.refCALCPanelVM.SetChooseMachineBtn_Visibility(True)
Map.refStatisticsTimePanelVM.SetStatisticsTimePanel_Visibility()
If Not IsNothing(Map.refFeatureListVM.colFeature_Do) Then
EgtBEAMWALL.ViewerOptimizer/Statistics/PDFHelper.vb
+8 -1
View File
@@ -8,6 +8,7 @@ Imports System.Collections.ObjectModel
Imports PdfSharp.Drawing
Imports MigraDoc.DocumentObjectModel.Shapes
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Header
Imports System.IO
Module PDFHelper
@@ -811,7 +812,13 @@ Module PDFHelper
Private Sub CreateRawPartImage(section As Section, sMachGroupList As ExpanderTable, RawPartId As Integer, RawPartName As String, bPreview As Boolean)
' creo immagine
Dim sImagePath As String = Map.refMainWindowVM.MainWindowM.sTempDir & "\Image" & RawPartId & ".png"
'Dim sImagePath As String = Map.refMainWindowVM.MainWindowM.sTempDir & "\Image" & RawPartId & ".png"
Dim sImagePath As String = String.Empty
If File.Exists(Map.refMainWindowVM.MainWindowM.sTempDir & "\Image" & RawPartId & ".png") Then
sImagePath = Map.refMainWindowVM.MainWindowM.sTempDir & "\Image" & RawPartId & ".png"
Else
sImagePath = Map.refMainWindowVM.MainWindowM.sTempDir & "\ImageNotFound.png"
End If
If bPreview Then
EgtSetCurrMachGroup(RawPartId)
Core.ViewPanelVM.BWSetView(If(Core.ViewPanelVM.Type = BWType.BEAM, VT.FRONT, VT.TOP), False)