Line data    Source code

       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 "solveroptions.hxx"
      21             : #include "scresid.hxx"
      22             : #include "global.hxx"
      23             : #include "miscuno.hxx"
      24             : #include "solverutil.hxx"
      25             : 
      26             : #include <rtl/math.hxx>
      27             : #include <vcl/msgbox.hxx>
      28             : #include <unotools/collatorwrapper.hxx>
      29             : #include <unotools/localedatawrapper.hxx>
      30             : #include <svtools/treelistentry.hxx>
      31             : 
      32             : #include <algorithm>
      33             : 
      34             : #include <com/sun/star/sheet/Solver.hpp>
      35             : #include <com/sun/star/sheet/XSolverDescription.hpp>
      36             : #include <com/sun/star/beans/PropertyValue.hpp>
      37             : #include <com/sun/star/beans/XPropertySet.hpp>
      38             : 
      39             : using namespace com::sun::star;
      40             : 
      41             : /// Helper for sorting properties
      42           0 : struct ScSolverOptionsEntry
      43             : {
      44             :     sal_Int32       nPosition;
      45             :     OUString   aDescription;
      46             : 
      47           0 :     ScSolverOptionsEntry() : nPosition(0) {}
      48             : 
      49           0 :     bool operator< (const ScSolverOptionsEntry& rOther) const
      50             :     {
      51           0 :         return (ScGlobal::GetCollator()->compareString( aDescription, rOther.aDescription ) < 0);
      52             :     }
      53             : };
      54             : 
      55           0 : class ScSolverOptionsString : public SvLBoxString
      56             : {
      57             :     bool        mbIsDouble;
      58             :     double      mfDoubleValue;
      59             :     sal_Int32   mnIntValue;
      60             : 
      61             : public:
      62           0 :     ScSolverOptionsString( SvTreeListEntry* pEntry, sal_uInt16 nFlags, const OUString& rStr ) :
      63             :         SvLBoxString( pEntry, nFlags, rStr ),
      64             :         mbIsDouble( false ),
      65             :         mfDoubleValue( 0.0 ),
      66           0 :         mnIntValue( 0 ) {}
      67             : 
      68           0 :     bool      IsDouble() const        { return mbIsDouble; }
      69           0 :     double    GetDoubleValue() const  { return mfDoubleValue; }
      70           0 :     sal_Int32 GetIntValue() const     { return mnIntValue; }
      71             : 
      72           0 :     void      SetDoubleValue( double fNew ) { mbIsDouble = true; mfDoubleValue = fNew; }
      73           0 :     void      SetIntValue( sal_Int32 nNew ) { mbIsDouble = false; mnIntValue = nNew; }
      74             : 
      75             :     virtual void Paint(const Point& rPos, SvTreeListBox& rDev, const SvViewDataEntry* pView, const SvTreeListEntry* pEntry) SAL_OVERRIDE;
      76             : };
      77             : 
      78           0 : void ScSolverOptionsString::Paint( const Point& rPos, SvTreeListBox& rDev, const SvViewDataEntry* /*pView*/, const SvTreeListEntry* /*pEntry*/)
      79             : {
      80             :     //! move position? (SvxLinguTabPage: aPos.X() += 20)
      81           0 :     OUString aNormalStr( GetText() );
      82           0 :     aNormalStr += ":";
      83           0 :     rDev.DrawText( rPos, aNormalStr );
      84             : 
      85           0 :     Point aNewPos( rPos );
      86           0 :     aNewPos.X() += rDev.GetTextWidth( aNormalStr );
      87           0 :     vcl::Font aOldFont( rDev.GetFont() );
      88           0 :     vcl::Font aFont( aOldFont );
      89           0 :     aFont.SetWeight( WEIGHT_BOLD );
      90             : 
      91           0 :     OUString sTxt( ' ' );
      92           0 :     if ( mbIsDouble )
      93           0 :         sTxt += rtl::math::doubleToUString( mfDoubleValue,
      94             :             rtl_math_StringFormat_Automatic, rtl_math_DecimalPlaces_Max,
      95           0 :             ScGlobal::GetpLocaleData()->getNumDecimalSep()[0], true );
      96             :     else
      97           0 :         sTxt += OUString::number(mnIntValue);
      98           0 :     rDev.SetFont( aFont );
      99           0 :     rDev.DrawText( aNewPos, sTxt );
     100             : 
     101           0 :     rDev.SetFont( aOldFont );
     102           0 : }
     103             : 
     104           0 : ScSolverOptionsDialog::ScSolverOptionsDialog( vcl::Window* pParent,
     105             :                         const uno::Sequence<OUString>& rImplNames,
     106             :                         const uno::Sequence<OUString>& rDescriptions,
     107             :                         const OUString& rEngine,
     108             :                         const uno::Sequence<beans::PropertyValue>& rProperties )
     109             :     : ModalDialog(pParent, "SolverOptionsDialog",
     110             :         "modules/scalc/ui/solveroptionsdialog.ui")
     111             :     , mpCheckButtonData(NULL)
     112             :     , maImplNames(rImplNames)
     113             :     , maDescriptions(rDescriptions)
     114             :     , maEngine(rEngine)
     115           0 :     , maProperties(rProperties)
     116             : {
     117           0 :     get(m_pLbEngine, "engine");
     118           0 :     get(m_pLbSettings, "settings");
     119           0 :     get(m_pBtnEdit, "edit");
     120             : 
     121           0 :     m_pLbEngine->SetSelectHdl( LINK( this, ScSolverOptionsDialog, EngineSelectHdl ) );
     122             : 
     123           0 :     m_pBtnEdit->SetClickHdl( LINK( this, ScSolverOptionsDialog, ButtonHdl ) );
     124             : 
     125           0 :     m_pLbSettings->SetStyle( m_pLbSettings->GetStyle()|WB_CLIPCHILDREN|WB_FORCE_MAKEVISIBLE );
     126           0 :     m_pLbSettings->SetHighlightRange();
     127             : 
     128           0 :     m_pLbSettings->SetSelectHdl( LINK( this, ScSolverOptionsDialog, SettingsSelHdl ) );
     129           0 :     m_pLbSettings->SetDoubleClickHdl( LINK( this, ScSolverOptionsDialog, SettingsDoubleClickHdl ) );
     130             : 
     131           0 :     sal_Int32 nSelect = -1;
     132           0 :     sal_Int32 nImplCount = maImplNames.getLength();
     133           0 :     for (sal_Int32 nImpl=0; nImpl<nImplCount; ++nImpl)
     134             :     {
     135           0 :         OUString aImplName( maImplNames[nImpl] );
     136           0 :         OUString aDescription( maDescriptions[nImpl] );   // user-visible descriptions in list box
     137           0 :         m_pLbEngine->InsertEntry( aDescription );
     138           0 :         if ( aImplName == maEngine )
     139           0 :             nSelect = nImpl;
     140           0 :     }
     141           0 :     if ( nSelect < 0 )                  // no (valid) engine given
     142             :     {
     143           0 :         if ( nImplCount > 0 )
     144             :         {
     145           0 :             maEngine = maImplNames[0];  // use first implementation
     146           0 :             nSelect = 0;
     147             :         }
     148             :         else
     149           0 :             maEngine = "";
     150           0 :         maProperties.realloc(0);        // don't use options from different engine
     151             :     }
     152           0 :     if ( nSelect >= 0 )                 // select in list box
     153           0 :         m_pLbEngine->SelectEntryPos( static_cast<sal_uInt16>(nSelect) );
     154             : 
     155           0 :     if ( !maProperties.getLength() )
     156           0 :         ReadFromComponent();            // fill maProperties from component (using maEngine)
     157           0 :     FillListBox();                      // using maProperties
     158           0 : }
     159             : 
     160           0 : ScSolverOptionsDialog::~ScSolverOptionsDialog()
     161             : {
     162           0 :     delete mpCheckButtonData;
     163           0 : }
     164             : 
     165           0 : const uno::Sequence<beans::PropertyValue>& ScSolverOptionsDialog::GetProperties()
     166             : {
     167             :     // update maProperties from list box content
     168             :     // order of entries in list box and maProperties is the same
     169           0 :     sal_Int32 nEntryCount = maProperties.getLength();
     170           0 :     SvTreeList* pModel = m_pLbSettings->GetModel();
     171           0 :     if ( nEntryCount == (sal_Int32)pModel->GetEntryCount() )
     172             :     {
     173           0 :         for (sal_Int32 nEntryPos=0; nEntryPos<nEntryCount; ++nEntryPos)
     174             :         {
     175           0 :             uno::Any& rValue = maProperties[nEntryPos].Value;
     176           0 :             SvTreeListEntry* pEntry = pModel->GetEntry(nEntryPos);
     177             : 
     178           0 :             bool bHasData = false;
     179           0 :             sal_uInt16 nItemCount = pEntry->ItemCount();
     180           0 :             for (sal_uInt16 nItemPos=0; nItemPos<nItemCount && !bHasData; ++nItemPos)
     181             :             {
     182           0 :                 SvLBoxItem* pItem = pEntry->GetItem( nItemPos );
     183           0 :                 ScSolverOptionsString* pStringItem = dynamic_cast<ScSolverOptionsString*>(pItem);
     184           0 :                 if ( pStringItem )
     185             :                 {
     186           0 :                     if ( pStringItem->IsDouble() )
     187           0 :                         rValue <<= pStringItem->GetDoubleValue();
     188             :                     else
     189           0 :                         rValue <<= pStringItem->GetIntValue();
     190           0 :                     bHasData = true;
     191             :                 }
     192             :             }
     193           0 :             if ( !bHasData )
     194             :                 ScUnoHelpFunctions::SetBoolInAny( rValue,
     195           0 :                                     m_pLbSettings->GetCheckButtonState( pEntry ) == SV_BUTTON_CHECKED );
     196             :         }
     197             :     }
     198             :     else
     199             :     {
     200             :         OSL_FAIL( "wrong count" );
     201             :     }
     202             : 
     203           0 :     return maProperties;
     204             : }
     205             : 
     206           0 : void ScSolverOptionsDialog::FillListBox()
     207             : {
     208             :     // get property descriptions, sort by them
     209             : 
     210           0 :     uno::Reference<sheet::XSolverDescription> xDesc( ScSolverUtil::GetSolver( maEngine ), uno::UNO_QUERY );
     211           0 :     sal_Int32 nCount = maProperties.getLength();
     212           0 :     std::vector<ScSolverOptionsEntry> aDescriptions( nCount );
     213           0 :     for (sal_Int32 nPos=0; nPos<nCount; nPos++)
     214             :     {
     215           0 :         OUString aPropName( maProperties[nPos].Name );
     216           0 :         OUString aVisName;
     217           0 :         if ( xDesc.is() )
     218           0 :             aVisName = xDesc->getPropertyDescription( aPropName );
     219           0 :         if ( aVisName.isEmpty() )
     220           0 :             aVisName = aPropName;
     221           0 :         aDescriptions[nPos].nPosition = nPos;
     222           0 :         aDescriptions[nPos].aDescription = aVisName;
     223           0 :     }
     224           0 :     std::sort( aDescriptions.begin(), aDescriptions.end() );
     225             : 
     226             :     // also update maProperties to the order of descriptions
     227             : 
     228           0 :     uno::Sequence<beans::PropertyValue> aNewSeq;
     229           0 :     aNewSeq.realloc( nCount );
     230           0 :     for (sal_Int32 nPos=0; nPos<nCount; nPos++)
     231           0 :         aNewSeq[nPos] = maProperties[ aDescriptions[nPos].nPosition ];
     232           0 :     maProperties = aNewSeq;
     233             : 
     234             :     // fill the list box
     235             : 
     236           0 :     m_pLbSettings->SetUpdateMode(false);
     237           0 :     m_pLbSettings->Clear();
     238             : 
     239           0 :     OUString sEmpty;
     240           0 :     if (!mpCheckButtonData)
     241           0 :         mpCheckButtonData = new SvLBoxButtonData(m_pLbSettings);
     242             : 
     243           0 :     SvTreeList* pModel = m_pLbSettings->GetModel();
     244           0 :     SvTreeListEntry* pEntry = NULL;
     245             : 
     246           0 :     for (sal_Int32 nPos=0; nPos<nCount; nPos++)
     247             :     {
     248           0 :         OUString aVisName = aDescriptions[nPos].aDescription;
     249             : 
     250           0 :         uno::Any aValue = maProperties[nPos].Value;
     251           0 :         uno::TypeClass eClass = aValue.getValueTypeClass();
     252           0 :         if ( eClass == uno::TypeClass_BOOLEAN )
     253             :         {
     254             :             // check box entry
     255           0 :             pEntry = new SvTreeListEntry;
     256           0 :             SvLBoxButton* pButton = new SvLBoxButton( pEntry, SvLBoxButtonKind_enabledCheckbox, 0, mpCheckButtonData );
     257           0 :             if ( ScUnoHelpFunctions::GetBoolFromAny( aValue ) )
     258           0 :                 pButton->SetStateChecked();
     259             :             else
     260           0 :                 pButton->SetStateUnchecked();
     261           0 :             pEntry->AddItem( pButton );
     262           0 :             pEntry->AddItem( new SvLBoxContextBmp( pEntry, 0, Image(), Image(), false ) );
     263           0 :             pEntry->AddItem( new SvLBoxString( pEntry, 0, aVisName ) );
     264             :         }
     265             :         else
     266             :         {
     267             :             // value entry
     268           0 :             pEntry = new SvTreeListEntry;
     269           0 :             pEntry->AddItem( new SvLBoxString( pEntry, 0, sEmpty ) );                   // empty column
     270           0 :             pEntry->AddItem( new SvLBoxContextBmp( pEntry, 0, Image(), Image(), false ) );
     271           0 :             ScSolverOptionsString* pItem = new ScSolverOptionsString( pEntry, 0, aVisName );
     272           0 :             if ( eClass == uno::TypeClass_DOUBLE )
     273             :             {
     274           0 :                 double fDoubleValue = 0.0;
     275           0 :                 if ( aValue >>= fDoubleValue )
     276           0 :                     pItem->SetDoubleValue( fDoubleValue );
     277             :             }
     278             :             else
     279             :             {
     280           0 :                 sal_Int32 nIntValue = 0;
     281           0 :                 if ( aValue >>= nIntValue )
     282           0 :                     pItem->SetIntValue( nIntValue );
     283             :             }
     284           0 :             pEntry->AddItem( pItem );
     285             :         }
     286           0 :         pModel->Insert( pEntry );
     287           0 :     }
     288             : 
     289           0 :     m_pLbSettings->SetUpdateMode(true);
     290           0 : }
     291             : 
     292           0 : void ScSolverOptionsDialog::ReadFromComponent()
     293             : {
     294           0 :     maProperties = ScSolverUtil::GetDefaults( maEngine );
     295           0 : }
     296             : 
     297           0 : void ScSolverOptionsDialog::EditOption()
     298             : {
     299           0 :     SvTreeListEntry* pEntry = m_pLbSettings->GetCurEntry();
     300           0 :     if (pEntry)
     301             :     {
     302           0 :         sal_uInt16 nItemCount = pEntry->ItemCount();
     303           0 :         for (sal_uInt16 nPos=0; nPos<nItemCount; ++nPos)
     304             :         {
     305           0 :             SvLBoxItem* pItem = pEntry->GetItem( nPos );
     306           0 :             ScSolverOptionsString* pStringItem = dynamic_cast<ScSolverOptionsString*>(pItem);
     307           0 :             if ( pStringItem )
     308             :             {
     309           0 :                 if ( pStringItem->IsDouble() )
     310             :                 {
     311           0 :                     ScSolverValueDialog aValDialog( this );
     312           0 :                     aValDialog.SetOptionName( pStringItem->GetText() );
     313           0 :                     aValDialog.SetValue( pStringItem->GetDoubleValue() );
     314           0 :                     if ( aValDialog.Execute() == RET_OK )
     315             :                     {
     316           0 :                         pStringItem->SetDoubleValue( aValDialog.GetValue() );
     317           0 :                         m_pLbSettings->InvalidateEntry( pEntry );
     318           0 :                     }
     319             :                 }
     320             :                 else
     321             :                 {
     322           0 :                     ScSolverIntegerDialog aIntDialog( this );
     323           0 :                     aIntDialog.SetOptionName( pStringItem->GetText() );
     324           0 :                     aIntDialog.SetValue( pStringItem->GetIntValue() );
     325           0 :                     if ( aIntDialog.Execute() == RET_OK )
     326             :                     {
     327           0 :                         pStringItem->SetIntValue( aIntDialog.GetValue() );
     328           0 :                         m_pLbSettings->InvalidateEntry( pEntry );
     329           0 :                     }
     330             :                 }
     331             :             }
     332             :         }
     333             :     }
     334           0 : }
     335             : 
     336           0 : IMPL_LINK( ScSolverOptionsDialog, ButtonHdl, PushButton*, pBtn )
     337             : {
     338           0 :     if (pBtn == m_pBtnEdit)
     339           0 :         EditOption();
     340             : 
     341           0 :     return 0;
     342             : }
     343             : 
     344           0 : IMPL_LINK_NOARG(ScSolverOptionsDialog, SettingsDoubleClickHdl)
     345             : {
     346           0 :     EditOption();
     347           0 :     return 0;
     348             : }
     349             : 
     350           0 : IMPL_LINK_NOARG(ScSolverOptionsDialog, EngineSelectHdl)
     351             : {
     352           0 :     sal_uInt16 nSelectPos = m_pLbEngine->GetSelectEntryPos();
     353           0 :     if ( nSelectPos < maImplNames.getLength() )
     354             :     {
     355           0 :         OUString aNewEngine( maImplNames[nSelectPos] );
     356           0 :         if ( aNewEngine != maEngine )
     357             :         {
     358           0 :             maEngine = aNewEngine;
     359           0 :             ReadFromComponent();            // fill maProperties from component (using maEngine)
     360           0 :             FillListBox();                  // using maProperties
     361           0 :         }
     362             :     }
     363           0 :     return 0;
     364             : }
     365             : 
     366           0 : IMPL_LINK_NOARG(ScSolverOptionsDialog, SettingsSelHdl)
     367             : {
     368           0 :     bool bCheckbox = false;
     369             : 
     370           0 :     SvTreeListEntry* pEntry = m_pLbSettings->GetCurEntry();
     371           0 :     if (pEntry)
     372             :     {
     373           0 :         SvLBoxItem* pItem = pEntry->GetFirstItem(SV_ITEM_ID_LBOXBUTTON);
     374           0 :         if (pItem && pItem->GetType() == SV_ITEM_ID_LBOXBUTTON)
     375           0 :             bCheckbox = true;
     376             :     }
     377             : 
     378           0 :     m_pBtnEdit->Enable( !bCheckbox );
     379             : 
     380           0 :     return 0;
     381             : }
     382             : 
     383           0 : ScSolverIntegerDialog::ScSolverIntegerDialog(vcl::Window * pParent)
     384             :     : ModalDialog( pParent, "IntegerDialog",
     385           0 :         "modules/scalc/ui/integerdialog.ui" )
     386             : {
     387           0 :     get(m_pFrame, "frame");
     388           0 :     get(m_pNfValue, "value");
     389           0 : }
     390             : 
     391           0 : void ScSolverIntegerDialog::SetOptionName( const OUString& rName )
     392             : {
     393           0 :     m_pFrame->set_label(rName);
     394           0 : }
     395             : 
     396           0 : void ScSolverIntegerDialog::SetValue( sal_Int32 nValue )
     397             : {
     398           0 :     m_pNfValue->SetValue( nValue );
     399           0 : }
     400             : 
     401           0 : sal_Int32 ScSolverIntegerDialog::GetValue() const
     402             : {
     403           0 :     sal_Int64 nValue = m_pNfValue->GetValue();
     404           0 :     if ( nValue < SAL_MIN_INT32 )
     405           0 :         return SAL_MIN_INT32;
     406           0 :     if ( nValue > SAL_MAX_INT32 )
     407           0 :         return SAL_MAX_INT32;
     408           0 :     return (sal_Int32) nValue;
     409             : }
     410             : 
     411           0 : ScSolverValueDialog::ScSolverValueDialog( vcl::Window * pParent )
     412             :     : ModalDialog( pParent, "DoubleDialog",
     413           0 :         "modules/scalc/ui/doubledialog.ui" )
     414             : {
     415           0 :     get(m_pFrame, "frame");
     416           0 :     get(m_pEdValue, "value");
     417           0 : }
     418             : 
     419           0 : void ScSolverValueDialog::SetOptionName( const OUString& rName )
     420             : {
     421           0 :     m_pFrame->set_label(rName);
     422           0 : }
     423             : 
     424           0 : void ScSolverValueDialog::SetValue( double fValue )
     425             : {
     426             :     m_pEdValue->SetText( rtl::math::doubleToUString( fValue,
     427             :             rtl_math_StringFormat_Automatic, rtl_math_DecimalPlaces_Max,
     428           0 :             ScGlobal::GetpLocaleData()->getNumDecimalSep()[0], true ) );
     429           0 : }
     430             : 
     431           0 : double ScSolverValueDialog::GetValue() const
     432             : {
     433           0 :     OUString aInput = m_pEdValue->GetText();
     434             : 
     435           0 :     const LocaleDataWrapper* pLocaleData = ScGlobal::GetpLocaleData();
     436           0 :     rtl_math_ConversionStatus eStatus = rtl_math_ConversionStatus_Ok;
     437             :     double fValue = rtl::math::stringToDouble( aInput,
     438           0 :                             pLocaleData->getNumDecimalSep()[0],
     439           0 :                             pLocaleData->getNumThousandSep()[0],
     440           0 :                             &eStatus, NULL );
     441           0 :     return fValue;
     442         228 : }
     443             : 
     444             : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */