include/vbahelper/vbashapes.hxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19 #ifndef INCLUDED_VBAHELPER_VBASHAPES_HXX
  20 #define INCLUDED_VBAHELPER_VBASHAPES_HXX
  21
  22 #include <exception>
  23
  24 #include <com/sun/star/lang/IndexOutOfBoundsException.hpp>
  25 #include <com/sun/star/script/BasicErrorException.hpp>
  26 #include <com/sun/star/uno/Any.hxx>
  27 #include <com/sun/star/uno/Reference.hxx>
  28 #include <com/sun/star/uno/RuntimeException.hpp>
  29 #include <com/sun/star/uno/Sequence.hxx>
  30 #include <com/sun/star/uno/Type.hxx>
  31 #include <ooo/vba/msforms/XShapes.hpp>
  32 #include <rtl/ustring.hxx>
  33 #include <sal/types.h>
  34 #include <vbahelper/vbacollectionimpl.hxx>
  35 #include <vbahelper/vbadllapi.h>
  36 #include <vbahelper/vbahelper.hxx>
  37
  38 namespace com { namespace sun { namespace star {
  39     namespace container { class XEnumeration; }
  40     namespace container { class XIndexAccess; }
  41     namespace drawing { class XDrawPage; }
  42     namespace drawing { class XShape; }
  43     namespace drawing { class XShapes; }
  44     namespace frame { class XModel; }
  45     namespace uno { class XComponentContext; }
  46 } } }
  47
  48 namespace ooo { namespace vba {
  49     class XHelperInterface;
  50     namespace msforms { class XShapeRange; }
  51 } }
  52
  53 typedef CollTestImplHelper< ov::msforms::XShapes > ScVbaShapes_BASE;
  54
  55 class VBAHELPER_DLLPUBLIC ScVbaShapes : public ScVbaShapes_BASE
  56 {
  57 private:
  58     css::uno::Reference< css::drawing::XShapes > m_xShapes;
  59     css::uno::Reference< css::drawing::XDrawPage > m_xDrawPage;
  60     sal_Int32 m_nNewShapeCount;
  61     void initBaseCollection();
  62 protected:
  63     css::uno::Reference< css::frame::XModel > m_xModel;
  64     virtual OUString getServiceImplName() override;
  65     virtual css::uno::Sequence<OUString> getServiceNames() override;
  66     /// @throws css::uno::RuntimeException
  67     css::uno::Reference< css::container::XIndexAccess > getShapesByArrayIndices( const css::uno::Any& Index );
  68     /// @throws css::uno::RuntimeException
  69     css::uno::Reference< css::drawing::XShape > createShape( const OUString& service );
  70     /// @throws css::uno::RuntimeException
  71     css::uno::Any AddRectangle( sal_Int32 startX, sal_Int32 startY, sal_Int32 nLineWidth, sal_Int32 nLineHeight, const css::uno::Any& rRange );
  72     /// @throws css::uno::RuntimeException
  73     css::uno::Any AddEllipse( sal_Int32 startX, sal_Int32 startY, sal_Int32 nLineWidth, sal_Int32 nLineHeight, const css::uno::Any& rRange );
  74     /// @throws css::uno::RuntimeException
  75     css::uno::Any AddTextboxInWriter( sal_Int32 _nLeft, sal_Int32 _nTop, sal_Int32 _nWidth, sal_Int32 _nHeight );
  76     OUString createName( const OUString& sName );
  77     //TODO helperapi using a writer document
  78     //css::awt::Point calculateTopLeftMargin( css::uno::Reference< ov::XHelperInterface > xDocument );
  79
  80 public:
  81     ScVbaShapes( 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::frame::XModel >& xModel );
  82     /// @throws css::uno::RuntimeException
  83     static void setDefaultShapeProperties( const css::uno::Reference< css::drawing::XShape >& xShape );
  84     static void setShape_NameProperty( const css::uno::Reference< css::drawing::XShape >& xShape, const OUString& sName );
  85     //XEnumerationAccess
  86     virtual css::uno::Type SAL_CALL getElementType() override;
  87     virtual css::uno::Reference< css::container::XEnumeration > SAL_CALL createEnumeration() override;
  88
  89     virtual void SAL_CALL SelectAll() override;
  90     //helper::calc
  91     virtual css::uno::Any SAL_CALL AddLine( sal_Int32 StartX, sal_Int32 StartY, sal_Int32 endX, sal_Int32 endY ) override;
  92     virtual css::uno::Any SAL_CALL AddShape( sal_Int32 _nType, sal_Int32 _nLeft, sal_Int32 _nTop, sal_Int32 _nWidth, sal_Int32 _nHeight ) override;
  93     virtual css::uno::Any SAL_CALL AddTextbox( sal_Int32 _nOrientation, sal_Int32 _nLeft, sal_Int32 _nTop, sal_Int32 _nWidth, sal_Int32 _nHeight ) override;
  94     virtual css::uno::Reference< ov::msforms::XShapeRange > SAL_CALL Range( const css::uno::Any& shapes ) override;
  95     // ScVbaCollectionBaseImpl
  96     virtual css::uno::Any createCollectionObject( const css::uno::Any& aSource ) override;
  97 };
  98
  99 #endif // INCLUDED_VBAHELPER_VBASHAPES_HXX
 100
 101 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */