sc/source/ui/dbgui/sfiltdlg.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 <sfx2/dispatch.hxx>
  21
  22 #include "uiitems.hxx"
  23 #include "rangenam.hxx"
  24 #include "dbdata.hxx"
  25 #include "reffact.hxx"
  26 #include "viewdata.hxx"
  27 #include "document.hxx"
  28 #include "docsh.hxx"
  29 #include "scresid.hxx"
  30
  31 #include "foptmgr.hxx"
  32
  33 #include "globstr.hrc"
  34 #include "filter.hrc"
  35
  36 #define _SFILTDLG_CXX
  37 #include "filtdlg.hxx"
  38 #undef _SFILTDLG_CXX
  39 #include <vcl/msgbox.hxx>
  40
  41 // DEFINE --------------------------------------------------------------------
  42
  43 #define ERRORBOX(rid) ErrorBox( this, WinBits( WB_OK|WB_DEF_OK),\
  44                                     ScGlobal::GetRscString(rid) ).Execute()
  45
  46
  47 //============================================================================
  48 //  class ScSpecialFilterDialog
  49
  50 //----------------------------------------------------------------------------
  51
  52 ScSpecialFilterDlg::ScSpecialFilterDlg( SfxBindings* pB, SfxChildWindow* pCW, Window* pParent,
  53                                         const SfxItemSet&   rArgSet )
  54
  55     :   ScAnyRefDlg ( pB, pCW, pParent, RID_SCDLG_SPEC_FILTER ),
  56         //
  57         aFtFilterArea   ( this, ScResId( FT_CRITERIA_AREA ) ),
  58         aLbFilterArea   ( this, ScResId( LB_CRITERIA_AREA ) ),
  59         aEdFilterArea   ( this, this, &aFtFilterArea, ScResId( ED_CRITERIA_AREA ) ),
  60         aRbFilterArea   ( this, ScResId( RB_CRITERIA_AREA ), &aEdFilterArea, this ),
  61         //
  62         aFlOptions      ( this, ScResId( FL_OPTIONS ) ),
  63         aBtnCase        ( this, ScResId( BTN_CASE ) ),
  64         aBtnRegExp      ( this, ScResId( BTN_REGEXP ) ),
  65         aBtnHeader      ( this, ScResId( BTN_HEADER ) ),
  66         aBtnUnique      ( this, ScResId( BTN_UNIQUE ) ),
  67         aBtnCopyResult  ( this, ScResId( BTN_COPY_RESULT ) ),
  68         aLbCopyArea     ( this, ScResId( LB_COPY_AREA ) ),
  69         aEdCopyArea     ( this, this, NULL, ScResId( ED_COPY_AREA ) ),
  70         aRbCopyArea     ( this, ScResId( RB_COPY_AREA ), &aEdCopyArea, this ),
  71         aBtnDestPers    ( this, ScResId( BTN_DEST_PERS ) ),
  72         aFtDbAreaLabel  ( this, ScResId( FT_DBAREA_LABEL ) ),
  73         aFtDbArea       ( this, ScResId( FT_DBAREA ) ),
  74         aStrUndefined   ( SC_RESSTR(SCSTR_UNDEFINED) ),
  75         aBtnOk          ( this, ScResId( BTN_OK ) ),
  76         aBtnCancel      ( this, ScResId( BTN_CANCEL ) ),
  77         aBtnHelp        ( this, ScResId( BTN_HELP ) ),
  78         aBtnMore        ( this, ScResId( BTN_MORE ) ),
  79         //
  80         pOptionsMgr     ( NULL ),
  81         nWhichQuery     ( rArgSet.GetPool()->GetWhich( SID_QUERY ) ),
  82         theQueryData    ( ((const ScQueryItem&)
  83                            rArgSet.Get( nWhichQuery )).GetQueryData() ),
  84         pOutItem        ( NULL ),
  85         pViewData       ( NULL ),
  86         pDoc            ( NULL ),
  87         pRefInputEdit   ( NULL ),
  88         bRefInputMode   ( false ),
  89         pTimer          ( NULL )
  90 {
  91     Init( rArgSet );
  92     aEdFilterArea.GrabFocus();
  93
  94     FreeResource();
  95
  96     // Hack: RefInput-Kontrolle
  97     pTimer = new Timer;
  98     pTimer->SetTimeout( 50 ); // 50ms warten
  99     pTimer->SetTimeoutHdl( LINK( this, ScSpecialFilterDlg, TimeOutHdl ) );
 100     pTimer->Start();
 101
 102     aLbCopyArea.SetAccessibleName(aBtnCopyResult.GetText());
 103     aEdCopyArea.SetAccessibleName(aBtnCopyResult.GetText());
 104     aLbCopyArea.SetAccessibleRelationLabeledBy(&aBtnCopyResult);
 105     aEdCopyArea.SetAccessibleRelationLabeledBy(&aBtnCopyResult);
 106 }
 107
 108
 109 //----------------------------------------------------------------------------
 110
 111 ScSpecialFilterDlg::~ScSpecialFilterDlg()
 112 {
 113     sal_uInt16 nEntries = aLbFilterArea.GetEntryCount();
 114     sal_uInt16 i;
 115
 116     for ( i=1; i<nEntries; i++ )
 117         delete (String*)aLbFilterArea.GetEntryData( i );
 118
 119     delete pOptionsMgr;
 120
 121     if ( pOutItem )
 122         delete pOutItem;
 123
 124     // Hack: RefInput-Kontrolle
 125     pTimer->Stop();
 126     delete pTimer;
 127 }
 128
 129
 130 //----------------------------------------------------------------------------
 131
 132 void ScSpecialFilterDlg::Init( const SfxItemSet& rArgSet )
 133 {
 134     const ScQueryItem& rQueryItem = (const ScQueryItem&)
 135                                     rArgSet.Get( nWhichQuery );
 136
 137     aBtnOk.SetClickHdl          ( LINK( this, ScSpecialFilterDlg, EndDlgHdl ) );
 138     aBtnCancel.SetClickHdl      ( LINK( this, ScSpecialFilterDlg, EndDlgHdl ) );
 139     aLbFilterArea.SetSelectHdl  ( LINK( this, ScSpecialFilterDlg, FilterAreaSelHdl ) );
 140     aEdFilterArea.SetModifyHdl  ( LINK( this, ScSpecialFilterDlg, FilterAreaModHdl ) );
 141
 142     pViewData   = rQueryItem.GetViewData();
 143     pDoc        = pViewData ? pViewData->GetDocument()  : NULL;
 144
 145     aEdFilterArea.SetText( EMPTY_STRING );      // may be overwritten below
 146
 147     if ( pViewData && pDoc )
 148     {
 149         if(pDoc->GetChangeTrack()!=NULL) aBtnCopyResult.Disable();
 150
 151         ScRangeName* pRangeNames = pDoc->GetRangeName();
 152         aLbFilterArea.Clear();
 153         aLbFilterArea.InsertEntry( aStrUndefined, 0 );
 154
 155         if (!pRangeNames->empty())
 156         {
 157             ScRangeName::const_iterator itr = pRangeNames->begin(), itrEnd = pRangeNames->end();
 158             sal_uInt16 nInsert = 0;
 159             for (; itr != itrEnd; ++itr)
 160             {
 161                 if (!itr->second->HasType(RT_CRITERIA))
 162                     continue;
 163
 164                 nInsert = aLbFilterArea.InsertEntry(itr->second->GetName());
 165                 OUString aSymbol;
 166                 itr->second->GetSymbol(aSymbol);
 167                 aLbFilterArea.SetEntryData(nInsert, new String(aSymbol));
 168             }
 169         }
 170
 171         //  is there a stored source range?
 172
 173         ScRange aAdvSource;
 174         if (rQueryItem.GetAdvancedQuerySource(aAdvSource))
 175         {
 176             String aRefStr;
 177             aAdvSource.Format( aRefStr, SCR_ABS_3D, pDoc, pDoc->GetAddressConvention() );
 178             aEdFilterArea.SetRefString( aRefStr );
 179         }
 180     }
 181
 182     aLbFilterArea.SelectEntryPos( 0 );
 183
 184     // Optionen initialisieren lassen:
 185
 186     pOptionsMgr  = new ScFilterOptionsMgr(
 187                             pViewData,
 188                             theQueryData,
 189                             aBtnMore,
 190                             aBtnCase,
 191                             aBtnRegExp,
 192                             aBtnHeader,
 193                             aBtnUnique,
 194                             aBtnCopyResult,
 195                             aBtnDestPers,
 196                             aLbCopyArea,
 197                             aEdCopyArea,
 198                             aRbCopyArea,
 199                             aFtDbAreaLabel,
 200                             aFtDbArea,
 201                             aFlOptions,
 202                             aStrUndefined );
 203
 204     //  Spezialfilter braucht immer Spaltenkoepfe
 205     aBtnHeader.Check(true);
 206     aBtnHeader.Disable();
 207
 208     // Modal-Modus einschalten
 209 //  SetDispatcherLock( true );
 210     //@BugID 54702 Enablen/Disablen nur noch in Basisklasse
 211     //SFX_APPWINDOW->Disable(false);        //! allgemeine Methode im ScAnyRefDlg
 212 }
 213
 214
 215 //----------------------------------------------------------------------------
 216
 217 sal_Bool ScSpecialFilterDlg::Close()
 218 {
 219     if (pViewData)
 220         pViewData->GetDocShell()->CancelAutoDBRange();
 221
 222     return DoClose( ScSpecialFilterDlgWrapper::GetChildWindowId() );
 223 }
 224
 225
 226 //----------------------------------------------------------------------------
 227 // Uebergabe eines mit der Maus selektierten Tabellenbereiches, der dann als
 228 // neue Selektion im Referenz-Edit angezeigt wird.
 229
 230 void ScSpecialFilterDlg::SetReference( const ScRange& rRef, ScDocument* pDocP )
 231 {
 232     if ( bRefInputMode && pRefInputEdit )       // Nur moeglich, wenn im Referenz-Editmodus
 233     {
 234         if ( rRef.aStart != rRef.aEnd )
 235             RefInputStart( pRefInputEdit );
 236
 237         String aRefStr;
 238         const formula::FormulaGrammar::AddressConvention eConv = pDocP->GetAddressConvention();
 239
 240         if ( pRefInputEdit == &aEdCopyArea)
 241             rRef.aStart.Format( aRefStr, SCA_ABS_3D, pDocP, eConv );
 242         else if ( pRefInputEdit == &aEdFilterArea)
 243             rRef.Format( aRefStr, SCR_ABS_3D, pDocP, eConv );
 244
 245         pRefInputEdit->SetRefString( aRefStr );
 246     }
 247 }
 248
 249
 250 //----------------------------------------------------------------------------
 251
 252 void ScSpecialFilterDlg::SetActive()
 253 {
 254     if ( bRefInputMode )
 255     {
 256         if ( pRefInputEdit == &aEdCopyArea )
 257         {
 258             aEdCopyArea.GrabFocus();
 259             if ( aEdCopyArea.GetModifyHdl().IsSet() )
 260                 ((Link&)aEdCopyArea.GetModifyHdl()).Call( &aEdCopyArea );
 261         }
 262         else if ( pRefInputEdit == &aEdFilterArea )
 263         {
 264             aEdFilterArea.GrabFocus();
 265             FilterAreaModHdl( &aEdFilterArea );
 266         }
 267     }
 268     else
 269         GrabFocus();
 270
 271     RefInputDone();
 272 }
 273
 274
 275 //----------------------------------------------------------------------------
 276
 277 ScQueryItem* ScSpecialFilterDlg::GetOutputItem( const ScQueryParam& rParam,
 278                                                 const ScRange& rSource )
 279 {
 280     if ( pOutItem ) DELETEZ( pOutItem );
 281     pOutItem = new ScQueryItem( nWhichQuery, &rParam );
 282     pOutItem->SetAdvancedQuerySource( &rSource );
 283
 284     return pOutItem;
 285 }
 286
 287
 288 //----------------------------------------------------------------------------
 289
 290 sal_Bool ScSpecialFilterDlg::IsRefInputMode() const
 291 {
 292     return bRefInputMode;
 293 }
 294
 295
 296 //----------------------------------------------------------------------------
 297 // Handler:
 298 // ========
 299
 300 IMPL_LINK( ScSpecialFilterDlg, EndDlgHdl, Button*, pBtn )
 301 {
 302     OSL_ENSURE( pDoc && pViewData, "Document or ViewData not found. :-/" );
 303
 304     if ( (pBtn == &aBtnOk) && pDoc && pViewData )
 305     {
 306         String          theCopyStr( aEdCopyArea.GetText() );
 307         String          theAreaStr( aEdFilterArea.GetText() );
 308         ScQueryParam    theOutParam( theQueryData );
 309         ScAddress       theAdrCopy;
 310         sal_Bool            bEditInputOk    = true;
 311         sal_Bool            bQueryOk        = false;
 312         ScRange         theFilterArea;
 313         const formula::FormulaGrammar::AddressConvention eConv = pDoc->GetAddressConvention();
 314
 315         if ( aBtnCopyResult.IsChecked() )
 316         {
 317             xub_StrLen nColonPos = theCopyStr.Search( ':' );
 318
 319             if ( STRING_NOTFOUND != nColonPos )
 320                 theCopyStr.Erase( nColonPos );
 321
 322             sal_uInt16 nResult = theAdrCopy.Parse( theCopyStr, pDoc, eConv );
 323
 324             if ( SCA_VALID != (nResult & SCA_VALID) )
 325             {
 326                 if ( !aBtnMore.GetState() )
 327                     aBtnMore.SetState( true );
 328
 329                 ERRORBOX( STR_INVALID_TABREF );
 330                 aEdCopyArea.GrabFocus();
 331                 bEditInputOk = false;
 332             }
 333         }
 334
 335         if ( bEditInputOk )
 336         {
 337             sal_uInt16 nResult = ScRange().Parse( theAreaStr, pDoc, eConv );
 338
 339             if ( SCA_VALID != (nResult & SCA_VALID) )
 340             {
 341                 ERRORBOX( STR_INVALID_TABREF );
 342                 aEdFilterArea.GrabFocus();
 343                 bEditInputOk = false;
 344             }
 345         }
 346
 347         if ( bEditInputOk )
 348         {
 349             /*
 350              * Alle Edit-Felder enthalten gueltige Bereiche.
 351              * Nun wird versucht aus dem Filterbereich
 352              * ein ScQueryParam zu erzeugen:
 353              */
 354
 355             sal_uInt16  nResult = theFilterArea.Parse( theAreaStr, pDoc, eConv );
 356
 357             if ( SCA_VALID == (nResult & SCA_VALID) )
 358             {
 359                 ScAddress& rStart = theFilterArea.aStart;
 360                 ScAddress& rEnd   = theFilterArea.aEnd;
 361
 362                 if ( aBtnCopyResult.IsChecked() )
 363                 {
 364                     theOutParam.bInplace    = false;
 365                     theOutParam.nDestTab    = theAdrCopy.Tab();
 366                     theOutParam.nDestCol    = theAdrCopy.Col();
 367                     theOutParam.nDestRow    = theAdrCopy.Row();
 368                 }
 369                 else
 370                 {
 371                     theOutParam.bInplace    = true;
 372                     theOutParam.nDestTab    = 0;
 373                     theOutParam.nDestCol    = 0;
 374                     theOutParam.nDestRow    = 0;
 375                 }
 376
 377                 theOutParam.bHasHeader = aBtnHeader.IsChecked();
 378                 theOutParam.bByRow     = true;
 379                 theOutParam.bCaseSens  = aBtnCase.IsChecked();
 380                 theOutParam.bRegExp    = aBtnRegExp.IsChecked();
 381                 theOutParam.bDuplicate = !aBtnUnique.IsChecked();
 382                 theOutParam.bDestPers  = aBtnDestPers.IsChecked();
 383
 384                 bQueryOk =
 385                     pDoc->CreateQueryParam( rStart.Col(),
 386                                             rStart.Row(),
 387                                             rEnd.Col(),
 388                                             rEnd.Row(),
 389                                             rStart.Tab(),
 390                                             theOutParam );
 391             }
 392         }
 393
 394         if ( bQueryOk )
 395         {
 396             SetDispatcherLock( false );
 397             SwitchToDocument();
 398             GetBindings().GetDispatcher()->Execute( FID_FILTER_OK,
 399                                       SFX_CALLMODE_SLOT | SFX_CALLMODE_RECORD,
 400                                       GetOutputItem( theOutParam, theFilterArea ), 0L, 0L );
 401             Close();
 402         }
 403         else
 404         {
 405             ERRORBOX( STR_INVALID_QUERYAREA );
 406             aEdFilterArea.GrabFocus();
 407         }
 408     }
 409     else if ( pBtn == &aBtnCancel )
 410     {
 411         Close();
 412     }
 413     return 0;
 414 }
 415
 416
 417 //----------------------------------------------------------------------------
 418
 419 IMPL_LINK( ScSpecialFilterDlg, TimeOutHdl, Timer*, _pTimer )
 420 {
 421     // alle 50ms nachschauen, ob RefInputMode noch stimmt
 422
 423     if( (_pTimer == pTimer) && IsActive() )
 424     {
 425         if( aEdCopyArea.HasFocus() || aRbCopyArea.HasFocus() )
 426         {
 427             pRefInputEdit = &aEdCopyArea;
 428             bRefInputMode = true;
 429         }
 430         else if( aEdFilterArea.HasFocus() || aRbFilterArea.HasFocus() )
 431         {
 432             pRefInputEdit = &aEdFilterArea;
 433             bRefInputMode = true;
 434         }
 435         else if( bRefInputMode )
 436         {
 437             pRefInputEdit = NULL;
 438             bRefInputMode = false;
 439         }
 440     }
 441
 442     pTimer->Start();
 443
 444     return 0;
 445 }
 446
 447
 448 //----------------------------------------------------------------------------
 449
 450 IMPL_LINK( ScSpecialFilterDlg, FilterAreaSelHdl, ListBox*, pLb )
 451 {
 452     if ( pLb == &aLbFilterArea )
 453     {
 454         String  aString;
 455         sal_uInt16  nSelPos = aLbFilterArea.GetSelectEntryPos();
 456
 457         if ( nSelPos > 0 )
 458             aString = *(String*)aLbFilterArea.GetEntryData( nSelPos );
 459
 460         aEdFilterArea.SetText( aString );
 461     }
 462
 463     return 0;
 464 }
 465
 466
 467 //----------------------------------------------------------------------------
 468
 469 IMPL_LINK( ScSpecialFilterDlg, FilterAreaModHdl, formula::RefEdit*, pEd )
 470 {
 471     if ( pEd == &aEdFilterArea )
 472     {
 473         if ( pDoc && pViewData )
 474         {
 475             String  theCurAreaStr = pEd->GetText();
 476             sal_uInt16  nResult = ScRange().Parse( theCurAreaStr, pDoc );
 477
 478             if ( SCA_VALID == (nResult & SCA_VALID) )
 479             {
 480                 String* pStr    = NULL;
 481                 sal_Bool    bFound  = false;
 482                 sal_uInt16  i       = 0;
 483                 sal_uInt16  nCount  = aLbFilterArea.GetEntryCount();
 484
 485                 for ( i=1; i<nCount && !bFound; i++ )
 486                 {
 487                     pStr = (String*)aLbFilterArea.GetEntryData( i );
 488                     bFound = (theCurAreaStr == *pStr);
 489                 }
 490
 491                 if ( bFound )
 492                     aLbFilterArea.SelectEntryPos( --i );
 493                 else
 494                     aLbFilterArea.SelectEntryPos( 0 );
 495             }
 496         }
 497         else
 498             aLbFilterArea.SelectEntryPos( 0 );
 499     }
 500
 501     return 0;
 502 }
 503
 504
 505 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */