vbahelper/source/msforms/vbacombobox.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 "vbacombobox.hxx"
  21 #include <vector>
  22 #include <filter/msfilter/msvbahelper.hxx>
  23 #include <basic/sbstar.hxx>
  24 #include <basic/sbmod.hxx>
  25 #include "vbanewfont.hxx"
  26 #include <ooo/vba/msforms/fmStyle.hpp>
  27 #include <ooo/vba/msforms/fmDropButtonStyle.hpp>
  28 #include <ooo/vba/msforms/fmDragBehavior.hpp>
  29 #include <ooo/vba/msforms/fmEnterFieldBehavior.hpp>
  30 #include <ooo/vba/msforms/fmListStyle.hpp>
  31 #include <ooo/vba/msforms/fmTextAlign.hpp>
  32
  33 using namespace com::sun::star;
  34 using namespace ooo::vba;
  35
  36
  37 //SelectedItems list of integer indexes
  38 //StringItemList list of items
  39
  40 const static OUString TEXT( "Text" );
  41 const static OUString ITEMS( "StringItemList" );
  42 const static OUString CONTROLSOURCEPROP( "DataFieldProperty" );
  43
  44 ScVbaComboBox::ScVbaComboBox( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< uno::XInterface >& xControl, const uno::Reference< frame::XModel >& xModel, AbstractGeometryAttributes* pGeomHelper ) : ComboBoxImpl_BASE( xParent, xContext, xControl, xModel, pGeomHelper )
  45 {
  46     mpListHelper.reset( new ListControlHelper( m_xProps ) );
  47     try
  48     {
  49        // grab the default value property name
  50        m_xProps->getPropertyValue( CONTROLSOURCEPROP ) >>= sSourceName;
  51     }
  52     catch( uno::Exception& )
  53     {
  54     }
  55     if( sSourceName.isEmpty() )
  56         sSourceName = "Text";
  57 }
  58
  59 // Attributes
  60
  61
  62 // Value, [read] e.g. getValue returns the value of ooo Text propery e.g. the value in
  63 // the drop down
  64 uno::Any SAL_CALL
  65 ScVbaComboBox::getValue() throw (uno::RuntimeException)
  66 {
  67     return m_xProps->getPropertyValue( sSourceName );
  68 }
  69
  70 void SAL_CALL
  71 ScVbaComboBox::setListIndex( const uno::Any& _value ) throw (uno::RuntimeException)
  72 {
  73     sal_Int16 nIndex = 0;
  74     if( _value >>= nIndex )
  75     {
  76         sal_Int32 nOldIndex = -1;
  77         getListIndex() >>= nOldIndex;
  78         uno::Sequence< OUString > sItems;
  79         m_xProps->getPropertyValue( ITEMS ) >>= sItems;
  80         if( ( nIndex >= 0 ) && ( sItems.getLength() > nIndex ) )
  81         {
  82             OUString sText = sItems[ nIndex ];
  83             m_xProps->setPropertyValue( TEXT, uno::makeAny( sText ) );
  84
  85             // fire the _Change event
  86             if( nOldIndex != nIndex )
  87                 fireClickEvent();
  88         }
  89     }
  90 }
  91
  92 uno::Any SAL_CALL
  93 ScVbaComboBox::getListIndex() throw (uno::RuntimeException)
  94 {
  95     uno::Sequence< OUString > sItems;
  96     m_xProps->getPropertyValue( ITEMS ) >>= sItems;
  97     // should really return the item that has focus regardless of
  98     // it been selected
  99     if ( sItems.getLength() > 0 )
 100     {
 101         OUString sText = getText();
 102         sal_Int32 nLen = sItems.getLength();
 103         for ( sal_Int32 index = 0; !sText.isEmpty() && index < nLen; ++index )
 104         {
 105             if ( sItems[ index ].equals( sText ) )
 106             {
 107                 SAL_INFO("vbahelper", "getListIndex returning " << index );
 108                 return uno::makeAny( index );
 109             }
 110
 111         }
 112      }
 113     SAL_INFO("vbahelper", "getListIndex returning -1" );
 114     return uno::makeAny( sal_Int32( -1 ) );
 115 }
 116
 117 // Value, [write]e.g. setValue sets the value in the drop down, and if the value is one
 118 // of the values in the list then the selection is also set
 119 void SAL_CALL
 120 ScVbaComboBox::setValue( const uno::Any& _value ) throw (uno::RuntimeException)
 121 {
 122     // booleans are converted to uppercase strings
 123     OUString oldValue = extractStringFromAny( getValue(), OUString(), true );
 124     m_xProps->setPropertyValue( sSourceName, uno::Any( extractStringFromAny( _value, OUString(), true ) ) );
 125     OUString newValue = extractStringFromAny( getValue(), OUString(), true );
 126     if ( oldValue != newValue )
 127     {
 128         sal_Int32 index = 0;
 129         uno::Any aIndex = getListIndex();
 130         aIndex >>= index;
 131         if ( index < 0 )
 132             fireChangeEvent();
 133         else
 134             fireClickEvent();
 135     }
 136 }
 137
 138 // see Value
 139
 140 OUString SAL_CALL
 141 ScVbaComboBox::getText() throw (uno::RuntimeException)
 142 {
 143     OUString result;
 144     getValue() >>= result;
 145     return result;
 146 }
 147
 148 void SAL_CALL
 149 ScVbaComboBox::setText( const OUString& _text ) throw (uno::RuntimeException)
 150 {
 151     setValue( uno::makeAny( _text ) ); // seems the same
 152 }
 153
 154 // Methods
 155 void SAL_CALL
 156 ScVbaComboBox::AddItem( const uno::Any& pvargItem, const uno::Any& pvargIndex ) throw (uno::RuntimeException)
 157 {
 158     mpListHelper->AddItem( pvargItem, pvargIndex );
 159 }
 160
 161 void SAL_CALL
 162 ScVbaComboBox::removeItem( const uno::Any& index ) throw (uno::RuntimeException)
 163 {
 164     mpListHelper->removeItem( index );
 165 }
 166
 167 void SAL_CALL
 168 ScVbaComboBox::Clear(  ) throw (uno::RuntimeException)
 169 {
 170     mpListHelper->Clear();
 171 }
 172
 173 void SAL_CALL
 174 ScVbaComboBox::setRowSource( const OUString& _rowsource ) throw (css::uno::RuntimeException)
 175 {
 176     ScVbaControl::setRowSource( _rowsource );
 177     mpListHelper->setRowSource( _rowsource );
 178 }
 179
 180 sal_Int32 SAL_CALL
 181 ScVbaComboBox::getListCount() throw (uno::RuntimeException)
 182 {
 183     return mpListHelper->getListCount();
 184 }
 185
 186 uno::Any SAL_CALL
 187 ScVbaComboBox::List( const ::uno::Any& pvargIndex, const uno::Any& pvarColumn ) throw (uno::RuntimeException)
 188 {
 189     return mpListHelper->List( pvargIndex, pvarColumn );
 190 }
 191
 192 sal_Int32 SAL_CALL ScVbaComboBox::getStyle() throw (uno::RuntimeException)
 193 {
 194     return msforms::fmStyle::fmStyleDropDownCombo;
 195 }
 196
 197 void SAL_CALL ScVbaComboBox::setStyle( sal_Int32 /*nStyle*/ ) throw (uno::RuntimeException)
 198 {
 199 }
 200
 201 sal_Int32 SAL_CALL ScVbaComboBox::getDropButtonStyle() throw (uno::RuntimeException)
 202 {
 203     return msforms::fmDropButtonStyle::fmDropButtonStyleArrow;
 204 }
 205
 206 void SAL_CALL ScVbaComboBox::setDropButtonStyle( sal_Int32 /*nDropButtonStyle*/ ) throw (uno::RuntimeException)
 207 {
 208 }
 209
 210 sal_Int32 SAL_CALL ScVbaComboBox::getDragBehavior() throw (uno::RuntimeException)
 211 {
 212     return msforms::fmDragBehavior::fmDragBehaviorDisabled;
 213 }
 214
 215 void SAL_CALL ScVbaComboBox::setDragBehavior( sal_Int32 /*nDragBehavior*/ ) throw (uno::RuntimeException)
 216 {
 217 }
 218
 219 sal_Int32 SAL_CALL ScVbaComboBox::getEnterFieldBehavior() throw (uno::RuntimeException)
 220 {
 221     return msforms::fmEnterFieldBehavior::fmEnterFieldBehaviorSelectAll;
 222 }
 223
 224 void SAL_CALL ScVbaComboBox::setEnterFieldBehavior( sal_Int32 /*nEnterFieldBehavior*/ ) throw (uno::RuntimeException)
 225 {
 226 }
 227
 228 sal_Int32 SAL_CALL ScVbaComboBox::getListStyle() throw (uno::RuntimeException)
 229 {
 230     return msforms::fmListStyle::fmListStylePlain;
 231 }
 232
 233 void SAL_CALL ScVbaComboBox::setListStyle( sal_Int32 /*nListStyle*/ ) throw (uno::RuntimeException)
 234 {
 235 }
 236
 237 sal_Int32 SAL_CALL ScVbaComboBox::getTextAlign() throw (uno::RuntimeException)
 238 {
 239     return msforms::fmTextAlign::fmTextAlignLeft;
 240 }
 241
 242 void SAL_CALL ScVbaComboBox::setTextAlign( sal_Int32 /*nTextAlign*/ ) throw (uno::RuntimeException)
 243 {
 244 }
 245
 246 sal_Int32 SAL_CALL ScVbaComboBox::getTextLength() throw (uno::RuntimeException)
 247 {
 248     return getText().getLength();
 249 }
 250
 251 uno::Reference< msforms::XNewFont > SAL_CALL ScVbaComboBox::getFont() throw (uno::RuntimeException)
 252 {
 253     return new VbaNewFont( this, mxContext, m_xProps );
 254 }
 255
 256 OUString
 257 ScVbaComboBox::getServiceImplName()
 258 {
 259     return OUString("ScVbaComboBox");
 260 }
 261
 262 sal_Int32 SAL_CALL ScVbaComboBox::getBackColor() throw (uno::RuntimeException)
 263 {
 264     return ScVbaControl::getBackColor();
 265 }
 266
 267 void SAL_CALL ScVbaComboBox::setBackColor( sal_Int32 nBackColor ) throw (uno::RuntimeException)
 268 {
 269     ScVbaControl::setBackColor( nBackColor );
 270 }
 271
 272 sal_Bool SAL_CALL ScVbaComboBox::getAutoSize() throw (uno::RuntimeException)
 273 {
 274     return ScVbaControl::getAutoSize();
 275 }
 276
 277 void SAL_CALL ScVbaComboBox::setAutoSize( sal_Bool bAutoSize ) throw (uno::RuntimeException)
 278 {
 279     ScVbaControl::setAutoSize( bAutoSize );
 280 }
 281
 282 sal_Bool SAL_CALL ScVbaComboBox::getLocked() throw (uno::RuntimeException)
 283 {
 284     return ScVbaControl::getLocked();
 285 }
 286
 287 void SAL_CALL ScVbaComboBox::setLocked( sal_Bool bLocked ) throw (uno::RuntimeException)
 288 {
 289     ScVbaControl::setLocked( bLocked );
 290 }
 291
 292 OUString SAL_CALL ScVbaComboBox::getLinkedCell() throw (uno::RuntimeException)
 293 {
 294     return ScVbaControl::getControlSource();
 295 }
 296
 297 void SAL_CALL ScVbaComboBox::setLinkedCell( const OUString& _linkedcell ) throw (uno::RuntimeException)
 298 {
 299     ScVbaControl::setControlSource( _linkedcell );
 300 }
 301
 302 uno::Sequence< OUString >
 303 ScVbaComboBox::getServiceNames()
 304 {
 305     static uno::Sequence< OUString > aServiceNames;
 306     if ( aServiceNames.getLength() == 0 )
 307     {
 308         aServiceNames.realloc( 1 );
 309         aServiceNames[ 0 ] = "ooo.vba.msforms.ComboBox";
 310     }
 311     return aServiceNames;
 312 }
 313
 314 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */