CWS-TOOLING: integrate CWS frmdlg

2008-12-18 09:13:09 +0100 oj  r265667 : merge from odff05
2008-12-18 07:58:16 +0100 oj  r265658 : #i94555# patch from <regina>, ODFF:
Add GAMMA, CHISQDIST, CHISQINV.
Make the 'cumulative' parameter of GAMMADIST optional.
Adapt the domain of CHIDIST to allow negative x.
Remove the constraint "degrees of freedom < 1.0E5" from CHIDIST and CHIINV.
Plus a mechanism to write the now optional parameter of GAMMADIST to PODF and
ODFF if omitted, for backwards compatibility.
2008-12-15 14:06:11 +0100 oj  r265490 : CWS-TOOLING: rebase CWS frmdlg to trunk@264807 (milestone: DEV300:m37)
2008-12-15 13:55:28 +0100 oj  r265488 : CWS-TOOLING: do not delete this file, it's needed for 'cws rebase -C'
CWS: frmdlg
New MWS: DEV300
New milestone: m37
2008-12-15 13:55:07 +0100 oj  r265487 : CWS-TOOLING: do not delete this file, it's needed for 'cws rebase -C'
CWS: frmdlg
New MWS: DEV300
New milestone: m37
2008-12-15 13:54:48 +0100 oj  r265486 : CWS-TOOLING: do not delete this file, it's needed for 'cws rebase -C'
CWS: frmdlg
New MWS: DEV300
New milestone: m37
2008-12-15 13:54:36 +0100 oj  r265485 : CWS-TOOLING: do not delete this file, it's needed for 'cws rebase -C'
CWS: frmdlg
New MWS: DEV300
New milestone: m37
2008-12-15 13:54:24 +0100 oj  r265484 : CWS-TOOLING: do not delete this file, it's needed for 'cws rebase -C'
CWS: frmdlg
New MWS: DEV300
New milestone: m37
2008-12-15 13:48:11 +0100 oj  r265483 : CWS-TOOLING: do not delete this file, it's needed for 'cws rebase -C'
CWS: frmdlg
New MWS: DEV300
New milestone: m37
2008-12-15 13:31:12 +0100 oj  r265479 : CWS-TOOLING: do not delete this file, it's needed for 'cws rebase -C'
CWS: frmdlg
New MWS: DEV300
New milestone: m37
2008-12-15 13:13:58 +0100 oj  r265477 : CWS-TOOLING: do not delete this file, it's needed for 'cws rebase -C'
CWS: frmdlg
New MWS: DEV300
New milestone: m37
2008-12-15 13:10:09 +0100 oj  r265476 : CWS-TOOLING: do not delete this file, it's needed for 'cws rebase -C'
CWS: frmdlg
New MWS: DEV300
New milestone: m37
2008-12-15 13:05:11 +0100 oj  r265475 : CWS-TOOLING: do not delete this file, it's needed for 'cws rebase -C'
CWS: frmdlg
New MWS: DEV300
New milestone: m37
2008-12-15 10:47:17 +0100 oj  r265467 : CWS-TOOLING: do not delete this file, it's needed for 'cws rebase -C'
CWS: frmdlg
New MWS: DEV300
New milestone: m37
2008-12-15 10:46:19 +0100 oj  r265466 : CWS-TOOLING: do not delete this file, it's needed for 'cws rebase -C'
CWS: frmdlg
New MWS: DEV300
New milestone: m37
2008-12-15 10:45:47 +0100 oj  r265465 : CWS-TOOLING: do not delete this file, it's needed for 'cws rebase -C'
CWS: frmdlg
New MWS: DEV300
New milestone: m37
2008-12-15 07:35:07 +0100 oj  r265458 : add dependency to formula
2008-12-15 07:34:24 +0100 oj  r265457 : add dependency to formula
2008-12-12 13:22:00 +0100 msc  r265413 : #i97089#
2008-12-12 13:20:25 +0100 msc  r265412 : #i97089#
2008-12-12 12:35:12 +0100 msc  r265406 : #i97089#
2008-12-12 12:34:16 +0100 msc  r265405 : #i97089#
2008-12-12 12:33:05 +0100 msc  r265404 : #i97089#
2008-12-12 12:31:11 +0100 msc  r265403 : #i97089#
2008-12-08 11:59:10 +0100 oj  r264981 : insert RTL_LOG
2008-12-08 11:50:17 +0100 oj  r264980 : some small changes
2008-12-05 12:57:57 +0100 oj  r264902 : eof changed
2008-12-05 12:56:46 +0100 oj  r264901 : eof changed
2008-12-05 12:28:47 +0100 oj  r264899 : wrong var used
2008-12-05 10:08:57 +0100 oj  r264890 : token order reversed
2008-12-04 13:49:22 +0100 oc  r264843 : #i96688: Adapt autotests because of outsourced functionwizard
2008-12-04 13:45:27 +0100 oc  r264842 : #i96688: Adapt autotests because of outsourced functionwizard
2008-12-04 13:42:54 +0100 oc  r264841 : #i96688: Adapt autotests because of outsourced functionwizard
2008-12-04 13:37:41 +0100 oc  r264840 : #i96688: Adapt autotests because of outsourced functionwizard
2008-12-04 13:34:11 +0100 oc  r264839 : #i96688: Adapt autotests because of outsourced functionwizard
2008-12-04 12:35:31 +0100 oj  r264835 : new help ids for struct and function tabpage
2008-12-04 12:00:35 +0100 oj  r264828 : set explicit help id
2008-12-03 14:53:27 +0100 oj  r264786 : #i96845# change ref button
2008-12-03 14:51:49 +0100 oj  r264785 : #i96845# change ref button
2008-12-03 08:51:57 +0100 oj  r264746 : convert dos to unix lineends
2008-12-03 08:50:45 +0100 oj  r264745 : convert dos to unix lineends
2008-12-03 08:50:05 +0100 oj  r264744 : convert dos to unix lineends
2008-12-02 12:28:33 +0100 oj  r264686 : clear help text when new helpid is set
2008-12-02 12:28:02 +0100 oj  r264685 : set help id for listbox category
2008-12-02 07:15:56 +0100 oj  r264655 : remove define to auto generate help ids
2008-12-01 14:36:43 +0100 oj  r264604 : use temp var
2008-12-01 14:18:31 +0100 oj  r264601 : moved ScJumpToken to formula
2008-12-01 14:18:11 +0100 oj  r264600 : moved ScJumpToken to formula
2008-12-01 14:14:35 +0100 oj  r264599 : moved ScJumpToken from sc
2008-12-01 10:48:51 +0100 oj  r264589 : change quickhelptext from Shrink to Select
2008-12-01 10:28:41 +0100 oj  r264588 : fix opcode data, has to be Any.Void
2008-11-28 11:16:48 +0100 oj  r264532 : add help ids
2008-11-28 10:16:56 +0100 oj  r264529 : set help id
2008-11-28 10:16:43 +0100 oj  r264528 : set help id
2008-11-26 13:55:04 +0100 oj  r264381 : #94535# use of optional instead of deleting a string myself and some small changes
2008-11-26 09:53:20 +0100 oj  r264346 : compile error with debug/without debug
2008-11-25 07:41:28 +0100 oj  r264271 : put static into the method which make use of them
2008-11-24 08:16:07 +0100 oj  r264196 : removed not needed classes for op code
2008-11-24 08:13:44 +0100 oj  r264195 : removed not needed classes for op code
2008-11-21 14:05:53 +0100 oj  r264135 : make GetOpCode inline
2008-11-21 12:35:27 +0100 oj  r264124 : hold symbols
2008-11-20 09:27:27 +0100 oj  r264028 : merged code from DEV300_m35 which got lost
2008-11-19 20:42:12 +0100 oj  r264022 : more changes for formula dialog remove
2008-11-19 20:37:41 +0100 oj  r264021 : removed unused var
2008-11-19 20:35:35 +0100 oj  r264020 : some more changes at token
2008-11-19 10:59:47 +0100 oj  r263967 : deleted
2008-11-19 10:58:24 +0100 oj  r263966 : add forui and for res files
2008-11-18 15:27:36 +0100 oj  r263777 : unused para removed
2008-11-18 15:23:23 +0100 oj  r263775 : add insert button to add field dlg
2008-11-18 13:39:53 +0100 oj  r263764 : enable the formula dialog as well for conditional print as for conditional formatting
2008-11-18 12:03:25 +0100 oj  r263760 : rename isRef in IsRef
2008-11-17 11:46:16 +0100 oj  r263711 : patches for function handling
2008-11-17 11:36:22 +0100 oj  r263710 : add new for forui and res file
2008-11-17 09:21:12 +0100 oj  r263704 : patches for some resource for libformula
2008-11-15 12:45:30 +0100 oj  r263701 : changes for formula editor extraction
2008-11-07 08:23:27 +0100 oj  r263416 : merge from DEV300:m35
2008-11-07 08:22:35 +0100 oj  r263415 : merge from DEV300:m35
2008-11-07 08:22:16 +0100 oj  r263414 : merge from DEV300:m35
2008-11-07 08:21:41 +0100 oj  r263413 : merge from DEV300:m35
2008-11-07 08:21:31 +0100 oj  r263412 : merge from DEV300:m35
2008-11-07 08:20:38 +0100 oj  r263411 : merge from DEV300:m35
2008-11-07 08:20:00 +0100 oj  r263410 : merge from DEV300:m35
2008-11-07 08:18:50 +0100 oj  r263409 : merge from DEV300:m35
2008-11-07 08:18:19 +0100 oj  r263408 : merge from DEV300:m35
2008-11-07 08:10:27 +0100 oj  r263407 : merge from DEV300:m35
2008-10-21 07:43:46 +0200 oj  r262560 : some compile errors resolved
2008-10-17 16:40:01 +0200 oj  r262291 : dep for 1st target
2008-10-07 10:08:39 +0200 oj  r262077 : copy
2008-10-07 09:45:31 +0200 oj  r262076 : #i94535#
2008-10-07 09:44:26 +0200 oj  r262075 : #i94535# new base class
2008-10-07 09:43:21 +0200 oj  r262074 : moved to formula
2008-10-07 09:41:51 +0200 oj  r262073 : new images
2008-10-07 09:03:01 +0200 oj  r262072 : new ids for formula
2008-10-02 08:46:27 +0200 oj  r262024 : #i94535# move the formula compiler to formula
2008-10-02 08:08:54 +0200 oj  r262023 : #i94535#
2008-10-02 08:06:28 +0200 oj  r262022 : #i94535#
2008-10-02 08:05:52 +0200 oj  r262021 : #i94535#
2008-10-01 17:15:29 +0200 oj  r262014 : #i94535#
2008-10-01 17:12:40 +0200 oj  r262013 : new module formula
2008-10-01 17:04:55 +0200 oj  r262012 : #i94535#
2008-10-01 16:49:03 +0200 oj  r262010 : #i94535#
2008-10-01 16:46:59 +0200 oj  r262009 : #i94535#

