sc/source/ui/miscdlgs/tabopdlg.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: tabopdlg.cxx,v $
  10  * $Revision: 1.12 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_sc.hxx"
  33
  34
  35
  36 //----------------------------------------------------------------------------
  37
  38 #include "scitems.hxx"
  39 #include <sfx2/dispatch.hxx>
  40 #include <vcl/msgbox.hxx>
  41
  42 #include "uiitems.hxx"
  43 #include "global.hxx"
  44 #include "document.hxx"
  45 #include "scresid.hxx"
  46 #include "sc.hrc"
  47 #include "reffact.hxx"
  48 #include "tabopdlg.hrc"
  49
  50 #define _TABOPDLG_CXX
  51 #include "tabopdlg.hxx"
  52
  53
  54 //============================================================================
  55 //      class ScTabOpDlg
  56 //----------------------------------------------------------------------------
  57
  58 ScTabOpDlg::ScTabOpDlg( SfxBindings* pB, SfxChildWindow* pCW, Window* pParent,
  59                         ScDocument*         pDocument,
  60                         const ScRefAddress&     rCursorPos )
  61
  62     :   ScAnyRefDlg                     ( pB, pCW, pParent, RID_SCDLG_TABOP ),
  63         //
  64         aFlVariables        ( this, ScResId( FL_VARIABLES ) ),
  65         aFtFormulaRange     ( this, ScResId( FT_FORMULARANGE ) ),
  66         aEdFormulaRange     ( this, this, ScResId( ED_FORMULARANGE ) ),
  67         aRBFormulaRange         ( this, ScResId( RB_FORMULARANGE ), &aEdFormulaRange, this ),
  68         aFtRowCell              ( this, ScResId( FT_ROWCELL ) ),
  69         aEdRowCell          ( this, this, ScResId( ED_ROWCELL ) ),
  70         aRBRowCell                      ( this, ScResId( RB_ROWCELL ), &aEdRowCell, this ),
  71         aFtColCell              ( this, ScResId( FT_COLCELL ) ),
  72         aEdColCell          ( this, this, ScResId( ED_COLCELL ) ),
  73         aRBColCell                      ( this, ScResId( RB_COLCELL ), &aEdColCell, this ),
  74         aBtnOk              ( this, ScResId( BTN_OK ) ),
  75         aBtnCancel          ( this, ScResId( BTN_CANCEL ) ),
  76         aBtnHelp            ( this, ScResId( BTN_HELP ) ),
  77         //
  78         theFormulaCell      ( rCursorPos ),
  79         pDoc                ( pDocument ),
  80         nCurTab             ( theFormulaCell.Tab() ),
  81         pEdActive           ( NULL ),
  82         bDlgLostFocus       ( FALSE ),
  83         errMsgNoFormula         ( ScResId( STR_NOFORMULA ) ),
  84         errMsgNoColRow          ( ScResId( STR_NOCOLROW ) ),
  85         errMsgWrongFormula      ( ScResId( STR_WRONGFORMULA ) ),
  86         errMsgWrongRowCol       ( ScResId( STR_WRONGROWCOL ) ),
  87         errMsgNoColFormula      ( ScResId( STR_NOCOLFORMULA ) ),
  88         errMsgNoRowFormula      ( ScResId( STR_NOROWFORMULA ) )
  89 {
  90     Init();
  91     FreeResource();
  92 }
  93
  94 //----------------------------------------------------------------------------
  95
  96 __EXPORT ScTabOpDlg::~ScTabOpDlg()
  97 {
  98     Hide();
  99 }
 100
 101 //----------------------------------------------------------------------------
 102
 103 void __EXPORT ScTabOpDlg::Init()
 104 {
 105     aBtnOk.                     SetClickHdl             ( LINK( this, ScTabOpDlg, BtnHdl ) );
 106     aBtnCancel.         SetClickHdl             ( LINK( this, ScTabOpDlg, BtnHdl ) );
 107
 108     Link aLink = LINK( this, ScTabOpDlg, GetFocusHdl );
 109     aEdFormulaRange.SetGetFocusHdl( aLink );
 110     aRBFormulaRange.SetGetFocusHdl( aLink );
 111     aEdRowCell.     SetGetFocusHdl( aLink );
 112     aRBRowCell.     SetGetFocusHdl( aLink );
 113     aEdColCell.     SetGetFocusHdl( aLink );
 114     aRBColCell.     SetGetFocusHdl( aLink );
 115
 116     aLink = LINK( this, ScTabOpDlg, LoseFocusHdl );
 117     aEdFormulaRange.SetLoseFocusHdl( aLink );
 118     aRBFormulaRange.SetLoseFocusHdl( aLink );
 119     aEdRowCell.     SetLoseFocusHdl( aLink );
 120     aRBRowCell.     SetLoseFocusHdl( aLink );
 121     aEdColCell.     SetLoseFocusHdl( aLink );
 122     aRBColCell.     SetLoseFocusHdl( aLink );
 123
 124     aEdFormulaRange.GrabFocus();
 125     pEdActive = &aEdFormulaRange;
 126
 127     //@BugID 54702 Enablen/Disablen nur noch in Basisklasse
 128     //SFX_APPWINDOW->Enable();
 129 }
 130
 131 //----------------------------------------------------------------------------
 132
 133 BOOL __EXPORT ScTabOpDlg::Close()
 134 {
 135     return DoClose( ScTabOpDlgWrapper::GetChildWindowId() );
 136 }
 137
 138 //----------------------------------------------------------------------------
 139
 140 void ScTabOpDlg::SetActive()
 141 {
 142     if ( bDlgLostFocus )
 143     {
 144         bDlgLostFocus = FALSE;
 145         if( pEdActive )
 146             pEdActive->GrabFocus();
 147     }
 148     else
 149         GrabFocus();
 150
 151     RefInputDone();
 152 }
 153
 154 //----------------------------------------------------------------------------
 155
 156 void ScTabOpDlg::SetReference( const ScRange& rRef, ScDocument* pDocP )
 157 {
 158     if ( pEdActive )
 159     {
 160         ScAddress::Details aDetails(pDocP->GetAddressConvention(), 0, 0);
 161
 162         if ( rRef.aStart != rRef.aEnd )
 163             RefInputStart(pEdActive);
 164
 165         String          aStr;
 166         USHORT          nFmt = ( rRef.aStart.Tab() == nCurTab )
 167                                 ? SCR_ABS
 168                                 : SCR_ABS_3D;
 169
 170         if ( pEdActive == &aEdFormulaRange )
 171         {
 172             theFormulaCell.Set( rRef.aStart, false, false, false);
 173             theFormulaEnd.Set( rRef.aEnd, false, false, false);
 174             rRef.Format( aStr, nFmt, pDocP, aDetails );
 175         }
 176         else if ( pEdActive == &aEdRowCell )
 177         {
 178             theRowCell.Set( rRef.aStart, false, false, false);
 179             rRef.aStart.Format( aStr, nFmt, pDocP, aDetails );
 180         }
 181         else if ( pEdActive == &aEdColCell )
 182         {
 183             theColCell.Set( rRef.aStart, false, false, false);
 184             rRef.aStart.Format( aStr, nFmt, pDocP, aDetails );
 185         }
 186
 187         pEdActive->SetRefString( aStr );
 188     }
 189 }
 190
 191 //----------------------------------------------------------------------------
 192
 193 void ScTabOpDlg::RaiseError( ScTabOpErr eError )
 194 {
 195     const String* pMsg = &errMsgNoFormula;
 196     Edit*                 pEd  = &aEdFormulaRange;
 197
 198     switch ( eError )
 199     {
 200         case TABOPERR_NOFORMULA:
 201             pMsg = &errMsgNoFormula;
 202             pEd  = &aEdFormulaRange;
 203             break;
 204
 205         case TABOPERR_NOCOLROW:
 206             pMsg = &errMsgNoColRow;
 207             pEd  = &aEdRowCell;
 208             break;
 209
 210         case TABOPERR_WRONGFORMULA:
 211             pMsg = &errMsgWrongFormula;
 212             pEd  = &aEdFormulaRange;
 213             break;
 214
 215         case TABOPERR_WRONGROW:
 216             pMsg = &errMsgWrongRowCol;
 217             pEd  = &aEdRowCell;
 218             break;
 219
 220         case TABOPERR_NOCOLFORMULA:
 221             pMsg = &errMsgNoColFormula;
 222             pEd  = &aEdFormulaRange;
 223             break;
 224
 225         case TABOPERR_WRONGCOL:
 226             pMsg = &errMsgWrongRowCol;
 227             pEd  = &aEdColCell;
 228             break;
 229
 230         case TABOPERR_NOROWFORMULA:
 231             pMsg = &errMsgNoRowFormula;
 232             pEd  = &aEdFormulaRange;
 233             break;
 234     }
 235
 236     ErrorBox( this, WinBits( WB_OK_CANCEL | WB_DEF_OK), *pMsg ).Execute();
 237     pEd->GrabFocus();
 238 }
 239
 240 //----------------------------------------------------------------------------
 241
 242 BOOL lcl_Parse( const String& rString, ScDocument* pDoc, SCTAB nCurTab,
 243                 ScRefAddress& rStart, ScRefAddress& rEnd )
 244 {
 245     BOOL bRet = FALSE;
 246     const formula::FormulaGrammar::AddressConvention eConv = pDoc->GetAddressConvention();
 247     if ( rString.Search(':') != STRING_NOTFOUND )
 248         bRet = ConvertDoubleRef( pDoc, rString, nCurTab, rStart, rEnd, eConv );
 249     else
 250     {
 251         bRet = ConvertSingleRef( pDoc, rString, nCurTab, rStart, eConv );
 252         rEnd = rStart;
 253     }
 254     return bRet;
 255 }
 256
 257 //----------------------------------------------------------------------------
 258 // Handler:
 259
 260 IMPL_LINK( ScTabOpDlg, BtnHdl, PushButton*, pBtn )
 261 {
 262     if ( pBtn == &aBtnOk )
 263     {
 264         BYTE nMode = 3;
 265         USHORT nError = 0;
 266
 267         // Zu ueberpruefen:
 268         // 1. enthalten die Strings korrekte Tabellenkoordinaten/def.Namen?
 269         // 2. IstFormelRang Zeile bei leerer Zeile bzw. Spalte bei leerer Spalte
 270         //    bzw. Einfachreferenz bei beidem?
 271         // 3. Ist mindestens Zeile oder Spalte und Formel voll?
 272
 273         if (aEdFormulaRange.GetText().Len() == 0)
 274             nError = TABOPERR_NOFORMULA;
 275         else if (aEdRowCell.GetText().Len() == 0 &&
 276                  aEdColCell.GetText().Len() == 0)
 277             nError = TABOPERR_NOCOLROW;
 278         else if ( !lcl_Parse( aEdFormulaRange.GetText(), pDoc, nCurTab,
 279                                 theFormulaCell, theFormulaEnd ) )
 280             nError = TABOPERR_WRONGFORMULA;
 281         else
 282         {
 283             const formula::FormulaGrammar::AddressConvention eConv = pDoc->GetAddressConvention();
 284             if (aEdRowCell.GetText().Len() > 0)
 285             {
 286                 if (!ConvertSingleRef( pDoc, aEdRowCell.GetText(), nCurTab,
 287                                        theRowCell, eConv ))
 288                     nError = TABOPERR_WRONGROW;
 289                 else
 290                 {
 291                     if (aEdColCell.GetText().Len() == 0 &&
 292                         theFormulaCell.Col() != theFormulaEnd.Col())
 293                         nError = TABOPERR_NOCOLFORMULA;
 294                     else
 295                         nMode = 1;
 296                 }
 297             }
 298             if (aEdColCell.GetText().Len() > 0)
 299             {
 300                 if (!ConvertSingleRef( pDoc, aEdColCell.GetText(), nCurTab,
 301                                        theColCell, eConv ))
 302                     nError = TABOPERR_WRONGCOL;
 303                 else
 304                 {
 305                     if (nMode == 1)                                                     // beides
 306                     {
 307                         nMode = 2;
 308                         ConvertSingleRef( pDoc, aEdFormulaRange.GetText(), nCurTab,
 309                                           theFormulaCell, eConv );
 310                     }
 311                     else if (theFormulaCell.Row() != theFormulaEnd.Row())
 312                         nError = TABOPERR_NOROWFORMULA;
 313                     else
 314                         nMode = 0;
 315                 }
 316             }
 317         }
 318
 319         if (nError)
 320             RaiseError( (ScTabOpErr) nError );
 321         else
 322         {
 323             ScTabOpParam aOutParam( theFormulaCell,
 324                                     theFormulaEnd,
 325                                     theRowCell,
 326                                     theColCell,
 327                                     nMode );
 328             ScTabOpItem  aOutItem( SID_TABOP, &aOutParam );
 329
 330             SetDispatcherLock( FALSE );
 331             SwitchToDocument();
 332             GetBindings().GetDispatcher()->Execute( SID_TABOP,
 333                                       SFX_CALLMODE_SLOT | SFX_CALLMODE_RECORD,
 334                                       &aOutItem, 0L, 0L );
 335             Close();
 336         }
 337     }
 338     else if ( pBtn == &aBtnCancel )
 339         Close();
 340
 341     return 0;
 342 }
 343
 344 //----------------------------------------------------------------------------
 345
 346 IMPL_LINK( ScTabOpDlg, GetFocusHdl, Control*, pCtrl )
 347 {
 348     if( (pCtrl == (Control*)&aEdFormulaRange) || (pCtrl == (Control*)&aRBFormulaRange) )
 349         pEdActive = &aEdFormulaRange;
 350     else if( (pCtrl == (Control*)&aEdRowCell) || (pCtrl == (Control*)&aRBRowCell) )
 351         pEdActive = &aEdRowCell;
 352     else if( (pCtrl == (Control*)&aEdColCell) || (pCtrl == (Control*)&aRBColCell) )
 353         pEdActive = &aEdColCell;
 354     else
 355         pEdActive = NULL;
 356
 357     if( pEdActive )
 358         pEdActive->SetSelection( Selection( 0, SELECTION_MAX ) );
 359
 360     return 0;
 361 }
 362
 363 //----------------------------------------------------------------------------
 364
 365 IMPL_LINK( ScTabOpDlg, LoseFocusHdl, Control*, EMPTYARG )
 366 {
 367     bDlgLostFocus = !IsActive();
 368     return 0;
 369 }
 370
 371
 372
 373
 374