summaryrefslogtreecommitdiffstats
path: root/sw/source/ui/vba/vbapagesetup.cxx
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-27 16:51:28 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-27 16:51:28 +0000
commit940b4d1848e8c70ab7642901a68594e8016caffc (patch)
treeeb72f344ee6c3d9b80a7ecc079ea79e9fba8676d /sw/source/ui/vba/vbapagesetup.cxx
parentInitial commit. (diff)
downloadlibreoffice-940b4d1848e8c70ab7642901a68594e8016caffc.tar.xz
libreoffice-940b4d1848e8c70ab7642901a68594e8016caffc.zip
Adding upstream version 1:7.0.4.upstream/1%7.0.4upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to '')
-rw-r--r--sw/source/ui/vba/vbapagesetup.cxx260
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..45e4ca874
--- /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::makeAny( 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::makeAny( 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::makeAny( newHeaderDistance ) );
+ mxPageProps->setPropertyValue("HeaderBodyDistance", uno::makeAny( newSpacing ) );
+ mxPageProps->setPropertyValue("HeaderHeight", uno::makeAny( newHeaderHeight ) );
+}
+
+double SAL_CALL SwVbaPageSetup::getFooterDistance()
+{
+ bool isFooterOn = false;
+ mxPageProps->getPropertyValue("FooterIsOn") >>= isFooterOn;
+ if( !isFooterOn )
+ mxPageProps->setPropertyValue("FooterIsOn", uno::makeAny( 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::makeAny( 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::makeAny( newFooterDistance ) );
+ mxPageProps->setPropertyValue("FooterBodyDistance", uno::makeAny( newSpacing ) );
+ mxPageProps->setPropertyValue("FooterHeight", uno::makeAny( 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::makeAny( false ) );
+ xStyleProps->setPropertyValue("FooterIsOn", uno::makeAny( 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::makeAny( newStyle ) );
+ }
+ else
+ {
+ xCursorProps->setPropertyValue("PageDescName", uno::makeAny( newStyle ) );
+ }
+
+ uno::Reference< beans::XPropertySet > xFirstPageProps( word::getCurrentPageStyle( mxModel ), uno::UNO_QUERY_THROW );
+ xFirstPageProps->setPropertyValue("TopMargin", uno::makeAny( nTopMargin ) );
+ xFirstPageProps->setPropertyValue("BottomMargin", uno::makeAny( nBottomMargin ) );
+ xFirstPageProps->setPropertyValue("LeftMargin", uno::makeAny( nLeftMargin ) );
+ xFirstPageProps->setPropertyValue("RightMargin", uno::makeAny( 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: */