5f75082ef1
I checked history of all the questionable ones, and the itrform2.cxx one was a genuine error. Change-Id: Ibfcd8732ba4a66a8c038940ae10f8b27fee466c9
97 lines
3.0 KiB
C++
97 lines
3.0 KiB
C++
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
|
|
/*
|
|
* This file is part of the LibreOffice project.
|
|
*
|
|
* This Source Code Form is subject to the terms of the Mozilla Public
|
|
* License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
*
|
|
* This file incorporates work covered by the following license notice:
|
|
*
|
|
* Licensed to the Apache Software Foundation (ASF) under one or more
|
|
* contributor license agreements. See the NOTICE file distributed
|
|
* with this work for additional information regarding copyright
|
|
* ownership. The ASF licenses this file to you under the Apache
|
|
* License, Version 2.0 (the "License"); you may not use this file
|
|
* except in compliance with the License. You may obtain a copy of
|
|
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
|
|
*/
|
|
|
|
#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: */
|