From 5a3a36c02d691bcc17705d09cae294f4d2346be8 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Fri, 31 Jan 2025 09:27:23 +0100 Subject: [PATCH] Icarus 2.7a4 : - modifica per nuova impostazione di SetAdvImpTolerance oltre a SetSurfTmTolerance. --- Icarus/My Project/AssemblyInfo.vb | 4 ++-- Icarus/OptionsWindow/OptionWindowVM.vb | 1 + Icarus/SceneHost/MySceneHostVM.vb | 1 + 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/Icarus/My Project/AssemblyInfo.vb b/Icarus/My Project/AssemblyInfo.vb index cd540b4..16d9d3c 100644 --- a/Icarus/My Project/AssemblyInfo.vb +++ b/Icarus/My Project/AssemblyInfo.vb @@ -70,5 +70,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + + diff --git a/Icarus/OptionsWindow/OptionWindowVM.vb b/Icarus/OptionsWindow/OptionWindowVM.vb index 982c67b..da34db1 100644 --- a/Icarus/OptionsWindow/OptionWindowVM.vb +++ b/Icarus/OptionsWindow/OptionWindowVM.vb @@ -147,6 +147,7 @@ Public Class OptionWindowVM If StringToLen(value, dVal) AndAlso dVal > 0 Then OptionModule.m_dGeometryTolerance = dVal Map.refSceneHostVM.MainController.SetSurfTmTolerance(OptionModule.m_dGeometryTolerance) + Map.refSceneHostVM.MainController.SetAdvImpTolerance(OptionModule.m_dGeometryTolerance) WriteMainPrivateProfileString(S_GEOMDB, K_SURFTMTOLER, DoubleToString(OptionModule.m_dGeometryTolerance, 5)) End If End Set diff --git a/Icarus/SceneHost/MySceneHostVM.vb b/Icarus/SceneHost/MySceneHostVM.vb index 58d7554..f0187f2 100644 --- a/Icarus/SceneHost/MySceneHostVM.vb +++ b/Icarus/SceneHost/MySceneHostVM.vb @@ -203,6 +203,7 @@ Public Class MySceneHostVM ' Impostazioni Controller MainController.SetScene(MainScene) MainController.SetSurfTmTolerance(OptionModule.m_dGeometryTolerance) + MainController.SetAdvImpTolerance(OptionModule.m_dGeometryTolerance) MainController.SetUseCustomColors(True, S_SCENE, K_CUSTOMCOLORS) ' imposto unità di misura per interfaccia utente Dim bMmUnits As Boolean = GetMainPrivateProfileInt(S_SCENE, K_MMUNITS, 1) <> 0