vbahelper/source/msforms/vbalistcontrolhelper.cxx

   1 #include <vbalistcontrolhelper.hxx>
   2 #include <vector>
   3
   4 using namespace com::sun::star;
   5 using namespace ooo::vba;
   6
   7 const static rtl::OUString ITEMS( RTL_CONSTASCII_USTRINGPARAM("StringItemList") );
   8
   9 void SAL_CALL
  10 ListControlHelper::AddItem( const uno::Any& pvargItem, const uno::Any& pvargIndex ) throw (uno::RuntimeException)
  11 {
  12         if ( pvargItem.hasValue()  )
  13         {
  14                 uno::Sequence< rtl::OUString > sList;
  15                 m_xProps->getPropertyValue( ITEMS ) >>= sList;
  16
  17                 sal_Int32 nIndex = sList.getLength();
  18
  19                 if ( pvargIndex.hasValue() )
  20                         pvargIndex >>= nIndex;
  21
  22                 rtl::OUString sString = getAnyAsString( pvargItem );
  23
  24                 // if no index specified or item is to be appended to end of
  25                 // list just realloc the array and set the last item
  26                 if ( nIndex  == sList.getLength() )
  27                 {
  28                         sal_Int32 nOldSize = sList.getLength();
  29                         sList.realloc( nOldSize + 1 );
  30                         sList[ nOldSize ] = sString;
  31                 }
  32                 else
  33                 {
  34                         // just copy those elements above the one to be inserted
  35                         std::vector< rtl::OUString > sVec;
  36                         // reserve just the amount we need to copy
  37                         sVec.reserve( sList.getLength() - nIndex );
  38
  39                         // point at first element to copy
  40                         rtl::OUString* pString = sList.getArray() + nIndex;
  41                         const rtl::OUString* pEndString = sList.getArray() + sList.getLength();
  42                         // insert the new element
  43                         sVec.push_back( sString );
  44                         // copy elements
  45                         for ( ; pString != pEndString; ++pString )
  46                                 sVec.push_back( *pString );
  47
  48                         sList.realloc(  sList.getLength() + 1 );
  49
  50                         // point at first element to be overwritten
  51                         pString = sList.getArray() + nIndex;
  52                         pEndString = sList.getArray() + sList.getLength();
  53                         std::vector< rtl::OUString >::iterator it = sVec.begin();
  54                         for ( ; pString != pEndString; ++pString, ++it)
  55                                 *pString = *it;
  56                         //
  57                 }
  58
  59                 m_xProps->setPropertyValue( ITEMS, uno::makeAny( sList ) );
  60
  61         }
  62 }
  63
  64 void SAL_CALL
  65 ListControlHelper::removeItem( const uno::Any& index ) throw (uno::RuntimeException)
  66 {
  67     sal_Int32 nIndex = 0;
  68     // for int index
  69         if ( index >>= nIndex  )
  70         {
  71                 uno::Sequence< rtl::OUString > sList;
  72                 m_xProps->getPropertyValue( ITEMS ) >>= sList;
  73         if( nIndex < 0 || nIndex > ( sList.getLength() - 1 ) )
  74             throw uno::RuntimeException( rtl::OUString::createFromAscii( "Invalid index" ), uno::Reference< uno::XInterface > () );
  75         if( sList.hasElements() )
  76         {
  77             if( sList.getLength() == 1 )
  78             {
  79                 Clear();
  80                 return;
  81             }
  82             for( sal_Int32 i = nIndex; i < ( sList.getLength()-1 ); i++ )
  83             {
  84                 sList[i] = sList[i+1];
  85             }
  86                         sList.realloc(  sList.getLength() - 1 );
  87                 }
  88
  89                 m_xProps->setPropertyValue( ITEMS, uno::makeAny( sList ) );
  90         }
  91 }
  92
  93 void SAL_CALL
  94 ListControlHelper::Clear(  ) throw (uno::RuntimeException)
  95 {
  96         // urk, setValue doesn't seem to work !!
  97         //setValue( uno::makeAny( sal_Int16() ) );
  98         m_xProps->setPropertyValue( ITEMS, uno::makeAny( uno::Sequence< rtl::OUString >() ) );
  99 }
 100
 101 void SAL_CALL
 102 ListControlHelper::setRowSource( const rtl::OUString& _rowsource ) throw (uno::RuntimeException)
 103 {
 104         if ( _rowsource.getLength() == 0 )
 105                 Clear();
 106 }
 107
 108 sal_Int32 SAL_CALL
 109 ListControlHelper::getListCount() throw (uno::RuntimeException)
 110 {
 111     uno::Sequence< rtl::OUString > sList;
 112     m_xProps->getPropertyValue( ITEMS ) >>= sList;
 113     return sList.getLength();
 114 }
 115
 116 uno::Any SAL_CALL
 117 ListControlHelper::List( const ::uno::Any& pvargIndex, const uno::Any& pvarColumn ) throw (uno::RuntimeException)
 118 {
 119     uno::Sequence< rtl::OUString > sList;
 120     m_xProps->getPropertyValue( ITEMS ) >>= sList;
 121     sal_Int16 nLength = static_cast< sal_Int16 >( sList.getLength() );
 122     uno::Any aRet;
 123     if ( pvargIndex.hasValue() )
 124     {
 125         sal_Int16 nIndex = -1;
 126         pvargIndex >>= nIndex;
 127         if( nIndex < 0 || nIndex >= nLength )
 128             throw uno::RuntimeException( rtl::OUString::createFromAscii(
 129                     "Bad row Index" ), uno::Reference< uno::XInterface >() );
 130         aRet <<= sList[ nIndex ];
 131     }
 132     else if ( pvarColumn.hasValue() ) // pvarColumn on its own would be bad
 133             throw uno::RuntimeException( rtl::OUString::createFromAscii(
 134                     "Bad column Index" ), uno::Reference< uno::XInterface >() );
 135     else // List() ( e.g. no args )
 136     {
 137         uno::Sequence< uno::Sequence< rtl::OUString > > sReturnArray( nLength );
 138         for ( sal_Int32 i = 0; i < nLength; ++i )
 139         {
 140             sReturnArray[ i ].realloc( 10 );
 141             sReturnArray[ i ][ 0 ] = sList[ i ];
 142         }
 143         aRet = uno::makeAny( sReturnArray );
 144     }
 145     return aRet;
 146 }