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, 652 insertions, 0 deletions

diff --git a/chart2/workbench/addin/sampleaddin.cxx b/chart2/workbench/addin/sampleaddin.cxx
new file mode 100644
index 000000000..5e3d23fd5
--- /dev/null
+++ b/chart2/workbench/addin/sampleaddin.cxx
@@ -0,0 +1,652 @@
+/* -*- 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 "sampleaddin.hxx"
+
+#include <cppuhelper/supportsservice.hxx>
+#include <cppuhelper/factory.hxx>
+#include <osl/diagnose.h>
+
+#include <com/sun/star/drawing/XDrawPageSupplier.hpp>
+#include <com/sun/star/drawing/XDrawPage.hpp>
+#include <com/sun/star/chart/XChartDataArray.hpp>
+#include <com/sun/star/text/XTextRange.hpp>
+#include <com/sun/star/chart/X3DDisplay.hpp>
+
+using namespace com::sun::star;
+
+// code for creating instances of SampleAddIn
+
+extern "C" {
+
+sal_Bool SAL_CALL component_writeInfo(
+    void * /*pServiceManager*/, registry::XRegistryKey * pRegistryKey )
+{
+    if( pRegistryKey )
+    {
+        try
+        {
+            OUString aImpl = "/"  + SampleAddIn::getImplementationName_Static() + "/UNO/SERVICES";
+
+            uno::Reference< registry::XRegistryKey> xNewKey(
+                reinterpret_cast<registry::XRegistryKey*>( pRegistryKey )->createKey( aImpl ) );
+
+            uno::Sequence< OUString > aSequ = SampleAddIn::getSupportedServiceNames_Static();
+            const OUString * pArray = aSequ.getConstArray();
+            for( sal_Int32 i = 0; i < aSequ.(); i++ )
+                xNewKey->createKey( pArray[i] );
+
+            return sal_True;
+        }
+        catch( const registry::InvalidRegistryException& )
+        {
+            TOOLS_WARN_EXCEPTION( "chart2", "" );
+        }
+    }
+    return sal_False;
+}
+
+SAL_DLLPUBLIC_EXPORT void * SAL_CALL component_getFactory(
+    const char * pImplName, void * pServiceManager, void * /*pRegistryKey*/ )
+{
+    void* pRet = 0;
+
+    if ( pServiceManager &&
+            OUString::createFromAscii( pImplName ) == SampleAddIn::getImplementationName_Static() )
+    {
+        uno::Reference< lang::XSingleServiceFactory> xFactory( cppu::createSingleFactory(
+                reinterpret_cast<lang::XMultiServiceFactory*>( pServiceManager ),
+                SampleAddIn::getImplementationName_Static(),
+                SampleAddIn_CreateInstance,
+                SampleAddIn::getSupportedServiceNames_Static() ) );
+
+        if( xFactory.is())
+        {
+            xFactory->acquire();
+            pRet = xFactory.get();
+        }
+    }
+
+    return pRet;
+}
+
+}   // extern C
+
+
+SampleAddIn::SampleAddIn()
+{
+
+}
+
+SampleAddIn::~SampleAddIn()
+{}
+
+// this functionality should be provided by the chart API some day
+sal_Bool SampleAddIn::getLogicalPosition( uno::Reference< drawing::XShape >& xAxis,
+                                          double fValue,
+                                          sal_Bool bVertical,
+                                          awt::Point& aOutPosition )
+{
+    sal_Bool bRet = sal_False;
+
+    if( xAxis.is())
+    {
+        awt::Size aSize = xAxis->getSize();
+        sal_Int32 nLength = bVertical? aSize.Height: aSize.Width;
+
+        uno::Reference< beans::XPropertySet > xProp( xAxis, uno::UNO_QUERY );
+        if( xProp.is())
+        {
+            try
+            {
+                double fMin(0.0), fMax(0.0);
+                uno::Any aAny = xProp->getPropertyValue( "Min" );
+                aAny >>= fMin;
+                aAny = xProp->getPropertyValue( "Max" );
+                aAny >>= fMax;
+
+                double fRange = fMax - fMin;
+                if( fMin <= fValue && fValue <= fMax &&
+                    fRange != 0.0 )
+                {
+                    double fPercentage = (fValue - fMin) / fRange;
+                    awt::Point aPos = xAxis->getPosition();
+
+                    if( bVertical )
+                    {
+                        aOutPosition.X = aPos.X;
+                        aOutPosition.Y = static_cast<sal_Int32>(aPos.Y + nLength * (1.0 - fPercentage));    // y scale goes from top to bottom
+                    }
+                    else
+                    {
+                        aOutPosition.X = static_cast<sal_Int32>(aPos.X + nLength * fPercentage);
+                        aOutPosition.Y = aPos.Y;
+                    }
+                    bRet = sal_True;
+                }
+            }
+            catch( const beans::UnknownPropertyException& )
+            {
+                // the shape xAxis was no chart axis
+            }
+        }
+    }
+
+    return bRet;
+}
+
+OUString SampleAddIn::getImplementationName_Static()
+{
+    return "SampleAddIn";
+}
+
+uno::Sequence< OUString > SampleAddIn::getSupportedServiceNames_Static()
+{
+    return {
+        "com.sun.star.chart.ChartAxisXSupplier",
+        "com.sun.star.chart.ChartAxisYSupplier",
+        "com.sun.star.chart.Diagram",
+        "com.sun.star.chart.SampleAddIn"
+    };
+}
+
+uno::Reference< uno::XInterface > SAL_CALL SampleAddIn_CreateInstance(
+    const uno::Reference< lang::XMultiServiceFactory >& )
+{
+    uno::Reference< uno::XInterface > xInst = (cppu::OWeakObject*)new SampleAddIn();
+
+    return xInst;
+}
+
+// implementation of interface methods
+
+// XInitialization
+void SAL_CALL SampleAddIn::initialize( const uno::Sequence< uno::Any >& aArguments )
+    throw( uno::Exception, uno::RuntimeException )
+{
+    // first argument should be the XChartDocument
+    OSL_ENSURE( aArguments.getLength() > 0, "Please initialize Chart AddIn with ChartDocument!" );
+
+    if( aArguments.getLength())
+    {
+        aArguments[ 0 ] >>= mxChartDoc;
+        OSL_ENSURE( mxChartDoc.is(), "First argument in initialization is not an XChartDocument!" );
+
+        // set XY chart as base type to be drawn
+        uno::Reference< beans::XPropertySet > xDocProp( mxChartDoc, uno::UNO_QUERY );
+        if( xDocProp.is())
+        {
+            uno::Any aBaseType;
+            aBaseType <<= "com.sun.star.chart.XYDiagram";
+            try
+            {
+                xDocProp->setPropertyValue( "BaseDiagram" , aBaseType );
+            }
+            catch( ... )
+            {}
+        }
+
+        // change background of plot area to light blue
+        uno::Reference< chart::X3DDisplay > xWallSupplier( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xWallSupplier.is())
+        {
+            uno::Reference< beans::XPropertySet > xDiaProp( xWallSupplier->getWall(), uno::UNO_QUERY );
+            uno::Reference< beans::XPropertySet > xLegendProp( mxChartDoc->getLegend(), uno::UNO_QUERY );
+            if( xDiaProp.is() &&
+                xLegendProp.is())
+            {
+                uno::Any aAny;
+                aAny <<= (sal_Int32)( 0xe0e0f0 );
+                xDiaProp->setPropertyValue( "FillColor" , aAny );
+                xLegendProp->setPropertyValue( "FillColor" , aAny );
+            }
+        }
+    }
+}
+
+// XRefreshable
+/********************************************************************************
+ *
+ * The method refresh is the most important method - here all objects that
+ * are necessary for the chart are created
+ *
+ * in the first implementation you will have to insert everything in this
+ * routine - all old objects are deleted beforehand
+ *
+ ********************************************************************************/
+void SAL_CALL SampleAddIn::refresh() throw( uno::RuntimeException )
+{
+    if( ! mxChartDoc.is())
+        return;
+
+    // first of all get the draw page
+    uno::Reference< drawing::XDrawPageSupplier > xPageSupp( mxChartDoc, uno::UNO_QUERY );
+    uno::Reference< lang::XMultiServiceFactory > xFactory( mxChartDoc, uno::UNO_QUERY );
+    if( xPageSupp.is() &&
+        xFactory.is() )
+    {
+        uno::Reference< drawing::XDrawPage > xPage = xPageSupp->getDrawPage();
+        if( xPage.is())
+        {
+            // now we have the page to insert objects
+
+            // add a horizontal line at the middle value of the first series
+
+            // get the logical position from the coordinate
+            // get x- and y-axis
+            uno::Reference< drawing::XShape > xYAxisShape( getYAxis(), uno::UNO_QUERY );
+            uno::Reference< drawing::XShape > xXAxisShape( getXAxis(), uno::UNO_QUERY );
+
+            if( xXAxisShape.is() &&
+                xYAxisShape.is() )
+            {
+                // create line first time
+                if( ! mxMyRedLine.is())
+                {
+                    mxMyRedLine.set(
+                        xFactory->createInstance( "com.sun.star.drawing.LineShape" ),
+                        uno::UNO_QUERY );
+                    xPage->add( mxMyRedLine );
+
+                    // make line red and thick
+                    uno::Reference< beans::XPropertySet > xShapeProp( mxMyRedLine, uno::UNO_QUERY );
+                    if( xShapeProp.is())
+                    {
+                        uno::Any aColor, aWidth;
+                        aColor <<= (sal_Int32)(0xe01010);
+                        aWidth <<= (sal_Int32)(50);         // 0.5 mm
+                        try
+                        {
+                            xShapeProp->setPropertyValue( "LineColor" , aColor );
+                            xShapeProp->setPropertyValue( "LineWidth" , aWidth );
+                        }
+                        catch( ... )
+                        {}
+                    }
+                }
+                // create text object first time
+                if( ! mxMyText.is())
+                {
+                    mxMyText.set(
+                        xFactory->createInstance( "com.sun.star.drawing.TextShape" ),
+                        uno::UNO_QUERY );
+                    xPage->add( mxMyText );
+
+                    // change text
+                    OUString aText( "Little Example" );
+                    uno::Reference< beans::XPropertySet > xTextProp( mxMyText, uno::UNO_QUERY );
+                    if( xTextProp.is())
+                    {
+                        uno::Any aTrueAny;
+                        aTrueAny <<= (sal_Bool)(sal_True);
+                        try
+                        {
+                            xTextProp->setPropertyValue( "TextAutoGrowWidth" , aTrueAny );
+                        }
+                        catch( ... )
+                        {}
+                    }
+
+                    uno::Reference< text::XTextRange > xTextRange( mxMyText, uno::UNO_QUERY );
+                    if( xTextRange.is())
+                    {
+                        xTextRange->setString( aText );
+                    }
+                }
+
+                // position line and text
+
+                // get the array. Note: the first dimension is the length
+                // of each series and the second one is the number of series
+                // this should be changed in the future
+                uno::Sequence< uno::Sequence< double > > aData;
+                uno::Reference< chart::XChartData > xData = mxChartDoc->getData();
+                uno::Reference< chart::XChartDataArray > xDataArray( xData, uno::UNO_QUERY );
+                if( xDataArray.is())
+                    aData = xDataArray->getData();
+
+                // get row count == length of each series
+                sal_Int32 nSize = aData.getLength();
+                sal_Int32 nMiddle = nSize / 2;
+                // get value for first series
+                double fMiddleVal = xData->getNotANumber();     // set to NaN
+                if( aData[ nMiddle ].getLength())               // we have at least one series
+                    fMiddleVal = aData[ nMiddle ][ 0 ];
+
+                awt::Point aPos;
+                getLogicalPosition( xYAxisShape, fMiddleVal, sal_True, aPos );
+                awt::Size aSize = xXAxisShape->getSize();
+
+                if( mxMyRedLine.is())
+                {
+                    awt::Point aEnd = aPos;
+                    aEnd.X += aSize.Width;
+
+                    uno::Sequence< uno::Sequence< awt::Point > > aPtSeq( 1 );
+                    aPtSeq[ 0 ].realloc( 2 );
+                    aPtSeq[ 0 ][ 0 ] = aPos;
+                    aPtSeq[ 0 ][ 1 ] = aEnd;
+
+                    uno::Reference< beans::XPropertySet > xShapeProp( mxMyRedLine, uno::UNO_QUERY );
+                    if( xShapeProp.is())
+                    {
+                        xShapeProp->setPropertyValue( "PolyPolygon" , Any(aPtSeq) );
+                    }
+                }
+                if( mxMyText.is())
+                {
+                    // put the text centered below the red line
+                    aPos.X += ( aSize.Width - mxMyRedLine->getPosition().X ) / 2;
+                    aPos.Y += 1000;
+                    aPos.Y += static_cast<sal_Int32>(0.1 * xYAxisShape->getSize().Height);
+                    mxMyText->setPosition( aPos );
+                }
+            }
+        }
+    }
+}
+
+void SAL_CALL SampleAddIn::addRefreshListener( const uno::Reference< util::XRefreshListener >&  )
+    throw( uno::RuntimeException )
+{
+    // not implemented - this is not necessary
+    // (this method exists just because the interface requires it)
+}
+
+void SAL_CALL SampleAddIn::removeRefreshListener( const uno::Reference< util::XRefreshListener >&  )
+    throw( uno::RuntimeException )
+{
+    // not implemented - this is not necessary
+    // (this method exists just because the interface requires it)
+}
+
+// XDiagram
+OUString SAL_CALL SampleAddIn::getDiagramType() throw( uno::RuntimeException )
+{
+    return "com.sun.star.chart.SampleDiagram";
+}
+
+// the following methods just delegate to the "parent diagram" (which in the future might no longer exist)
+
+uno::Reference< beans::XPropertySet > SAL_CALL SampleAddIn::getDataRowProperties( sal_Int32 nRow )
+    throw( lang::IndexOutOfBoundsException,
+           uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< chart::XDiagram > xDia = mxChartDoc->getDiagram();
+        if( xDia.is())
+            return xDia->getDataRowProperties( nRow );
+    }
+
+    return uno::Reference< beans::XPropertySet >();
+}
+
+uno::Reference< beans::XPropertySet > SAL_CALL SampleAddIn::getDataPointProperties( sal_Int32 nCol, sal_Int32 nRow )
+    throw( lang::IndexOutOfBoundsException,
+           uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< chart::XDiagram > xDia = mxChartDoc->getDiagram();
+        if( xDia.is())
+            return xDia->getDataPointProperties( nCol, nRow );
+    }
+
+    return uno::Reference< beans::XPropertySet >();
+}
+
+// XShape ( ::XDiagram )
+awt::Size SAL_CALL SampleAddIn::getSize()
+    throw( uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< drawing::XShape > xShape( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xShape.is())
+            return xShape->getSize();
+    }
+
+    return awt::Size();
+}
+
+void SAL_CALL SampleAddIn::setSize( const awt::Size& aSize )
+    throw( beans::PropertyVetoException, uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< drawing::XShape > xShape( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xShape.is())
+            xShape->setSize( aSize );
+    }
+}
+
+awt::Point SAL_CALL SampleAddIn::getPosition()
+    throw( uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< drawing::XShape > xShape( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xShape.is())
+            return xShape->getPosition();
+    }
+
+    return awt::Point();
+}
+
+void SAL_CALL SampleAddIn::setPosition( const awt::Point& aPos )
+    throw( uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< drawing::XShape > xShape( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xShape.is())
+            xShape->setPosition( aPos );
+    }
+}
+
+// XShapeDescriptor ( ::XShape ::XDiagram )
+OUString SAL_CALL SampleAddIn::getShapeType() throw( css::uno::RuntimeException )
+{
+    return "com.sun.star.chart.SampleAddinShape";
+}
+
+// XAxisXSupplier
+uno::Reference< drawing::XShape > SAL_CALL SampleAddIn::getXAxisTitle()
+    throw( uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< chart::XAxisXSupplier > xAxisSupp( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xAxisSupp.is())
+            return xAxisSupp->getXAxisTitle();
+    }
+
+    return uno::Reference< drawing::XShape >();
+}
+
+uno::Reference< beans::XPropertySet > SAL_CALL SampleAddIn::getXAxis()
+    throw( uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< chart::XAxisXSupplier > xAxisSupp( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xAxisSupp.is())
+            return xAxisSupp->getXAxis();
+    }
+
+    return uno::Reference< beans::XPropertySet >();
+}
+
+uno::Reference< beans::XPropertySet > SAL_CALL SampleAddIn::getXMainGrid()
+    throw( uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< chart::XAxisXSupplier > xAxisSupp( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xAxisSupp.is())
+            return xAxisSupp->getXMainGrid();
+    }
+
+    return uno::Reference< beans::XPropertySet >();
+}
+
+uno::Reference< beans::XPropertySet > SAL_CALL SampleAddIn::getXHelpGrid()
+    throw( uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< chart::XAxisXSupplier > xAxisSupp( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xAxisSupp.is())
+            return xAxisSupp->getXHelpGrid();
+    }
+
+    return uno::Reference< beans::XPropertySet >();
+}
+
+// XAxisYSupplier
+uno::Reference< drawing::XShape > SAL_CALL SampleAddIn::getYAxisTitle()
+    throw( uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< chart::XAxisYSupplier > xAxisSupp( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xAxisSupp.is())
+            return xAxisSupp->getYAxisTitle();
+    }
+
+    return uno::Reference< drawing::XShape >();
+}
+
+uno::Reference< beans::XPropertySet > SAL_CALL SampleAddIn::getYAxis()
+    throw( uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< chart::XAxisYSupplier > xAxisSupp( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xAxisSupp.is())
+            return xAxisSupp->getYAxis();
+    }
+
+    return uno::Reference< beans::XPropertySet >();
+}
+
+uno::Reference< beans::XPropertySet > SAL_CALL SampleAddIn::getYMainGrid()
+    throw( uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< chart::XAxisYSupplier > xAxisSupp( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xAxisSupp.is())
+            return xAxisSupp->getYMainGrid();
+    }
+
+    return uno::Reference< beans::XPropertySet >();
+}
+
+uno::Reference< beans::XPropertySet > SAL_CALL SampleAddIn::getYHelpGrid()
+    throw( uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< chart::XAxisYSupplier > xAxisSupp( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xAxisSupp.is())
+            return xAxisSupp->getYHelpGrid();
+    }
+
+    return uno::Reference< beans::XPropertySet >();
+}
+
+// XStatisticDisplay
+uno::Reference< beans::XPropertySet > SAL_CALL SampleAddIn::getUpBar()
+    throw( uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< chart::XStatisticDisplay > xStatDisp( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xStatDisp.is())
+            return xStatDisp->getUpBar();
+    }
+
+    return uno::Reference< beans::XPropertySet >();
+}
+
+uno::Reference< beans::XPropertySet > SAL_CALL SampleAddIn::getDownBar()
+    throw( uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< chart::XStatisticDisplay > xStatDisp( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xStatDisp.is())
+            return xStatDisp->getDownBar();
+    }
+
+    return uno::Reference< beans::XPropertySet >();
+}
+
+uno::Reference< beans::XPropertySet > SAL_CALL SampleAddIn::getMinMaxLine()
+    throw( uno::RuntimeException )
+{
+    if( mxChartDoc.is())
+    {
+        uno::Reference< chart::XStatisticDisplay > xStatDisp( mxChartDoc->getDiagram(), uno::UNO_QUERY );
+        if( xStatDisp.is())
+            return xStatDisp->getMinMaxLine();
+    }
+
+    return uno::Reference< beans::XPropertySet >();
+}
+
+// XServiceName
+OUString SAL_CALL SampleAddIn::getServiceName() throw( uno::RuntimeException )
+{
+    return "com.sun.star.chart.SampleAddIn";
+}
+
+// XServiceInfo
+OUString SAL_CALL SampleAddIn::getImplementationName() throw( uno::RuntimeException )
+{
+    return getImplementationName_Static();
+}
+
+sal_Bool SAL_CALL SampleAddIn::supportsService( const OUString& ServiceName )
+    throw( uno::RuntimeException )
+{
+    return cppu::supportsService(this, ServiceName);
+}
+
+uno::Sequence< OUString > SAL_CALL SampleAddIn::getSupportedServiceNames()
+    throw( uno::RuntimeException )
+{
+    return getSupportedServiceNames_Static();
+}
+
+// XLocalizable
+void SAL_CALL SampleAddIn::setLocale( const lang::Locale& eLocale )
+    throw( uno::RuntimeException )
+{
+    maLocale = eLocale;
+}
+
+lang::Locale SAL_CALL SampleAddIn::getLocale()
+    throw( uno::RuntimeException )
+{
+    return maLocale;
+}
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */