diff options
Diffstat (limited to 'sc/source/ui/vba/vbatitle.hxx')
-rw-r--r-- | sc/source/ui/vba/vbatitle.hxx | 144 |
1 files changed, 144 insertions, 0 deletions
diff --git a/sc/source/ui/vba/vbatitle.hxx b/sc/source/ui/vba/vbatitle.hxx new file mode 100644 index 0000000000..bb017f0bfb --- /dev/null +++ b/sc/source/ui/vba/vbatitle.hxx @@ -0,0 +1,144 @@ +/* -*- 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 . + */ +#pragma once + +#include <utility> +#include <vbahelper/vbahelperinterface.hxx> +#include "vbainterior.hxx" +#include "vbafont.hxx" +#include "vbapalette.hxx" +#include <com/sun/star/beans/XPropertySet.hpp> +#include <com/sun/star/drawing/XShape.hpp> +#include <com/sun/star/script/BasicErrorException.hpp> +#include <basic/sberrors.hxx> +#include <memory> + +template< typename... Ifc > +class TitleImpl : public InheritedHelperInterfaceImpl< Ifc... > +{ +typedef InheritedHelperInterfaceImpl< Ifc... > BaseClass; + + css::uno::Reference< css::drawing::XShape > xTitleShape; + css::uno::Reference< css::beans::XPropertySet > xShapePropertySet; + ov::ShapeHelper maShapeHelper; + ScVbaPalette m_Palette; +public: + TitleImpl( const css::uno::Reference< ov::XHelperInterface >& xParent, + const css::uno::Reference< css::uno::XComponentContext >& xContext, + css::uno::Reference< css::drawing::XShape > _xTitleShape ) + : BaseClass( xParent, xContext ), + xTitleShape(std::move( _xTitleShape )), + xShapePropertySet( xTitleShape, css::uno::UNO_QUERY_THROW ), + maShapeHelper( xTitleShape ), + m_Palette(nullptr) + { + } + css::uno::Reference< ov::excel::XInterior > SAL_CALL Interior( ) override + { + // #TODO find out what the proper parent should be + // leaving as set by the helperapi for the moment + // #TODO we really need the ScDocument to pass to ScVbaInterior + // otherwise attempts to access the palette will fail + return new ScVbaInterior( BaseClass::mxParent, BaseClass::mxContext, xShapePropertySet ); + } + css::uno::Reference< ov::excel::XFont > SAL_CALL Font( ) override + { + // #TODO find out what the proper parent should be + // leaving as set by the helperapi for the moment + return new ScVbaFont( BaseClass::mxParent, BaseClass::mxContext, m_Palette, xShapePropertySet ); + + } + void SAL_CALL setText( const OUString& Text ) override + { + try + { + xShapePropertySet->setPropertyValue("String", css::uno::Any( Text )); + } + catch ( css::uno::Exception& ) + { + throw css::script::BasicErrorException( OUString(), css::uno::Reference< css::uno::XInterface >(), sal_uInt32(ERRCODE_BASIC_METHOD_FAILED), OUString() ); + } + } + OUString SAL_CALL getText( ) override + { + OUString sText; + try + { + xShapePropertySet->getPropertyValue("String") >>= sText; + } + catch ( css::uno::Exception& ) + { + throw css::script::BasicErrorException( OUString(), css::uno::Reference< css::uno::XInterface >(), sal_uInt32(ERRCODE_BASIC_METHOD_FAILED), OUString() ); + } + return sText; + } + + void SAL_CALL setTop( double Top ) override + { + maShapeHelper.setTop( Top ); + } + double SAL_CALL getTop( ) override + { + return maShapeHelper.getTop(); + } + void SAL_CALL setLeft( double Left ) override + { + maShapeHelper.setLeft( Left ); + } + double SAL_CALL getLeft( ) override + { + return maShapeHelper.getLeft(); + } + void SAL_CALL setOrientation( ::sal_Int32 _nOrientation ) override + { + try + { + xShapePropertySet->setPropertyValue("TextRotation", css::uno::Any(_nOrientation*100)); + } + catch (css::uno::Exception& ) + { + throw css::script::BasicErrorException( OUString(), css::uno::Reference< css::uno::XInterface >(), sal_uInt32(ERRCODE_BASIC_METHOD_FAILED), OUString() ); + } + } + ::sal_Int32 SAL_CALL getOrientation( ) override + { + sal_Int32 nSOOrientation = 0; + try + { + xShapePropertySet->getPropertyValue("TextRotation") >>= nSOOrientation; + } + catch (css::uno::Exception& ) + { + throw css::script::BasicErrorException( OUString(), css::uno::Reference< css::uno::XInterface >(), sal_uInt32(ERRCODE_BASIC_METHOD_FAILED), OUString() ); + } + return static_cast< sal_Int32 >(nSOOrientation / 100) ; + } +// XHelperInterface + OUString getServiceImplName() override + { + return "TitleImpl"; + } + css::uno::Sequence< OUString > getServiceNames() override + { + static const css::uno::Sequence< OUString > aServiceNames{ "ooo.vba.excel.XTitle" }; + return aServiceNames; + } +}; + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |