| /************************************************************** |
| * |
| * 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 |
| * |
| * Unless required by applicable law or agreed to in writing, |
| * software distributed under the License is distributed on an |
| * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| * KIND, either express or implied. See the License for the |
| * specific language governing permissions and limitations |
| * under the License. |
| * |
| *************************************************************/ |
| |
| |
| #include <com/sun/star/beans/XPropertySet.hpp> |
| #include <ooo/vba/msforms/XLineFormat.hpp> |
| #include "vbacolorformat.hxx" |
| |
| using namespace ooo::vba; |
| using namespace com::sun::star; |
| |
| sal_Int32 |
| MsoColorIndizes::getColorIndex( sal_Int32 nIndex ) |
| { |
| const static sal_Int32 COLORINDIZES[56] = |
| { HAPICOLOR_BLACK, HAPICOLOR_WITHE, HAPICOLOR_RED, HAPICOLOR_BRIGHTGREEN, HAPICOLOR_BLUE, HAPICOLOR_YELLOW, HAPICOLOR_PINK, |
| HAPICOLOR_TURQUOISE, HAPICOLOR_DARKRED, HAPICOLOR_GREEN, HAPICOLOR_DARKBLUE, HAPICOLOR_DARKYELLOW, HAPICOLOR_VIOLET, |
| HAPICOLOR_TEAL, HAPICOLOR_GRAY_25_PERCENT, HAPICOLOR_GRAY_50_PERCENT, HAPICOLOR_PERIWINCKLE, HAPICOLOR_PLUM, |
| HAPICOLOR_IVORY, HAPICOLOR_LIGHTTURQUOISE, HAPICOLOR_DARKPRUPLE, HAPICOLOR_CORAL, HAPICOLOR_OCEANBLUE, HAPICOLOR_ICEBLUE, |
| HAPICOLOR_GREEN, HAPICOLOR_PINK, HAPICOLOR_YELLOW, HAPICOLOR_TURQUOISE, HAPICOLOR_VIOLET, HAPICOLOR_DARKRED, HAPICOLOR_TEAL, |
| HAPICOLOR_BLUE, HAPICOLOR_SKYBLUE, HAPICOLOR_LIGHTTURQUOISE, HAPICOLOR_LIGHTGREEN, HAPICOLOR_LIGHTYELLOW, HAPICOLOR_PALEBLUE, |
| HAPICOLOR_ROSE, HAPICOLOR_LAVENDER, HAPICOLOR_TAN, HAPICOLOR_LIGHTBLUE, HAPICOLOR_AQUA, HAPICOLOR_LIME, HAPICOLOR_GOLD, |
| HAPICOLOR_LIGHTORANGE, HAPICOLOR_ORANGE, HAPICOLOR_BLUEGRAY, HAPICOLOR_GRAY_40_PERCENT, HAPICOLOR_DARKTEAL, |
| HAPICOLOR_SEAGREEN, HAPICOLOR_NONAME, HAPICOLOR_OLIVEGREEN, HAPICOLOR_BROWN, HAPICOLOR_PLUM, HAPICOLOR_INDIGO, |
| HAPICOLOR_GRAY_80_PERCENT |
| }; |
| return COLORINDIZES[nIndex]; |
| } |
| ScVbaColorFormat::ScVbaColorFormat( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< XHelperInterface > xInternalParent, const uno::Reference< drawing::XShape > xShape, const sal_Int16 nColorFormatType ) : ScVbaColorFormat_BASE( xParent, xContext ), m_xInternalParent( xInternalParent ), m_xShape( xShape ), m_nColorFormatType( nColorFormatType ) |
| { |
| m_xPropertySet.set( xShape, uno::UNO_QUERY_THROW ); |
| m_nFillFormatBackColor = 0; |
| try |
| { |
| uno::Reference< ov::msforms::XFillFormat > xFillFormat( xInternalParent, uno::UNO_QUERY_THROW ); |
| m_pFillFormat = ( ScVbaFillFormat* )( xFillFormat.get() ); |
| }catch ( uno::RuntimeException e ) |
| { |
| m_pFillFormat = NULL; |
| } |
| } |
| |
| void |
| ScVbaColorFormat::setColorFormat( sal_Int16 _ntype ) |
| { |
| m_nColorFormatType = _ntype; |
| } |
| |
| // Attribute |
| sal_Int32 SAL_CALL |
| ScVbaColorFormat::getRGB() throw (uno::RuntimeException) |
| { |
| sal_Int32 nRGB = 0; |
| switch( m_nColorFormatType ) |
| { |
| case ColorFormatType::LINEFORMAT_FORECOLOR: |
| m_xPropertySet->getPropertyValue( rtl::OUString::createFromAscii("LineColor") ) >>= nRGB; |
| break; |
| case ColorFormatType::LINEFORMAT_BACKCOLOR: |
| //TODO BackColor not supported |
| // m_xPropertySet->setPropertyValue( rtl::OUString::createFromAscii("Color"), uno::makeAny( nRGB ) ); |
| break; |
| case ColorFormatType::FILLFORMAT_FORECOLOR: |
| m_xPropertySet->getPropertyValue( rtl::OUString::createFromAscii("FillColor") ) >>= nRGB; |
| break; |
| case ColorFormatType::FILLFORMAT_BACKCOLOR: |
| nRGB = m_nFillFormatBackColor; |
| break; |
| default: |
| throw uno::RuntimeException( rtl::OUString::createFromAscii("Second parameter of ColorFormat is wrong."), uno::Reference< uno::XInterface >() ); |
| } |
| nRGB = OORGBToXLRGB( nRGB ); |
| return nRGB; |
| } |
| |
| void SAL_CALL |
| ScVbaColorFormat::setRGB( sal_Int32 _rgb ) throw (uno::RuntimeException) |
| { |
| sal_Int32 nRGB = XLRGBToOORGB( _rgb ); |
| switch( m_nColorFormatType ) |
| { |
| case ColorFormatType::LINEFORMAT_FORECOLOR: |
| m_xPropertySet->setPropertyValue( rtl::OUString::createFromAscii( "LineColor" ), uno::makeAny( nRGB ) ); |
| break; |
| case ColorFormatType::LINEFORMAT_BACKCOLOR: |
| // TODO BackColor not supported |
| break; |
| case ColorFormatType::FILLFORMAT_FORECOLOR: |
| m_xPropertySet->setPropertyValue( rtl::OUString::createFromAscii( "FillColor" ), uno::makeAny( nRGB ) ); |
| if( m_pFillFormat ) |
| { |
| m_pFillFormat->setForeColorAndInternalStyle(nRGB); |
| } |
| break; |
| case ColorFormatType::FILLFORMAT_BACKCOLOR: |
| m_nFillFormatBackColor = nRGB; |
| if( m_pFillFormat ) |
| { |
| m_pFillFormat->setForeColorAndInternalStyle(nRGB); |
| } |
| break; |
| default: |
| throw uno::RuntimeException( rtl::OUString::createFromAscii("Second parameter of ColorFormat is wrong."), uno::Reference< uno::XInterface >() ); |
| } |
| } |
| |
| sal_Int32 SAL_CALL |
| ScVbaColorFormat::getSchemeColor() throw (uno::RuntimeException) |
| { |
| sal_Int32 nColor = getRGB(); |
| // #TODO I guess the number of elements is determined by the correct scheme |
| // the implementation here seems to be a rehash of color index ( which seems to be a |
| // different thing ) - I would guess we need to know/import etc. the correct color scheme |
| // or at least find out a little more |
| sal_Int32 i = 0; |
| for( ; i < 56; i++ ) |
| { |
| if( nColor == MsoColorIndizes::getColorIndex(i) ) |
| break; |
| } |
| |
| if( i == 56 ) // this is most likely an error condition |
| --i; |
| return i; |
| // #TODO figure out what craziness is this, |
| // the 56 colors seems incorrect, as in default XL ( 2003 ) there are 80 colors |
| /* |
| if( i == 56 ) |
| { |
| i = -2; |
| } |
| |
| return ( i + 2 ); |
| */ |
| } |
| |
| void SAL_CALL |
| ScVbaColorFormat::setSchemeColor( sal_Int32 _schemecolor ) throw (uno::RuntimeException) |
| { |
| // the table is 0 based |
| sal_Int32 nColor = MsoColorIndizes::getColorIndex( _schemecolor ); |
| // nColor is already xl RGB |
| setRGB( nColor ); |
| } |
| |
| |
| rtl::OUString& |
| ScVbaColorFormat::getServiceImplName() |
| { |
| static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaColorFormat") ); |
| return sImplName; |
| } |
| |
| uno::Sequence< rtl::OUString > |
| ScVbaColorFormat::getServiceNames() |
| { |
| static uno::Sequence< rtl::OUString > aServiceNames; |
| if ( aServiceNames.getLength() == 0 ) |
| { |
| aServiceNames.realloc( 1 ); |
| aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.msforms.ColorFormat" ) ); |
| } |
| return aServiceNames; |
| } |
| |