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

Icarus :

Browse Source 
- corretta lettura da ini e applicazione del formato di salvataggio.
This commit is contained in:
Dario Sassi
2026-02-22 16:30:37 +01:00
parent b529aa7e99
commit f0eec3b4da
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Icarus/SceneHost/MySceneHostVM.vb
+7 -3
View File
@@ -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