minor add-in optimizations

access-add-in/AccUnitLoader.accda.src/forms/AccUnitUserSettings.bas

@@ -19,8 +19,8 @@ Begin Form
     ItemSuffix =209
     Left =3855
     Top =3030
-    Right =14430
-    Bottom =13815
+    Right =17078
+    Bottom =13695
     RecSrcDt = Begin
         0x212b6fd80e9ce340
     End
@@ -268,13 +268,16 @@ Begin Form
                 Begin TextBox
                     OverlapFlags =85
                     TextAlign =1
+                    TextFontFamily =49
                     IMESentenceMode =3
                     Left =2318
                     Top =1868
                     Width =9072
                     Height =2835
+                    FontSize =10
                     TabIndex =5
                     Name ="txtTestMethodTemplate"
+                    FontName ="Consolas"
                     GroupTable =2
                     BottomPadding =0
                     HorizontalAnchor =2

access-add-in/AccUnitLoader.accda.src/tables/tab1DS.xml

@@ -0,0 +1,7 @@
+<?xml version="1.0"?>
+<dataroot xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <tab1DS>
+    <id>1</id>
+    <ShowInfoForm>0</ShowInfoForm>
+  </tab1DS>
+</dataroot>

access-add-in/AccUnitLoader.accda.src/vcs-options.json

@@ -9,7 +9,7 @@
     "UseFastSave": true,
     "UseMergeBuild": false,
     "UseGitIntegration": false,
