#include "vbapalette.hxx" #include #include #include #include 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 sizeof(ColorTable) / sizeof(ColorTable[0]); } 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; }