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_CONTROLS_HXX
28 #define SC_VBA_CONTROLS_HXX
29 
30 #include <cppuhelper/implbase1.hxx>
31 #include <ooo/vba/msforms/XControls.hpp>
32 #include <com/sun/star/awt/XControl.hpp>
33 
34 #include <vbahelper/vbacollectionimpl.hxx>
35 #include <vbahelper/vbahelper.hxx>
36 
37 typedef CollTestImplHelper< ov::msforms::XControls > ControlsImpl_BASE;
38 
39 class ScVbaControls : public ControlsImpl_BASE
40 {
41 public:
42     ScVbaControls(
43         const css::uno::Reference< ov::XHelperInterface >& xParent,
44         const css::uno::Reference< css::uno::XComponentContext >& xContext,
45         const css::uno::Reference< css::awt::XControl >& xDialog,
46         const css::uno::Reference< css::frame::XModel >& xModel,
47         double fOffsetX, double fOffsetY );
48     // XControls
49     virtual void SAL_CALL Move( double cx, double cy ) throw (css::uno::RuntimeException);
50     virtual css::uno::Any SAL_CALL Add( const css::uno::Any& Object, const css::uno::Any& StringKey, const css::uno::Any& Before, const css::uno::Any& After ) throw (css::uno::RuntimeException);
51     virtual void SAL_CALL Remove( const css::uno::Any& StringKeyOrIndex ) throw (css::uno::RuntimeException);
52 
53     // XEnumerationAccess
54     virtual css::uno::Type SAL_CALL getElementType() throw (css::uno::RuntimeException);
55     virtual css::uno::Reference< css::container::XEnumeration > SAL_CALL createEnumeration() throw (css::uno::RuntimeException);
56 
57     // ScVbaCollectionBaseImpl
58     virtual css::uno::Any createCollectionObject( const css::uno::Any& aSource );
59 
60     // XHelperInterface
61     VBAHELPER_DECL_XHELPERINTERFACE
62 
63 private:
64 	css::uno::Reference< css::awt::XControl > mxDialog;
65     css::uno::Reference< css::frame::XModel > mxModel;
66 	double mfOffsetX;
67     double mfOffsetY;
68 };
69 
70 #endif //SC_VBA_OLEOBJECTS_HXX
71 
72