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