-piccole modifiche e pulizia codice

2025-01-27 10:12:09 +01:00
parent 7e647a1552
commit 0d0e24494a
19 changed files with 103 additions and 117 deletions
@@ -41,6 +41,13 @@ Public Class MainWindowM
      End Get
   End Property

+   Private m_sResourcesDir As String = String.Empty
+   Friend ReadOnly Property sResourcesDir As String
+      Get
+         Return m_sResourcesDir
+      End Get
+   End Property
+
   Private m_sCreateSolidPath As String = String.Empty
   Friend ReadOnly Property sCreateSolidPath As String
      Get
@@ -277,6 +284,8 @@ Public Class MainWindowM
      ' Leggo tema corrente
      Dim sThema As String = String.Empty
      GetMainPrivateProfileString(S_GENERAL, K_THEMA, "", sThema)
+      ' Impostazione direttorio delle risorse
+      m_sResourcesDir = m_sDataRoot & "\" & RESOURCES_DIR
      ' Info su opzioni chiave
      EgtOutLog("KeyOptions : " & bKey.ToString() & " " & m_nKeyOptions.ToString())
   End Sub