1 files changed, 316 insertions, 316 deletions

diff --git a/sc/source/ui/miscdlgs/solvrdlg.cxx b/sc/source/ui/miscdlgs/solvrdlg.cxx
index 4f26c9626838..7b81004dc43c 100644
--- a/sc/source/ui/miscdlgs/solvrdlg.cxx
+++ b/sc/source/ui/miscdlgs/solvrdlg.cxx
@@ -1,316 +1,316 @@
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2008 by Sun Microsystems, Inc.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * $RCSfile: solvrdlg.cxx,v $
- * $Revision: 1.13 $
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org.  If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_sc.hxx"
-
-
-
-//----------------------------------------------------------------------------
-
-#include "rangelst.hxx"
-#include "scitems.hxx"
-#include <sfx2/dispatch.hxx>
-#include <svtools/zforlist.hxx>
-#include <vcl/msgbox.hxx>
-
-#include "uiitems.hxx"
-#include "reffact.hxx"
-#include "document.hxx"
-#include "scresid.hxx"
-#include "solvrdlg.hrc"
-
-#define _SOLVRDLG_CXX
-#include "solvrdlg.hxx"
-#undef _SOLVERDLG_CXX
-
-
-#define ERRORBOX(s) ErrorBox( this, WinBits( WB_OK | WB_DEF_OK), s ).Execute()
-
-
-//============================================================================
-//  class ScSolverDlg
-//----------------------------------------------------------------------------
-
-ScSolverDlg::ScSolverDlg( SfxBindings* pB, SfxChildWindow* pCW, Window* pParent,
-                          ScDocument* pDocument,
-                          ScAddress aCursorPos )
-
-    :   ScAnyRefDlg         ( pB, pCW, pParent, RID_SCDLG_SOLVER ),
-        //
-        aFlVariables        ( this, ScResId( FL_VARIABLES ) ),
-        aFtFormulaCell      ( this, ScResId( FT_FORMULACELL ) ),
-        aEdFormulaCell      ( this, ScResId( ED_FORMULACELL ) ),
-        aRBFormulaCell      ( this, ScResId( RB_FORMULACELL ), &aEdFormulaCell ),
-        aFtTargetVal        ( this, ScResId( FT_TARGETVAL ) ),
-        aEdTargetVal        ( this, ScResId( ED_TARGETVAL ) ),
-        aFtVariableCell     ( this, ScResId( FT_VARCELL ) ),
-        aEdVariableCell     ( this, ScResId( ED_VARCELL ) ),
-        aRBVariableCell     ( this, ScResId( RB_VARCELL ), &aEdVariableCell ),
-        aBtnOk              ( this, ScResId( BTN_OK ) ),
-        aBtnCancel          ( this, ScResId( BTN_CANCEL ) ),
-        aBtnHelp            ( this, ScResId( BTN_HELP ) ),
-        //
-        theFormulaCell      ( aCursorPos ),
-        theVariableCell     ( aCursorPos ),
-        pDoc                ( pDocument ),
-        nCurTab             ( aCursorPos.Tab() ),
-        pEdActive           ( NULL ),
-        bDlgLostFocus       ( FALSE ),
-        errMsgInvalidVar    ( ScResId( STR_INVALIDVAR ) ),
-        errMsgInvalidForm   ( ScResId( STR_INVALIDFORM ) ),
-        errMsgNoFormula     ( ScResId( STR_NOFORMULA ) ),
-        errMsgInvalidVal    ( ScResId( STR_INVALIDVAL ) )
-{
-    Init();
-    FreeResource();
-}
-
-//----------------------------------------------------------------------------
-
-__EXPORT ScSolverDlg::~ScSolverDlg()
-{
-}
-
-//----------------------------------------------------------------------------
-
-void __EXPORT ScSolverDlg::Init()
-{
-    String          aStr;
-
-    aBtnOk.         SetClickHdl     ( LINK( this, ScSolverDlg, BtnHdl ) );
-    aBtnCancel.     SetClickHdl     ( LINK( this, ScSolverDlg, BtnHdl ) );
-
-    Link aLink = LINK( this, ScSolverDlg, GetFocusHdl );
-    aEdFormulaCell. SetGetFocusHdl  ( aLink );
-    aRBFormulaCell. SetGetFocusHdl  ( aLink );
-    aEdVariableCell.SetGetFocusHdl  ( aLink );
-    aRBVariableCell.SetGetFocusHdl  ( aLink );
-    aEdTargetVal.   SetGetFocusHdl  ( aLink );
-
-    aLink = LINK( this, ScSolverDlg, LoseFocusHdl );
-    aEdFormulaCell. SetLoseFocusHdl ( aLink );
-    aRBFormulaCell. SetLoseFocusHdl ( aLink );
-    aEdVariableCell.SetLoseFocusHdl ( aLink );
-    aRBVariableCell.SetLoseFocusHdl ( aLink );
-
-    theFormulaCell.Format( aStr, SCA_ABS, NULL, pDoc->GetAddressConvention() );
-
-    aEdFormulaCell.SetText( aStr );
-    aEdFormulaCell.GrabFocus();
-    pEdActive = &aEdFormulaCell;
-}
-
-//----------------------------------------------------------------------------
-
-BOOL __EXPORT ScSolverDlg::Close()
-{
-    return DoClose( ScSolverDlgWrapper::GetChildWindowId() );
-}
-
-//----------------------------------------------------------------------------
-
-void ScSolverDlg::SetActive()
-{
-    if ( bDlgLostFocus )
-    {
-        bDlgLostFocus = FALSE;
-        if( pEdActive )
-            pEdActive->GrabFocus();
-    }
-    else
-    {
-        GrabFocus();
-    }
-    RefInputDone();
-}
-
-//----------------------------------------------------------------------------
-
-void ScSolverDlg::SetReference( const ScRange& rRef, ScDocument* pDocP )
-{
-    if( pEdActive )
-    {
-        if ( rRef.aStart != rRef.aEnd )
-            RefInputStart(pEdActive);
-
-        String      aStr;
-        ScAddress   aAdr = rRef.aStart;
-        USHORT      nFmt = ( aAdr.Tab() == nCurTab )
-                                ? SCA_ABS
-                                : SCA_ABS_3D;
-
-        aAdr.Format( aStr, nFmt, pDocP, pDocP->GetAddressConvention() );
-        pEdActive->SetRefString( aStr );
-
-        if ( pEdActive == &aEdFormulaCell )
-            theFormulaCell = aAdr;
-        else if ( pEdActive == &aEdVariableCell )
-            theVariableCell = aAdr;
-    }
-}
-
-//----------------------------------------------------------------------------
-
-void ScSolverDlg::RaiseError( ScSolverErr eError )
-{
-    switch ( eError )
-    {
-        case SOLVERR_NOFORMULA:
-            ERRORBOX( errMsgNoFormula );
-            aEdFormulaCell.GrabFocus();
-            break;
-
-        case SOLVERR_INVALID_FORMULA:
-            ERRORBOX( errMsgInvalidForm );
-            aEdFormulaCell.GrabFocus();
-            break;
-
-        case SOLVERR_INVALID_VARIABLE:
-            ERRORBOX( errMsgInvalidVar );
-            aEdVariableCell.GrabFocus();
-            break;
-
-        case SOLVERR_INVALID_TARGETVALUE:
-            ERRORBOX( errMsgInvalidVal );
-            aEdTargetVal.GrabFocus();
-            break;
-    }
-}
-
-//----------------------------------------------------------------------------
-
-BOOL ScSolverDlg::IsRefInputMode() const
-{
-    return pEdActive != NULL;
-}
-
-//----------------------------------------------------------------------------
-
-BOOL __EXPORT ScSolverDlg::CheckTargetValue( String& rStrVal )
-{
-    sal_uInt32 n1 = 0;
-    double n2;
-
-    return pDoc->GetFormatTable()->IsNumberFormat( rStrVal, n1, n2 );
-}
-
-//----------------------------------------------------------------------------
-// Handler:
-
-IMPL_LINK( ScSolverDlg, BtnHdl, PushButton*, pBtn )
-{
-    if ( pBtn == &aBtnOk )
-    {
-        theTargetValStr = aEdTargetVal.GetText();
-
-        // Zu ueberpruefen:
-        // 1. enthalten die Strings korrekte Tabellenkoordinaten/def.Namen?
-        // 2. verweist die Formel-Koordinate wirklich auf eine Formelzelle?
-        // 3. wurde ein korrekter Zielwert eingegeben
-
-        const ScAddress::Convention eConv = pDoc->GetAddressConvention();
-        USHORT  nRes1 = theFormulaCell .Parse( aEdFormulaCell.GetText(),  pDoc, eConv );
-        USHORT  nRes2 = theVariableCell.Parse( aEdVariableCell.GetText(), pDoc, eConv );
-
-        if ( SCA_VALID == ( nRes1 & SCA_VALID ) )
-        {
-            if ( SCA_VALID == ( nRes2 & SCA_VALID ) )
-            {
-                if ( CheckTargetValue( theTargetValStr ) )
-                {
-                    CellType eType;
-                    pDoc->GetCellType( theFormulaCell.Col(),
-                                       theFormulaCell.Row(),
-                                       theFormulaCell.Tab(),
-                                       eType );
-
-                    if ( CELLTYPE_FORMULA  == eType )
-                    {
-                        ScSolveParam aOutParam( theFormulaCell,
-                                                theVariableCell,
-                                                theTargetValStr );
-                        ScSolveItem  aOutItem( SCITEM_SOLVEDATA, &aOutParam );
-
-                        SetDispatcherLock( FALSE );
-
-                        SwitchToDocument();
-                        GetBindings().GetDispatcher()->Execute( SID_SOLVE,
-                                                  SFX_CALLMODE_SLOT | SFX_CALLMODE_RECORD,
-                                                  &aOutItem, 0L, 0L );
-                        Close();
-                    }
-                    else RaiseError( SOLVERR_NOFORMULA );
-                }
-                else RaiseError( SOLVERR_INVALID_TARGETVALUE );
-            }
-            else RaiseError( SOLVERR_INVALID_VARIABLE );
-        }
-        else RaiseError( SOLVERR_INVALID_FORMULA );
-    }
-    else if ( pBtn == &aBtnCancel )
-    {
-        Close();
-    }
-
-    return 0;
-}
-
-//----------------------------------------------------------------------------
-
-IMPL_LINK( ScSolverDlg, GetFocusHdl, Control*, pCtrl )
-{
-    Edit* pEdit = NULL;
-    pEdActive = NULL;
-
-    if( (pCtrl == (Control*)&aEdFormulaCell) || (pCtrl == (Control*)&aRBFormulaCell) )
-        pEdit = pEdActive = &aEdFormulaCell;
-    else if( (pCtrl == (Control*)&aEdVariableCell) || (pCtrl == (Control*)&aRBVariableCell) )
-        pEdit = pEdActive = &aEdVariableCell;
-    else if( pCtrl == (Control*)&aEdTargetVal )
-        pEdit = &aEdTargetVal;
-
-    if( pEdit )
-        pEdit->SetSelection( Selection( 0, SELECTION_MAX ) );
-
-    return 0;
-}
-
-//----------------------------------------------------------------------------
-
-IMPL_LINK( ScSolverDlg, LoseFocusHdl, Control*, EMPTYARG )
-{
-    bDlgLostFocus = !IsActive();
-    return 0;
-}
-
-
-
-
+/*************************************************************************

+ *

+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

+ * 

+ * Copyright 2008 by Sun Microsystems, Inc.

+ *

+ * OpenOffice.org - a multi-platform office productivity suite

+ *

+ * $RCSfile: solvrdlg.cxx,v $

+ * $Revision: 1.13 $

+ *

+ * This file is part of OpenOffice.org.

+ *

+ * OpenOffice.org is free software: you can redistribute it and/or modify

+ * it under the terms of the GNU Lesser General Public License version 3

+ * only, as published by the Free Software Foundation.

+ *

+ * OpenOffice.org is distributed in the hope that it will be useful,

+ * but WITHOUT ANY WARRANTY; without even the implied warranty of

+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

+ * GNU Lesser General Public License version 3 for more details

+ * (a copy is included in the LICENSE file that accompanied this code).

+ *

+ * You should have received a copy of the GNU Lesser General Public License

+ * version 3 along with OpenOffice.org.  If not, see

+ * <http://www.openoffice.org/license.html>

+ * for a copy of the LGPLv3 License.

+ *

+ ************************************************************************/

