/* -*- 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 "vbastyles.hxx" #include "vbastyle.hxx" #include using namespace ::ooo::vba; using namespace ::com::sun::star; static OUString SDEFAULTCELLSTYLENAME("Default"); static css::uno::Any lcl_createAPIStyleToVBAObject( const css::uno::Any& aObject, const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< frame::XModel >& xModel ) { uno::Reference< beans::XPropertySet > xStyleProps( aObject, uno::UNO_QUERY_THROW ); uno::Reference< excel::XStyle > xStyle( new ScVbaStyle( xParent, xContext, xStyleProps, xModel ) ); return uno::makeAny( xStyle ); } ScVbaStyles::ScVbaStyles( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< css::uno::XComponentContext > & xContext, const uno::Reference< frame::XModel >& xModel ) throw ( script::BasicErrorException ) : ScVbaStyles_BASE( xParent, xContext, uno::Reference< container::XIndexAccess >( ScVbaStyle::getStylesNameContainer( xModel ), uno::UNO_QUERY_THROW ) ), mxModel( xModel ), mxParent( xParent ) { try { mxMSF.set( mxModel, uno::UNO_QUERY_THROW ); mxNameContainerCellStyles.set( m_xNameAccess, uno::UNO_QUERY_THROW ); } catch (uno::Exception& ) { DebugHelper::exception(SbERR_METHOD_FAILED, OUString()); } } uno::Sequence< OUString > ScVbaStyles::getStyleNames() throw ( uno::RuntimeException ) { return mxNameContainerCellStyles->getElementNames(); } uno::Any ScVbaStyles::createCollectionObject(const uno::Any& aObject) { return lcl_createAPIStyleToVBAObject( aObject, mxParent, mxContext, mxModel ); } uno::Type SAL_CALL ScVbaStyles::getElementType() throw (uno::RuntimeException) { return excel::XStyle::static_type(0); } class EnumWrapper : public EnumerationHelper_BASE { uno::Reference m_xIndexAccess; uno::Reference m_xParent; uno::Reference m_xContext; uno::Reference m_xModel; sal_Int32 nIndex; public: EnumWrapper( const uno::Reference< container::XIndexAccess >& xIndexAccess, const uno::Reference& xParent, const uno::Reference& xContext, const uno::Reference& xModel ) : m_xIndexAccess( xIndexAccess ), m_xParent( xParent ), m_xContext( xContext ), m_xModel( xModel ), nIndex( 0 ) {} virtual ::sal_Bool SAL_CALL hasMoreElements( ) throw (uno::RuntimeException) { return ( nIndex < m_xIndexAccess->getCount() ); } virtual uno::Any SAL_CALL nextElement( ) throw (container::NoSuchElementException, lang::WrappedTargetException, uno::RuntimeException) { if ( nIndex < m_xIndexAccess->getCount() ) return lcl_createAPIStyleToVBAObject( m_xIndexAccess->getByIndex( nIndex++ ), m_xParent, m_xContext, m_xModel ); throw container::NoSuchElementException(); } }; uno::Reference< container::XEnumeration > SAL_CALL ScVbaStyles::createEnumeration() throw (uno::RuntimeException) { return new EnumWrapper( m_xIndexAccess, mxParent, mxContext, mxModel ); } uno::Reference< excel::XStyle > SAL_CALL ScVbaStyles::Add( const OUString& _sName, const uno::Any& _aBasedOn ) throw (script::BasicErrorException, uno::RuntimeException) { uno::Reference< excel::XStyle > aRet; try { OUString sParentCellStyleName("Default"); if ( _aBasedOn.hasValue() ) { uno::Reference< excel::XRange > oRange; if ( _aBasedOn >>= oRange) { uno::Reference< excel::XStyle > oStyle( oRange->getStyle(), uno::UNO_QUERY_THROW ); if ( oStyle.is() ) { sParentCellStyleName = oStyle->getName(); } else { DebugHelper::exception(SbERR_BAD_ARGUMENT, OUString() ); } } else { DebugHelper::exception(SbERR_BAD_ARGUMENT, OUString()); } } uno::Reference< style::XStyle > xStyle( mxMSF->createInstance( OUString("com.sun.star.style.CellStyle")), uno::UNO_QUERY_THROW ); if (!mxNameContainerCellStyles->hasByName(_sName)) { mxNameContainerCellStyles->insertByName(_sName, uno::makeAny( xStyle) ); } if (!sParentCellStyleName.equals(SDEFAULTCELLSTYLENAME)) { xStyle->setParentStyle( sParentCellStyleName ); } aRet.set( Item( uno::makeAny( _sName ), uno::Any() ), uno::UNO_QUERY_THROW ); } catch (uno::Exception& ) { DebugHelper::exception(SbERR_METHOD_FAILED, OUString()); } return aRet; } void ScVbaStyles::Delete(const OUString _sStyleName) throw ( script::BasicErrorException ) { try { if (mxNameContainerCellStyles->hasByName( _sStyleName ) ) mxNameContainerCellStyles->removeByName( _sStyleName ); } catch (uno::Exception& ) { DebugHelper::exception(SbERR_METHOD_FAILED, OUString()); } } OUString ScVbaStyles::getServiceImplName() { return OUString("ScVbaStyles"); } uno::Sequence< OUString > ScVbaStyles::getServiceNames() { static uno::Sequence< OUString > aServiceNames; if ( aServiceNames.getLength() == 0 ) { aServiceNames.realloc( 1 ); aServiceNames[ 0 ] = OUString("ooo.vba.excel.XStyles" ); } return aServiceNames; } /* vim:set shiftwidth=4 softtabstop=4 expandtab: */ LibreOffice 核心代码仓库文档基金会
summaryrefslogtreecommitdiff
path: root/sw/inc/unosrch.hxx
AgeCommit message (Expand)Author
2019-11-04loplugin:finalclasses in sw/incNoel Grandin
2018-07-16loplugin:useuniqueptr in SwXTextSearchNoel Grandin
2018-04-25sw: fix remaining IWYU warnings in inc/*.hxxMiklos Vajna
2017-03-01typesafe wrappers for css::i18nutil::TransliterationModulesNoel Grandin
2017-01-26Remove dynamic exception specificationsStephan Bergmann
2016-09-13loplugin:override: No more need for the "MSVC dtor override" workaroundStephan Bergmann
2016-07-18sw: prefix members of SwXTextSearchMiklos Vajna
2016-02-25use SearchOptions2Eike Rathke
2015-11-06com::sun::star->css in sw/incNoel Grandin
2015-10-12Replace "SAL_OVERRIDE" with "override" in LIBO_INTERNAL_ONLY codeStephan Bergmann
2015-04-15remove unnecessary use of void in function declarationsNoel Grandin
2015-04-06sw: use variadic cppu::WeakImplHelperMiklos Vajna
2014-04-30sw: sal_Bool->boolNoel Grandin
2014-03-27Second batch of adding SAL_OVERRIDE to overriding function declarationsStephan Bergmann
2014-02-27Remove visual noise from swAlexander Wilms
2014-02-26cppuhelper: retrofit std::exception into overriding exception specsStephan Bergmann
2013-11-05fixincludeguards.sh: swThomas Arnhold
2013-10-22Bin comments that claim to say why some header is includedTor Lillqvist
2013-10-20drop unnecessary tools/string includesCaolán McNamara
2013-09-19convert sw/inc/unosrch.hxx from String to OUStringNoel Grandin
2013-04-07mass removal of rtl:: prefixes for O(U)String*Luboš Luňák
2012-08-07remove empty ascii boxes and stuffThomas Arnhold
2012-06-21re-base on ALv2 code.Michael Meeks
2011-01-04detangle some BOOL/sal_Bool/bools nastinessCaolán McNamara
2010-11-01Bogus comments, commented lines removed, some german comments translated.Robert Roth
2010-10-14Add vim/emacs modelines to all source filesSebastian Spaeth
2010-02-12changefileheader2: #i109125#: change source file copyright notice from Sun Mi...Jens-Heiner Rechtien
2009-06-03CWS-TOOLING: integrate CWS os128Kurt Zenker
2008-04-10INTEGRATION: CWS changefileheader (1.4.1200); FILE MERGEDRüdiger Timm