From 90633bb6d28a62b8b7d71ee3ee8d383641dbf541 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Mon, 26 Sep 2016 12:03:59 +0000 Subject: [PATCH] =?UTF-8?q?EgtCAM5=20:=20-=20aggiustamenti=20per=20filtri?= =?UTF-8?q?=20su=20selezione=20entit=C3=A0.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Internals/MruList.vb | 2 +- ProjectPage/ProjectViewModel.vb | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/Internals/MruList.vb b/Internals/MruList.vb index 982e3a0..3c242b1 100644 --- a/Internals/MruList.vb +++ b/Internals/MruList.vb @@ -50,7 +50,7 @@ Public Class MruList For i As Integer = 1 To m_nMaxEntries Dim sKey As String = K_FILE + i.ToString() If i <= m_FileNames.Count Then - WritePrivateProfileString(m_sSection, sKey, m_FileNames(i).ToString) + WritePrivateProfileString(m_sSection, sKey, m_FileNames(i - 1).ToString) Else WritePrivateProfileString(m_sSection, sKey, "") End If diff --git a/ProjectPage/ProjectViewModel.vb b/ProjectPage/ProjectViewModel.vb index 9283c70..c08ab93 100644 --- a/ProjectPage/ProjectViewModel.vb +++ b/ProjectPage/ProjectViewModel.vb @@ -14,11 +14,11 @@ Namespace EgtCAM5 Private m_CloseProgram As Boolean = False ' Variabili in cui salvo i filtri di selezione della modalità Draw e che poi ripristino all'uscita dalla modalità Machining - Private m_bSelZeroDim As Boolean - Private m_bSelCurve As Boolean - Private m_bSelSurf As Boolean - Private m_bSelVolume As Boolean - Private m_bSelExtra As Boolean + Private m_bSelZeroDim As Boolean = True + Private m_bSelCurve As Boolean = True + Private m_bSelSurf As Boolean = True + Private m_bSelVolume As Boolean = True + Private m_bSelExtra As Boolean = True Private m_bLoaded As Boolean = False