bc79cdf8d6
2007/07/18 13:46:45 npower 1.1.2.3: #i77189# sync ooo-build and this module 2007/05/13 07:34:00 npower 1.1.2.2: Add licence info 2007/05/10 11:21:45 npower 1.1.2.1: -m#i77189#
113 lines
5.5 KiB
C++
113 lines
5.5 KiB
C++
/*************************************************************************
|
|
*
|
|
* OpenOffice.org - a multi-platform office productivity suite
|
|
*
|
|
* $RCSfile: vbacontrol.hxx,v $
|
|
*
|
|
* $Revision: 1.2 $
|
|
*
|
|
* last change: $Author: vg $ $Date: 2007-12-07 10:50:07 $
|
|
*
|
|
* 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
|
|
*
|
|
************************************************************************/
|
|
#ifndef SC_VBA_CONTROL_HXX
|
|
#define SC_VBA_CONTROL_HXX
|
|
|
|
#include <cppuhelper/implbase1.hxx>
|
|
#include <com/sun/star/beans/XPropertySet.hpp>
|
|
#include <com/sun/star/uno/XComponentContext.hpp>
|
|
#include <com/sun/star/script/XDefaultProperty.hpp>
|
|
#include <com/sun/star/drawing/XControlShape.hpp>
|
|
#include <com/sun/star/awt/XWindowPeer.hpp>
|
|
#include <org/openoffice/msforms/XControl.hpp>
|
|
|
|
#include "vbahelper.hxx"
|
|
|
|
typedef ::cppu::WeakImplHelper1< oo::msforms::XControl > ControlImpl_BASE;
|
|
|
|
class ScVbaControl : public ControlImpl_BASE
|
|
{
|
|
/* this will cause error when the sheet is invisible.
|
|
private:
|
|
css::uno::Reference< css::awt::XWindowPeer > m_xWindowPeer;
|
|
*/
|
|
private:
|
|
css::uno::Reference< css::awt::XWindowPeer > getWindowPeer( const css::uno::Reference< css::drawing::XControlShape >& xControlShape ) throw (css::uno::RuntimeException);
|
|
com::sun::star::uno::Reference< com::sun::star::lang::XEventListener > m_xEventListener;
|
|
protected:
|
|
css::uno::Reference< css::uno::XComponentContext > m_xContext;
|
|
css::uno::Reference< css::beans::XPropertySet > m_xProps;
|
|
css::uno::Reference< css::drawing::XControlShape > m_xControlShape;
|
|
protected:
|
|
ScVbaControl(){ m_xContext = 0; m_xProps = 0; m_xControlShape = 0; }
|
|
void SetControl( const css::uno::Reference< css::uno::XComponentContext > xContext,
|
|
const css::uno::Reference< css::drawing::XControlShape > xControlShape );
|
|
void SetControl( const css::uno::Reference< css::uno::XComponentContext > xContext,
|
|
const css::uno::Reference< css::beans::XPropertySet > xProps,
|
|
const css::uno::Reference< css::drawing::XControlShape > xControlShape );
|
|
public:
|
|
ScVbaControl( const css::uno::Reference< css::uno::XComponentContext >& xContext,
|
|
const css::uno::Reference< css::drawing::XControlShape >& xControlShape );
|
|
ScVbaControl( const css::uno::Reference< css::uno::XComponentContext >& xContext,
|
|
const css::uno::Reference< css::beans::XPropertySet >& xProps,
|
|
const css::uno::Reference< css::drawing::XControlShape > xControlShape );
|
|
virtual ~ScVbaControl();
|
|
// XControl
|
|
virtual sal_Bool SAL_CALL getEnabled() throw (css::uno::RuntimeException);
|
|
virtual void SAL_CALL setEnabled( sal_Bool _enabled ) throw (css::uno::RuntimeException);
|
|
virtual sal_Bool SAL_CALL getVisible() throw (css::uno::RuntimeException);
|
|
virtual void SAL_CALL setVisible( sal_Bool _visible ) throw (css::uno::RuntimeException);
|
|
virtual double SAL_CALL getHeight() throw (css::uno::RuntimeException);
|
|
virtual void SAL_CALL setHeight( double _height ) throw (css::uno::RuntimeException);
|
|
virtual double SAL_CALL getWidth() throw (css::uno::RuntimeException);
|
|
virtual void SAL_CALL setWidth( double _width ) throw (css::uno::RuntimeException);
|
|
virtual double SAL_CALL getLeft() throw (css::uno::RuntimeException);
|
|
virtual void SAL_CALL setLeft( double _left ) throw (css::uno::RuntimeException);
|
|
virtual double SAL_CALL getTop() throw (css::uno::RuntimeException);
|
|
virtual void SAL_CALL setTop( double _top ) throw (css::uno::RuntimeException);
|
|
|
|
//remove resouce because org.openoffice.excel.XControl is a wrapper of com.sun.star.drawing.XControlShape
|
|
virtual void removeResouce() throw( css::uno::RuntimeException );
|
|
};
|
|
|
|
|
|
class ScVbaControlFactory
|
|
{
|
|
public:
|
|
ScVbaControlFactory( const css::uno::Reference< css::uno::XComponentContext >& xContext,
|
|
const css::uno::Reference< css::drawing::XControlShape >& xControlShape );
|
|
ScVbaControlFactory( const css::uno::Reference< css::uno::XComponentContext >& xContext,
|
|
const css::uno::Reference< css::beans::XPropertySet >& xProps,
|
|
const css::uno::Reference< css::drawing::XControlShape > xControlShape );
|
|
ScVbaControl* createControl( const sal_Int16 nClassID ) throw ( css::uno::RuntimeException );
|
|
ScVbaControl* createControl() throw ( css::uno::RuntimeException );
|
|
private:
|
|
css::uno::Reference< css::uno::XComponentContext > m_xContext;
|
|
css::uno::Reference< css::beans::XPropertySet > m_xProps;
|
|
css::uno::Reference< css::drawing::XControlShape > m_xControlShape;
|
|
};
|
|
|
|
#endif//SC_VBA_CONTROL_HXX
|