vbahelper/source/msforms/vbalistcontrolhelper.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 <vbalistcontrolhelper.hxx>
  21 #include <vector>
  22 #include <vbahelper/vbapropvalue.hxx>
  23
  24 using namespace com::sun::star;
  25 using namespace ooo::vba;
  26
  27 const static OUString ITEMS( "StringItemList" );
  28
  29 class ListPropListener : public PropListener
  30 {
  31 private:
  32     uno::Reference< beans::XPropertySet > m_xProps;
  33     uno::Any m_pvargIndex;
  34     uno::Any m_pvarColumn;
  35
  36 public:
  37     ListPropListener( const uno::Reference< beans::XPropertySet >& xProps, const uno::Any& pvargIndex, const uno::Any& pvarColumn );
  38     virtual ~ListPropListener() { };
  39     virtual void setValueEvent( const css::uno::Any& value );
  40     virtual css::uno::Any getValueEvent();
  41 };
  42
  43 ListPropListener::ListPropListener( const uno::Reference< beans::XPropertySet >& xProps, const uno::Any& pvargIndex, const uno::Any& pvarColumn ) : m_xProps( xProps ), m_pvargIndex( pvargIndex ), m_pvarColumn( pvarColumn )
  44 {
  45 }
  46
  47 void ListPropListener::setValueEvent( const uno::Any& value )
  48 {
  49     if( m_pvargIndex.hasValue() || m_pvarColumn.hasValue() )
  50         throw uno::RuntimeException( "Bad argument" , uno::Reference< uno::XInterface >() );
  51
  52     m_xProps->setPropertyValue( ITEMS, value );
  53 }
  54
  55 uno::Any ListPropListener::getValueEvent()
  56 {
  57     uno::Sequence< OUString > sList;
  58     m_xProps->getPropertyValue( ITEMS ) >>= sList;
  59     sal_Int16 nLength = static_cast< sal_Int16 >( sList.getLength() );
  60     uno::Any aRet;
  61     if ( m_pvargIndex.hasValue() )
  62     {
  63         sal_Int16 nIndex = -1;
  64         m_pvargIndex >>= nIndex;
  65         if( nIndex < 0 || nIndex >= nLength )
  66             throw uno::RuntimeException( "Bad row Index" , uno::Reference< uno::XInterface >() );
  67         aRet <<= sList[ nIndex ];
  68     }
  69     else if ( m_pvarColumn.hasValue() ) // pvarColumn on its own would be bad
  70             throw uno::RuntimeException( "Bad column Index" , uno::Reference< uno::XInterface >() );
  71     else // List() ( e.g. no args )
  72     {
  73         uno::Sequence< uno::Sequence< OUString > > sReturnArray( nLength );
  74         for ( sal_Int32 i = 0; i < nLength; ++i )
  75         {
  76             sReturnArray[ i ].realloc( 10 );
  77             sReturnArray[ i ][ 0 ] = sList[ i ];
  78         }
  79         aRet = uno::makeAny( sReturnArray );
  80     }
  81     return aRet;
  82 }
  83
  84 void SAL_CALL
  85 ListControlHelper::AddItem( const uno::Any& pvargItem, const uno::Any& pvargIndex ) throw (uno::RuntimeException)
  86 {
  87     if ( pvargItem.hasValue()  )
  88     {
  89         uno::Sequence< OUString > sList;
  90         m_xProps->getPropertyValue( ITEMS ) >>= sList;
  91
  92         sal_Int32 nIndex = sList.getLength();
  93
  94         if ( pvargIndex.hasValue() )
  95             pvargIndex >>= nIndex;
  96
  97         OUString sString = getAnyAsString( pvargItem );
  98
  99         // if no index specified or item is to be appended to end of
 100         // list just realloc the array and set the last item
 101         if ( nIndex  == sList.getLength() )
 102         {
 103             sal_Int32 nOldSize = sList.getLength();
 104             sList.realloc( nOldSize + 1 );
 105             sList[ nOldSize ] = sString;
 106         }
 107         else
 108         {
 109             // just copy those elements above the one to be inserted
 110             std::vector< OUString > sVec;
 111             // reserve just the amount we need to copy
 112             sVec.reserve( sList.getLength() - nIndex );
 113
 114             // point at first element to copy
 115             OUString* pString = sList.getArray() + nIndex;
 116             const OUString* pEndString = sList.getArray() + sList.getLength();
 117             // insert the new element
 118             sVec.push_back( sString );
 119             // copy elements
 120             for ( ; pString != pEndString; ++pString )
 121                 sVec.push_back( *pString );
 122
 123             sList.realloc(  sList.getLength() + 1 );
 124
 125             // point at first element to be overwritten
 126             pString = sList.getArray() + nIndex;
 127             pEndString = sList.getArray() + sList.getLength();
 128             std::vector< OUString >::iterator it = sVec.begin();
 129             for ( ; pString != pEndString; ++pString, ++it)
 130                 *pString = *it;
 131             //
 132         }
 133
 134         m_xProps->setPropertyValue( ITEMS, uno::makeAny( sList ) );
 135
 136     }
 137 }
 138
 139 void SAL_CALL
 140 ListControlHelper::removeItem( const uno::Any& index ) throw (uno::RuntimeException)
 141 {
 142     sal_Int32 nIndex = 0;
 143     // for int index
 144     if ( index >>= nIndex  )
 145     {
 146         uno::Sequence< OUString > sList;
 147         m_xProps->getPropertyValue( ITEMS ) >>= sList;
 148         if( nIndex < 0 || nIndex > ( sList.getLength() - 1 ) )
 149             throw uno::RuntimeException( "Invalid index" , uno::Reference< uno::XInterface > () );
 150         if( sList.hasElements() )
 151         {
 152             if( sList.getLength() == 1 )
 153             {
 154                 Clear();
 155                 return;
 156             }
 157             for( sal_Int32 i = nIndex; i < ( sList.getLength()-1 ); i++ )
 158             {
 159                 sList[i] = sList[i+1];
 160             }
 161             sList.realloc(  sList.getLength() - 1 );
 162         }
 163
 164         m_xProps->setPropertyValue( ITEMS, uno::makeAny( sList ) );
 165     }
 166 }
 167
 168 void SAL_CALL
 169 ListControlHelper::Clear(  ) throw (uno::RuntimeException)
 170 {
 171     // urk, setValue doesn't seem to work !!
 172     //setValue( uno::makeAny( sal_Int16() ) );
 173     m_xProps->setPropertyValue( ITEMS, uno::makeAny( uno::Sequence< OUString >() ) );
 174 }
 175
 176 void SAL_CALL
 177 ListControlHelper::setRowSource( const OUString& _rowsource ) throw (uno::RuntimeException)
 178 {
 179     if ( _rowsource.isEmpty() )
 180         Clear();
 181 }
 182
 183 sal_Int32 SAL_CALL
 184 ListControlHelper::getListCount() throw (uno::RuntimeException)
 185 {
 186     uno::Sequence< OUString > sList;
 187     m_xProps->getPropertyValue( ITEMS ) >>= sList;
 188     return sList.getLength();
 189 }
 190
 191 uno::Any SAL_CALL
 192 ListControlHelper::List( const ::uno::Any& pvargIndex, const uno::Any& pvarColumn ) throw (uno::RuntimeException)
 193 {
 194     return uno::makeAny( uno::Reference< XPropValue > ( new ScVbaPropValue( new ListPropListener( m_xProps, pvargIndex, pvarColumn ) ) ) );
 195 }
 196
 197 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */