oovbaapi: add Borders.TintAndShade Property

As documented at:
https://msdn.microsoft.com/VBA/Excel-VBA/articles/borders-tintandshade-property-excel

A stub for now.

Change-Id: Id422f3585ced7df59112f6757aeef0860bb0210e
Reviewed-on: https://gerrit.libreoffice.org/39381
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Tamás Bunth <btomi96@gmail.com>
This commit is contained in:
Tamas Bunth 2017-06-29 10:33:45 +02:00 committed by Tamás Bunth
parent c1845e4970
commit af3a46d763
3 changed files with 25 additions and 0 deletions

View File

@ -35,6 +35,7 @@ interface XBorder
[attribute] any ColorIndex;
[attribute] any LineStyle;
[attribute] any Weight;
[attribute] any TintAndShade;
};

View File

@ -261,6 +261,16 @@ public:
throw uno::RuntimeException("Method failed" );
}
void SAL_CALL setTintAndShade( const uno::Any& /*rAny*/ ) override
{
// TODO implement
}
uno::Any SAL_CALL getTintAndShade() override
{
// TODO implement
return uno::makeAny(static_cast<double>(0));
}
uno::Any SAL_CALL getLineStyle() override
{
// always return xlContinuous;
@ -532,6 +542,18 @@ uno::Any SAL_CALL ScVbaBorders::getWeight()
}
return weight;
}
uno::Any SAL_CALL ScVbaBorders::getTintAndShade()
{
// TODO implement
return uno::makeAny(static_cast<double>(0));
}
void SAL_CALL ScVbaBorders::setTintAndShade(const uno::Any& /*rAny*/)
{
// TODO implement
}
void SAL_CALL ScVbaBorders::setWeight( const uno::Any& _weight )
{
sal_Int32 count = getCount();

View File

@ -55,6 +55,8 @@ public:
virtual void SAL_CALL setLineStyle( const css::uno::Any& _linestyle ) override;
virtual css::uno::Any SAL_CALL getWeight() override;
virtual void SAL_CALL setWeight( const css::uno::Any& ) override;
virtual css::uno::Any SAL_CALL getTintAndShade() override;
virtual void SAL_CALL setTintAndShade( const css::uno::Any& ) override;
// xxxxBASE
virtual OUString getServiceImplName() override;
virtual css::uno::Sequence<OUString> getServiceNames() override;