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 #include <string_view>
  24
  25 #include <com/sun/star/lang/IndexOutOfBoundsException.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::sun::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::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 final : 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     css::uno::Reference< css::frame::XModel > m_xModel;
  63     virtual OUString getServiceImplName() override;
  64     virtual css::uno::Sequence<OUString> getServiceNames() override;
  65     /// @throws css::uno::RuntimeException
  66     css::uno::Reference< css::container::XIndexAccess > getShapesByArrayIndices( const css::uno::Any& Index );
  67     /// @throws css::uno::RuntimeException
  68     css::uno::Reference< css::drawing::XShape > createShape( const OUString& service );
  69     /// @throws css::uno::RuntimeException
  70     css::uno::Any AddRectangle( sal_Int32 startX, sal_Int32 startY, sal_Int32 nLineWidth, sal_Int32 nLineHeight );
  71     /// @throws css::uno::RuntimeException
  72     css::uno::Any AddEllipse( sal_Int32 startX, sal_Int32 startY, sal_Int32 nLineWidth, sal_Int32 nLineHeight );
  73     /// @throws css::uno::RuntimeException
  74     css::uno::Any AddTextboxInWriter( sal_Int32 _nLeft, sal_Int32 _nTop, sal_Int32 _nWidth, sal_Int32 _nHeight );
  75     OUString createName( std::u16string_view sName );
  76     //TODO helperapi using a writer document
  77     //css::awt::Point calculateTopLeftMargin( css::uno::Reference< ov::XHelperInterface > xDocument );
  78
  79 public:
  80     ScVbaShapes( const css::uno::Reference< ov::XHelperInterface >& xParent, const css::uno::Reference< css::uno::XComponentContext >& xContext, const css::uno::Reference< css::container::XIndexAccess >& xShapes, css::uno::Reference< css::frame::XModel > xModel );
  81     /// @throws css::uno::RuntimeException
  82     static void setDefaultShapeProperties( const css::uno::Reference< css::drawing::XShape >& xShape );
  83     static void setShape_NameProperty( const css::uno::Reference< css::drawing::XShape >& xShape, const OUString& sName );
  84     //XEnumerationAccess
  85     virtual css::uno::Type SAL_CALL getElementType() override;
  86     virtual css::uno::Reference< css::container::XEnumeration > SAL_CALL createEnumeration() override;
  87
  88     virtual void SAL_CALL SelectAll() override;
  89     //helper::calc
  90     virtual css::uno::Any SAL_CALL AddLine( sal_Int32 StartX, sal_Int32 StartY, sal_Int32 endX, sal_Int32 endY ) override;
  91     virtual css::uno::Any SAL_CALL AddShape( sal_Int32 _nType, sal_Int32 _nLeft, sal_Int32 _nTop, sal_Int32 _nWidth, sal_Int32 _nHeight ) override;
  92     virtual css::uno::Any SAL_CALL AddTextbox( sal_Int32 _nOrientation, sal_Int32 _nLeft, sal_Int32 _nTop, sal_Int32 _nWidth, sal_Int32 _nHeight ) override;
  93     virtual css::uno::Reference< ov::msforms::XShapeRange > SAL_CALL Range( const css::uno::Any& shapes ) override;
  94     // ScVbaCollectionBaseImpl
  95     virtual css::uno::Any createCollectionObject( const css::uno::Any& aSource ) override;
  96 };
  97
  98 #endif // INCLUDED_VBAHELPER_VBASHAPES_HXX
  99
 100 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */