sc/source/ui/vba/vbapagebreak.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 "vbapagebreak.hxx"
  20 #include "vbarange.hxx"
  21 #include <ooo/vba/excel/XlPageBreak.hpp>
  22 using namespace ::com::sun::star;
  23 using namespace ::ooo::vba;
  24
  25 template< typename Ifc1 >
  26 ScVbaPageBreak<Ifc1>::ScVbaPageBreak( const uno::Reference< XHelperInterface >& xParent,
  27                     const uno::Reference< uno::XComponentContext >& xContext,
  28                     uno::Reference< beans::XPropertySet >& xProps,
  29                     sheet::TablePageBreakData aTablePageBreakData) throw (uno::RuntimeException):
  30             ScVbaPageBreak_BASE( xParent, xContext ),
  31             mxRowColPropertySet( xProps ),
  32             maTablePageBreakData( aTablePageBreakData )
  33 {
  34 }
  35
  36 template< typename Ifc1 >
  37 sal_Int32 ScVbaPageBreak<Ifc1>::getType() throw (uno::RuntimeException)
  38 {
  39     uno::Any aValue = mxRowColPropertySet->getPropertyValue("IsStartOfNewPage");
  40     bool hasPageBreak = false;
  41     aValue >>= hasPageBreak;
  42
  43     if( !hasPageBreak )
  44         return excel::XlPageBreak::xlPageBreakNone;
  45
  46     if( maTablePageBreakData.ManualBreak )
  47         return excel::XlPageBreak::xlPageBreakManual;
  48
  49     return excel::XlPageBreak::xlPageBreakAutomatic;
  50 }
  51
  52 template< typename Ifc1 >
  53 void ScVbaPageBreak<Ifc1>::setType(sal_Int32 type) throw (uno::RuntimeException)
  54 {
  55     if( (type != excel::XlPageBreak::xlPageBreakNone) &&
  56         (type != excel::XlPageBreak::xlPageBreakManual) &&
  57         (type != excel::XlPageBreak::xlPageBreakAutomatic) )
  58     {
  59         DebugHelper::runtimeexception(SbERR_BAD_PARAMETER, OUString() );
  60     }
  61
  62     if( type == excel::XlPageBreak::xlPageBreakNone )
  63     {
  64         mxRowColPropertySet->setPropertyValue("IsStartOfNewPage", uno::makeAny(sal_False));
  65         return;
  66     }
  67
  68     mxRowColPropertySet->setPropertyValue("IsStartOfNewPage", uno::makeAny(sal_True));
  69     if( type == excel::XlPageBreak::xlPageBreakManual )
  70         maTablePageBreakData.ManualBreak = sal_True;
  71     else
  72         maTablePageBreakData.ManualBreak = false;
  73 }
  74
  75 template< typename Ifc1 >
  76 void ScVbaPageBreak<Ifc1>::Delete() throw ( script::BasicErrorException, uno::RuntimeException)
  77 {
  78     mxRowColPropertySet->setPropertyValue("IsStartOfNewPage", uno::makeAny(sal_False));
  79 }
  80
  81 template< typename Ifc1 >
  82 uno::Reference< excel::XRange> ScVbaPageBreak<Ifc1>::Location() throw ( script::BasicErrorException, uno::RuntimeException)
  83 {
  84     uno::Reference< table::XCellRange > xRange( mxRowColPropertySet, uno::UNO_QUERY_THROW );
  85     return new ScVbaRange( ScVbaPageBreak_BASE::getParent(), ScVbaPageBreak_BASE::mxContext, xRange);
  86 }
  87
  88 template< typename Ifc1 >
  89 OUString
  90 ScVbaPageBreak<Ifc1>::getServiceImplName()
  91 {
  92     return OUString("ScVbaPageBreak");
  93 }
  94
  95 template< typename Ifc1 >
  96 uno::Sequence< OUString >
  97 ScVbaPageBreak<Ifc1>::getServiceNames()
  98 {
  99     static uno::Sequence< OUString > aServiceNames;
 100     if ( aServiceNames.getLength() == 0 )
 101     {
 102         aServiceNames.realloc( 1 );
 103         aServiceNames[ 0 ] = "ooo.vba.excel.PageBreak";
 104     }
 105     return aServiceNames;
 106 }
 107
 108 template class ScVbaPageBreak< excel::XHPageBreak >;
 109
 110 /* class ScVbaHPageBreak */
 111 OUString
 112 ScVbaHPageBreak::getServiceImplName()
 113 {
 114     return OUString("ScVbaHPageBreak");
 115 }
 116
 117 uno::Sequence< OUString >
 118 ScVbaHPageBreak::getServiceNames()
 119 {
 120     static uno::Sequence< OUString > aServiceNames;
 121     if ( aServiceNames.getLength() == 0 )
 122     {
 123         aServiceNames.realloc( 1 );
 124         aServiceNames[ 0 ] = "ooo.vba.excel.HPageBreak";
 125     }
 126     return aServiceNames;
 127 }
 128
 129 template class ScVbaPageBreak< excel::XVPageBreak >;
 130
 131 /* class ScVbaVPageBreak */
 132 ScVbaVPageBreak::ScVbaVPageBreak( const css::uno::Reference< ov::XHelperInterface >& xParent,
 133                                   const css::uno::Reference< css::uno::XComponentContext >& xContext,
 134                                   css::uno::Reference< css::beans::XPropertySet >& xProps,
 135                                   css::sheet::TablePageBreakData aTablePageBreakData ) throw ( css::uno::RuntimeException )
 136 :   ScVbaVPageBreak_BASE( xParent, xContext, xProps, aTablePageBreakData )
 137 {
 138 }
 139
 140 ScVbaVPageBreak::~ScVbaVPageBreak()
 141 {
 142 }
 143
 144 OUString
 145 ScVbaVPageBreak::getServiceImplName()
 146 {
 147     return OUString("ScVbaVPageBreak");
 148 }
 149
 150 uno::Sequence< OUString >
 151 ScVbaVPageBreak::getServiceNames()
 152 {
 153     static uno::Sequence< OUString > aServiceNames;
 154     if ( aServiceNames.getLength() == 0 )
 155     {
 156         aServiceNames.realloc( 1 );
 157         aServiceNames[ 0 ] = "ooo.vba.excel.VPageBreak";
 158     }
 159     return aServiceNames;
 160 }
 161
 162 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */