mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
b4f10b2595d1622d7efbfde9d5f9fd14a53263f1
libreoffice/sc/source/ui/vba/vbalistbox.cxx
Vladimir Glazounov 71dc4c2a1e INTEGRATION: CWS npower8 (1.1.2); FILE ADDED 
2007/10/31 21:00:26 npower 1.1.2.4: Issue number:  #i77189#
warning as error removal
2007/07/18 13:46:46 npower 1.1.2.3: #i77189# sync ooo-build and this module
2007/05/13 07:34:01 npower 1.1.2.2: Add licence info
2007/05/10 11:21:46 npower 1.1.2.1: -m#i77189#
2007-12-07 09:55:31 +00:00

295 lines
10 KiB
C++
Raw Blame History

/*************************************************************************
*
* OpenOffice.org - a multi-platform office productivity suite
*
* $RCSfile: vbalistbox.cxx,v $
*
* $Revision: 1.2 $
*
* last change: $Author: vg $ $Date: 2007-12-07 10:55:15 $
*
* The Contents of this file are made available subject to
* the terms of GNU Lesser General Public License Version 2.1.
*
*
* GNU Lesser General Public License Version 2.1
* =============================================
* Copyright 2005 by Sun Microsystems, Inc.
* 901 San Antonio Road, Palo Alto, CA 94303, USA
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License version 2.1, as published by the Free Software Foundation.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
* MA 02111-1307 USA
*
************************************************************************/
#include <com/sun/star/form/validation/XValidatableFormComponent.hpp>
#include "vbalistbox.hxx"
#include "vbapropvalue.hxx"
#include <vector>
#include <comphelper/anytostring.hxx>
using namespace com::sun::star;
using namespace org::openoffice;
const static rtl::OUString CONTROLSOURCEPROP( RTL_CONSTASCII_USTRINGPARAM("DataFieldProperty") );
const static rtl::OUString ITEMS( RTL_CONSTASCII_USTRINGPARAM("StringItemList") );
ScVbaListBox::ScVbaListBox( const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< css::drawing::XControlShape >& xControlShape ) : ListBoxImpl_BASE( xContext, xControlShape )
{
// grab the default value property name
m_xProps->getPropertyValue( CONTROLSOURCEPROP ) >>= sSourceName;
}
ScVbaListBox::ScVbaListBox( const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< beans::XPropertySet >& xPropSet, const css::uno::Reference< css::drawing::XControlShape > xControlShape ) : ListBoxImpl_BASE( xContext, xPropSet, xControlShape )
{
m_xProps->getPropertyValue( CONTROLSOURCEPROP ) >>= sSourceName;
}
// Attributes
uno::Any SAL_CALL
ScVbaListBox::getValue() throw (uno::RuntimeException)
{
if( getMultiSelect() )
throw uno::RuntimeException( rtl::OUString::createFromAscii(
"Attribute use invalid." ), uno::Reference< uno::XInterface >() );
uno::Reference< form::validation::XValidatableFormComponent > xValidatableFormComponent( m_xProps, uno::UNO_QUERY_THROW );
return xValidatableFormComponent->getCurrentValue();
}
void SAL_CALL
ScVbaListBox::setValue( const uno::Any& _value ) throw (uno::RuntimeException)
{
if( getMultiSelect() )
{
throw uno::RuntimeException( rtl::OUString::createFromAscii(
"Attribute use invalid." ), uno::Reference< uno::XInterface >() );
}
rtl::OUString sValue = getAnyAsString( _value );
uno::Sequence< rtl::OUString > sList;
m_xProps->getPropertyValue( ITEMS ) >>= sList;
uno::Sequence< sal_Int16 > nList;
sal_Int16 nLength = static_cast<sal_Int16>( sList.getLength() );
sal_Int16 nValue = -1;
sal_Int16 i = 0;
for( i = 0; i < nLength; i++ )
{
if( sList[i].equals( sValue ) )
{
nValue = i;
break;
}
}
if( nValue == -1 )
throw uno::RuntimeException( rtl::OUString::createFromAscii(
"Attribute use invalid." ), uno::Reference< uno::XInterface >() );
nList.realloc( 1 );
nList[0] = nValue;
m_xProps->setPropertyValue( sSourceName, uno::makeAny( nList ) );
}
::rtl::OUString SAL_CALL
ScVbaListBox::getText() throw (uno::RuntimeException)
{
rtl::OUString result;
uno::Reference< form::validation::XValidatableFormComponent > xValidatableFormComponent( m_xProps, uno::UNO_QUERY_THROW );
xValidatableFormComponent->getCurrentValue() >>= result;
return result;
}
void SAL_CALL
ScVbaListBox::setText( const ::rtl::OUString& _text ) throw (uno::RuntimeException)
{
setValue( uno::makeAny( _text ) ); // seems the same
}
sal_Bool SAL_CALL
ScVbaListBox::getMultiSelect() throw (css::uno::RuntimeException)
{
sal_Bool bMultiSelect = sal_False;
m_xProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "MultiSelection" ) ) ) >>= bMultiSelect;
return bMultiSelect;
}
void SAL_CALL
ScVbaListBox::setMultiSelect( sal_Bool _multiselect ) throw (css::uno::RuntimeException)
{
m_xProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "MultiSelection" ) ), uno::makeAny( _multiselect ) );
}
/*
css::uno::Sequence< sal_Bool > SAL_CALL
ScVbaListBox::getSelected() throw (css::uno::RuntimeException)
{
uno::Sequence< rtl::OUString > sList;
uno::Sequence< sal_Int16 > nList;
m_xProps->getPropertyValue( ITEMS ) >>= sList;
uno::Sequence< sal_Bool > bSelected( sList.getLength() );
for( sal_Int16 i = 0; i < bSelected.getLength(); i++ )
bSelected[i] = sal_False;
m_xProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "SelectedItems" ) ) ) >>= nList;
for( sal_Int16 i = 0; i < nList.getLength(); i++ )
{
bSelected[nList[i]] = sal_True;
}
return bSelected;
}
void SAL_CALL
ScVbaListBox::setSelected( const css::uno::Sequence< sal_Bool >& _selected ) throw (css::uno::RuntimeException)
{
}
*/
css::uno::Any SAL_CALL
ScVbaListBox::Selected( sal_Int32 index ) throw (css::uno::RuntimeException)
{
uno::Sequence< rtl::OUString > sList;
m_xProps->getPropertyValue( ITEMS ) >>= sList;
sal_Int16 nLength = static_cast< sal_Int16 >( sList.getLength() );
sal_Int16 nIndex = m_nIndex;
if( 0 > nIndex && nLength < nIndex )
throw uno::RuntimeException( rtl::OUString::createFromAscii(
"Error Number." ), uno::Reference< uno::XInterface >() );
m_nIndex = static_cast< sal_Int16 >( index );
return uno::makeAny( uno::Reference< vba::XPropValue > ( new ScVbaPropValue( this ) ) );
}
// Methods
void SAL_CALL
ScVbaListBox::AddItem( const uno::Any& pvargItem, const uno::Any& pvargIndex ) throw (uno::RuntimeException)
{
if ( pvargItem.hasValue() )
{
uno::Sequence< rtl::OUString > sList;
m_xProps->getPropertyValue( ITEMS ) >>= sList;
sal_Int32 nIndex = sList.getLength();
if ( pvargIndex.hasValue() )
pvargIndex >>= nIndex;
rtl::OUString sString = getAnyAsString( pvargItem );
// if no index specified or item is to be appended to end of
// list just realloc the array and set the last item
if ( nIndex == sList.getLength() )
{
sal_Int32 nOldSize = sList.getLength();
sList.realloc( nOldSize + 1 );
sList[ nOldSize ] = sString;
}
else
{
// just copy those elements above the one to be inserted
std::vector< rtl::OUString > sVec;
// reserve just the amount we need to copy
sVec.reserve( sList.getLength() - nIndex );
// point at first element to copy
rtl::OUString* pString = sList.getArray() + nIndex;
const rtl::OUString* pEndString = sList.getArray() + sList.getLength();
// insert the new element
sVec.push_back( sString );
// copy elements
for ( ; pString != pEndString; ++pString )
sVec.push_back( *pString );
sList.realloc( sList.getLength() + 1 );
// point at first element to be overwritten
pString = sList.getArray() + nIndex;
pEndString = sList.getArray() + sList.getLength();
std::vector< rtl::OUString >::iterator it = sVec.begin();
for ( ; pString != pEndString; ++pString, ++it)
*pString = *it;
//
}
m_xProps->setPropertyValue( ITEMS, uno::makeAny( sList ) );
}
}
void SAL_CALL
ScVbaListBox::Clear( ) throw (uno::RuntimeException)
{
// urk, setValue doesn't seem to work !!
//setValue( uno::makeAny( sal_Int16() ) );
m_xProps->setPropertyValue( ITEMS, uno::makeAny( uno::Sequence< rtl::OUString >() ) );
}
//PropListener
void
ScVbaListBox::setValueEvent( const uno::Any& value )
{
sal_Bool bValue;
if( !(value >>= bValue) )
throw uno::RuntimeException( rtl::OUString::createFromAscii(
"Invalid type\n. need boolean." ), uno::Reference< uno::XInterface >() );
uno::Sequence< sal_Int16 > nList;
m_xProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "SelectedItems" ) ) ) >>= nList;
sal_Int16 nLength = static_cast<sal_Int16>( nList.getLength() );
sal_Int16 nIndex = m_nIndex;
for( sal_Int16 i = 0; i < nLength; i++ )
{
if( nList[i] == nIndex )
{
if( bValue )
return;
else
{
for( ; i < nLength - 1; i++ )
{
nList[i] = nList[i + 1];
}
nList.realloc( nLength - 1 );
m_xProps->setPropertyValue( sSourceName, uno::makeAny( nList ) );
return;
}
}
}
if( bValue )
{
if( getMultiSelect() )
{
nList.realloc( nLength + 1 );
nList[nLength] = nIndex;
}
else
{
nList.realloc( 1 );
nList[0] = nIndex;
}
m_xProps->setPropertyValue( sSourceName, uno::makeAny( nList ) );
}
}
css::uno::Any
ScVbaListBox::getValueEvent()
{
uno::Sequence< sal_Int16 > nList;
m_xProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "SelectedItems" ) ) ) >>= nList;
sal_Int32 nLength = nList.getLength();
sal_Int32 nIndex = m_nIndex;
for( sal_Int32 i = 0; i < nLength; i++ )
{
if( nList[i] == nIndex )
return uno::makeAny( sal_True );
}
return uno::makeAny( sal_False );
}
Reference in New Issue View Git Blame Copy Permalink