From f0eec3b4da3d736b6d02976842874e2bc9e5c030 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Sun, 22 Feb 2026 16:30:37 +0100 Subject: [PATCH] Icarus : - corretta lettura da ini e applicazione del formato di salvataggio. --- Icarus/SceneHost/MySceneHostVM.vb | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/Icarus/SceneHost/MySceneHostVM.vb b/Icarus/SceneHost/MySceneHostVM.vb index 924de47..6453392 100644 --- a/Icarus/SceneHost/MySceneHostVM.vb +++ b/Icarus/SceneHost/MySceneHostVM.vb @@ -294,10 +294,12 @@ Public Class MySceneHostVM If String.IsNullOrWhiteSpace(sCurrFile) Or EgtGetFileType(sCurrFile) <> FT.NGE Then bOk = SaveAsProject() Else - Dim bDeleteNgeFile As Boolean = Path.GetExtension(sCurrFile) = ".nge" + Dim bDeleteNgeFile As Boolean = ( Path.GetExtension(sCurrFile) = ".nge") EgtSetCurrFilePath(Path.ChangeExtension(sCurrFile, "icrs")) + ' Formato di salvataggio + Dim nSaveType As NGE = DirectCast( GetMainPrivateProfileInt(S_GEOMDB, K_SAVETYPE, NGE.CMPTEXT), NGE) ' Salvataggio standard - bOk = MainController.SaveProject() + bOk = MainController.SaveProject(nSaveType) If bOk AndAlso bDeleteNgeFile AndAlso File.Exists(sCurrFile) Then Try File.Delete(sCurrFile) @@ -330,8 +332,10 @@ Public Class MySceneHostVM If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then Dim sFileName As String = SaveFileDialog.FileName EgtSetCurrFilePath(sFileName) + ' Formato di salvataggio + Dim nSaveType As NGE = DirectCast( GetMainPrivateProfileInt(S_GEOMDB, K_SAVETYPE, NGE.CMPTEXT), NGE) ' Salvataggio standard - bOk = MainController.SaveProject() + bOk = MainController.SaveProject(nSaveType) End If m_bIsSaveAs = False ' Imposto stato gestione mouse diretto della scena a nessuno