+

+// MARKER(update_precomp.py): autogen include statement, do not remove

+#include "precompiled_sc.hxx"

+

+

+

+//----------------------------------------------------------------------------

+

+#include "rangelst.hxx"

+#include "scitems.hxx"

+#include <sfx2/dispatch.hxx>

+#include <svtools/zforlist.hxx>

+#include <vcl/msgbox.hxx>

+

+#include "uiitems.hxx"

+#include "reffact.hxx"

+#include "document.hxx"

+#include "scresid.hxx"

+#include "solvrdlg.hrc"

+

+#define _SOLVRDLG_CXX

+#include "solvrdlg.hxx"

+#undef _SOLVERDLG_CXX

+

+

+#define ERRORBOX(s) ErrorBox( this, WinBits( WB_OK | WB_DEF_OK), s ).Execute()

+

+

+//============================================================================

+//  class ScSolverDlg

+//----------------------------------------------------------------------------

+

+ScSolverDlg::ScSolverDlg( SfxBindings* pB, SfxChildWindow* pCW, Window* pParent,

+                          ScDocument* pDocument,

+                          ScAddress aCursorPos )

+

+    :   ScAnyRefDlg         ( pB, pCW, pParent, RID_SCDLG_SOLVER ),

+        //

+        aFlVariables        ( this, ScResId( FL_VARIABLES ) ),

+        aFtFormulaCell      ( this, ScResId( FT_FORMULACELL ) ),

+        aEdFormulaCell      ( this, ScResId( ED_FORMULACELL ) ),

+        aRBFormulaCell      ( this, ScResId( RB_FORMULACELL ), &aEdFormulaCell, this ),

+        aFtTargetVal        ( this, ScResId( FT_TARGETVAL ) ),

+        aEdTargetVal        ( this, ScResId( ED_TARGETVAL ) ),

+        aFtVariableCell     ( this, ScResId( FT_VARCELL ) ),

+        aEdVariableCell     ( this, ScResId( ED_VARCELL ) ),

+        aRBVariableCell     ( this, ScResId( RB_VARCELL ), &aEdVariableCell, this ),

+        aBtnOk              ( this, ScResId( BTN_OK ) ),

+        aBtnCancel          ( this, ScResId( BTN_CANCEL ) ),

+        aBtnHelp            ( this, ScResId( BTN_HELP ) ),

+        //

+        theFormulaCell      ( aCursorPos ),

+        theVariableCell     ( aCursorPos ),

+        pDoc                ( pDocument ),

+        nCurTab             ( aCursorPos.Tab() ),

+        pEdActive           ( NULL ),

+        bDlgLostFocus       ( FALSE ),

+        errMsgInvalidVar    ( ScResId( STR_INVALIDVAR ) ),

+        errMsgInvalidForm   ( ScResId( STR_INVALIDFORM ) ),

+        errMsgNoFormula     ( ScResId( STR_NOFORMULA ) ),

+        errMsgInvalidVal    ( ScResId( STR_INVALIDVAL ) )

+{

+    Init();

+    FreeResource();

+}

+

+//----------------------------------------------------------------------------

+

+__EXPORT ScSolverDlg::~ScSolverDlg()

+{

+}

+

+//----------------------------------------------------------------------------

+

+void __EXPORT ScSolverDlg::Init()

+{

+    String          aStr;

+

+    aBtnOk.         SetClickHdl     ( LINK( this, ScSolverDlg, BtnHdl ) );

+    aBtnCancel.     SetClickHdl     ( LINK( this, ScSolverDlg, BtnHdl ) );

+

+    Link aLink = LINK( this, ScSolverDlg, GetFocusHdl );

+    aEdFormulaCell. SetGetFocusHdl  ( aLink );

+    aRBFormulaCell. SetGetFocusHdl  ( aLink );

+    aEdVariableCell.SetGetFocusHdl  ( aLink );

+    aRBVariableCell.SetGetFocusHdl  ( aLink );

+    aEdTargetVal.   SetGetFocusHdl  ( aLink );

+

+    aLink = LINK( this, ScSolverDlg, LoseFocusHdl );

+    aEdFormulaCell. SetLoseFocusHdl ( aLink );

+    aRBFormulaCell. SetLoseFocusHdl ( aLink );

+    aEdVariableCell.SetLoseFocusHdl ( aLink );

+    aRBVariableCell.SetLoseFocusHdl ( aLink );

+

+    theFormulaCell.Format( aStr, SCA_ABS, NULL, pDoc->GetAddressConvention() );

+

+    aEdFormulaCell.SetText( aStr );

+    aEdFormulaCell.GrabFocus();

+    pEdActive = &aEdFormulaCell;

+}

