1*cdf0e10cSrcweir /************************************************************************* 2*cdf0e10cSrcweir * 3*cdf0e10cSrcweir * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4*cdf0e10cSrcweir * 5*cdf0e10cSrcweir * Copyright 2000, 2010 Oracle and/or its affiliates. 6*cdf0e10cSrcweir * 7*cdf0e10cSrcweir * OpenOffice.org - a multi-platform office productivity suite 8*cdf0e10cSrcweir * 9*cdf0e10cSrcweir * This file is part of OpenOffice.org. 10*cdf0e10cSrcweir * 11*cdf0e10cSrcweir * OpenOffice.org is free software: you can redistribute it and/or modify 12*cdf0e10cSrcweir * it under the terms of the GNU Lesser General Public License version 3 13*cdf0e10cSrcweir * only, as published by the Free Software Foundation. 14*cdf0e10cSrcweir * 15*cdf0e10cSrcweir * OpenOffice.org is distributed in the hope that it will be useful, 16*cdf0e10cSrcweir * but WITHOUT ANY WARRANTY; without even the implied warranty of 17*cdf0e10cSrcweir * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18*cdf0e10cSrcweir * GNU Lesser General Public License version 3 for more details 19*cdf0e10cSrcweir * (a copy is included in the LICENSE file that accompanied this code). 20*cdf0e10cSrcweir * 21*cdf0e10cSrcweir * You should have received a copy of the GNU Lesser General Public License 22*cdf0e10cSrcweir * version 3 along with OpenOffice.org. If not, see 23*cdf0e10cSrcweir * <http://www.openoffice.org/license.html> 24*cdf0e10cSrcweir * for a copy of the LGPLv3 License. 25*cdf0e10cSrcweir * 26*cdf0e10cSrcweir ************************************************************************/ 27*cdf0e10cSrcweir 28*cdf0e10cSrcweir #include "vbastyle.hxx" 29*cdf0e10cSrcweir #include <com/sun/star/style/XStyleFamiliesSupplier.hpp> 30*cdf0e10cSrcweir 31*cdf0e10cSrcweir using namespace ::ooo::vba; 32*cdf0e10cSrcweir using namespace ::com::sun::star; 33*cdf0e10cSrcweir 34*cdf0e10cSrcweir static rtl::OUString DISPLAYNAME( RTL_CONSTASCII_USTRINGPARAM("DisplayName") ); 35*cdf0e10cSrcweir 36*cdf0e10cSrcweir 37*cdf0e10cSrcweir 38*cdf0e10cSrcweir uno::Reference< container::XNameAccess > 39*cdf0e10cSrcweir ScVbaStyle::getStylesNameContainer( const uno::Reference< frame::XModel >& xModel ) throw ( uno::RuntimeException ) 40*cdf0e10cSrcweir { 41*cdf0e10cSrcweir uno::Reference< style::XStyleFamiliesSupplier > xStyleSupplier( xModel, uno::UNO_QUERY_THROW); 42*cdf0e10cSrcweir uno::Reference< container::XNameAccess > xStylesAccess( xStyleSupplier->getStyleFamilies()->getByName( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "CellStyles" ) ) ), uno::UNO_QUERY_THROW ); 43*cdf0e10cSrcweir return xStylesAccess; 44*cdf0e10cSrcweir } 45*cdf0e10cSrcweir 46*cdf0e10cSrcweir uno::Reference< beans::XPropertySet > 47*cdf0e10cSrcweir lcl_getStyleProps( const rtl::OUString& sStyleName, const uno::Reference< frame::XModel >& xModel ) throw ( script::BasicErrorException, uno::RuntimeException ) 48*cdf0e10cSrcweir { 49*cdf0e10cSrcweir 50*cdf0e10cSrcweir uno::Reference< beans::XPropertySet > xStyleProps( ScVbaStyle::getStylesNameContainer( xModel )->getByName( sStyleName ), uno::UNO_QUERY_THROW ); 51*cdf0e10cSrcweir return xStyleProps; 52*cdf0e10cSrcweir } 53*cdf0e10cSrcweir 54*cdf0e10cSrcweir 55*cdf0e10cSrcweir void ScVbaStyle::initialise() throw ( uno::RuntimeException ) 56*cdf0e10cSrcweir { 57*cdf0e10cSrcweir if (!mxModel.is() ) 58*cdf0e10cSrcweir DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "XModel Interface could not be retrieved")) ); 59*cdf0e10cSrcweir uno::Reference< lang::XServiceInfo > xServiceInfo( mxPropertySet, uno::UNO_QUERY_THROW ); 60*cdf0e10cSrcweir if ( !xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.style.CellStyle" ) ) ) ) 61*cdf0e10cSrcweir { 62*cdf0e10cSrcweir DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString() ); 63*cdf0e10cSrcweir } 64*cdf0e10cSrcweir mxStyle.set( mxPropertySet, uno::UNO_QUERY_THROW ); 65*cdf0e10cSrcweir 66*cdf0e10cSrcweir uno::Reference< style::XStyleFamiliesSupplier > xStyleSupplier( mxModel, uno::UNO_QUERY_THROW ); 67*cdf0e10cSrcweir mxStyleFamilyNameContainer.set( ScVbaStyle::getStylesNameContainer( mxModel ), uno::UNO_QUERY_THROW ); 68*cdf0e10cSrcweir 69*cdf0e10cSrcweir } 70*cdf0e10cSrcweir 71*cdf0e10cSrcweir ScVbaStyle::ScVbaStyle( const uno::Reference< ov::XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext > & xContext, const rtl::OUString& sStyleName, const uno::Reference< frame::XModel >& _xModel ) throw ( script::BasicErrorException, uno::RuntimeException ) : ScVbaStyle_BASE( xParent, xContext, lcl_getStyleProps( sStyleName, _xModel ), _xModel, false ), mxModel( _xModel ) 72*cdf0e10cSrcweir { 73*cdf0e10cSrcweir try 74*cdf0e10cSrcweir { 75*cdf0e10cSrcweir initialise(); 76*cdf0e10cSrcweir } 77*cdf0e10cSrcweir catch (uno::Exception& ) 78*cdf0e10cSrcweir { 79*cdf0e10cSrcweir DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString()); 80*cdf0e10cSrcweir } 81*cdf0e10cSrcweir } 82*cdf0e10cSrcweir 83*cdf0e10cSrcweir ScVbaStyle::ScVbaStyle( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext > & xContext, const uno::Reference< beans::XPropertySet >& _xPropertySet, const uno::Reference< frame::XModel >& _xModel ) throw ( script::BasicErrorException, uno::RuntimeException ) : ScVbaStyle_BASE( xParent, xContext, _xPropertySet, _xModel, false ), mxModel( _xModel ) 84*cdf0e10cSrcweir { 85*cdf0e10cSrcweir try 86*cdf0e10cSrcweir { 87*cdf0e10cSrcweir initialise(); 88*cdf0e10cSrcweir } 89*cdf0e10cSrcweir catch (uno::Exception& ) 90*cdf0e10cSrcweir { 91*cdf0e10cSrcweir DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString()); 92*cdf0e10cSrcweir } 93*cdf0e10cSrcweir } 94*cdf0e10cSrcweir 95*cdf0e10cSrcweir 96*cdf0e10cSrcweir ::sal_Bool SAL_CALL 97*cdf0e10cSrcweir ScVbaStyle::BuiltIn() throw (script::BasicErrorException, uno::RuntimeException) 98*cdf0e10cSrcweir { 99*cdf0e10cSrcweir return !mxStyle->isUserDefined(); 100*cdf0e10cSrcweir 101*cdf0e10cSrcweir } 102*cdf0e10cSrcweir void SAL_CALL 103*cdf0e10cSrcweir ScVbaStyle::setName( const ::rtl::OUString& Name ) throw (script::BasicErrorException, uno::RuntimeException) 104*cdf0e10cSrcweir { 105*cdf0e10cSrcweir mxStyle->setName(Name); 106*cdf0e10cSrcweir } 107*cdf0e10cSrcweir 108*cdf0e10cSrcweir ::rtl::OUString SAL_CALL 109*cdf0e10cSrcweir ScVbaStyle::getName() throw (script::BasicErrorException, uno::RuntimeException) 110*cdf0e10cSrcweir { 111*cdf0e10cSrcweir return mxStyle->getName(); 112*cdf0e10cSrcweir } 113*cdf0e10cSrcweir 114*cdf0e10cSrcweir void SAL_CALL 115*cdf0e10cSrcweir ScVbaStyle::setNameLocal( const ::rtl::OUString& NameLocal ) throw (script::BasicErrorException, uno::RuntimeException) 116*cdf0e10cSrcweir { 117*cdf0e10cSrcweir try 118*cdf0e10cSrcweir { 119*cdf0e10cSrcweir mxPropertySet->setPropertyValue(DISPLAYNAME, uno::makeAny( NameLocal ) ); 120*cdf0e10cSrcweir } 121*cdf0e10cSrcweir catch (uno::Exception& e) 122*cdf0e10cSrcweir { 123*cdf0e10cSrcweir DebugHelper::exception(e); 124*cdf0e10cSrcweir } 125*cdf0e10cSrcweir } 126*cdf0e10cSrcweir 127*cdf0e10cSrcweir ::rtl::OUString SAL_CALL 128*cdf0e10cSrcweir ScVbaStyle::getNameLocal() throw (script::BasicErrorException, uno::RuntimeException) 129*cdf0e10cSrcweir { 130*cdf0e10cSrcweir rtl::OUString sName; 131*cdf0e10cSrcweir try 132*cdf0e10cSrcweir { 133*cdf0e10cSrcweir mxPropertySet->getPropertyValue(DISPLAYNAME) >>= sName; 134*cdf0e10cSrcweir } 135*cdf0e10cSrcweir catch (uno::Exception e) 136*cdf0e10cSrcweir { 137*cdf0e10cSrcweir DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString() ); 138*cdf0e10cSrcweir } 139*cdf0e10cSrcweir return sName; 140*cdf0e10cSrcweir } 141*cdf0e10cSrcweir 142*cdf0e10cSrcweir void SAL_CALL 143*cdf0e10cSrcweir ScVbaStyle::Delete() throw (script::BasicErrorException, uno::RuntimeException) 144*cdf0e10cSrcweir { 145*cdf0e10cSrcweir try 146*cdf0e10cSrcweir { 147*cdf0e10cSrcweir mxStyleFamilyNameContainer->removeByName(mxStyle->getName()); 148*cdf0e10cSrcweir } 149*cdf0e10cSrcweir catch (uno::Exception& ) 150*cdf0e10cSrcweir { 151*cdf0e10cSrcweir DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString()); 152*cdf0e10cSrcweir } 153*cdf0e10cSrcweir } 154*cdf0e10cSrcweir 155*cdf0e10cSrcweir void SAL_CALL 156*cdf0e10cSrcweir ScVbaStyle::setMergeCells( const uno::Any& /*MergeCells*/ ) throw (script::BasicErrorException, uno::RuntimeException) 157*cdf0e10cSrcweir { 158*cdf0e10cSrcweir DebugHelper::exception(SbERR_NOT_IMPLEMENTED, rtl::OUString()); 159*cdf0e10cSrcweir } 160*cdf0e10cSrcweir 161*cdf0e10cSrcweir uno::Any SAL_CALL 162*cdf0e10cSrcweir ScVbaStyle::getMergeCells( ) throw (script::BasicErrorException, uno::RuntimeException) 163*cdf0e10cSrcweir { 164*cdf0e10cSrcweir DebugHelper::exception(SbERR_NOT_IMPLEMENTED, rtl::OUString()); 165*cdf0e10cSrcweir return uno::Any(); 166*cdf0e10cSrcweir } 167*cdf0e10cSrcweir 168*cdf0e10cSrcweir 169*cdf0e10cSrcweir rtl::OUString& 170*cdf0e10cSrcweir ScVbaStyle::getServiceImplName() 171*cdf0e10cSrcweir { 172*cdf0e10cSrcweir static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaStyle") ); 173*cdf0e10cSrcweir return sImplName; 174*cdf0e10cSrcweir } 175*cdf0e10cSrcweir 176*cdf0e10cSrcweir uno::Sequence< rtl::OUString > 177*cdf0e10cSrcweir ScVbaStyle::getServiceNames() 178*cdf0e10cSrcweir { 179*cdf0e10cSrcweir static uno::Sequence< rtl::OUString > aServiceNames; 180*cdf0e10cSrcweir if ( aServiceNames.getLength() == 0 ) 181*cdf0e10cSrcweir { 182*cdf0e10cSrcweir aServiceNames.realloc( 1 ); 183*cdf0e10cSrcweir aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.XStyle" ) ); 184*cdf0e10cSrcweir } 185*cdf0e10cSrcweir return aServiceNames; 186*cdf0e10cSrcweir } 187