2009-09-18 10:35:47 -05:00
|
|
|
/*************************************************************************
|
|
|
|
*
|
2010-02-12 08:01:35 -06:00
|
|
|
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
|
2009-09-18 10:35:47 -05:00
|
|
|
*
|
2010-02-12 08:01:35 -06:00
|
|
|
* Copyright 2000, 2010 Oracle and/or its affiliates.
|
2009-09-18 10:35:47 -05:00
|
|
|
*
|
2010-02-12 08:01:35 -06:00
|
|
|
* OpenOffice.org - a multi-platform office productivity suite
|
2009-09-18 10:35:47 -05:00
|
|
|
*
|
2010-02-12 08:01:35 -06:00
|
|
|
* This file is part of OpenOffice.org.
|
2009-09-18 10:35:47 -05:00
|
|
|
*
|
2010-02-12 08:01:35 -06:00
|
|
|
* OpenOffice.org is free software: you can redistribute it and/or modify
|
|
|
|
* it under the terms of the GNU Lesser General Public License version 3
|
|
|
|
* only, as published by the Free Software Foundation.
|
2009-09-18 10:35:47 -05:00
|
|
|
*
|
2010-02-12 08:01:35 -06:00
|
|
|
* OpenOffice.org 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 version 3 for more details
|
|
|
|
* (a copy is included in the LICENSE file that accompanied this code).
|
2009-09-18 10:35:47 -05:00
|
|
|
*
|
2010-02-12 08:01:35 -06:00
|
|
|
* You should have received a copy of the GNU Lesser General Public License
|
|
|
|
* version 3 along with OpenOffice.org. If not, see
|
|
|
|
* <http://www.openoffice.org/license.html>
|
|
|
|
* for a copy of the LGPLv3 License.
|
2009-09-18 10:35:47 -05:00
|
|
|
*
|
|
|
|
************************************************************************/
|
|
|
|
#include <vbahelper/helperdecl.hxx>
|
|
|
|
#include "vbauserform.hxx"
|
|
|
|
#include <com/sun/star/awt/XControl.hpp>
|
|
|
|
#include <com/sun/star/awt/XControlContainer.hpp>
|
|
|
|
#include <com/sun/star/beans/PropertyConcept.hpp>
|
|
|
|
#include <basic/sbx.hxx>
|
|
|
|
#include <basic/sbstar.hxx>
|
|
|
|
#include <basic/sbmeth.hxx>
|
|
|
|
#include "vbacontrols.hxx"
|
|
|
|
|
|
|
|
using namespace ::ooo::vba;
|
|
|
|
using namespace ::com::sun::star;
|
|
|
|
|
|
|
|
// some little notes
|
|
|
|
// XDialog implementation has the following interesting bits
|
|
|
|
// a Controls property ( which is an array of the container controls )
|
|
|
|
// each item in the controls array is a XControl, where the model is
|
|
|
|
// basically a property bag
|
|
|
|
// additionally the XDialog instance has itself a model
|
|
|
|
// this model has a ControlModels ( array of models ) property
|
|
|
|
// the models in ControlModels can be accessed by name
|
|
|
|
// also the XDialog is a XControl ( to access the model above
|
|
|
|
|
|
|
|
ScVbaUserForm::ScVbaUserForm( uno::Sequence< uno::Any > const& aArgs, uno::Reference< uno::XComponentContext >const& xContext ) throw ( lang::IllegalArgumentException ) : ScVbaUserForm_BASE( getXSomethingFromArgs< XHelperInterface >( aArgs, 0 ), xContext, getXSomethingFromArgs< uno::XInterface >( aArgs, 1 ), getXSomethingFromArgs< frame::XModel >( aArgs, 2 ), static_cast< ooo::vba::AbstractGeometryAttributes* >(0) ), mbDispose( true )
|
|
|
|
{
|
|
|
|
m_xDialog.set( m_xControl, uno::UNO_QUERY_THROW );
|
|
|
|
uno::Reference< awt::XControl > xControl( m_xDialog, uno::UNO_QUERY_THROW );
|
|
|
|
m_xProps.set( xControl->getModel(), uno::UNO_QUERY_THROW );
|
|
|
|
setGeometryHelper( new UserFormGeometryHelper( xContext, xControl ) );
|
|
|
|
}
|
|
|
|
|
|
|
|
ScVbaUserForm::~ScVbaUserForm()
|
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
void SAL_CALL
|
|
|
|
ScVbaUserForm::Show( ) throw (uno::RuntimeException)
|
|
|
|
{
|
|
|
|
OSL_TRACE("ScVbaUserForm::Show( )");
|
|
|
|
short aRet = 0;
|
|
|
|
mbDispose = true;
|
|
|
|
if ( m_xDialog.is() )
|
|
|
|
aRet = m_xDialog->execute();
|
|
|
|
OSL_TRACE("ScVbaUserForm::Show() execute returned %d", aRet);
|
|
|
|
if ( mbDispose )
|
|
|
|
{
|
|
|
|
try
|
|
|
|
{
|
|
|
|
uno::Reference< lang::XComponent > xComp( m_xDialog, uno::UNO_QUERY_THROW );
|
|
|
|
m_xDialog = NULL;
|
|
|
|
xComp->dispose();
|
|
|
|
mbDispose = false;
|
|
|
|
}
|
|
|
|
catch( uno::Exception& )
|
|
|
|
{
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
rtl::OUString SAL_CALL
|
|
|
|
ScVbaUserForm::getCaption() throw (::com::sun::star::uno::RuntimeException)
|
|
|
|
{
|
|
|
|
rtl::OUString sCaption;
|
|
|
|
m_xProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Title") ) ) >>= sCaption;
|
|
|
|
return sCaption;
|
|
|
|
}
|
|
|
|
void
|
|
|
|
ScVbaUserForm::setCaption( const ::rtl::OUString& _caption ) throw (::com::sun::star::uno::RuntimeException)
|
|
|
|
{
|
|
|
|
m_xProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Title") ), uno::makeAny( _caption ) );
|
|
|
|
}
|
|
|
|
|
|
|
|
void SAL_CALL
|
|
|
|
ScVbaUserForm::Hide( ) throw (uno::RuntimeException)
|
|
|
|
{
|
|
|
|
mbDispose = false; // hide not dispose
|
|
|
|
if ( m_xDialog.is() )
|
|
|
|
m_xDialog->endExecute();
|
|
|
|
}
|
|
|
|
|
|
|
|
void SAL_CALL
|
|
|
|
ScVbaUserForm::RePaint( ) throw (uno::RuntimeException)
|
|
|
|
{
|
|
|
|
// do nothing
|
|
|
|
}
|
|
|
|
|
|
|
|
void SAL_CALL
|
|
|
|
ScVbaUserForm::UnloadObject( ) throw (uno::RuntimeException)
|
|
|
|
{
|
|
|
|
mbDispose = true;
|
|
|
|
if ( m_xDialog.is() )
|
|
|
|
m_xDialog->endExecute();
|
|
|
|
}
|
|
|
|
|
|
|
|
rtl::OUString&
|
|
|
|
ScVbaUserForm::getServiceImplName()
|
|
|
|
{
|
|
|
|
static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaUserForm") );
|
|
|
|
return sImplName;
|
|
|
|
}
|
|
|
|
|
|
|
|
uno::Sequence< rtl::OUString >
|
|
|
|
ScVbaUserForm::getServiceNames()
|
|
|
|
{
|
|
|
|
static uno::Sequence< rtl::OUString > aServiceNames;
|
|
|
|
if ( aServiceNames.getLength() == 0 )
|
|
|
|
{
|
|
|
|
aServiceNames.realloc( 1 );
|
|
|
|
aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.UserForm" ) );
|
|
|
|
}
|
|
|
|
return aServiceNames;
|
|
|
|
}
|
|
|
|
|
|
|
|
uno::Reference< beans::XIntrospectionAccess > SAL_CALL
|
|
|
|
ScVbaUserForm::getIntrospection( ) throw (uno::RuntimeException)
|
|
|
|
{
|
|
|
|
return uno::Reference< beans::XIntrospectionAccess >();
|
|
|
|
}
|
|
|
|
|
|
|
|
uno::Any SAL_CALL
|
|
|
|
ScVbaUserForm::invoke( const ::rtl::OUString& /*aFunctionName*/, const uno::Sequence< uno::Any >& /*aParams*/, uno::Sequence< ::sal_Int16 >& /*aOutParamIndex*/, uno::Sequence< uno::Any >& /*aOutParam*/ ) throw (lang::IllegalArgumentException, script::CannotConvertException, reflection::InvocationTargetException, uno::RuntimeException)
|
|
|
|
{
|
|
|
|
throw uno::RuntimeException(); // unsupported operation
|
|
|
|
}
|
|
|
|
|
|
|
|
void SAL_CALL
|
|
|
|
ScVbaUserForm::setValue( const ::rtl::OUString& aPropertyName, const uno::Any& aValue ) throw (beans::UnknownPropertyException, script::CannotConvertException, reflection::InvocationTargetException, uno::RuntimeException)
|
|
|
|
{
|
|
|
|
uno::Any aObject = getValue( aPropertyName );
|
|
|
|
// The Object *must* support XDefaultProperty here because getValue will
|
|
|
|
// only return properties that are Objects ( e.g. controls )
|
|
|
|
// e.g. Userform1.aControl = something
|
|
|
|
// 'aControl' has to support XDefaultProperty to make sense here
|
|
|
|
uno::Reference< script::XDefaultProperty > xDfltProp( aObject, uno::UNO_QUERY_THROW );
|
|
|
|
rtl::OUString aDfltPropName = xDfltProp->getDefaultPropertyName();
|
|
|
|
uno::Reference< beans::XIntrospectionAccess > xUnoAccess( getIntrospectionAccess( aObject ) );
|
|
|
|
uno::Reference< beans::XPropertySet > xPropSet( xUnoAccess->queryAdapter( ::getCppuType( (const uno::Reference< beans::XPropertySet > *)0 ) ), uno::UNO_QUERY_THROW );
|
|
|
|
xPropSet->setPropertyValue( aDfltPropName, aValue );
|
|
|
|
}
|
|
|
|
|
|
|
|
uno::Any SAL_CALL
|
|
|
|
ScVbaUserForm::getValue( const ::rtl::OUString& aPropertyName ) throw (beans::UnknownPropertyException, uno::RuntimeException)
|
|
|
|
{
|
|
|
|
uno::Reference< awt::XControl > xDialogControl( m_xDialog, uno::UNO_QUERY_THROW );
|
|
|
|
uno::Reference< awt::XControlContainer > xContainer( m_xDialog, uno::UNO_QUERY_THROW );
|
|
|
|
uno::Reference< awt::XControl > xControl = xContainer->getControl( aPropertyName );
|
|
|
|
ScVbaControlFactory aFac( mxContext, xControl, m_xModel );
|
|
|
|
uno::Reference< msforms::XControl > xVBAControl( aFac.createControl( xDialogControl->getModel() ) );
|
|
|
|
ScVbaControl* pControl = dynamic_cast< ScVbaControl* >( xVBAControl.get() );
|
|
|
|
pControl->setGeometryHelper( new UserFormGeometryHelper( mxContext, xControl ) );
|
|
|
|
return uno::makeAny( xVBAControl );
|
|
|
|
}
|
|
|
|
|
|
|
|
::sal_Bool SAL_CALL
|
|
|
|
ScVbaUserForm::hasMethod( const ::rtl::OUString& /*aName*/ ) throw (uno::RuntimeException)
|
|
|
|
{
|
|
|
|
return sal_False;
|
|
|
|
}
|
|
|
|
uno::Any SAL_CALL
|
|
|
|
ScVbaUserForm::Controls( const uno::Any& index ) throw (uno::RuntimeException)
|
|
|
|
{
|
|
|
|
uno::Reference< awt::XControl > xDialogControl( m_xDialog, uno::UNO_QUERY_THROW );
|
|
|
|
uno::Reference< XCollection > xControls( new ScVbaControls( this, mxContext, xDialogControl ) );
|
|
|
|
if ( index.hasValue() )
|
|
|
|
return uno::makeAny( xControls->Item( index, uno::Any() ) );
|
|
|
|
return uno::makeAny( xControls );
|
|
|
|
}
|
|
|
|
|
|
|
|
::sal_Bool SAL_CALL
|
|
|
|
ScVbaUserForm::hasProperty( const ::rtl::OUString& aName ) throw (uno::RuntimeException)
|
|
|
|
{
|
|
|
|
uno::Reference< awt::XControl > xControl( m_xDialog, uno::UNO_QUERY );
|
|
|
|
OSL_TRACE("ScVbaUserForm::hasProperty(%s) %d", rtl::OUStringToOString( aName, RTL_TEXTENCODING_UTF8 ).getStr(), xControl.is() );
|
|
|
|
if ( xControl.is() )
|
|
|
|
{
|
|
|
|
uno::Reference< container::XNameAccess > xNameAccess( xControl->getModel(), uno::UNO_QUERY_THROW );
|
|
|
|
sal_Bool bRes = xNameAccess->hasByName( aName );
|
|
|
|
OSL_TRACE("ScVbaUserForm::hasProperty(%s) %d ---> %d", rtl::OUStringToOString( aName, RTL_TEXTENCODING_UTF8 ).getStr(), xControl.is(), bRes );
|
|
|
|
return bRes;
|
|
|
|
}
|
|
|
|
return sal_False;
|
|
|
|
}
|
|
|
|
|
|
|
|
namespace userform
|
|
|
|
{
|
|
|
|
namespace sdecl = comphelper::service_decl;
|
|
|
|
sdecl::vba_service_class_<ScVbaUserForm, sdecl::with_args<true> > serviceImpl;
|
|
|
|
extern sdecl::ServiceDecl const serviceDecl(
|
|
|
|
serviceImpl,
|
|
|
|
"ScVbaUserForm",
|
|
|
|
"ooo.vba.msforms.UserForm" );
|
|
|
|
}
|
|
|
|
|