1 /*************************************************************************
2  *
3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4  *
5  * Copyright 2000, 2010 Oracle and/or its affiliates.
6  *
7  * OpenOffice.org - a multi-platform office productivity suite
8  *
9  * This file is part of OpenOffice.org.
10  *
11  * OpenOffice.org is free software: you can redistribute it and/or modify
12  * it under the terms of the GNU Lesser General Public License version 3
13  * only, as published by the Free Software Foundation.
14  *
15  * OpenOffice.org is distributed in the hope that it will be useful,
16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18  * GNU Lesser General Public License version 3 for more details
19  * (a copy is included in the LICENSE file that accompanied this code).
20  *
21  * You should have received a copy of the GNU Lesser General Public License
22  * version 3 along with OpenOffice.org.  If not, see
23  * <http://www.openoffice.org/license.html>
24  * for a copy of the LGPLv3 License.
25  *
26  ************************************************************************/
27 #ifndef SC_VBA_USERFORM_HXX
28 #define SC_VBA_USERFORM_HXX
29 
30 #include <cppuhelper/implbase1.hxx>
31 #include <ooo/vba/msforms/XUserForm.hpp>
32 #include <com/sun/star/awt/XDialog.hpp>
33 #include <com/sun/star/frame/XModel.hpp>
34 
35 #include <vbahelper/vbahelperinterface.hxx>
36 #include "vbacontrol.hxx"
37 
38 //typedef InheritedHelperInterfaceImpl1< ov::msforms::XUserForm > ScVbaUserForm_BASE;
39 typedef cppu::ImplInheritanceHelper1< ScVbaControl, ov::msforms::XUserForm > ScVbaUserForm_BASE;
40 
41 class ScVbaUserForm : public ScVbaUserForm_BASE
42 {
43 private:
44     css::uno::Reference< css::awt::XDialog > m_xDialog;
45     bool mbDispose;
46 protected:
47 public:
48     ScVbaUserForm( css::uno::Sequence< css::uno::Any > const& aArgs, css::uno::Reference< css::uno::XComponentContext >const& xContext ) throw ( css::lang::IllegalArgumentException );
49     virtual ~ScVbaUserForm();
50     // XUserForm
51     virtual void SAL_CALL RePaint(  ) throw (css::uno::RuntimeException);
52     virtual void SAL_CALL Show(  ) throw (css::uno::RuntimeException);
53     virtual void SAL_CALL setValue( const ::rtl::OUString& aPropertyName, const css::uno::Any& aValue ) throw (css::beans::UnknownPropertyException, css::script::CannotConvertException, css::reflection::InvocationTargetException, css::uno::RuntimeException);
54     virtual css::uno::Any SAL_CALL getValue( const ::rtl::OUString& aPropertyName ) throw (css::beans::UnknownPropertyException, css::uno::RuntimeException);
55     virtual ::rtl::OUString SAL_CALL getCaption() throw (::com::sun::star::uno::RuntimeException);
56     virtual void SAL_CALL setCaption( const ::rtl::OUString& _caption ) throw (::com::sun::star::uno::RuntimeException);
57     virtual double SAL_CALL getInnerWidth() throw (::com::sun::star::uno::RuntimeException);
58     virtual void SAL_CALL setInnerWidth( double fInnerWidth ) throw (::com::sun::star::uno::RuntimeException);
59     virtual double SAL_CALL getInnerHeight() throw (::com::sun::star::uno::RuntimeException);
60     virtual void SAL_CALL setInnerHeight( double fInnerHeight ) throw (::com::sun::star::uno::RuntimeException);
61     virtual void SAL_CALL Hide(  ) throw (css::uno::RuntimeException);
62     virtual void SAL_CALL UnloadObject(  ) throw (css::uno::RuntimeException);
63     virtual css::uno::Any SAL_CALL Controls( const css::uno::Any& index ) throw (css::uno::RuntimeException);
64     // XIntrospection
65     virtual css::uno::Reference< css::beans::XIntrospectionAccess > SAL_CALL getIntrospection(  ) throw (css::uno::RuntimeException);
66     virtual css::uno::Any SAL_CALL invoke( const ::rtl::OUString& aFunctionName, const css::uno::Sequence< css::uno::Any >& aParams, css::uno::Sequence< ::sal_Int16 >& aOutParamIndex, css::uno::Sequence< css::uno::Any >& aOutParam ) throw (css::lang::IllegalArgumentException, css::script::CannotConvertException, css::reflection::InvocationTargetException, css::uno::RuntimeException);
67     virtual ::sal_Bool SAL_CALL hasMethod( const ::rtl::OUString& aName ) throw (css::uno::RuntimeException);
68     virtual ::sal_Bool SAL_CALL hasProperty( const ::rtl::OUString& aName ) throw (css::uno::RuntimeException);
69     //XHelperInterface
70     virtual rtl::OUString& getServiceImplName();
71     virtual css::uno::Sequence<rtl::OUString> getServiceNames();
72 };
73 #endif
74