vbahelper/source/msforms/vbacombobox.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: vbacombobox.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 "vbacombobox.hxx"
  31 #include <vector>
  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 rtl::OUString TEXT( RTL_CONSTASCII_USTRINGPARAM("Text") );
  41 const static rtl::OUString SELECTEDITEMS( RTL_CONSTASCII_USTRINGPARAM("SelectedItems") );
  42 const static rtl::OUString ITEMS( RTL_CONSTASCII_USTRINGPARAM("StringItemList") );
  43 const static rtl::OUString CONTROLSOURCEPROP( RTL_CONSTASCII_USTRINGPARAM("DataFieldProperty") );
  44
  45 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, bool bDialogType ) : ComboBoxImpl_BASE( xParent, xContext, xControl, xModel, pGeomHelper ), mbDialogType( bDialogType )
  46 {
  47         mpListHelper.reset( new ListControlHelper( m_xProps ) );
  48         // grab the default value property name
  49         m_xProps->getPropertyValue( CONTROLSOURCEPROP ) >>= sSourceName;
  50 }
  51
  52 // Attributes
  53
  54
  55 // Value, [read] e.g. getValue returns the value of ooo Text propery e.g. the value in
  56 // the drop down
  57 uno::Any SAL_CALL
  58 ScVbaComboBox::getValue() throw (uno::RuntimeException)
  59 {
  60         return m_xProps->getPropertyValue( sSourceName );
  61 }
  62
  63 void SAL_CALL
  64 ScVbaComboBox::setListIndex( const uno::Any& _value ) throw (uno::RuntimeException)
  65 {
  66     sal_Int16 nIndex = 0;
  67     if( _value >>= nIndex )
  68     {
  69             uno::Sequence< rtl::OUString > sItems;
  70         m_xProps->getPropertyValue( ITEMS ) >>= sItems;
  71         if( ( nIndex >= 0 ) && ( sItems.getLength() > nIndex ) )
  72         {
  73             rtl::OUString sText = sItems[ nIndex ];
  74             m_xProps->setPropertyValue( TEXT, uno::makeAny( sText ) );
  75         }
  76     }
  77 }
  78
  79 uno::Any SAL_CALL
  80 ScVbaComboBox::getListIndex() throw (uno::RuntimeException)
  81 {
  82         uno::Sequence< rtl::OUString > sItems;
  83         m_xProps->getPropertyValue( ITEMS ) >>= sItems;
  84         // should really return the item that has focus regardless of
  85         // it been selected
  86         if ( sItems.getLength() > 0 )
  87         {
  88                 rtl::OUString sText = getText();
  89                 sal_Int32 nLen = sItems.getLength();
  90                 for ( sal_Int32 index = 0; sText.getLength() && index < nLen; ++index )
  91                 {
  92                         if ( sItems[ index ].equals( sText ) )
  93                         {
  94                                 OSL_TRACE("getListIndex returning %d", index );
  95                                 return uno::makeAny( index );
  96                         }
  97
  98                 }
  99         }
 100         OSL_TRACE("getListIndex returning %d", -1 );
 101         return uno::makeAny( sal_Int32( -1 ) );
 102 }
 103
 104 // Value, [write]e.g. setValue sets the value in the drop down, and if the value is one
 105 // of the values in the list then the selection is also set
 106 void SAL_CALL
 107 ScVbaComboBox::setValue( const uno::Any& _value ) throw (uno::RuntimeException)
 108 {
 109         m_xProps->setPropertyValue( sSourceName, _value );
 110 }
 111
 112 // see Value
 113
 114 ::rtl::OUString SAL_CALL
 115 ScVbaComboBox::getText() throw (uno::RuntimeException)
 116 {
 117         rtl::OUString result;
 118         getValue() >>= result;
 119         return result;
 120 }
 121
 122 void SAL_CALL
 123 ScVbaComboBox::setText( const ::rtl::OUString& _text ) throw (uno::RuntimeException)
 124 {
 125         setValue( uno::makeAny( _text ) ); // seems the same
 126 }
 127
 128 // Methods
 129 void SAL_CALL
 130 ScVbaComboBox::AddItem( const uno::Any& pvargItem, const uno::Any& pvargIndex ) throw (uno::RuntimeException)
 131 {
 132         mpListHelper->AddItem( pvargItem, pvargIndex );
 133 }
 134
 135 void SAL_CALL
 136 ScVbaComboBox::removeItem( const uno::Any& index ) throw (uno::RuntimeException)
 137         {
 138         mpListHelper->removeItem( index );
 139 }
 140
 141 void SAL_CALL
 142 ScVbaComboBox::Clear(  ) throw (uno::RuntimeException)
 143                 {
 144         mpListHelper->Clear();
 145                 }
 146
 147 void SAL_CALL
 148 ScVbaComboBox::setRowSource( const rtl::OUString& _rowsource ) throw (css::uno::RuntimeException)
 149 {
 150         ScVbaControl::setRowSource( _rowsource );
 151         mpListHelper->setRowSource( _rowsource );
 152                 }
 153
 154 sal_Int32 SAL_CALL
 155 ScVbaComboBox::getListCount() throw (uno::RuntimeException)
 156 {
 157         return mpListHelper->getListCount();
 158 }
 159
 160 uno::Any SAL_CALL
 161 ScVbaComboBox::List( const ::uno::Any& pvargIndex, const uno::Any& pvarColumn ) throw (uno::RuntimeException)
 162 {
 163         return mpListHelper->List( pvargIndex, pvarColumn );
 164         }
 165
 166 rtl::OUString&
 167 ScVbaComboBox::getServiceImplName()
 168 {
 169         static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaComboBox") );
 170         return sImplName;
 171 }
 172
 173 uno::Sequence< rtl::OUString >
 174 ScVbaComboBox::getServiceNames()
 175 {
 176         static uno::Sequence< rtl::OUString > aServiceNames;
 177         if ( aServiceNames.getLength() == 0 )
 178         {
 179                 aServiceNames.realloc( 1 );
 180                 aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.msforms.ComboBox" ) );
 181         }
 182         return aServiceNames;
 183 }