sc/source/ui/vba/vbapagebreaks.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19 #include "vbapagebreaks.hxx"
  20 #include "vbapagebreak.hxx"
  21 #include <ooo/vba/excel/XWorksheet.hpp>
  22 using namespace ::com::sun::star;
  23 using namespace ::ooo::vba;
  24
  25 typedef ::cppu::WeakImplHelper1<container::XIndexAccess > RangePageBreaks_Base;
  26 class RangePageBreaks : public RangePageBreaks_Base
  27 {
  28 private:
  29     uno::Reference< XHelperInterface > mxParent;
  30     uno::Reference< uno::XComponentContext > mxContext;
  31     uno::Reference< sheet::XSheetPageBreak > mxSheetPageBreak;
  32     sal_Bool m_bColumn;
  33
  34 public:
  35     RangePageBreaks( const uno::Reference< XHelperInterface >& xParent,
  36                      const uno::Reference< uno::XComponentContext >& xContext,
  37                      uno::Reference< sheet::XSheetPageBreak >& xSheetPageBreak,
  38                      sal_Bool bColumn ) : mxParent( xParent ), mxContext( xContext ), mxSheetPageBreak( xSheetPageBreak ), m_bColumn( bColumn )
  39     {
  40     }
  41
  42     sal_Int32 getAPIStartofRange( const uno::Reference< excel::XRange >& xRange ) throw (css::uno::RuntimeException)
  43     {
  44         if( m_bColumn )
  45             return xRange->getColumn() - 1;
  46         return xRange->getRow() - 1;
  47     }
  48
  49     sal_Int32 getAPIEndIndexofRange( const uno::Reference< excel::XRange >& xRange, sal_Int32 nUsedStart ) throw (uno::RuntimeException)
  50     {
  51         if( m_bColumn )
  52             return nUsedStart + xRange->Columns( uno::Any() )->getCount() - 1;
  53         return nUsedStart + xRange->Rows( uno::Any() )->getCount();
  54     }
  55
  56     uno::Sequence<sheet::TablePageBreakData> getAllPageBreaks() throw (uno::RuntimeException)
  57     {
  58         if( m_bColumn )
  59             return mxSheetPageBreak->getColumnPageBreaks();
  60         return mxSheetPageBreak->getRowPageBreaks();
  61     }
  62
  63     uno::Reference<container::XIndexAccess> getRowColContainer() throw (uno::RuntimeException)
  64     {
  65         uno::Reference< table::XColumnRowRange > xColumnRowRange( mxSheetPageBreak, uno::UNO_QUERY_THROW );
  66         uno::Reference<container::XIndexAccess> xIndexAccess;
  67         if( m_bColumn )
  68             xIndexAccess.set( xColumnRowRange->getColumns(), uno::UNO_QUERY_THROW );
  69         else
  70             xIndexAccess.set( xColumnRowRange->getRows(), uno::UNO_QUERY_THROW );
  71         return xIndexAccess;
  72     }
  73
  74     sheet::TablePageBreakData getTablePageBreakData( sal_Int32 nAPIItemIndex ) throw ( script::BasicErrorException, uno::RuntimeException);
  75     uno::Any Add( const css::uno::Any& Before ) throw ( css::script::BasicErrorException, css::uno::RuntimeException);
  76
  77     // XIndexAccess
  78     virtual sal_Int32 SAL_CALL getCount(  ) throw (uno::RuntimeException);
  79     virtual uno::Any SAL_CALL getByIndex( sal_Int32 Index ) throw (lang::IndexOutOfBoundsException, lang::WrappedTargetException, uno::RuntimeException);
  80     virtual uno::Type SAL_CALL getElementType(  ) throw (uno::RuntimeException)
  81     {
  82         if( m_bColumn )
  83              return excel::XVPageBreak::static_type(0);
  84         return  excel::XHPageBreak::static_type(0);
  85     }
  86     virtual sal_Bool SAL_CALL hasElements(  ) throw (uno::RuntimeException)
  87     {
  88         return sal_True;
  89     }
  90 };
  91
  92 /** @TODO Unlike MS Excel this method only considers the pagebreaks that intersect the used range
  93 *  To become completely compatible the print area has to be considered. As far as I found out this printarea
  94 *  also considers the position and sizes of shapes and manually inserted page breaks
  95 *  Note: In MS  there is a limit of 1026 horizontal page breaks per sheet.
  96 */
  97 sal_Int32 SAL_CALL RangePageBreaks::getCount(  ) throw (uno::RuntimeException)
  98 {
  99     sal_Int32 nCount = 0;
 100     uno::Reference< excel::XWorksheet > xWorksheet( mxParent, uno::UNO_QUERY_THROW );
 101     uno::Reference< excel::XRange > xRange = xWorksheet->getUsedRange();
 102     sal_Int32 nUsedStart = getAPIStartofRange( xRange );
 103     sal_Int32 nUsedEnd = getAPIEndIndexofRange( xRange, nUsedStart );
 104     uno::Sequence<sheet::TablePageBreakData> aTablePageBreakData = getAllPageBreaks();
 105
 106     sal_Int32 nLength = aTablePageBreakData.getLength();
 107     for( sal_Int32 i=0; i<nLength; i++ )
 108     {
 109         sal_Int32 nPos = aTablePageBreakData[i].Position;
 110         if( nPos > nUsedEnd + 1)
 111             return nCount;
 112         nCount++;
 113     }
 114
 115     return nCount;
 116 }
 117
 118 uno::Any SAL_CALL RangePageBreaks::getByIndex( sal_Int32 Index ) throw (lang::IndexOutOfBoundsException, lang::WrappedTargetException, uno::RuntimeException)
 119 {
 120     if( (Index < getCount()) && ( Index >= 0 ))
 121     {
 122         sheet::TablePageBreakData aTablePageBreakData = getTablePageBreakData( Index );
 123         uno::Reference< container::XIndexAccess > xIndexAccess = getRowColContainer();
 124         sal_Int32 nPos = aTablePageBreakData.Position;
 125         if( (nPos < xIndexAccess->getCount()) && (nPos > -1) )
 126         {
 127             uno::Reference< beans::XPropertySet > xRowColPropertySet( xIndexAccess->getByIndex(nPos), uno::UNO_QUERY_THROW );
 128             if( m_bColumn )
 129                 return uno::makeAny( uno::Reference< excel::XVPageBreak >( new ScVbaVPageBreak( mxParent, mxContext, xRowColPropertySet, aTablePageBreakData) ));
 130             return uno::makeAny( uno::Reference< excel::XHPageBreak >( new ScVbaHPageBreak( mxParent, mxContext, xRowColPropertySet, aTablePageBreakData) ));
 131         }
 132     }
 133     throw lang::IndexOutOfBoundsException();
 134 }
 135
 136 sheet::TablePageBreakData RangePageBreaks::getTablePageBreakData( sal_Int32 nAPIItemIndex ) throw ( script::BasicErrorException, uno::RuntimeException)
 137 {
 138     sal_Int32 index = -1;
 139     sheet::TablePageBreakData aTablePageBreakData;
 140     uno::Reference< excel::XWorksheet > xWorksheet( mxParent, uno::UNO_QUERY_THROW );
 141     uno::Reference< excel::XRange > xRange = xWorksheet->getUsedRange();
 142     sal_Int32 nUsedStart = getAPIStartofRange( xRange );
 143     sal_Int32 nUsedEnd = getAPIEndIndexofRange( xRange, nUsedStart );
 144     uno::Sequence<sheet::TablePageBreakData> aTablePageBreakDataList = getAllPageBreaks();
 145
 146     sal_Int32 nLength = aTablePageBreakDataList.getLength();
 147     for( sal_Int32 i=0; i<nLength; i++ )
 148     {
 149         aTablePageBreakData = aTablePageBreakDataList[i];
 150         sal_Int32 nPos = aTablePageBreakData.Position;
 151         if( nPos > nUsedEnd + 1 )
 152             DebugHelper::exception(SbERR_METHOD_FAILED, OUString());
 153         index++;
 154         if( index == nAPIItemIndex )
 155             return aTablePageBreakData;
 156     }
 157
 158     return aTablePageBreakData;
 159 }
 160
 161 uno::Any RangePageBreaks::Add( const css::uno::Any& Before ) throw ( css::script::BasicErrorException, css::uno::RuntimeException)
 162 {
 163     uno::Reference< excel::XRange > xRange;
 164     Before >>= xRange;
 165     if( !xRange.is() )
 166     {
 167         DebugHelper::exception(SbERR_BAD_ARGUMENT, OUString());
 168     }
 169
 170     sal_Int32 nAPIRowColIndex = getAPIStartofRange( xRange );
 171     uno::Reference< container::XIndexAccess > xIndexAccess = getRowColContainer();
 172     uno::Reference< beans::XPropertySet > xRowColPropertySet( xIndexAccess->getByIndex(nAPIRowColIndex), uno::UNO_QUERY_THROW );
 173     xRowColPropertySet->setPropertyValue("IsStartOfNewPage", uno::makeAny(sal_True));
 174     sheet::TablePageBreakData aTablePageBreakData;
 175     aTablePageBreakData.ManualBreak = sal_True;
 176     aTablePageBreakData.Position = nAPIRowColIndex;
 177     if( m_bColumn )
 178         return uno::makeAny( uno::Reference< excel::XVPageBreak >( new ScVbaVPageBreak( mxParent, mxContext, xRowColPropertySet, aTablePageBreakData) ));
 179     return uno::makeAny( uno::Reference< excel::XHPageBreak >( new ScVbaHPageBreak( mxParent, mxContext, xRowColPropertySet, aTablePageBreakData) ));
 180 }
 181
 182
 183 class RangePageBreaksEnumWrapper : public EnumerationHelper_BASE
 184 {
 185     uno::Reference<container::XIndexAccess > m_xIndexAccess;
 186     sal_Int32 nIndex;
 187 public:
 188     RangePageBreaksEnumWrapper( const uno::Reference< container::XIndexAccess >& xIndexAccess ) : m_xIndexAccess( xIndexAccess ), nIndex( 0 ) {}
 189     virtual ::sal_Bool SAL_CALL hasMoreElements(  ) throw (uno::RuntimeException)
 190     {
 191         return ( nIndex < m_xIndexAccess->getCount() );
 192     }
 193
 194     virtual uno::Any SAL_CALL nextElement(  ) throw (container::NoSuchElementException, lang::WrappedTargetException, uno::RuntimeException)
 195     {
 196         if ( nIndex < m_xIndexAccess->getCount() )
 197             return m_xIndexAccess->getByIndex( nIndex++ );
 198         throw container::NoSuchElementException();
 199     }
 200 };
 201
 202 ScVbaHPageBreaks::ScVbaHPageBreaks( const uno::Reference< XHelperInterface >& xParent,
 203                                     const uno::Reference< uno::XComponentContext >& xContext,
 204                                     uno::Reference< sheet::XSheetPageBreak >& xSheetPageBreak) throw (uno::RuntimeException):
 205                           ScVbaHPageBreaks_BASE( xParent,xContext, new RangePageBreaks( xParent, xContext, xSheetPageBreak, false )),
 206                           mxSheetPageBreak( xSheetPageBreak )
 207 {
 208 }
 209
 210 uno::Any SAL_CALL ScVbaHPageBreaks::Add( const uno::Any& Before) throw ( script::BasicErrorException, uno::RuntimeException)
 211 {
 212     RangePageBreaks* pPageBreaks = dynamic_cast< RangePageBreaks* >( m_xIndexAccess.get() );
 213     if( pPageBreaks )
 214     {
 215         return pPageBreaks->Add( Before );
 216     }
 217     return uno::Any();
 218 }
 219
 220 uno::Reference< container::XEnumeration >
 221 ScVbaHPageBreaks::createEnumeration() throw (uno::RuntimeException)
 222 {
 223     return new RangePageBreaksEnumWrapper( m_xIndexAccess );
 224 }
 225
 226 uno::Any
 227 ScVbaHPageBreaks::createCollectionObject( const css::uno::Any& aSource )
 228 {
 229     return aSource; // its already a pagebreak object
 230 }
 231
 232 uno::Type
 233 ScVbaHPageBreaks::getElementType() throw (uno::RuntimeException)
 234 {
 235     return excel::XHPageBreak::static_type(0);
 236 }
 237
 238 OUString
 239 ScVbaHPageBreaks::getServiceImplName()
 240 {
 241     return OUString("ScVbaHPageBreaks");
 242 }
 243
 244 uno::Sequence< OUString >
 245 ScVbaHPageBreaks::getServiceNames()
 246 {
 247     static uno::Sequence< OUString > aServiceNames;
 248     if ( aServiceNames.getLength() == 0 )
 249     {
 250         aServiceNames.realloc( 1 );
 251         aServiceNames[ 0 ] = "ooo.vba.excel.HPageBreaks";
 252     }
 253     return aServiceNames;
 254 }
 255
 256 //VPageBreak
 257 ScVbaVPageBreaks::ScVbaVPageBreaks( const uno::Reference< XHelperInterface >& xParent,
 258                                     const uno::Reference< uno::XComponentContext >& xContext,
 259                                     uno::Reference< sheet::XSheetPageBreak >& xSheetPageBreak ) throw ( uno::RuntimeException )
 260 :   ScVbaVPageBreaks_BASE( xParent, xContext, new RangePageBreaks( xParent, xContext, xSheetPageBreak, sal_True ) ),
 261     mxSheetPageBreak( xSheetPageBreak )
 262 {
 263 }
 264
 265 ScVbaVPageBreaks::~ScVbaVPageBreaks()
 266 {
 267 }
 268
 269 uno::Any SAL_CALL
 270 ScVbaVPageBreaks::Add( const uno::Any& Before ) throw ( script::BasicErrorException, uno::RuntimeException )
 271 {
 272     RangePageBreaks* pPageBreaks = dynamic_cast< RangePageBreaks* >( m_xIndexAccess.get() );
 273     if( pPageBreaks )
 274     {
 275         return pPageBreaks->Add( Before );
 276     }
 277     return uno::Any();
 278 }
 279
 280 uno::Reference< container::XEnumeration >
 281 ScVbaVPageBreaks::createEnumeration() throw ( uno::RuntimeException )
 282 {
 283     return new RangePageBreaksEnumWrapper( m_xIndexAccess );
 284 }
 285
 286 uno::Any
 287 ScVbaVPageBreaks::createCollectionObject( const css::uno::Any& aSource )
 288 {
 289     return aSource; // its already a pagebreak object
 290 }
 291
 292 uno::Type
 293 ScVbaVPageBreaks::getElementType() throw ( uno::RuntimeException )
 294 {
 295     return excel::XVPageBreak::static_type( 0 );
 296 }
 297
 298 OUString
 299 ScVbaVPageBreaks::getServiceImplName()
 300 {
 301     return OUString("ScVbaVPageBreaks");
 302 }
 303
 304 uno::Sequence< OUString >
 305 ScVbaVPageBreaks::getServiceNames()
 306 {
 307     static uno::Sequence< OUString > aServiceNames;
 308     if ( aServiceNames.getLength() == 0 )
 309     {
 310         aServiceNames.realloc( 1 );
 311         aServiceNames[ 0 ] = "ooo.vba.excel.VPageBreaks";
 312     }
 313     return aServiceNames;
 314 }
 315
 316 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */