Skip to content

Commit 060cd2a

Browse files
committed
+ USysAPI table data
1 parent 8c91875 commit 060cd2a

File tree

2 files changed

+59
-1
lines changed

2 files changed

+59
-1
lines changed

source/tables/USysAPI.xml

Lines changed: 55 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,55 @@
1+
<?xml version="1.0"?>
2+
<dataroot xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
3+
<USysAPI>
4+
<ProcName>RunVcsCheck([OpenDialogToFixLettercase], [DeclDictFilePath]) As Variant</ProcName>
5+
<Description>&lt;div&gt;&lt;font size=2&gt;Compare lettercase from CurrentVbProject with saved (table/file) dictionary items&lt;/font&gt;&lt;/div&gt;
6+
7+
&lt;div&gt;&lt;font size=2&gt;&amp;nbsp;&lt;/font&gt;&lt;/div&gt;
8+
9+
&lt;div&gt;&lt;font size=2&gt;&lt;strong&gt;Parameters&lt;/strong&gt;&lt;/font&gt;&lt;/div&gt;
10+
11+
&lt;blockquote&gt;
12+
13+
&lt;div&gt;&lt;font size=2&gt;OpenDialogToFixLettercase - (Boolean) - Open dialog to fix lettercase&lt;/font&gt;&lt;/div&gt;
14+
&lt;div&gt;&lt;font size=2&gt;DeclDictFilePath - (String) - use alternative file path&lt;/font&gt;&lt;/div&gt;
15+
16+
&lt;/blockquote&gt;
17+
18+
&lt;div&gt;&lt;font size=2&gt;&amp;nbsp;&lt;/font&gt;&lt;/div&gt;
19+
20+
&lt;div&gt;&lt;font size=2&gt;&lt;strong&gt;Returns&lt;/strong&gt;&lt;/font&gt;&lt;/div&gt;
21+
22+
&lt;ul&gt;
23+
&lt;ul&gt;
24+
&lt;li&gt;&lt;font size=2&gt;Boolean (True) ... if DiffCount = 0&lt;/font&gt;&lt;/li&gt;
25+
&lt;li&gt;&lt;font size=2&gt;String ... if DiffCount &amp;gt; 0 =&amp;gt; &amp;quot;Failed: &amp;lt;lettercase info&amp;gt;&amp;quot;&lt;/font&gt;&lt;/li&gt;
26+
&lt;/ul&gt;
27+
&lt;/ul&gt;
28+
29+
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
30+
31+
&lt;div&gt;&lt;font size=2&gt;&lt;strong&gt;Example&lt;/strong&gt;&lt;/font&gt;&lt;/div&gt;
32+
33+
&lt;div&gt;&lt;font face="Courier New" size=1&gt;Dim Result As Variant&lt;/font&gt;&lt;/div&gt;
34+
35+
&lt;div&gt;&lt;font face="Courier New" size=1&gt;Result = Application.Run(Environ(&amp;quot;appdata&amp;quot;) &amp;amp; _&lt;/font&gt;&lt;/div&gt;
36+
37+
&lt;div&gt;&lt;font face="Courier New" size=1&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;quot;\Microsoft\AddIns\ACLibDeclarationDict.RunVcsCheck&amp;quot;, True)&lt;/font&gt;&lt;/div&gt;
38+
39+
&lt;div&gt;&lt;font face="Courier New" size=1&gt;If Result = True Then&lt;/font&gt;&lt;/div&gt;
40+
41+
&lt;div&gt;&lt;font face="Courier New" size=1&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;Debug.Print &amp;quot;No problems with letter case&amp;quot;&lt;/font&gt;&lt;/div&gt;
42+
43+
&lt;div&gt;&lt;font face="Courier New" size=1&gt;Else&lt;/font&gt;&lt;/div&gt;
44+
45+
&lt;div&gt;&lt;font face="Courier New" size=1&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;Debug.Print Result&lt;/font&gt;&lt;/div&gt;
46+
47+
&lt;div&gt;&lt;font face="Courier New" size=1&gt;End If&lt;/font&gt;&lt;/div&gt;</Description>
48+
<OrderPos>2</OrderPos>
49+
</USysAPI>
50+
<USysAPI>
51+
<ProcName>RunVcsCheckDialog()</ProcName>
52+
<Description>&lt;div&gt;Equal to &lt;b&gt;RunVcsCheck(True)&lt;/b&gt;&lt;/div&gt;</Description>
53+
<OrderPos>3</OrderPos>
54+
</USysAPI>
55+
</dataroot>

source/vcs-options.json

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,7 @@
99
"UseFastSave": true,
1010
"UseMergeBuild": false,
1111
"UseGitIntegration": false,
12-
"SavePrintVars": true,
12+
"SavePrintVars": false,
1313
"ExportPrintSettings": {
1414
"Orientation": true,
1515
"PaperSize": true,
@@ -42,6 +42,9 @@
4242
"SanitizeLevel": 2,
4343
"ExtractThemeFiles": false,
4444
"TablesToExportData": {
45+
"USysAPI": {
46+
"Format": "XML Format"
47+
},
4548
"USysRegInfo": {
4649
"Format": "Tab Delimited"
4750
},

0 commit comments

Comments
 (0)