Adding upstream version 4:7.4.7.upstream/4%7.4.7upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 260 insertions, 0 deletions

diff --git a/sw/source/ui/vba/vbapagesetup.cxx b/sw/source/ui/vba/vbapagesetup.cxx
new file mode 100644
index 000000000..b22437dbd
--- /dev/null
+++ b/sw/source/ui/vba/vbapagesetup.cxx
@@ -0,0 +1,260 @@
+/* -*- 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 .
+ */
+#include "vbapagesetup.hxx"
+#include <com/sun/star/frame/XModel.hpp>
+#include <com/sun/star/text/XPageCursor.hpp>
+#include <ooo/vba/word/WdSectionStart.hpp>
+#include <ooo/vba/word/WdOrientation.hpp>
+#include "wordvbahelper.hxx"
+
+using namespace ::com::sun::star;
+using namespace ::ooo::vba;
+
+SwVbaPageSetup::SwVbaPageSetup(const uno::Reference< XHelperInterface >& xParent,
+                const uno::Reference< uno::XComponentContext >& xContext,
+                const uno::Reference< frame::XModel >& xModel,
+                const uno::Reference< beans::XPropertySet >& xProps ):
+           SwVbaPageSetup_BASE( xParent, xContext )
+{
+    mxModel.set( xModel, uno::UNO_SET_THROW );
+    mxPageProps.set( xProps, uno::UNO_SET_THROW );
+    mnOrientPortrait = word::WdOrientation::wdOrientPortrait;
+    mnOrientLandscape = word::WdOrientation::wdOrientLandscape;
+}
+
+double SAL_CALL SwVbaPageSetup::getGutter()
+{
+    // not support in Writer
+    return 0;
+}
+
+void SAL_CALL SwVbaPageSetup::setGutter( double _gutter )
+{
+    // default add gutter into left margin
+    if( _gutter != 0 )
+    {
+        double margin = VbaPageSetupBase::getLeftMargin() + _gutter;
+        VbaPageSetupBase::setLeftMargin( margin );
+    }
+}
+
+double SAL_CALL SwVbaPageSetup::getHeaderDistance()
+{
+    bool isHeaderOn = false;
+    mxPageProps->getPropertyValue("HeaderIsOn") >>= isHeaderOn;
+    if( !isHeaderOn )
+        mxPageProps->setPropertyValue("HeaderIsOn", uno::Any( true ) );
+    return VbaPageSetupBase::getHeaderMargin();
+}
+
+    /**
+     * changes the value of TopMargin to the value of new MS-Word-HeaderDistance. Subtracts the difference
+     * between old TopMargin and the new headerDistance from the value of HeaderSpacing (which defines the
+     * space between the header and the body of the text). calculates the new HeaderHeight (= height of the
+     * header + headerBodyDistance).
+     *
+     * @param: headerDistance is the value that is set in MS Word for the distance from the top of the page
+     *          to the header
+     */
+void SAL_CALL SwVbaPageSetup::setHeaderDistance( double _headerdistance )
+{
+    sal_Int32 newHeaderDistance = Millimeter::getInHundredthsOfOneMillimeter( _headerdistance );
+    bool isHeaderOn = false;
+    sal_Int32 currentTopMargin = 0;
+    sal_Int32 currentSpacing = 0;
+    sal_Int32 currentHeaderHeight = 0;
+
+    mxPageProps->getPropertyValue("HeaderIsOn") >>= isHeaderOn;
+    if( !isHeaderOn )
+        mxPageProps->setPropertyValue("HeaderIsOn", uno::Any( true ) );
+
+    mxPageProps->getPropertyValue("TopMargin") >>= currentTopMargin;
+    mxPageProps->getPropertyValue("HeaderBodyDistance") >>= currentSpacing;
+    mxPageProps->getPropertyValue("HeaderHeight") >>= currentHeaderHeight;
+
+    sal_Int32 newSpacing = currentSpacing - ( newHeaderDistance - currentTopMargin );
+    sal_Int32 height = currentHeaderHeight - currentSpacing;
+    sal_Int32 newHeaderHeight = newSpacing + height;
+
+    mxPageProps->setPropertyValue("TopMargin", uno::Any( newHeaderDistance ) );
+    mxPageProps->setPropertyValue("HeaderBodyDistance", uno::Any( newSpacing ) );
+    mxPageProps->setPropertyValue("HeaderHeight", uno::Any( newHeaderHeight ) );
+}
+
+double SAL_CALL SwVbaPageSetup::getFooterDistance()
+{
+    bool isFooterOn = false;
+    mxPageProps->getPropertyValue("FooterIsOn") >>= isFooterOn;
+    if( !isFooterOn )
+        mxPageProps->setPropertyValue("FooterIsOn", uno::Any( true ) );
+    return VbaPageSetupBase::getFooterMargin();
+}
+
+void SAL_CALL SwVbaPageSetup::setFooterDistance( double _footerdistance )
+{
+    sal_Int32 newFooterDistance = Millimeter::getInHundredthsOfOneMillimeter( _footerdistance );
+    bool isFooterOn = false;
+    sal_Int32 currentBottomMargin = 0;
+    sal_Int32 currentSpacing = 0;
+    sal_Int32 currentFooterHeight = 0;
+
+    mxPageProps->getPropertyValue("FooterIsOn") >>= isFooterOn;
+    if( !isFooterOn )
+        mxPageProps->setPropertyValue("FooterIsOn", uno::Any( true ) );
+
+    mxPageProps->getPropertyValue("BottomMargin") >>= currentBottomMargin;
+    mxPageProps->getPropertyValue("FooterBodyDistance") >>= currentSpacing;
+    mxPageProps->getPropertyValue("FooterHeight") >>= currentFooterHeight;
+
+    sal_Int32 newSpacing = currentSpacing - ( newFooterDistance - currentBottomMargin );
+    sal_Int32 height = currentFooterHeight - currentSpacing;
+    sal_Int32 newFooterHeight = newSpacing + height;
+
+    mxPageProps->setPropertyValue("BottomMargin", uno::Any( newFooterDistance ) );
+    mxPageProps->setPropertyValue("FooterBodyDistance", uno::Any( newSpacing ) );
+    mxPageProps->setPropertyValue("FooterHeight", uno::Any( newFooterHeight ) );
+}
+
+sal_Bool SAL_CALL SwVbaPageSetup::getDifferentFirstPageHeaderFooter()
+{
+    OUString pageStyle = getStyleOfFirstPage();
+    if ( pageStyle == "First Page" )
+        return true;
+
+    return false;
+}
+
+void SAL_CALL SwVbaPageSetup::setDifferentFirstPageHeaderFooter( sal_Bool status )
+{
+    if( status == getDifferentFirstPageHeaderFooter() )
+        return;
+
+    OUString newStyle;
+    if( status )
+        newStyle = "First Page";
+    else
+        newStyle = "Standard";
+
+    uno::Reference< beans::XPropertySet > xStyleProps( word::getCurrentPageStyle( mxModel ), uno::UNO_QUERY_THROW );
+    sal_Int32 nTopMargin = 0;
+    xStyleProps->getPropertyValue("TopMargin") >>= nTopMargin;
+    sal_Int32 nBottomMargin = 0;
+    xStyleProps->getPropertyValue("BottomMargin") >>= nBottomMargin;
+    sal_Int32 nLeftMargin = 0;
+    xStyleProps->getPropertyValue("LeftMargin") >>= nLeftMargin;
+    sal_Int32 nRightMargin = 0;
+    xStyleProps->getPropertyValue("RightMargin") >>= nRightMargin;
+    sal_Int32 nHeaderHeight = 0;
+    xStyleProps->getPropertyValue("HeaderHeight") >>= nHeaderHeight;
+    sal_Int32 nFooterHeight = 0;
+    xStyleProps->getPropertyValue("FooterHeight") >>= nFooterHeight;
+
+    bool isHeaderOn = false;
+    xStyleProps->getPropertyValue("HeaderIsOn") >>= isHeaderOn;
+    if( isHeaderOn )
+    {
+        nTopMargin += nHeaderHeight;
+        nBottomMargin += nFooterHeight;
+        xStyleProps->setPropertyValue("HeaderIsOn", uno::Any( false ) );
+        xStyleProps->setPropertyValue("FooterIsOn", uno::Any( false ) );
+    }
+    uno::Reference< text::XPageCursor > xPageCursor( word::getXTextViewCursor( mxModel ), uno::UNO_QUERY_THROW );
+    if( xPageCursor->getPage() != 1 )
+    {
+        xPageCursor->jumpToFirstPage();
+    }
+
+    uno::Reference< beans::XPropertySet > xCursorProps( xPageCursor, uno::UNO_QUERY_THROW );
+    uno::Reference< beans::XPropertySet > xTableProps( xCursorProps->getPropertyValue("TextTable"), uno::UNO_QUERY );
+    if( xTableProps.is() )
+    {
+        xTableProps->setPropertyValue("PageDescName", uno::Any( newStyle ) );
+    }
+    else
+    {
+        xCursorProps->setPropertyValue("PageDescName", uno::Any( newStyle ) );
+    }
+
+    uno::Reference< beans::XPropertySet > xFirstPageProps( word::getCurrentPageStyle( mxModel ), uno::UNO_QUERY_THROW );
+    xFirstPageProps->setPropertyValue("TopMargin", uno::Any( nTopMargin ) );
+    xFirstPageProps->setPropertyValue("BottomMargin", uno::Any( nBottomMargin ) );
+    xFirstPageProps->setPropertyValue("LeftMargin", uno::Any( nLeftMargin ) );
+    xFirstPageProps->setPropertyValue("RightMargin", uno::Any( nRightMargin ) );
+}
+
+OUString SwVbaPageSetup::getStyleOfFirstPage() const
+{
+    OUString styleFirstPage;
+    uno::Reference< text::XPageCursor > xPageCursor( word::getXTextViewCursor( mxModel ), uno::UNO_QUERY_THROW );
+    if( xPageCursor->getPage() != 1 )
+    {
+        xPageCursor->jumpToFirstPage();
+    }
+
+    uno::Reference< beans::XPropertySet > xCursorProps( xPageCursor, uno::UNO_QUERY_THROW );
+    uno::Reference< beans::XPropertySet > xTableProps( xCursorProps->getPropertyValue("TextTable"), uno::UNO_QUERY );
+    if( xTableProps.is() )
+    {
+        xTableProps->getPropertyValue("PageDescName") >>= styleFirstPage;
+    }
+    else
+    {
+        xCursorProps->getPropertyValue("PageDescName") >>= styleFirstPage;
+    }
+    return styleFirstPage;
+}
+
+::sal_Int32 SAL_CALL SwVbaPageSetup::getSectionStart()
+{
+    // FIXME:
+    sal_Int32 wdSectionStart = word::WdSectionStart::wdSectionNewPage;
+    uno::Reference< container::XNamed > xNamed( mxPageProps, uno::UNO_QUERY_THROW );
+    OUString sStyleName = xNamed->getName();
+    if ( sStyleName == "Left Page" )
+        wdSectionStart = word::WdSectionStart::wdSectionEvenPage;
+    else if ( sStyleName == "Right Page" )
+        wdSectionStart = word::WdSectionStart::wdSectionOddPage;
+    else
+        wdSectionStart = word::WdSectionStart::wdSectionNewPage;
+    return wdSectionStart;
+}
+
+void SAL_CALL SwVbaPageSetup::setSectionStart( ::sal_Int32 /*_sectionstart*/ )
+{
+    // fail to find corresponding feature in Writer
+    // #FIXME:
+}
+
+OUString
+SwVbaPageSetup::getServiceImplName()
+{
+    return "SwVbaPageSetup";
+}
+
+uno::Sequence< OUString >
+SwVbaPageSetup::getServiceNames()
+{
+    static uno::Sequence< OUString > const aServiceNames
+    {
+        "ooo.vba.word.PageSetup"
+    };
+    return aServiceNames;
+}
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */