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