+

+//----------------------------------------------------------------------------

+

+BOOL __EXPORT ScSolverDlg::Close()

+{

+    return DoClose( ScSolverDlgWrapper::GetChildWindowId() );

+}

+

+//----------------------------------------------------------------------------

+

+void ScSolverDlg::SetActive()

+{

+    if ( bDlgLostFocus )

+    {

+        bDlgLostFocus = FALSE;

+        if( pEdActive )

+            pEdActive->GrabFocus();

+    }

+    else

+    {

+        GrabFocus();

+    }

+    RefInputDone();

+}

+

+//----------------------------------------------------------------------------

+

+void ScSolverDlg::SetReference( const ScRange& rRef, ScDocument* pDocP )

+{

+    if( pEdActive )

+    {

+        if ( rRef.aStart != rRef.aEnd )

+            RefInputStart(pEdActive);

+

+        String      aStr;

+        ScAddress   aAdr = rRef.aStart;

+        USHORT      nFmt = ( aAdr.Tab() == nCurTab )

+                                ? SCA_ABS

+                                : SCA_ABS_3D;

+

+        aAdr.Format( aStr, nFmt, pDocP, pDocP->GetAddressConvention() );

+        pEdActive->SetRefString( aStr );

+

+        if ( pEdActive == &aEdFormulaCell )

+            theFormulaCell = aAdr;

+        else if ( pEdActive == &aEdVariableCell )

+            theVariableCell = aAdr;

+    }

+}

