vbahelper/source/msforms/vbatextbox.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
  20 #include "vbatextbox.hxx"
  21 #include "vbanewfont.hxx"
  22 #include <com/sun/star/text/XTextRange.hpp>
  23 #include <ooo/vba/msforms/fmBorderStyle.hpp>
  24 #include <ooo/vba/msforms/fmSpecialEffect.hpp>
  25
  26 using namespace com::sun::star;
  27 using namespace ooo::vba;
  28
  29 ScVbaTextBox::ScVbaTextBox( const uno::Reference< ov::XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< uno::XInterface >& xControl, const uno::Reference< frame::XModel >& xModel, AbstractGeometryAttributes* pGeomHelper, bool bDialog ) : TextBoxImpl_BASE( xParent, xContext, xControl, xModel, pGeomHelper ), mbDialog( bDialog )
  30 {
  31 }
  32
  33 // Attributes
  34 uno::Any SAL_CALL
  35 ScVbaTextBox::getValue() throw (css::uno::RuntimeException)
  36 {
  37     return uno::makeAny( getText() );
  38 }
  39
  40 void SAL_CALL
  41 ScVbaTextBox::setValue( const uno::Any& _value ) throw (css::uno::RuntimeException)
  42 {
  43     // booleans are converted to uppercase strings
  44     OUString sVal = extractStringFromAny( _value, true );
  45     setText( sVal );
  46 }
  47
  48 //getString() will cause some imfo lose.
  49 OUString SAL_CALL
  50 ScVbaTextBox::getText() throw (css::uno::RuntimeException)
  51 {
  52     uno::Any aValue;
  53     aValue = m_xProps->getPropertyValue( "Text" );
  54     OUString sString;
  55     aValue >>= sString;
  56     return sString;
  57 }
  58
  59 void SAL_CALL
  60 ScVbaTextBox::setText( const OUString& _text ) throw (css::uno::RuntimeException)
  61 {
  62     OUString oldText( getText() );
  63     if ( !mbDialog )
  64     {
  65         uno::Reference< text::XTextRange > xTextRange( m_xProps, uno::UNO_QUERY_THROW );
  66         xTextRange->setString( _text );
  67     }
  68     else
  69         m_xProps->setPropertyValue( "Text" , uno::makeAny( _text ) );
  70     if ( oldText != _text )
  71         fireChangeEvent();
  72 }
  73
  74 sal_Int32 SAL_CALL
  75 ScVbaTextBox::getMaxLength() throw (css::uno::RuntimeException)
  76 {
  77     uno::Any aValue;
  78     aValue = m_xProps->getPropertyValue( "MaxTextLen" );
  79     sal_Int16 nMaxLength = 0;
  80     aValue >>= nMaxLength;
  81     return (sal_Int32)nMaxLength;
  82 }
  83
  84 void SAL_CALL
  85 ScVbaTextBox::setMaxLength( sal_Int32 _maxlength ) throw (css::uno::RuntimeException)
  86 {
  87     sal_Int16 nTmp( _maxlength );
  88     uno::Any aValue( nTmp );
  89     m_xProps->setPropertyValue( "MaxTextLen" , aValue);
  90 }
  91
  92 sal_Bool SAL_CALL
  93 ScVbaTextBox::getMultiline() throw (css::uno::RuntimeException)
  94 {
  95     uno::Any aValue;
  96     aValue = m_xProps->getPropertyValue( "MultiLine" );
  97     sal_Bool bRet = false;
  98     aValue >>= bRet;
  99     return bRet;
 100 }
 101
 102 void SAL_CALL
 103 ScVbaTextBox::setMultiline( sal_Bool _multiline ) throw (css::uno::RuntimeException)
 104 {
 105     uno::Any aValue( _multiline );
 106     m_xProps->setPropertyValue( "MultiLine" , aValue);
 107 }
 108
 109 sal_Int32 SAL_CALL ScVbaTextBox::getSpecialEffect() throw (uno::RuntimeException)
 110 {
 111     return msforms::fmSpecialEffect::fmSpecialEffectSunken;
 112 }
 113
 114 void SAL_CALL ScVbaTextBox::setSpecialEffect( sal_Int32 /*nSpecialEffect*/ ) throw (uno::RuntimeException)
 115 {
 116     // #STUB
 117 }
 118
 119 sal_Int32 SAL_CALL ScVbaTextBox::getBorderStyle() throw (uno::RuntimeException)
 120 {
 121     return msforms::fmBorderStyle::fmBorderStyleNone;
 122 }
 123
 124 void SAL_CALL ScVbaTextBox::setBorderStyle( sal_Int32 /*nBorderStyle*/ ) throw (uno::RuntimeException)
 125 {
 126     // #STUB
 127 }
 128
 129 sal_Int32 SAL_CALL ScVbaTextBox::getTextLength() throw (uno::RuntimeException)
 130 {
 131     return getText().getLength();
 132 }
 133
 134 uno::Reference< msforms::XNewFont > SAL_CALL ScVbaTextBox::getFont() throw (uno::RuntimeException)
 135 {
 136     return new VbaNewFont( this, mxContext, m_xProps );
 137 }
 138
 139 sal_Int32 SAL_CALL ScVbaTextBox::getBackColor() throw (uno::RuntimeException)
 140 {
 141     return ScVbaControl::getBackColor();
 142 }
 143
 144 void SAL_CALL ScVbaTextBox::setBackColor( sal_Int32 nBackColor ) throw (uno::RuntimeException)
 145 {
 146     ScVbaControl::setBackColor( nBackColor );
 147 }
 148
 149 sal_Bool SAL_CALL ScVbaTextBox::getAutoSize() throw (uno::RuntimeException)
 150 {
 151     return ScVbaControl::getAutoSize();
 152 }
 153
 154 void SAL_CALL ScVbaTextBox::setAutoSize( sal_Bool bAutoSize ) throw (uno::RuntimeException)
 155 {
 156     ScVbaControl::setAutoSize( bAutoSize );
 157 }
 158
 159 sal_Bool SAL_CALL ScVbaTextBox::getLocked() throw (uno::RuntimeException)
 160 {
 161     return ScVbaControl::getLocked();
 162 }
 163
 164 void SAL_CALL ScVbaTextBox::setLocked( sal_Bool bLocked ) throw (uno::RuntimeException)
 165 {
 166     ScVbaControl::setLocked( bLocked );
 167 }
 168
 169 OUString
 170 ScVbaTextBox::getServiceImplName()
 171 {
 172     return OUString( "ScVbaTextBox" );
 173 }
 174
 175 uno::Sequence< OUString >
 176 ScVbaTextBox::getServiceNames()
 177 {
 178     static uno::Sequence< OUString > aServiceNames;
 179     if ( aServiceNames.getLength() == 0 )
 180     {
 181         aServiceNames.realloc( 1 );
 182         aServiceNames[ 0 ] = "ooo.vba.msforms.TextBox";
 183     }
 184     return aServiceNames;
 185 }
 186
 187 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */