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

Optmizer 2.7.11.13

Browse Source 
-piccole modifiche
This commit is contained in:
Demetrio Cassarino
2025-12-04 08:43:09 +01:00
parent 43893b19ce
commit b87d27230c
48 changed files with 187 additions and 1117 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtBEAMWALL.Optimizer/NewOpenProjectFileDialog/NewOpenProjectFileDialogVM.vb
-22
View File
@@ -163,11 +163,6 @@ Public Class NewOpenProjectFileDialogVM
End If
' rimuovo da lista ultimi progetti aperti
For Each Project In SelProject.ProjFileList
'If Not IsNothing(Map.refProjManagerVM) Then
' Map.refProjManagerVM.m_MruFiles.Remove(Project.sProjPath)
'Else
' Map.refOnlyProdManagerVM.m_MruFiles.Remove(Project.sProjPath)
'End If
Map.refProdManagerVM.m_MruFiles.Remove(Project.sProjPath)
Next
Map.refProdManagerVM.NotifyPropertyChanged(NameOf(Map.refProdManagerVM.MruFileNames))
@@ -197,23 +192,6 @@ Public Class NewOpenProjectFileDialogVM
Public Overrides Sub Cancel()
If m_ChangeOpenedProjectOnCancel Then
Dim bOpened As Boolean = False
'If m_ProjectType = ProjectType.PROJ Then
' For Each ProjectName In Map.refProjManagerVM.m_MruFiles.FileNames
' If Not String.IsNullOrWhiteSpace(ProjectName) Then
' Dim sProjId As String = Path.GetFileNameWithoutExtension(ProjectName)
' If Not String.IsNullOrWhiteSpace(sProjId) Then
' Dim nProjId As Integer = 0
' Integer.TryParse(sProjId, nProjId)
' Dim PjFileM = DbControllers.m_ProjController.FindByProjIdConv(nProjId)
' Dim PjFileVM = New ProjFileVM(PjFileM)
' Map.refProjManagerVM.OpenProject(PjFileVM)
' bOpened = True
' Exit For
' End If
' End If
' If Not bOpened Then
' Map.refProjManagerVM.OpenProject(m_ProjectList(0).ProjFileList(0))
' End If
If m_ProjectType = ProjectType.PROD Then
For Each ProjectName In Map.refProdManagerVM.m_MruFiles.FileNames
If Not String.IsNullOrWhiteSpace(ProjectName) Then