+

+//----------------------------------------------------------------------------

+

+void ScSolverDlg::RaiseError( ScSolverErr eError )

+{

+    switch ( eError )

+    {

+        case SOLVERR_NOFORMULA:

+            ERRORBOX( errMsgNoFormula );

+            aEdFormulaCell.GrabFocus();

+            break;

+

+        case SOLVERR_INVALID_FORMULA:

+            ERRORBOX( errMsgInvalidForm );

+            aEdFormulaCell.GrabFocus();

+            break;

+

+        case SOLVERR_INVALID_VARIABLE:

+            ERRORBOX( errMsgInvalidVar );

+            aEdVariableCell.GrabFocus();

+            break;

+

+        case SOLVERR_INVALID_TARGETVALUE:

+            ERRORBOX( errMsgInvalidVal );

+            aEdTargetVal.GrabFocus();

+            break;

+    }

+}

+

+//----------------------------------------------------------------------------

+

+BOOL ScSolverDlg::IsRefInputMode() const

+{

+    return pEdActive != NULL;

+}

+

+//----------------------------------------------------------------------------

+

+BOOL __EXPORT ScSolverDlg::CheckTargetValue( String& rStrVal )

+{

+    sal_uInt32 n1 = 0;

+    double n2;

+

+    return pDoc->GetFormatTable()->IsNumberFormat( rStrVal, n1, n2 );

+}