-    "SavePrintVars": true,
+    "SavePrintVars": false,
     "ExportPrintSettings": {
       "Orientation": true,
       "PaperSize": true,
@@ -42,6 +42,15 @@
     "SanitizeLevel": 2,
     "ExtractThemeFiles": false,
     "TablesToExportData": {
+      "ACLib_ConfigTable": {
+        "Format": "XML Format"
+      },
+      "tab1DS": {
+        "Format": "XML Format"
+      },
+      "USys_AppFiles": {
+        "Format": "XML Format"
+      },
       "USysRegInfo": {
         "Format": "Tab Delimited"
       },

excel-add-in/customUI/customUI.xml

@@ -13,7 +13,7 @@
 				size="normal" imageMso="VisualBasicReferences" 
 				onAction="RemoveAccUnitTlbReferenceRCB" /> 
 		 </group> 
-		 <group id="AccUnitTestsGrp" label="AccUnit Test Environment">
+		 <group id="AccUnitTestEnvironmentGrp" label="AccUnit Test Environment">
 		   <button id="AccUnitLoaderInsertFactoryBtn" label="Insert/Update AccUnit Factory" 
 				size="large" imageMso="CreateModule" 
 				onAction="InsertFactoryModuleRCB" /> 
@@ -26,6 +26,8 @@
 		   <button id="AccUnitLoaderRemoveEnvironment1Btn" label="Remove Test Environment" 
 				size="large" imageMso="Delete" 
 				onAction="RemoveTestEnvironmentDelTestsRCB" /> 
+		 </group> 
+		 <group id="AccUnitTestsGrp" label="Test">
 		   <button id="TestSuiteRunAllFromVBProjectBtn" label="Run All Tests" 
 				size="large" imageMso="SourceControlRun" 
 				onAction="TestSuiteRunAllFromVBProjectRCB" /> 

excel-add-in/source/AccUnitLoaderForm.frm

@@ -132,24 +132,20 @@ On Error GoTo HandleErr
    With mnu
       Set .AccessForm = Me
       .UserFormCaption = Me.Caption
-
       Set .MenuControl = Me.cmdOpenMenu
-
-     ' .ControlSection = acDetail
 
 #If DEVMODE = 1 Then
-      .AddMenuItem -99, "", MF_SEPARATOR
       .AddMenuItem -1, "For AccUnit developers:", MF_STRING + MF_GRAYED
       .AddMenuItem 11, "Import AccUnit files from directory"
+      .AddMenuItem -2, "", MF_SEPARATOR
 #End If
 
 If ThisWorkbook.CustomDocumentProperties.Count >= 5 Then
-      .AddMenuItem -2, "", MF_SEPARATOR
       .AddMenuItem 21, "Export AccUnit files to directory"
       .AddMenuItem 22, "Remove AccUnit files from Add-In file"
+      .AddMenuItem -3, "", MF_SEPARATOR
 End If
 
-      .AddMenuItem -3, "", MF_SEPARATOR
       .AddMenuItem 31, "Remove test environment incl. test classes"
       .AddMenuItem 32, "Remove test environment (keep test classes)"
 
@@ -294,7 +290,7 @@ End Sub
 
 
 Private Sub cmdUserSettings_Click()
-'   DoCmd.OpenForm "AccUnitUserSettings", acNormal, , , , acDialog
+   AccUnitUserSettings.Show 1
 End Sub
 
 Private Sub txtAccUnitDllPath_AfterUpdate()

excel-add-in/source/AccUnitUserSettings.frm

@@ -0,0 +1,102 @@
+VERSION 5.00
+Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} AccUnitUserSettings 
+   Caption         =   "ACLib - AccUnit: Settings"
+   ClientHeight    =   5572
+   ClientLeft      =   91
+   ClientTop       =   406
+   ClientWidth     =   10612
+   OleObjectBlob   =   "AccUnitUserSettings.frx":0000
+   StartUpPosition =   1  'CenterOwner
+End
+Attribute VB_Name = "AccUnitUserSettings"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+'---------------------------------------------------------------------------------------
+' Form: AccUnitUserSettings
+'---------------------------------------------------------------------------------------
+'
+' Wizard form to set AccUnit User Settings
+'
+'---------------------------------------------------------------------------------------
+'<codelib>
+'  <file>%AppFolder%/source/AccUnitUserSettings.frm</file>
+'  <description>Wizard form to set AccUnit User Settings</description>
+'  <use>%AppFolder%/source/defGlobal_AccUnitLoader.bas</use>
+'</codelib>
+'---------------------------------------------------------------------------------------
+'
+Option Compare Text
+Option Explicit
+
+Private m_UserSettings As AccUnit.IUserSettings
+
+Private Sub cmdCancel_Click()
+   Unload Me
+End Sub
+
+Private Sub cmdCommit_Click()
+   SaveDataToSettings
+   Unload Me
+End Sub
+
+Private Sub UserForm_Initialize()
+   InitSettings
+End Sub
+
+Private Sub InitSettings()
+
+   Dim Configurator As AccUnit.Configurator
+
+   With New AccUnitLoaderFactory
+      Set Configurator = .Configurator
+   End With
+
+   Set m_UserSettings = Configurator.UserSettings
+
+   Set Configurator = Nothing
+
+   LoadDataFromSettings
+
+End Sub
+
+Private Sub LoadDataFromSettings()
+   With m_UserSettings
+      Me.txtImportExportFolder.Value = .ImportExportFolder
+      Me.txtTemplateFolder.Value = .TemplateFolder
+      Me.txtTestClassNameFormat.Value = .TestClassNameFormat
+      Me.txtTestMethodTemplate.Value = Replace(.TestMethodTemplate, vbTab, TabSpaces)
+   End With
+End Sub
+
+Private Sub SaveDataToSettings()
+   With m_UserSettings
+      .ImportExportFolder = Me.txtImportExportFolder.Value
+      .TemplateFolder = Me.txtTemplateFolder.Value
+      .TestClassNameFormat = Me.txtTestClassNameFormat.Value
+      .TestMethodTemplate = Replace(Me.txtTestMethodTemplate.Value, TabSpaces, vbTab)
+      .Save
+   End With
+End Sub
+
+Private Property Get TabSpaces() As String
+   TabSpaces = String(VBETabWidth, " ")
+End Property
+
+Private Property Get VBETabWidth() As Long
+
+   Static TabWidth As Long
+
+   Dim RegPath As String
+   RegPath = "HKEY_CURRENT_USER\Software\Microsoft\VBA\" & Replace(Application.VBE.Version, ".0", ".") & "\Common\TabWidth"
+
+   If TabWidth = 0 Then
+      With CreateObject("WScript.Shell")
+         TabWidth = Val(.RegRead(RegPath))
+      End With
+   End If
+
+   VBETabWidth = TabWidth
+
+End Property

excel-add-in/source/config_Application.bas

@@ -19,7 +19,7 @@ Option Explicit
 Option Private Module
 
 'Version nummer
-Private Const APPLICATION_VERSION As String = "0.9.4.240308"
+Private Const APPLICATION_VERSION As String = "0.9.4.240309"
 
 Private Const APPLICATION_NAME As String = "ACLib AccUnit Loader"
 Private Const APPLICATION_FULLNAME As String = "Access Code Library - AccUnit Loader"