From dcc9d15c1babf5fe7abb8a2fc813c87a6a13e2db Mon Sep 17 00:00:00 2001 From: DarioS Date: Sun, 18 Sep 2022 19:24:02 +0200 Subject: [PATCH] Icarus : - sistemata impostazione dati griglia da Ini. --- Icarus/SceneHost/MySceneHostVM.vb | 22 +++++++++++++++++----- 1 file changed, 17 insertions(+), 5 deletions(-) diff --git a/Icarus/SceneHost/MySceneHostVM.vb b/Icarus/SceneHost/MySceneHostVM.vb index 8522b6e..e677aae 100644 --- a/Icarus/SceneHost/MySceneHostVM.vb +++ b/Icarus/SceneHost/MySceneHostVM.vb @@ -187,16 +187,28 @@ Public Class MySceneHostVM MainController.SetSurfTmTolerance(0.05) MainController.SetUseCustomColors(True, S_SCENE, K_CUSTOMCOLORS) ' imposto unità di misura per interfaccia utente - Dim nMeasureUnit As Integer = GetMainPrivateProfileInt(S_SCENE, K_MMUNITS, 1) - EgtSetUiUnits(nMeasureUnit <> 0) + Dim bMmUnits As Boolean = ( GetMainPrivateProfileInt(S_SCENE, K_MMUNITS, 1) <> 0) + EgtSetUiUnits(bMmUnits) 'Map.refMyStatusBarVM.SetMeasureUnit(nMeasureUnit <> 0) ' imposto visualizzazione riferimento globale EgtSetGlobFrameShow(True) ' imposto i dati della griglia - 'LoadGridData() + Dim dSnapStepMm As Double = GetMainPrivateProfileDouble(S_GRID, K_SNAPSTEP, 10) + Dim dSnapStepInch As Double = GetMainPrivateProfileDouble(S_GRID, K_SNAPSTEPINCH, 10) + Dim nMinLineSStep As Integer = GetMainPrivateProfileInt(S_GRID, K_MINLINESSTEP, 1) + Dim nMajLineSStep As Integer = GetMainPrivateProfileInt(S_GRID, K_MAJLINESSTEP, 10) + Dim nExtSStep As Integer = GetMainPrivateProfileInt(S_GRID, K_EXTSSTEP, 50) + Dim MinLnColor As Color3d = New Color3d(160, 160, 160) + GetMainPrivateProfileColor(S_GRID, K_MINLNCOLOR, MinLnColor) + Dim MajLnColor As Color3d = New Color3d(160, 160, 160) + GetMainPrivateProfileColor(S_GRID, K_MAJLNCOLOR, MajLnColor) EgtSetGridFrame(Frame3d.GLOB) - EgtSetGridGeo(10, 10, 100, 484) - EgtSetGridColor(New Color3d(160, 160, 160), New Color3d(160, 160, 160)) + If bMmUnits Then + EgtSetGridGeo(dSnapStepMm, nMinLineSStep, nMajLineSStep, nExtSStep) + Else + EgtSetGridGeo(dSnapStepInch, nMinLineSStep, nMajLineSStep, nExtSStep) + End If + EgtSetGridColor(MinLnColor, MajLnColor) EgtSetGridShow(True, False) ' imposto tipo coordinate MainScene.SetGridCursorPos(True)