+

+//----------------------------------------------------------------------------

+// Handler:

+

+IMPL_LINK( ScSolverDlg, BtnHdl, PushButton*, pBtn )

+{

+    if ( pBtn == &aBtnOk )

+    {

+        theTargetValStr = aEdTargetVal.GetText();

+

+        // Zu ueberpruefen:

+        // 1. enthalten die Strings korrekte Tabellenkoordinaten/def.Namen?

+        // 2. verweist die Formel-Koordinate wirklich auf eine Formelzelle?

+        // 3. wurde ein korrekter Zielwert eingegeben

+

+        const formula::FormulaGrammar::AddressConvention eConv = pDoc->GetAddressConvention();

+        USHORT  nRes1 = theFormulaCell .Parse( aEdFormulaCell.GetText(),  pDoc, eConv );

+        USHORT  nRes2 = theVariableCell.Parse( aEdVariableCell.GetText(), pDoc, eConv );

+

+        if ( SCA_VALID == ( nRes1 & SCA_VALID ) )

+        {

+            if ( SCA_VALID == ( nRes2 & SCA_VALID ) )

+            {

+                if ( CheckTargetValue( theTargetValStr ) )

+                {

+                    CellType eType;

+                    pDoc->GetCellType( theFormulaCell.Col(),

+                                       theFormulaCell.Row(),

+                                       theFormulaCell.Tab(),

+                                       eType );

+

+                    if ( CELLTYPE_FORMULA  == eType )

+                    {

+                        ScSolveParam aOutParam( theFormulaCell,

+                                                theVariableCell,

+                                                theTargetValStr );

+                        ScSolveItem  aOutItem( SCITEM_SOLVEDATA, &aOutParam );

+

+                        SetDispatcherLock( FALSE );

+

+                        SwitchToDocument();

+                        GetBindings().GetDispatcher()->Execute( SID_SOLVE,

+                                                  SFX_CALLMODE_SLOT | SFX_CALLMODE_RECORD,

+                                                  &aOutItem, 0L, 0L );

+                        Close();

+                    }

+                    else RaiseError( SOLVERR_NOFORMULA );

+                }

+                else RaiseError( SOLVERR_INVALID_TARGETVALUE );

+            }

+            else RaiseError( SOLVERR_INVALID_VARIABLE );

+        }

+        else RaiseError( SOLVERR_INVALID_FORMULA );

+    }

+    else if ( pBtn == &aBtnCancel )

+    {

+        Close();

+    }

+

+    return 0;

+}

+

+//----------------------------------------------------------------------------

+

+IMPL_LINK( ScSolverDlg, GetFocusHdl, Control*, pCtrl )

+{

+    Edit* pEdit = NULL;

+    pEdActive = NULL;

+

+    if( (pCtrl == (Control*)&aEdFormulaCell) || (pCtrl == (Control*)&aRBFormulaCell) )

+        pEdit = pEdActive = &aEdFormulaCell;

+    else if( (pCtrl == (Control*)&aEdVariableCell) || (pCtrl == (Control*)&aRBVariableCell) )

+        pEdit = pEdActive = &aEdVariableCell;

+    else if( pCtrl == (Control*)&aEdTargetVal )

+        pEdit = &aEdTargetVal;

+

+    if( pEdit )

+        pEdit->SetSelection( Selection( 0, SELECTION_MAX ) );

+

+    return 0;

+}

+

+//----------------------------------------------------------------------------

+

+IMPL_LINK( ScSolverDlg, LoseFocusHdl, Control*, EMPTYARG )

+{

+    bDlgLostFocus = !IsActive();

+    return 0;

+}

+

+

+

+