From 1365a9f95a8e97a8ec9bbf9a351f9f4ab2696d92 Mon Sep 17 00:00:00 2001
From: Miklos Vajna <vmiklos@collabora.co.uk>
Date: Wed, 7 Jun 2017 17:22:22 +0200
Subject: oovbaapi: add XlThemeColor Enumeration (Excel)

As documented at
<https://msdn.microsoft.com/en-us/library/office/ff839402.aspx>.

And also extend ov::excel::XInterior with a ThemeColor property, as
documented at
<https://msdn.microsoft.com/en-us/library/office/ff820778.aspx>;
implementation is just a stub for now.

Change-Id: I05f1490cdc366f5db127d340cab5f51efcafa862
Reviewed-on: https://gerrit.libreoffice.org/38522
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Miklos Vajna <vmiklos@collabora.co.uk>
---
 oovbaapi/ooo/vba/excel/Constants.idl | 12 ++++++++++++
 oovbaapi/ooo/vba/excel/XInterior.idl |  1 +
 sc/source/ui/vba/vbainterior.cxx     | 11 +++++++++++
 sc/source/ui/vba/vbainterior.hxx     |  2 ++
 4 files changed, 26 insertions(+)

diff --git a/oovbaapi/ooo/vba/excel/Constants.idl b/oovbaapi/ooo/vba/excel/Constants.idl
index 061e679d61db..af32f2cccf8b 100644
--- a/oovbaapi/ooo/vba/excel/Constants.idl
+++ b/oovbaapi/ooo/vba/excel/Constants.idl
@@ -168,6 +168,18 @@ module ooo { module vba { module excel {
         const long xlWorksheet4 = 1;
         const long xlWorksheetCell = 3;
         const long xlWorksheetShort = 5;
+        const long xlThemeColorAccent1 = 5;
+        const long xlThemeColorAccent2 = 6;
+        const long xlThemeColorAccent3 = 7;
+        const long xlThemeColorAccent4 = 8;
+        const long xlThemeColorAccent5 = 9;
+        const long xlThemeColorAccent6 = 10;
+        const long xlThemeColorDark1 = 1;
+        const long xlThemeColorDark2 = 3;
+        const long xlThemeColorFollowedHyperlink = 12;
+        const long xlThemeColorHyperlink = 11;
+        const long xlThemeColorLight1 = 2;
+        const long xlThemeColorLight2 = 4;
     };
 }; }; };
 
diff --git a/oovbaapi/ooo/vba/excel/XInterior.idl b/oovbaapi/ooo/vba/excel/XInterior.idl
index aef589de9327..06baa2645864 100644
--- a/oovbaapi/ooo/vba/excel/XInterior.idl
+++ b/oovbaapi/ooo/vba/excel/XInterior.idl
@@ -38,6 +38,7 @@ interface XInterior
     [attribute]  any  Pattern;
     [attribute]  any  PatternColor;
     [attribute]  any  PatternColorIndex;
+    [attribute]  any  ThemeColor;
 };
 
 
diff --git a/sc/source/ui/vba/vbainterior.cxx b/sc/source/ui/vba/vbainterior.cxx
index 51b4c2270615..62f2d26f1766 100644
--- a/sc/source/ui/vba/vbainterior.cxx
+++ b/sc/source/ui/vba/vbainterior.cxx
@@ -384,6 +384,17 @@ ScVbaInterior::setPatternColorIndex( const uno::Any& _patterncolorindex )
         throw uno::RuntimeException("Invalid Pattern Color" );
 }
 
+uno::Any SAL_CALL ScVbaInterior::getThemeColor()
+{
+    // Just a stub for now.
+    return uno::makeAny(static_cast<sal_Int32>(0));
+}
+
+void SAL_CALL ScVbaInterior::setThemeColor(const uno::Any& /*rAny*/)
+{
+    // Just a stub for now.
+}
+
 OUString
 ScVbaInterior::getServiceImplName()
 {
diff --git a/sc/source/ui/vba/vbainterior.hxx b/sc/source/ui/vba/vbainterior.hxx
index 9bb86ab308c0..d036392e25ec 100644
--- a/sc/source/ui/vba/vbainterior.hxx
+++ b/sc/source/ui/vba/vbainterior.hxx
@@ -70,6 +70,8 @@ public:
     virtual void SAL_CALL setPatternColor( const css::uno::Any& _patterncolor ) override;
     virtual css::uno::Any SAL_CALL getPatternColorIndex() override;
     virtual void SAL_CALL setPatternColorIndex( const css::uno::Any& _patterncolorindex ) override;
+    css::uno::Any SAL_CALL getThemeColor() override;
+    void SAL_CALL setThemeColor(const css::uno::Any& rAny) override;
     //XHelperInterface
     virtual OUString getServiceImplName() override;
     virtual css::uno::Sequence<OUString> getServiceNames() override;
-- 
cgit