new and removed files
This commit is contained in:
Noel Power
227
vbahelper/source/msforms/vbauserform.cxx
Normal file
227
vbahelper/source/msforms/vbauserform.cxx
Normal file
@@ -0,0 +1,227 @@
|
||||
/*************************************************************************
|
||||
*
|
||||
* OpenOffice.org - a multi-platform office productivity suite
|
||||
*
|
||||
* $RCSfile$
|
||||
*
|
||||
* $Revision$
|
||||
*
|
||||
* last change: $Author$ $Date$
|
||||
*
|
||||
* 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 <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" );
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user