79 lines
2.2 KiB
C++
79 lines
2.2 KiB
C++
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
|
|
#include "vbapalette.hxx"
|
|
#include <cppuhelper/implbase1.hxx>
|
|
#include <com/sun/star/beans/XPropertySet.hpp>
|
|
#include <ooo/vba/word/WdColor.hpp>
|
|
#include <ooo/vba/word/WdColorIndex.hpp>
|
|
#include <sal/macros.h>
|
|
|
|
using namespace ::ooo::vba;
|
|
using namespace ::ooo::vba::word;
|
|
using namespace ::com::sun::star;
|
|
|
|
static const sal_Int32 ColorTable[] =
|
|
{
|
|
WdColor::wdColorAutomatic, // 0
|
|
WdColor::wdColorBlack, // 1
|
|
WdColor::wdColorBlue, // 2
|
|
WdColor::wdColorTurquoise, // 3
|
|
WdColor::wdColorBrightGreen, // 4
|
|
WdColor::wdColorPink, // 5
|
|
WdColor::wdColorRed, // 6
|
|
WdColor::wdColorYellow, // 7
|
|
WdColor::wdColorWhite, // 8
|
|
WdColor::wdColorDarkBlue, // 9
|
|
WdColor::wdColorTeal, // 10
|
|
WdColor::wdColorGreen, // 11
|
|
WdColor::wdColorViolet, // 12
|
|
WdColor::wdColorDarkRed, // 13
|
|
WdColor::wdColorDarkYellow, // 14
|
|
WdColor::wdColorGray50, // 15
|
|
WdColor::wdColorGray25, // 16
|
|
};
|
|
|
|
typedef ::cppu::WeakImplHelper1< container::XIndexAccess > XIndexAccess_BASE;
|
|
|
|
class DefaultPalette : public XIndexAccess_BASE
|
|
{
|
|
public:
|
|
DefaultPalette(){}
|
|
|
|
// Methods XIndexAccess
|
|
virtual ::sal_Int32 SAL_CALL getCount() throw (uno::RuntimeException)
|
|
{
|
|
return SAL_N_ELEMENTS(ColorTable);
|
|
}
|
|
|
|
virtual uno::Any SAL_CALL getByIndex( ::sal_Int32 Index ) throw (lang::IndexOutOfBoundsException, lang::WrappedTargetException, uno::RuntimeException)
|
|
{
|
|
if ( Index < 0 || Index >= getCount() )
|
|
throw lang::IndexOutOfBoundsException();
|
|
return uno::makeAny( sal_Int32( ColorTable[ Index ] ) );
|
|
}
|
|
|
|
// Methods XElementAcess
|
|
virtual uno::Type SAL_CALL getElementType() throw (uno::RuntimeException)
|
|
{
|
|
return ::getCppuType( (sal_Int32*)0 );
|
|
}
|
|
virtual ::sal_Bool SAL_CALL hasElements() throw (uno::RuntimeException)
|
|
{
|
|
return sal_True;
|
|
}
|
|
|
|
};
|
|
|
|
VbaPalette::VbaPalette()
|
|
{
|
|
mxPalette = new DefaultPalette();
|
|
}
|
|
|
|
uno::Reference< container::XIndexAccess >
|
|
VbaPalette::getPalette() const
|
|
{
|
|
|
|
return mxPalette;
|
|
}
|
|
|
|
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|