sw/source/ui/vba/vbaheaderfooter.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile:
  10  * $Revision:
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30 #include "vbaheaderfooter.hxx"
  31 #include <vbahelper/vbahelper.hxx>
  32 #include <tools/diagnose_ex.h>
  33 #include <ooo/vba/word/WdHeaderFooterIndex.hpp>
  34 #include <com/sun/star/text/XText.hpp>
  35 #include <com/sun/star/text/XTextDocument.hpp>
  36 #include <com/sun/star/drawing/XDrawPageSupplier.hpp>
  37 #include "vbarange.hxx"
  38 #include <vbahelper/vbashapes.hxx>
  39
  40 using namespace ::ooo::vba;
  41 using namespace ::com::sun::star;
  42
  43 SwVbaHeaderFooter::SwVbaHeaderFooter( const uno::Reference< ooo::vba::XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext, const uno::Reference< frame::XModel >& xModel, const uno::Reference< beans::XPropertySet >& rProps, sal_Bool isHeader, sal_Int32 index ) throw ( uno::RuntimeException ) : SwVbaHeaderFooter_BASE( rParent, rContext ), mxModel( xModel ), mxPageStyleProps( rProps ), mbHeader( isHeader ), mnIndex( index )
  44 {
  45 }
  46
  47 sal_Bool SAL_CALL SwVbaHeaderFooter::getIsHeader() throw (uno::RuntimeException)
  48 {
  49     return mbHeader;
  50 }
  51
  52 sal_Bool SAL_CALL SwVbaHeaderFooter::getLinkToPrevious() throw (uno::RuntimeException)
  53 {
  54     // seems always false
  55     return sal_False;
  56 }
  57
  58 void SAL_CALL SwVbaHeaderFooter::setLinkToPrevious( ::sal_Bool /*_linktoprevious*/ ) throw (uno::RuntimeException)
  59 {
  60     // not support in Writer
  61 }
  62
  63 uno::Reference< word::XRange > SAL_CALL SwVbaHeaderFooter::getRange() throw (uno::RuntimeException)
  64 {
  65     rtl::OUString sPropsNameText;
  66     if( mbHeader )
  67     {
  68         sPropsNameText = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("HeaderText") );
  69     }
  70     else
  71     {
  72         sPropsNameText = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("FooterText") );
  73     }
  74     if( mnIndex == word::WdHeaderFooterIndex::wdHeaderFooterEvenPages )
  75     {
  76         sPropsNameText.concat( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Left") ) );
  77     }
  78
  79     uno::Reference< text::XText > xText( mxPageStyleProps->getPropertyValue( sPropsNameText ), uno::UNO_QUERY_THROW );
  80     uno::Reference< text::XTextDocument > xDocument( mxModel, uno::UNO_QUERY_THROW );
  81     return uno::Reference< word::XRange >( new SwVbaRange( this, mxContext, xDocument, xText->getStart(), xText->getEnd(), xText ) );
  82 }
  83
  84 uno::Any SAL_CALL
  85 SwVbaHeaderFooter::Shapes( const uno::Any& index ) throw (uno::RuntimeException)
  86 {
  87     uno::Reference< drawing::XDrawPageSupplier > xDrawPageSupplier( mxModel, uno::UNO_QUERY_THROW );
  88     //uno::Reference< drawing::XShapes > xShapes( xDrawPageSupplier->getDrawPage(), uno::UNO_QUERY_THROW );
  89     uno::Reference< container::XIndexAccess > xIndexAccess( xDrawPageSupplier->getDrawPage(), uno::UNO_QUERY_THROW );
  90     uno::Reference< XCollection > xCol( new ScVbaShapes( this, mxContext, xIndexAccess, mxModel ) );
  91     if ( index.hasValue() )
  92         return xCol->Item( index, uno::Any() );
  93     return uno::makeAny( xCol );
  94 }
  95
  96 rtl::OUString&
  97 SwVbaHeaderFooter::getServiceImplName()
  98 {
  99         static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("SwVbaHeaderFooter") );
 100         return sImplName;
 101 }
 102
 103 uno::Sequence< rtl::OUString >
 104 SwVbaHeaderFooter::getServiceNames()
 105 {
 106         static uno::Sequence< rtl::OUString > aServiceNames;
 107         if ( aServiceNames.getLength() == 0 )
 108         {
 109                 aServiceNames.realloc( 1 );
 110                 aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.word.Pane" ) );
 111         }
 112         return aServiceNames;
 113 }
 114