chart2/source/controller/itemsetwrapper/RegressionCurveItemConverter.cxx

   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
  20 #include <RegressionCurveHelper.hxx>
  21 #include <RegressionCurveItemConverter.hxx>
  22 #include "SchWhichPairs.hxx"
  23 #include <GraphicPropertyItemConverter.hxx>
  24
  25 #include <com/sun/star/chart2/XRegressionCurve.hpp>
  26 #include <osl/diagnose.h>
  27
  28 #include <svl/eitem.hxx>
  29 #include <svl/intitem.hxx>
  30 #include <svl/stritem.hxx>
  31
  32 using namespace ::com::sun::star;
  33
  34 namespace
  35 {
  36 template <class T, class D>
  37 bool lclConvertToPropertySet(const SfxItemSet& rItemSet, sal_uInt16 nWhichId, const uno::Reference<beans::XPropertySet>& xProperties, const OUString& aPropertyID)
  38 {
  39     OSL_ASSERT(xProperties.is());
  40     if( xProperties.is() )
  41     {
  42         T aValue = static_cast<T>(static_cast<const D&>(rItemSet.Get( nWhichId )).GetValue());
  43         T aOldValue = aValue;
  44         bool aSuccess = xProperties->getPropertyValue( aPropertyID ) >>= aOldValue;
  45         if (!aSuccess || aOldValue != aValue)
  46         {
  47             xProperties->setPropertyValue( aPropertyID , uno::Any( aValue ));
  48             return true;
  49         }
  50     }
  51     return false;
  52 }
  53
  54 template <class T, class D>
  55 void lclConvertToItemSet(SfxItemSet& rItemSet, sal_uInt16 nWhichId, const uno::Reference<beans::XPropertySet>& xProperties, const OUString& aPropertyID)
  56 {
  57     OSL_ASSERT(xProperties.is());
  58     if( xProperties.is() )
  59     {
  60         T aValue = static_cast<T>(static_cast<const D&>(rItemSet.Get( nWhichId )).GetValue());
  61         if(xProperties->getPropertyValue( aPropertyID ) >>= aValue)
  62         {
  63             rItemSet.Put(D( nWhichId, aValue ));
  64         }
  65     }
  66 }
  67
  68 void lclConvertToItemSetDouble(SfxItemSet& rItemSet, sal_uInt16 nWhichId, const uno::Reference<beans::XPropertySet>& xProperties, const OUString& aPropertyID)
  69 {
  70     OSL_ASSERT(xProperties.is());
  71     if( xProperties.is() )
  72     {
  73         double aValue = static_cast<const SvxDoubleItem&>(rItemSet.Get( nWhichId )).GetValue();
  74         if(xProperties->getPropertyValue( aPropertyID ) >>= aValue)
  75         {
  76             rItemSet.Put(SvxDoubleItem( aValue, nWhichId ));
  77         }
  78     }
  79 }
  80
  81 } // anonymous namespace
  82
  83 namespace chart::wrapper
  84 {
  85
  86 RegressionCurveItemConverter::RegressionCurveItemConverter(
  87     const uno::Reference< beans::XPropertySet >& rPropertySet,
  88     const uno::Reference< chart2::XRegressionCurveContainer >& xContainer,
  89     SfxItemPool& rItemPool,
  90     SdrModel& rDrawModel,
  91     const uno::Reference< lang::XMultiServiceFactory > & xNamedPropertyContainerFactory ) :
  92         ItemConverter( rPropertySet, rItemPool ),
  93         m_spGraphicConverter( std::make_shared<GraphicPropertyItemConverter>(
  94                                   rPropertySet, rItemPool, rDrawModel,
  95                                   xNamedPropertyContainerFactory,
  96                                   GraphicObjectType::LineProperties )),
  97         m_xCurveContainer( xContainer )
  98 {}
  99
 100 RegressionCurveItemConverter::~RegressionCurveItemConverter()
 101 {}
 102
 103 void RegressionCurveItemConverter::FillItemSet( SfxItemSet & rOutItemSet ) const
 104 {
 105     m_spGraphicConverter->FillItemSet( rOutItemSet );
 106
 107     // own items
 108     ItemConverter::FillItemSet( rOutItemSet );
 109 }
 110
 111 bool RegressionCurveItemConverter::ApplyItemSet( const SfxItemSet & rItemSet )
 112 {
 113     bool bResult = m_spGraphicConverter->ApplyItemSet( rItemSet );
 114
 115     // own items
 116     return ItemConverter::ApplyItemSet( rItemSet ) || bResult;
 117 }
 118
 119 const sal_uInt16 * RegressionCurveItemConverter::GetWhichPairs() const
 120 {
 121     // must span all used items!
 122     return nRegressionCurveWhichPairs;
 123 }
 124
 125 bool RegressionCurveItemConverter::GetItemProperty(
 126     tWhichIdType /* nWhichId */, tPropertyNameWithMemberId & /* rOutProperty */ ) const
 127 {
 128     // No own (non-special) properties
 129     return false;
 130 }
 131
 132 bool RegressionCurveItemConverter::ApplySpecialItem(
 133     sal_uInt16 nWhichId, const SfxItemSet & rItemSet )
 134 {
 135     uno::Reference< chart2::XRegressionCurve > xCurve( GetPropertySet(), uno::UNO_QUERY );
 136     bool bChanged = false;
 137
 138     OSL_ASSERT(xCurve.is());
 139     if(!xCurve.is())
 140         return false;
 141
 142     switch( nWhichId )
 143     {
 144         case SCHATTR_REGRESSION_TYPE:
 145         {
 146             SvxChartRegress eRegress = RegressionCurveHelper::getRegressionType(xCurve);
 147             SvxChartRegress eNewRegress = static_cast< const SvxChartRegressItem & >(
 148                 rItemSet.Get( nWhichId )).GetValue();
 149             if( eRegress != eNewRegress )
 150             {
 151                 // note that changing the regression type changes the object
 152                 // for which this converter was created. Not optimal, but
 153                 // currently the only way to handle the type in the
 154                 // regression curve properties dialog
 155                 xCurve = RegressionCurveHelper::changeRegressionCurveType(
 156                             eNewRegress,
 157                             m_xCurveContainer,
 158                             xCurve);
 159                 uno::Reference<beans::XPropertySet> xProperties( xCurve, uno::UNO_QUERY );
 160                 resetPropertySet( xProperties );
 161                 bChanged = true;
 162             }
 163         }
 164         break;
 165
 166         case SCHATTR_REGRESSION_DEGREE:
 167         {
 168             uno::Reference< beans::XPropertySet > xProperties( xCurve, uno::UNO_QUERY );
 169             bChanged = lclConvertToPropertySet<sal_Int32, SfxInt32Item>(rItemSet, nWhichId, xProperties, "PolynomialDegree");
 170         }
 171         break;
 172
 173         case SCHATTR_REGRESSION_PERIOD:
 174         {
 175             uno::Reference< beans::XPropertySet > xProperties( xCurve, uno::UNO_QUERY );
 176             bChanged = lclConvertToPropertySet<sal_Int32, SfxInt32Item>(rItemSet, nWhichId, xProperties, "MovingAveragePeriod");
 177         }
 178         break;
 179
 180         case SCHATTR_REGRESSION_EXTRAPOLATE_FORWARD:
 181         {
 182             uno::Reference< beans::XPropertySet > xProperties( xCurve, uno::UNO_QUERY );
 183             bChanged = lclConvertToPropertySet<double, SvxDoubleItem>(rItemSet, nWhichId, xProperties, "ExtrapolateForward");
 184         }
 185         break;
 186
 187         case SCHATTR_REGRESSION_EXTRAPOLATE_BACKWARD:
 188         {
 189             uno::Reference< beans::XPropertySet > xProperties( xCurve, uno::UNO_QUERY );
 190             bChanged = lclConvertToPropertySet<double, SvxDoubleItem>(rItemSet, nWhichId, xProperties, "ExtrapolateBackward");
 191         }
 192         break;
 193
 194         case SCHATTR_REGRESSION_SET_INTERCEPT:
 195         {
 196             uno::Reference< beans::XPropertySet > xProperties( xCurve, uno::UNO_QUERY );
 197             bChanged = lclConvertToPropertySet<bool, SfxBoolItem>(rItemSet, nWhichId, xProperties, "ForceIntercept");
 198         }
 199         break;
 200
 201         case SCHATTR_REGRESSION_INTERCEPT_VALUE:
 202         {
 203             uno::Reference< beans::XPropertySet > xProperties( xCurve, uno::UNO_QUERY );
 204             bChanged = lclConvertToPropertySet<double, SvxDoubleItem>(rItemSet, nWhichId, xProperties, "InterceptValue");
 205         }
 206         break;
 207
 208         case SCHATTR_REGRESSION_CURVE_NAME:
 209         {
 210             uno::Reference< beans::XPropertySet > xProperties( xCurve, uno::UNO_QUERY );
 211             bChanged = lclConvertToPropertySet<OUString, SfxStringItem>(rItemSet, nWhichId, xProperties, "CurveName");
 212         }
 213         break;
 214
 215         case SCHATTR_REGRESSION_SHOW_EQUATION:
 216         {
 217             uno::Reference< beans::XPropertySet > xEqProp( xCurve->getEquationProperties());
 218             bChanged = lclConvertToPropertySet<bool, SfxBoolItem>(rItemSet, nWhichId, xEqProp, "ShowEquation");
 219         }
 220         break;
 221
 222         case SCHATTR_REGRESSION_XNAME:
 223         {
 224             uno::Reference< beans::XPropertySet > xEqProp( xCurve->getEquationProperties());
 225             bChanged = lclConvertToPropertySet<OUString, SfxStringItem>(rItemSet, nWhichId, xEqProp, "XName");
 226         }
 227         break;
 228
 229         case SCHATTR_REGRESSION_YNAME:
 230         {
 231             uno::Reference< beans::XPropertySet > xEqProp( xCurve->getEquationProperties());
 232             bChanged = lclConvertToPropertySet<OUString, SfxStringItem>(rItemSet, nWhichId, xEqProp, "YName");
 233         }
 234         break;
 235
 236         case SCHATTR_REGRESSION_SHOW_COEFF:
 237         {
 238             uno::Reference< beans::XPropertySet > xEqProp( xCurve->getEquationProperties());
 239             bChanged = lclConvertToPropertySet<bool, SfxBoolItem>(rItemSet, nWhichId, xEqProp, "ShowCorrelationCoefficient");
 240         }
 241         break;
 242
 243     }
 244     return bChanged;
 245 }
 246
 247 void RegressionCurveItemConverter::FillSpecialItem(sal_uInt16 nWhichId, SfxItemSet& rOutItemSet ) const
 248 {
 249     uno::Reference<chart2::XRegressionCurve> xCurve(GetPropertySet(), uno::UNO_QUERY);
 250     OSL_ASSERT(xCurve.is());
 251     if(!xCurve.is())
 252         return;
 253
 254     uno::Reference< beans::XPropertySet > xProperties( xCurve, uno::UNO_QUERY );
 255
 256     switch( nWhichId )
 257     {
 258         case SCHATTR_REGRESSION_TYPE:
 259         {
 260             SvxChartRegress eRegress = RegressionCurveHelper::getRegressionType(xCurve);
 261             rOutItemSet.Put( SvxChartRegressItem( eRegress, SCHATTR_REGRESSION_TYPE ));
 262         }
 263         break;
 264
 265         case SCHATTR_REGRESSION_DEGREE:
 266         {
 267             lclConvertToItemSet<sal_Int32, SfxInt32Item>(rOutItemSet, nWhichId, xProperties, "PolynomialDegree");
 268         }
 269         break;
 270
 271         case SCHATTR_REGRESSION_PERIOD:
 272         {
 273             lclConvertToItemSet<sal_Int32, SfxInt32Item>(rOutItemSet, nWhichId, xProperties, "MovingAveragePeriod");
 274         }
 275         break;
 276
 277         case SCHATTR_REGRESSION_EXTRAPOLATE_FORWARD:
 278         {
 279             lclConvertToItemSetDouble(rOutItemSet, nWhichId, xProperties, "ExtrapolateForward");
 280         }
 281         break;
 282
 283         case SCHATTR_REGRESSION_EXTRAPOLATE_BACKWARD:
 284         {
 285             lclConvertToItemSetDouble(rOutItemSet, nWhichId, xProperties, "ExtrapolateBackward");
 286         }
 287         break;
 288
 289         case SCHATTR_REGRESSION_SET_INTERCEPT:
 290         {
 291             lclConvertToItemSet<bool, SfxBoolItem>(rOutItemSet, nWhichId, xProperties, "ForceIntercept");
 292         }
 293         break;
 294
 295         case SCHATTR_REGRESSION_INTERCEPT_VALUE:
 296         {
 297             lclConvertToItemSetDouble(rOutItemSet, nWhichId, xProperties, "InterceptValue");
 298         }
 299         break;
 300
 301         case SCHATTR_REGRESSION_CURVE_NAME:
 302         {
 303             lclConvertToItemSet<OUString, SfxStringItem>(rOutItemSet, nWhichId, xProperties, "CurveName");
 304         }
 305         break;
 306
 307         case SCHATTR_REGRESSION_SHOW_EQUATION:
 308         {
 309             lclConvertToItemSet<bool, SfxBoolItem>(rOutItemSet, nWhichId, xCurve->getEquationProperties(), "ShowEquation");
 310         }
 311         break;
 312
 313         case SCHATTR_REGRESSION_XNAME:
 314         {
 315             lclConvertToItemSet<OUString, SfxStringItem>(rOutItemSet, nWhichId, xCurve->getEquationProperties(), "XName");
 316         }
 317         break;
 318
 319         case SCHATTR_REGRESSION_YNAME:
 320         {
 321             lclConvertToItemSet<OUString, SfxStringItem>(rOutItemSet, nWhichId, xCurve->getEquationProperties(), "YName");
 322         }
 323         break;
 324
 325         case SCHATTR_REGRESSION_SHOW_COEFF:
 326         {
 327             lclConvertToItemSet<bool, SfxBoolItem>(rOutItemSet, nWhichId, xCurve->getEquationProperties(), "ShowCorrelationCoefficient");
 328         }
 329         break;
 330     }
 331 }
 332
 333 } //  namespace chart::wrapper
 334
 335 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */