sw/source/ui/vba/vbawrapformat.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: vbawrapformat.cxx,v $
  10  * $Revision: 1.4 $
  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 "vbawrapformat.hxx"
  31 #include <ooo/vba/word/WdWrapSideType.hpp>
  32 #include <ooo/vba/word/WdWrapType.hpp>
  33 #include <com/sun/star/text/WrapTextMode.hpp>
  34 #include <vbahelper/vbahelper.hxx>
  35 #include <vbahelper/helperdecl.hxx>
  36
  37 using namespace ooo::vba;
  38 using namespace com::sun::star;
  39
  40 SwVbaWrapFormat::SwVbaWrapFormat( const uno::Reference< ov::XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< drawing::XShape > xShape ) : SwVbaWrapFormat_BASE( xParent, xContext ), m_xShape( xShape ), mnWrapFormatType( 0 ), mnSide( word::WdWrapSideType::wdWrapBoth )
  41 {
  42     m_xPropertySet.set( xShape, uno::UNO_QUERY_THROW );
  43 }
  44
  45 SwVbaWrapFormat::SwVbaWrapFormat( uno::Sequence< uno::Any > const& aArgs, uno::Reference< uno::XComponentContext >const& xContext ) : SwVbaWrapFormat_BASE( getXSomethingFromArgs< XHelperInterface >( aArgs, 0 ), xContext ), m_xShape( getXSomethingFromArgs< drawing::XShape >( aArgs, 1, false ) ), mnWrapFormatType( 0 ), mnSide( word::WdWrapSideType::wdWrapBoth )
  46 {
  47     m_xPropertySet.set( m_xShape, uno::UNO_QUERY_THROW );
  48 }
  49
  50 void SwVbaWrapFormat::makeWrap() throw (uno::RuntimeException)
  51 {
  52     text::WrapTextMode eTextMode = text::WrapTextMode_NONE;
  53     if( mnSide == word::WdWrapSideType::wdWrapLeft )
  54     {
  55         eTextMode = text::WrapTextMode_LEFT;
  56     }
  57     else if(  mnSide == word::WdWrapSideType::wdWrapRight )
  58     {
  59         eTextMode = text::WrapTextMode_RIGHT;
  60     }
  61     else if( mnSide == word::WdWrapSideType::wdWrapBoth ||
  62             mnSide == word::WdWrapSideType::wdWrapLargest )
  63     {
  64         switch( mnWrapFormatType )
  65         {
  66             case word::WdWrapType::wdWrapNone:
  67             case word::WdWrapType::wdWrapThrough:
  68             {
  69                 eTextMode = text::WrapTextMode_THROUGHT;
  70                 break;
  71             }
  72             case word::WdWrapType::wdWrapInline:
  73             case word::WdWrapType::wdWrapTopBottom:
  74             {
  75                 eTextMode = text::WrapTextMode_NONE;
  76                 break;
  77             }
  78             case word::WdWrapType::wdWrapSquare:
  79             {
  80                 eTextMode = text::WrapTextMode_PARALLEL;
  81                 m_xPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("SurroundContour") ), uno::makeAny( sal_False ) );
  82                 break;
  83             }
  84             case word::WdWrapType::wdWrapTight:
  85             {
  86                 eTextMode = text::WrapTextMode_PARALLEL;
  87                 m_xPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("SurroundContour") ), uno::makeAny( sal_True ) );
  88                 break;
  89             }
  90             default:
  91             {
  92                 DebugHelper::exception(SbERR_BAD_ARGUMENT, rtl::OUString());
  93             }
  94         }
  95     }
  96     m_xPropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("TextWrap") ), uno::makeAny( eTextMode ) );
  97 }
  98
  99 ::sal_Int32 SAL_CALL SwVbaWrapFormat::getType() throw (uno::RuntimeException)
 100 {
 101     sal_Int32 nType = word::WdWrapType::wdWrapSquare;
 102     text::WrapTextMode eTextMode;
 103     m_xPropertySet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("TextWrap") )) >>= eTextMode;
 104     switch( eTextMode )
 105     {
 106         case text::WrapTextMode_NONE:
 107         {
 108             nType = word::WdWrapType::wdWrapTopBottom;
 109             break;
 110         }
 111         case text::WrapTextMode_THROUGHT:
 112         {
 113             nType = word::WdWrapType::wdWrapNone;
 114             break;
 115         }
 116         case text::WrapTextMode_PARALLEL:
 117         {
 118             sal_Bool bContour = sal_False;
 119             m_xPropertySet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("SurroundContour") )) >>= bContour;
 120             if( bContour )
 121                 nType = word::WdWrapType::wdWrapTight;
 122             else
 123                 nType = word::WdWrapType::wdWrapSquare;
 124             break;
 125         }
 126         case text::WrapTextMode_DYNAMIC:
 127         case text::WrapTextMode_LEFT:
 128         case text::WrapTextMode_RIGHT:
 129         {
 130             nType = word::WdWrapType::wdWrapThrough;
 131             break;
 132         }
 133         default:
 134         {
 135             nType = word::WdWrapType::wdWrapSquare;
 136         }
 137     }
 138     return nType;
 139 }
 140
 141 void SAL_CALL SwVbaWrapFormat::setType( ::sal_Int32 _type ) throw (uno::RuntimeException)
 142 {
 143     mnWrapFormatType = _type;
 144     makeWrap();
 145 }
 146
 147 ::sal_Int32 SAL_CALL SwVbaWrapFormat::getSide() throw (uno::RuntimeException)
 148 {
 149     sal_Int32 nSide = word::WdWrapSideType::wdWrapBoth;
 150     text::WrapTextMode eTextMode;
 151     m_xPropertySet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("TextWrap") )) >>= eTextMode;
 152     switch( eTextMode )
 153     {
 154         case text::WrapTextMode_LEFT:
 155         {
 156             nSide = word::WdWrapSideType::wdWrapLeft;
 157             break;
 158         }
 159         case text::WrapTextMode_RIGHT:
 160         {
 161             nSide = word::WdWrapSideType::wdWrapRight;
 162             break;
 163         }
 164         default:
 165         {
 166             nSide = word::WdWrapSideType::wdWrapBoth;
 167         }
 168     }
 169     return nSide;
 170 }
 171
 172 void SAL_CALL SwVbaWrapFormat::setSide( ::sal_Int32 _side ) throw (uno::RuntimeException)
 173 {
 174     mnSide = _side;
 175     makeWrap();
 176 }
 177
 178 float SwVbaWrapFormat::getDistance( const rtl::OUString& sName ) throw (uno::RuntimeException)
 179 {
 180     sal_Int32 nDistance = 0;
 181     m_xPropertySet->getPropertyValue( sName ) >>= nDistance;
 182     return static_cast< float >( Millimeter::getInPoints( nDistance ) );
 183 }
 184
 185 void SwVbaWrapFormat::setDistance( const rtl::OUString& sName, float _distance ) throw (uno::RuntimeException)
 186 {
 187     sal_Int32 nDistance = Millimeter::getInHundredthsOfOneMillimeter( _distance );
 188     m_xPropertySet->setPropertyValue( sName, uno::makeAny( nDistance ) );
 189 }
 190
 191 float SAL_CALL SwVbaWrapFormat::getDistanceTop() throw (uno::RuntimeException)
 192 {
 193     return getDistance( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("TopMargin") ) );
 194 }
 195
 196 void SAL_CALL SwVbaWrapFormat::setDistanceTop( float _distancetop ) throw (uno::RuntimeException)
 197 {
 198     setDistance( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("TopMargin") ), _distancetop );
 199 }
 200
 201 float SAL_CALL SwVbaWrapFormat::getDistanceBottom() throw (uno::RuntimeException)
 202 {
 203     return getDistance( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("BottomMargin") ) );
 204 }
 205
 206 void SAL_CALL SwVbaWrapFormat::setDistanceBottom( float _distancebottom ) throw (uno::RuntimeException)
 207 {
 208     setDistance( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("BottomMargin") ), _distancebottom );
 209 }
 210
 211 float SAL_CALL SwVbaWrapFormat::getDistanceLeft() throw (uno::RuntimeException)
 212 {
 213     return getDistance( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("LeftMargin") ) );
 214 }
 215
 216 void SAL_CALL SwVbaWrapFormat::setDistanceLeft( float _distanceleft ) throw (uno::RuntimeException)
 217 {
 218     setDistance( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("LeftMargin") ), _distanceleft );
 219 }
 220
 221 float SAL_CALL SwVbaWrapFormat::getDistanceRight() throw (uno::RuntimeException)
 222 {
 223     return getDistance( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightMargin") ) );
 224 }
 225
 226 void SAL_CALL SwVbaWrapFormat::setDistanceRight( float _distanceright ) throw (uno::RuntimeException)
 227 {
 228     setDistance( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightMargin") ), _distanceright );
 229 }
 230
 231 rtl::OUString&
 232 SwVbaWrapFormat::getServiceImplName()
 233 {
 234         static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("SwVbaWrapFormat") );
 235         return sImplName;
 236 }
 237
 238 uno::Sequence< rtl::OUString >
 239 SwVbaWrapFormat::getServiceNames()
 240 {
 241         static uno::Sequence< rtl::OUString > aServiceNames;
 242         if ( aServiceNames.getLength() == 0 )
 243         {
 244                 aServiceNames.realloc( 1 );
 245                 aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.word.WrapFormat" ) );
 246         }
 247         return aServiceNames;
 248 }
 249
 250 namespace wrapformat
 251 {
 252 namespace sdecl = comphelper::service_decl;
 253 sdecl::vba_service_class_<SwVbaWrapFormat, sdecl::with_args<true> > serviceImpl;
 254 extern sdecl::ServiceDecl const serviceDecl(
 255     serviceImpl,
 256     "SwVbaWrapFormat",
 257     "ooo.vba.word.WrapFormat" );
 258 }
 259
 260