ODFstudio/odfstudio
2
0
Fork 0
Code Issues Packages Activity

tdf#153543 - Add vba shell constants

Browse Source 
Change-Id: Ifa73050f6892ce8ce95d16dedc166e68d1809491
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/151567
Tested-by: Jenkins
Reviewed-by: Andreas Heinisch <andreas.heinisch@yahoo.de>
This commit is contained in:
Andreas Heinisch
2023-05-09 14:12:54 +02:00
parent f75b4eca9f
commit fa0a1f6462
2 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
basic/qa/vba_tests/constants.vb
+9
View File
@@ -25,6 +25,15 @@ Sub verify_testConstants()
TestUtil.AssertEqual(vbNewLine, vbLf, "vbNewline")
End If
' tdf#153543 - check for vba shell constants
' See https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/shell-constants
TestUtil.AssertEqual(vbHide, 0, "vbHide")
TestUtil.AssertEqual(vbNormalFocus, 1, "vbNormalFocus")
TestUtil.AssertEqual(vbMinimizedFocus, 2, "vbMinimizedFocus")
TestUtil.AssertEqual(vbMaximizedFocus, 3, "vbMaximizedFocus")
TestUtil.AssertEqual(vbNormalNoFocus, 4, "vbNormalNoFocus")
TestUtil.AssertEqual(vbMinimizedNoFocus, 6, "vbMinimizedNoFocus")
' tdf#131563 - check for vba color constants
' See https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/color-constants
TestUtil.AssertEqual(vbBlack, RGB(0, 0, 0), "vbBlack")
basic/source/comp/parser.cxx
+9
View File
@@ -849,6 +849,15 @@ static void addNumericConst(SbiSymPool& rPool, const OUString& pSym, double nVal
void SbiParser::AddConstants()
{
// tdf#153543 - shell constants
// See https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/shell-constants
addNumericConst(aPublics, "vbHide", 0);
addNumericConst(aPublics, "vbNormalFocus", 1);
addNumericConst(aPublics, "vbMinimizedFocus", 2);
addNumericConst(aPublics, "vbMaximizedFocus", 3);
addNumericConst(aPublics, "vbNormalNoFocus", 4);
addNumericConst(aPublics, "vbMinimizedNoFocus", 6);
// tdf#131563 - add vba color constants
// See https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/color-constants
addNumericConst(aPublics, "vbBlack", 0x0);