diff options
Diffstat (limited to '')
| -rw-r--r-- | include/vbahelper/vbashaperange.hxx | 105 |
1 files changed, 105 insertions, 0 deletions
diff --git a/include/vbahelper/vbashaperange.hxx b/include/vbahelper/vbashaperange.hxx new file mode 100644 index 000000000..54a052cac --- /dev/null +++ b/include/vbahelper/vbashaperange.hxx @@ -0,0 +1,105 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/* + * This file is part of the LibreOffice project. + * + * This Source Code Form is subject to the terms of the Mozilla Public + * License, v. 2.0. If a copy of the MPL was not distributed with this + * file, You can obtain one at http://mozilla.org/MPL/2.0/. + * + * This file incorporates work covered by the following license notice: + * + * Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed + * with this work for additional information regarding copyright + * ownership. The ASF licenses this file to you under the Apache + * License, Version 2.0 (the "License"); you may not use this file + * except in compliance with the License. You may obtain a copy of + * the License at http://www.apache.org/licenses/LICENSE-2.0 . + */ +#ifndef INCLUDED_VBAHELPER_VBASHAPERANGE_HXX +#define INCLUDED_VBAHELPER_VBASHAPERANGE_HXX + +#include <exception> + +#include <com/sun/star/uno/Any.hxx> +#include <com/sun/star/uno/Reference.hxx> +#include <com/sun/star/uno/RuntimeException.hpp> +#include <com/sun/star/uno/Sequence.hxx> +#include <com/sun/star/uno/Type.hxx> +#include <ooo/vba/msforms/XShapeRange.hpp> +#include <rtl/ustring.hxx> +#include <sal/types.h> +#include <vbahelper/vbacollectionimpl.hxx> +#include <vbahelper/vbadllapi.h> +#include <vbahelper/vbahelper.hxx> + +namespace com::sun::star { + namespace container { class XEnumeration; } + namespace container { class XIndexAccess; } + namespace drawing { class XDrawPage; } + namespace drawing { class XShapes; } + namespace frame { class XModel; } + namespace uno { class XComponentContext; } +} + +namespace ooo::vba { + class XHelperInterface; + namespace msforms { class XFillFormat; } + namespace msforms { class XLineFormat; } + namespace msforms { class XShape; } +} + +typedef CollTestImplHelper< ov::msforms::XShapeRange > ScVbaShapeRange_BASE; + +class VBAHELPER_DLLPUBLIC ScVbaShapeRange final : public ScVbaShapeRange_BASE +{ +private: + css::uno::Reference< css::drawing::XDrawPage > m_xDrawPage; + css::uno::Reference< css::drawing::XShapes > m_xShapes; + css::uno::Reference< css::frame::XModel > m_xModel; + virtual OUString getServiceImplName() override; + virtual css::uno::Sequence<OUString> getServiceNames() override; + /// @throws css::uno::RuntimeException + css::uno::Reference< css::drawing::XShapes > const & getShapes() ; +public: + ScVbaShapeRange( const css::uno::Reference< ov::XHelperInterface >& xParent, const css::uno::Reference< css::uno::XComponentContext >& xContext, const css::uno::Reference< css::container::XIndexAccess >& xShapes, const css::uno::Reference< css::drawing::XDrawPage>& xDrawShape, const css::uno::Reference< css::frame::XModel >& xModel ); + + // Methods + virtual void SAL_CALL Select( ) override; + virtual css::uno::Reference< ::ooo::vba::msforms::XShape > SAL_CALL Group() override; + virtual void SAL_CALL IncrementRotation( double Increment ) override; + virtual void SAL_CALL IncrementLeft( double Increment ) override ; + virtual void SAL_CALL IncrementTop( double Increment ) override; + virtual OUString SAL_CALL getName() override; + virtual void SAL_CALL setName( const OUString& _name ) override; + virtual double SAL_CALL getHeight() override; + virtual void SAL_CALL setHeight( double _height ) override; + virtual double SAL_CALL getWidth() override; + virtual void SAL_CALL setWidth( double _width ) override; + virtual double SAL_CALL getLeft() override; + virtual void SAL_CALL setLeft( double _left ) override; + virtual double SAL_CALL getTop() override; + virtual void SAL_CALL setTop( double _top ) override; + virtual css::uno::Reference< ov::msforms::XLineFormat > SAL_CALL getLine() override; + virtual css::uno::Reference< ov::msforms::XFillFormat > SAL_CALL getFill() override; + virtual sal_Bool SAL_CALL getLockAspectRatio() override; + virtual void SAL_CALL setLockAspectRatio( sal_Bool _lockaspectratio ) override; + virtual sal_Bool SAL_CALL getLockAnchor() override; + virtual void SAL_CALL setLockAnchor( sal_Bool _lockanchor ) override; + virtual ::sal_Int32 SAL_CALL getRelativeHorizontalPosition() override; + virtual void SAL_CALL setRelativeHorizontalPosition( ::sal_Int32 _relativehorizontalposition ) override; + virtual ::sal_Int32 SAL_CALL getRelativeVerticalPosition() override; + virtual void SAL_CALL setRelativeVerticalPosition( ::sal_Int32 _relativeverticalposition ) override; + virtual css::uno::Any SAL_CALL TextFrame( ) override; + virtual css::uno::Any SAL_CALL WrapFormat( ) override; + virtual void SAL_CALL ZOrder( sal_Int32 ZOrderCmd ) override; + //XEnumerationAccess + virtual css::uno::Type SAL_CALL getElementType() override; + virtual css::uno::Reference< css::container::XEnumeration > SAL_CALL createEnumeration() override; + // ScVbaCollectionBaseImpl + virtual css::uno::Any createCollectionObject( const css::uno::Any& aSource ) override; +}; + +#endif // INCLUDED_VBAHELPER_VBASHAPERANGE_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |