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

Optimizer 2.7.10.2

Browse Source 
-Eliminato classi e pagine nascoste
-Rinominato pagine e classi
This commit is contained in:
Demetrio Cassarino
2025-10-27 09:15:16 +01:00
parent 3899026713
commit 647614e67e
246 changed files with 4490 additions and 16060 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtBEAMWALL.Optimizer/NewOpenProjectFileDialog/NewOpenProjectFileDialogVM.vb
+6 -6
View File
@@ -168,12 +168,12 @@ Public Class NewOpenProjectFileDialogVM
'Else
' Map.refOnlyProdManagerVM.m_MruFiles.Remove(Project.sProjPath)
'End If
Map.refOnlyProdManagerVM.m_MruFiles.Remove(Project.sProjPath)
Map.refProdManagerVM.m_MruFiles.Remove(Project.sProjPath)
Next
Map.refOnlyProdManagerVM.NotifyPropertyChanged(NameOf(Map.refOnlyProdManagerVM.MruFileNames))
Map.refProdManagerVM.NotifyPropertyChanged(NameOf(Map.refProdManagerVM.MruFileNames))
If Not IsNothing(SelProject.ProdFileVM) Then
Map.refOnlyProdManagerVM.m_MruFiles.Remove(SelProject.ProdFileVM.sProdPath)
Map.refOnlyProdManagerVM.NotifyPropertyChanged(NameOf(Map.refOnlyProdManagerVM.MruFileNames))
Map.refProdManagerVM.m_MruFiles.Remove(SelProject.ProdFileVM.sProdPath)
Map.refProdManagerVM.NotifyPropertyChanged(NameOf(Map.refProdManagerVM.MruFileNames))
End If
' cancello progetto
If Not IsNothing(SelProject.ProdFileVM) Then
@@ -215,7 +215,7 @@ Public Class NewOpenProjectFileDialogVM
' Map.refProjManagerVM.OpenProject(m_ProjectList(0).ProjFileList(0))
' End If
If m_ProjectType = ProjectType.PROD Then
For Each ProjectName In Map.refOnlyProdManagerVM.m_MruFiles.FileNames
For Each ProjectName In Map.refProdManagerVM.m_MruFiles.FileNames
If Not String.IsNullOrWhiteSpace(ProjectName) Then
Dim sProdId As String = Path.GetFileNameWithoutExtension(ProjectName)
If Not String.IsNullOrWhiteSpace(sProdId) Then
@@ -223,7 +223,7 @@ Public Class NewOpenProjectFileDialogVM
Integer.TryParse(sProdId, nProdId)
Dim PjFileM = DbControllers.m_ProdController.FindCoreByProdId(nProdId)
Dim PjFileVM = New ProdFileVM(PjFileM)
Map.refOnlyProdManagerVM.OpenProject(PjFileVM)
Map.refProdManagerVM.OpenProject(PjFileVM)
bOpened = True
Exit For
End If