sc/source/ui/miscdlgs/crnrdlg.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 "reffact.hxx"
  21 #include "document.hxx"
  22 #include "scresid.hxx"
  23 #include "globstr.hrc"
  24 #include "docsh.hxx"
  25
  26 #define _CRNRDLG_CXX
  27 #include "crnrdlg.hxx"
  28 #undef _CRNRDLG_CXX
  29 #include <vcl/msgbox.hxx>
  30
  31
  32 //============================================================================
  33
  34 #define ERRORBOX(s) ErrorBox(this,WinBits(WB_OK|WB_DEF_OK),s).Execute()
  35 #define QUERYBOX(m) QueryBox(this,WinBits(WB_YES_NO|WB_DEF_YES),m).Execute()
  36
  37 const sal_uLong nEntryDataCol = 0;
  38 const sal_uLong nEntryDataRow = 1;
  39 const sal_uLong nEntryDataDelim = 2;
  40
  41
  42 //============================================================================
  43 //  class ScColRowNameRangesDlg
  44
  45
  46 /*************************************************************************
  47 #*  Member:     ScColRowNameRangesDlg
  48 #*------------------------------------------------------------------------
  49 #*
  50 #*  Klasse:     ScColRowNameRangesDlg
  51 #*
  52 #*  Funktion:   Konstruktor der Klasse ScColRowNameRangesDlg.
  53 #*              Initialisieren der Klassen- Mitglieder,
  54 #*              Uebernahme der Range- Angaben und Aufruf
  55 #*              der eigentlichen Initialisierungsroutine
  56 #*
  57 #*  Input:      Sfx- Verknuepfungen
  58 #*              Parent- Window
  59 #*              SCViewData
  60 #*
  61 #*  Output:     ---
  62 #*
  63 #************************************************************************/
  64
  65 ScColRowNameRangesDlg::ScColRowNameRangesDlg( SfxBindings* pB,
  66                                 SfxChildWindow* pCW,
  67                                 Window* pParent,
  68                                 ScViewData* ptrViewData )
  69
  70     :   ScAnyRefDlg ( pB, pCW, pParent, "NameRangesDialog" , "modules/scalc/ui/namerangesdialog.ui" ),
  71
  72         pViewData       ( ptrViewData ),
  73         pDoc            ( ptrViewData->GetDocument() ),
  74
  75         pEdActive       ( NULL ),
  76         bDlgLostFocus   ( false )
  77 {
  78     get(pLbRange,"range");
  79
  80     get(pEdAssign,"edassign");
  81     get(pRbAssign,"rbassign");
  82     pRbAssign->SetReferences(this, pEdAssign);
  83     pEdAssign->SetReferences(this, get<VclFrame>("rangeframe")->get_label_widget());
  84     get(pBtnColHead,"colhead");
  85     get(pBtnRowHead,"rowhead");
  86     get(pEdAssign2,"edassign2");
  87     get(pRbAssign2,"rbassign2");
  88     pRbAssign2->SetReferences(this, pEdAssign2);
  89     pEdAssign2->SetReferences(this, get<FixedText>("datarange"));
  90
  91     get(pBtnOk,"ok");
  92     get(pBtnCancel,"cancel");
  93     get(pBtnAdd,"add");
  94     get(pBtnRemove,"delete");
  95
  96     xColNameRanges = pDoc->GetColNameRanges()->Clone();
  97     xRowNameRanges = pDoc->GetRowNameRanges()->Clone();
  98     Init();
  99 }
 100
 101
 102 /*************************************************************************
 103 #*  Member:     ~ScColRowNameRangesDlg
 104 #*------------------------------------------------------------------------
 105 #*
 106 #*  Klasse:     ScColRowNameRangesDlg
 107 #*
 108 #*  Funktion:   Destruktor der Klasse
 109 #*
 110 #*  Input:      ---
 111 #*
 112 #*  Output:     ---
 113 #*
 114 #************************************************************************/
 115
 116 ScColRowNameRangesDlg::~ScColRowNameRangesDlg()
 117 {
 118 }
 119
 120
 121 /*************************************************************************
 122 #*  Member:     Init
 123 #*------------------------------------------------------------------------
 124 #*
 125 #*  Klasse:     ScColRowNameRangesDlg
 126 #*
 127 #*  Funktion:   Initialisierungs- Routine:
 128 #*              Umlenken der Event- Handler und einstellen der
 129 #*              Startparameter.
 130 #*
 131 #*  Input:      ---
 132 #*
 133 #*  Output:     ---
 134 #*
 135 #************************************************************************/
 136
 137 void ScColRowNameRangesDlg::Init()
 138 {
 139     pBtnOk->SetClickHdl      ( LINK( this, ScColRowNameRangesDlg, OkBtnHdl ) );
 140     pBtnCancel->SetClickHdl  ( LINK( this, ScColRowNameRangesDlg, CancelBtnHdl ) );
 141     pBtnAdd->SetClickHdl     ( LINK( this, ScColRowNameRangesDlg, AddBtnHdl ) );
 142     pBtnRemove->SetClickHdl  ( LINK( this, ScColRowNameRangesDlg, RemoveBtnHdl ) );
 143     pLbRange->SetSelectHdl   ( LINK( this, ScColRowNameRangesDlg, Range1SelectHdl ) );
 144     pEdAssign->SetModifyHdl  ( LINK( this, ScColRowNameRangesDlg, Range1DataModifyHdl ) );
 145     pBtnColHead->SetClickHdl ( LINK( this, ScColRowNameRangesDlg, ColClickHdl ) );
 146     pBtnRowHead->SetClickHdl ( LINK( this, ScColRowNameRangesDlg, RowClickHdl ) );
 147     pEdAssign2->SetModifyHdl ( LINK( this, ScColRowNameRangesDlg, Range2DataModifyHdl ) );
 148
 149     Link aLink = LINK( this, ScColRowNameRangesDlg, GetFocusHdl );
 150     pEdAssign->SetGetFocusHdl( aLink );
 151     pRbAssign->SetGetFocusHdl( aLink );
 152     pEdAssign2->SetGetFocusHdl( aLink );
 153     pRbAssign2->SetGetFocusHdl( aLink );
 154
 155     aLink = LINK( this, ScColRowNameRangesDlg, LoseFocusHdl );
 156     pEdAssign->SetLoseFocusHdl( aLink );
 157     pRbAssign->SetLoseFocusHdl( aLink );
 158     pEdAssign2->SetLoseFocusHdl( aLink );
 159     pRbAssign2->SetLoseFocusHdl( aLink );
 160
 161     pLbRange->SetDropDownLineCount(10);
 162
 163     pEdActive = pEdAssign;
 164
 165     UpdateNames();
 166
 167     if ( pViewData && pDoc )
 168     {
 169         SCCOL nStartCol = 0;
 170         SCROW nStartRow = 0;
 171         SCTAB nStartTab = 0;
 172         SCCOL nEndCol   = 0;
 173         SCROW nEndRow   = 0;
 174         SCTAB nEndTab   = 0;
 175         pViewData->GetSimpleArea( nStartCol, nStartRow, nStartTab,
 176                                   nEndCol,   nEndRow,  nEndTab );
 177         SetColRowData( ScRange( ScAddress( nStartCol, nStartRow, nStartTab ),
 178                               ScAddress( nEndCol,   nEndRow,   nEndTab ) ) );
 179     }
 180     else
 181     {
 182         pBtnColHead->Check( sal_True );
 183         pBtnRowHead->Check( false );
 184         pEdAssign->SetText( EMPTY_OUSTRING );
 185         pEdAssign2->SetText( EMPTY_OUSTRING );
 186     }
 187
 188     pLbRange->SetBorderStyle( WINDOW_BORDER_MONO );
 189     pBtnColHead->Enable();
 190     pBtnRowHead->Enable();
 191     pEdAssign->Enable();
 192     pEdAssign->GrabFocus();
 193     pRbAssign->Enable();
 194
 195     Range1SelectHdl( 0 );
 196 }
 197
 198
 199 /*************************************************************************
 200 #*  Member:     SetColRowData
 201 #*------------------------------------------------------------------------
 202 #*
 203 #*  Klasse:     ScColRowNameRangesDlg
 204 #*
 205 #*  Funktion:   zugehoerigen Datenbereich eines Beschriftungsbereiches
 206 #*              auf default Werte setzen und beide Referenz-Edit-Felder
 207 #*              fuellen.
 208 #*
 209 #*  Input:      Einstellbereich fuer Labels
 210 #*
 211 #*  Output:     ---
 212 #*
 213 #************************************************************************/
 214
 215 void ScColRowNameRangesDlg::SetColRowData( const ScRange& rLabelRange,sal_Bool bRef)
 216 {
 217     theCurData = theCurArea = rLabelRange;
 218     sal_Bool bValid = sal_True;
 219     SCCOL nCol1 = theCurArea.aStart.Col();
 220     SCCOL nCol2 = theCurArea.aEnd.Col();
 221     SCROW nRow1 = theCurArea.aStart.Row();
 222     SCROW nRow2 = theCurArea.aEnd.Row();
 223     if ( (static_cast<SCCOLROW>(nCol2 - nCol1) >= nRow2 - nRow1) || (nCol1 == 0 && nCol2 == MAXCOL) )
 224     {   // Spaltenkoepfe und Grenzfall gesamte Tabelle
 225         pBtnColHead->Check( sal_True );
 226         pBtnRowHead->Check( false );
 227         if ( nRow2 == MAXROW  )
 228         {
 229             if ( nRow1 == 0 )
 230                 bValid = false;     // Grenzfall gesamte Tabelle
 231             else
 232             {   // Head unten, Data oben
 233                 theCurData.aStart.SetRow( 0 );
 234                 theCurData.aEnd.SetRow( nRow1 - 1 );
 235             }
 236         }
 237         else
 238         {   // Head oben, Data unten
 239             theCurData.aStart.SetRow( nRow2 + 1 );
 240             theCurData.aEnd.SetRow( MAXROW );
 241         }
 242     }
 243     else
 244     {   // Zeilenkoepfe
 245         pBtnRowHead->Check( sal_True );
 246         pBtnColHead->Check( false );
 247         if ( nCol2 == MAXCOL )
 248         {   // Head rechts, Data links
 249             theCurData.aStart.SetCol( 0 );
 250             theCurData.aEnd.SetCol( nCol2 - 1 );
 251         }
 252         else
 253         {   // Head links, Data rechts
 254             theCurData.aStart.SetCol( nCol2 + 1 );
 255             theCurData.aEnd.SetCol( MAXCOL );
 256         }
 257     }
 258     if ( bValid )
 259     {
 260         const formula::FormulaGrammar::AddressConvention eConv = pDoc->GetAddressConvention();
 261         OUString aStr(theCurArea.Format(SCR_ABS_3D, pDoc, eConv));
 262
 263         if(bRef)
 264             pEdAssign->SetRefString( aStr );
 265         else
 266             pEdAssign->SetText( aStr );
 267
 268         pEdAssign->SetSelection( Selection( SELECTION_MAX, SELECTION_MAX ) );
 269         aStr = theCurData.Format(SCR_ABS_3D, pDoc, eConv);
 270
 271         if(bRef)
 272             pEdAssign2->SetRefString( aStr );
 273         else
 274             pEdAssign2->SetText( aStr );
 275     }
 276     else
 277     {
 278         theCurData = theCurArea = ScRange();
 279
 280         if(bRef)
 281         {
 282             pEdAssign->SetRefString( EMPTY_OUSTRING );
 283             pEdAssign2->SetRefString( EMPTY_OUSTRING );
 284         }
 285         else
 286         {
 287             pEdAssign->SetText( EMPTY_OUSTRING );
 288             pEdAssign2->SetText( EMPTY_OUSTRING );
 289         }
 290
 291         pBtnColHead->Disable();
 292         pBtnRowHead->Disable();
 293         pEdAssign2->Disable();
 294         pRbAssign2->Disable();
 295     }
 296 }
 297
 298
 299 /*************************************************************************
 300 #*  Member:     AdjustColRowData
 301 #*------------------------------------------------------------------------
 302 #*
 303 #*  Klasse:     ScColRowNameRangesDlg
 304 #*
 305 #*  Funktion:   zugehoerigen Datenbereich eines Beschriftungsbereiches
 306 #*              anpassen und Data-Referenz-Edit-Feld fuellen.
 307 #*
 308 #*  Input:      Bereich fuer Labels
 309 #*
 310 #*  Output:     ---
 311 #*
 312 #************************************************************************/
 313
 314 void ScColRowNameRangesDlg::AdjustColRowData( const ScRange& rDataRange,sal_Bool bRef)
 315 {
 316     theCurData = rDataRange;
 317     if ( pBtnColHead->IsChecked() )
 318     {   // Datenbereich gleiche Spalten wie Koepfe
 319         theCurData.aStart.SetCol( theCurArea.aStart.Col() );
 320         theCurData.aEnd.SetCol( theCurArea.aEnd.Col() );
 321         if ( theCurData.Intersects( theCurArea ) )
 322         {
 323             SCROW nRow1 = theCurArea.aStart.Row();
 324             SCROW nRow2 = theCurArea.aEnd.Row();
 325             if ( nRow1 > 0
 326               && (theCurData.aEnd.Row() < nRow2 || nRow2 == MAXROW) )
 327             {   // Data oben
 328                 theCurData.aEnd.SetRow( nRow1 - 1 );
 329                 if ( theCurData.aStart.Row() > theCurData.aEnd.Row() )
 330                     theCurData.aStart.SetRow( theCurData.aEnd.Row() );
 331             }
 332             else
 333             {   // Data unten
 334                 theCurData.aStart.SetRow( nRow2 + 1 );
 335                 if ( theCurData.aStart.Row() > theCurData.aEnd.Row() )
 336                     theCurData.aEnd.SetRow( theCurData.aStart.Row() );
 337             }
 338         }
 339     }
 340     else
 341     {   // Datenbereich gleiche Zeilen wie Koepfe
 342         theCurData.aStart.SetRow( theCurArea.aStart.Row() );
 343         theCurData.aEnd.SetRow( theCurArea.aEnd.Row() );
 344         if ( theCurData.Intersects( theCurArea ) )
 345         {
 346             SCCOL nCol1 = theCurArea.aStart.Col();
 347             SCCOL nCol2 = theCurArea.aEnd.Col();
 348             if ( nCol1 > 0
 349               && (theCurData.aEnd.Col() < nCol2 || nCol2 == MAXCOL) )
 350             {   // Data links
 351                 theCurData.aEnd.SetCol( nCol1 - 1 );
 352                 if ( theCurData.aStart.Col() > theCurData.aEnd.Col() )
 353                     theCurData.aStart.SetCol( theCurData.aEnd.Col() );
 354             }
 355             else
 356             {   // Data rechts
 357                 theCurData.aStart.SetCol( nCol2 + 1 );
 358                 if ( theCurData.aStart.Col() > theCurData.aEnd.Col() )
 359                     theCurData.aEnd.SetCol( theCurData.aStart.Col() );
 360             }
 361         }
 362     }
 363     OUString aStr(theCurData.Format(SCR_ABS_3D, pDoc, pDoc->GetAddressConvention()));
 364
 365     if(bRef)
 366         pEdAssign2->SetRefString( aStr );
 367     else
 368         pEdAssign2->SetText( aStr );
 369
 370     pEdAssign2->SetSelection( Selection( SELECTION_MAX, SELECTION_MAX ) );
 371 }
 372
 373
 374 /*************************************************************************
 375 #*  Member:     SetReference
 376 #*------------------------------------------------------------------------
 377 #*
 378 #*  Klasse:     ScColRowNameRangesDlg
 379 #*
 380 #*  Funktion:   Uebergabe eines mit der Maus selektierten Tabellen-
 381 #*              bereiches, der dann als neue Selektion im Referenz-
 382 #*              Fenster angezeigt wird.
 383 #*
 384 #*  Input:      Bereich fuer Labels
 385 #*              Dokumentklasse
 386 #*
 387 #*  Output:     ---
 388 #*
 389 #************************************************************************/
 390
 391 void ScColRowNameRangesDlg::SetReference( const ScRange& rRef, ScDocument* /* pDoc */ )
 392 {
 393     if ( pEdActive )
 394     {
 395         if ( rRef.aStart != rRef.aEnd )
 396             RefInputStart( pEdActive );
 397
 398         if ( pEdActive == pEdAssign )
 399             SetColRowData( rRef, sal_True );
 400         else
 401             AdjustColRowData( rRef, sal_True );
 402         pBtnColHead->Enable();
 403         pBtnRowHead->Enable();
 404         pBtnAdd->Enable();
 405         pBtnRemove->Disable();
 406     }
 407 }
 408
 409
 410 /*************************************************************************
 411 #*  Member:     Close
 412 #*------------------------------------------------------------------------
 413 #*
 414 #*  Klasse:     ScColRowNameRangesDlg
 415 #*
 416 #*  Funktion:   Schliessen des Fensters
 417 #*
 418 #*  Input:      ---
 419 #*
 420 #*  Output:     ---
 421 #*
 422 #************************************************************************/
 423
 424 sal_Bool ScColRowNameRangesDlg::Close()
 425 {
 426     return DoClose( ScColRowNameRangesDlgWrapper::GetChildWindowId() );
 427 }
 428
 429
 430 /*************************************************************************
 431 #*  Member:     SetActive
 432 #*------------------------------------------------------------------------
 433 #*
 434 #*  Klasse:     ScColRowNameRangesDlg
 435 #*
 436 #*  Funktion:   Aktivieren des Fensters
 437 #*
 438 #*  Input:      ---
 439 #*
 440 #*  Output:     ---
 441 #*
 442 #************************************************************************/
 443
 444 void ScColRowNameRangesDlg::SetActive()
 445 {
 446     if ( bDlgLostFocus )
 447     {
 448         bDlgLostFocus = false;
 449         if( pEdActive )
 450             pEdActive->GrabFocus();
 451     }
 452     else
 453         GrabFocus();
 454
 455     if( pEdActive == pEdAssign )
 456         Range1DataModifyHdl( 0 );
 457     else if( pEdActive == pEdAssign2 )
 458         Range2DataModifyHdl( 0 );
 459
 460     RefInputDone();
 461 }
 462
 463
 464 /*************************************************************************
 465 #*  Member:     UpdateNames
 466 #*------------------------------------------------------------------------
 467 #*
 468 #*  Klasse:     ScColRowNameRangesDlg
 469 #*
 470 #*  Funktion:   Aktualisieren der Namen
 471 #*
 472 #*  Input:      ---
 473 #*
 474 #*  Output:     ---
 475 #*
 476 #************************************************************************/
 477
 478 void ScColRowNameRangesDlg::UpdateNames()
 479 {
 480     pLbRange->SetUpdateMode( false );
 481     //-----------------------------------------------------------
 482     pLbRange->Clear();
 483     aRangeMap.clear();
 484     pEdAssign->SetText( EMPTY_OUSTRING );
 485
 486     size_t nCount, j;
 487     sal_uInt16 nPos; //@008 Hilfsvariable q eingefuegt
 488
 489     SCCOL nCol1;
 490     SCROW nRow1;    //Erweiterung fuer Bereichsnamen
 491     SCTAB nTab1;
 492     SCCOL nCol2;
 493     SCROW nRow2;
 494     SCTAB nTab2;
 495     OUString rString;
 496     OUString strShow;
 497     const ScAddress::Details aDetails(pDoc->GetAddressConvention());
 498
 499     OUString aString;
 500     OUString strDelim(" --- ");
 501     aString = strDelim;
 502     aString += ScGlobal::GetRscString( STR_COLUMN );
 503     aString += strDelim;
 504     nPos = pLbRange->InsertEntry( aString );
 505     pLbRange->SetEntryData( nPos, (void*)nEntryDataDelim );
 506     if ( (nCount = xColNameRanges->size()) > 0 )
 507     {
 508         ScRangePair** ppSortArray = xColNameRanges->CreateNameSortedArray(
 509             nCount, pDoc );
 510         for ( j=0; j < nCount; j++ )
 511         {
 512             const ScRange aRange(ppSortArray[j]->GetRange(0));
 513             aString = aRange.Format(SCR_ABS_3D, pDoc, aDetails);
 514
 515             //@008 Hole Bereichsparameter aus Dok
 516             ppSortArray[j]->GetRange(0).GetVars( nCol1, nRow1, nTab1,
 517                                             nCol2, nRow2, nTab2 );
 518             SCCOL q=nCol1+3;
 519             if(q>nCol2) q=nCol2;
 520             //@008 Baue String zusammen
 521             strShow = " [";
 522             if(pDoc!=NULL)
 523             {
 524                 rString = pDoc->GetString(nCol1, nRow1, nTab1);
 525                 strShow += rString;
 526                 for(SCCOL i=nCol1+1;i<=q;i++)
 527                 {
 528                     strShow += ", ";
 529                     rString = pDoc->GetString(i, nRow1, nTab1);
 530                     strShow += rString;
 531                 }
 532             }
 533             if(q<nCol2) // Zu lang? Ergaenzen um ",..."
 534             {
 535                 strShow += ", ...";
 536             }
 537             strShow += "]";
 538
 539             //@008 String einfuegen in Listbox
 540             OUString aInsStr = aString;
 541             aInsStr += strShow;
 542             nPos = pLbRange->InsertEntry( aInsStr );
 543             aRangeMap.insert( NameRangeMap::value_type(aInsStr, aRange) );
 544             pLbRange->SetEntryData( nPos, (void*)nEntryDataCol );
 545         }
 546         delete [] ppSortArray;
 547     }
 548     aString = strDelim;
 549     aString += ScGlobal::GetRscString( STR_ROW );
 550     aString += strDelim;
 551     nPos = pLbRange->InsertEntry( aString );
 552     pLbRange->SetEntryData( nPos, (void*)nEntryDataDelim );
 553     if ( (nCount = xRowNameRanges->size()) > 0 )
 554     {
 555         ScRangePair** ppSortArray = xRowNameRanges->CreateNameSortedArray(
 556             nCount, pDoc );
 557         for ( j=0; j < nCount; j++ )
 558         {
 559             const ScRange aRange(ppSortArray[j]->GetRange(0));
 560             aString = aRange.Format(SCR_ABS_3D, pDoc, aDetails);
 561
 562             //@008 Ab hier baue String fuer Zeilen
 563             ppSortArray[j]->GetRange(0).GetVars( nCol1, nRow1, nTab1,
 564                                             nCol2, nRow2, nTab2 );
 565             SCROW q=nRow1+3;
 566             if(q>nRow2) q=nRow2;
 567             strShow = " [";
 568             if(pDoc!=NULL)
 569             {
 570                 rString = pDoc->GetString(nCol1, nRow1, nTab1);
 571                 strShow += rString;
 572                 for(SCROW i=nRow1+1;i<=q;i++)
 573                 {
 574                     strShow += ", ";
 575                     rString = pDoc->GetString(nCol1, i, nTab1);
 576                     strShow += rString;
 577                 }
 578             }
 579             if(q<nRow2)
 580             {
 581                 strShow += ", ...";
 582             }
 583             strShow += "]";
 584
 585             OUString aInsStr = aString;
 586             aInsStr += strShow;
 587             nPos = pLbRange->InsertEntry( aInsStr );
 588             aRangeMap.insert( NameRangeMap::value_type(aInsStr, aRange) );
 589             pLbRange->SetEntryData( nPos, (void*)nEntryDataRow );
 590         }
 591         delete [] ppSortArray;
 592     }
 593     //-----------------------------------------------------------
 594     pLbRange->SetUpdateMode( sal_True );
 595     pLbRange->Invalidate();
 596 }
 597
 598
 599 /*************************************************************************
 600 #*  Member:     UpdateRangeData
 601 #*------------------------------------------------------------------------
 602 #*
 603 #*  Klasse:     ScColRowNameRangesDlg
 604 #*
 605 #*  Funktion:   Aktualisieren der Bereichsdaten
 606 #*
 607 #*  Input:      Bereichs-String
 608 #*              Flag fuer Spalten
 609 #*
 610 #*  Output:     ---
 611 #*
 612 #************************************************************************/
 613
 614 void ScColRowNameRangesDlg::UpdateRangeData( const ScRange& rRange, sal_Bool bColName )
 615 {
 616     ScRangePair* pPair = NULL;
 617     sal_Bool bFound = false;
 618     if ( bColName && (pPair = xColNameRanges->Find( rRange )) != NULL )
 619         bFound = sal_True;
 620     else if ( !bColName && (pPair = xRowNameRanges->Find( rRange )) != NULL )
 621         bFound = sal_True;
 622
 623     if ( bFound )
 624     {
 625         const formula::FormulaGrammar::AddressConvention eConv = pDoc->GetAddressConvention();
 626         theCurArea = rRange;
 627         OUString aStr(theCurArea.Format(SCR_ABS_3D, pDoc, eConv));
 628         pEdAssign->SetText( aStr );
 629         pBtnAdd->Disable();
 630         pBtnRemove->Enable();
 631         pBtnColHead->Check( bColName );
 632         pBtnRowHead->Check( !bColName );
 633         theCurData = pPair->GetRange(1);
 634         aStr = theCurData.Format(SCR_ABS_3D, pDoc, eConv);
 635         pEdAssign2->SetText( aStr );
 636     }
 637     else
 638     {
 639         pBtnAdd->Enable();
 640         pBtnRemove->Disable();
 641     }
 642     pBtnColHead->Enable();
 643     pBtnRowHead->Enable();
 644     pEdAssign2->Enable();
 645     pRbAssign2->Enable();
 646 }
 647
 648
 649 /*************************************************************************
 650 #*  Member:     IsRefInputMode
 651 #*------------------------------------------------------------------------
 652 #*
 653 #*  Klasse:     ScColRowNameRangesDlg
 654 #*
 655 #*  Funktion:   Abfragefunktion fuer Referenz- Input- Mode.
 656 #*
 657 #*  Input:      Bereichs-String
 658 #*              Flag fuer Spalten
 659 #*
 660 #*  Output:     true, wenn Referenz- Input- Mode
 661 #*
 662 #************************************************************************/
 663
 664 sal_Bool ScColRowNameRangesDlg::IsRefInputMode() const
 665 {
 666     return (pEdActive != NULL);
 667 }
 668
 669 //------------------------------------------------------------------------
 670 // Handler:
 671 // ========
 672
 673 /*************************************************************************
 674 #*  Handler:    OkBtnHdl
 675 #*------------------------------------------------------------------------
 676 #*
 677 #*  Klasse:     ScColRowNameRangesDlg
 678 #*
 679 #*  Funktion:   Wird ausgeloest, wenn der OK- Button gedrueckt wurde.
 680 #*              Hinzufuegen- Button ausloesen, und die neu einge-
 681 #*              stellten Bereiche ans Dokument uebergeben.
 682 #*              Fensterschliessen- Anweisung ausloesen.
 683 #*  Input:      ---
 684 #*
 685 #*  Output:     ---
 686 #*
 687 #************************************************************************/
 688
 689 IMPL_LINK_NOARG(ScColRowNameRangesDlg, OkBtnHdl)
 690 {
 691     AddBtnHdl( 0 );
 692
 693     // die RangeLists den Refs am Doc zuweisen
 694     pDoc->GetColNameRangesRef() = xColNameRanges;
 695     pDoc->GetRowNameRangesRef() = xRowNameRanges;
 696     // geaenderte Datenbereiche muessen sich auswirken
 697     pDoc->CompileColRowNameFormula();
 698     ScDocShell* pDocShell = pViewData->GetDocShell();
 699     pDocShell->PostPaint(ScRange(0, 0, 0, MAXCOL, MAXROW, MAXTAB), PAINT_GRID);
 700     pDocShell->SetDocumentModified();
 701
 702     Close();
 703     return 0;
 704 }
 705
 706
 707 /*************************************************************************
 708 #*  Handler:    CancelBtnHdl
 709 #*------------------------------------------------------------------------
 710 #*
 711 #*  Klasse:     ScColRowNameRangesDlg
 712 #*
 713 #*  Funktion:   Fensterschliessen- Anweisung ausloesen.
 714 #*
 715 #*  Input:      ---
 716 #*
 717 #*  Output:     ---
 718 #*
 719 #************************************************************************/
 720
 721 IMPL_LINK_NOARG_INLINE_START(ScColRowNameRangesDlg, CancelBtnHdl)
 722 {
 723     Close();
 724     return 0;
 725 }
 726 IMPL_LINK_NOARG_INLINE_END(ScColRowNameRangesDlg, CancelBtnHdl)
 727
 728
 729 /*************************************************************************
 730 #*  Handler:    AddBtnHdl
 731 #*------------------------------------------------------------------------
 732 #*
 733 #*  Klasse:     ScColRowNameRangesDlg
 734 #*
 735 #*  Funktion:   Nach betaetigen des Hinzufuegen- Buttons, werden
 736 #*              die Bereichsangaben eingestellt und in der
 737 #*              Listbox dargestellt.
 738 #*
 739 #*  Input:      ---
 740 #*
 741 #*  Output:     ---
 742 #*
 743 #************************************************************************/
 744
 745 IMPL_LINK_NOARG(ScColRowNameRangesDlg, AddBtnHdl)
 746 {
 747     OUString aNewArea( pEdAssign->GetText() );
 748     OUString aNewData( pEdAssign2->GetText() );
 749
 750     if ( !aNewArea.isEmpty() && !aNewData.isEmpty() )
 751     {
 752         const formula::FormulaGrammar::AddressConvention eConv = pDoc->GetAddressConvention();
 753         ScRange aRange1, aRange2;
 754         sal_Bool bOk1;
 755         if ( (bOk1 = ((aRange1.ParseAny( aNewArea, pDoc, eConv ) & SCA_VALID) == SCA_VALID)) != false
 756           && ((aRange2.ParseAny( aNewData, pDoc, eConv ) & SCA_VALID) == SCA_VALID) )
 757         {
 758             theCurArea = aRange1;
 759             AdjustColRowData( aRange2 );
 760             ScRangePair* pPair;
 761             if ( ( pPair = xColNameRanges->Find( theCurArea ) ) != NULL )
 762             {
 763                 xColNameRanges->Remove( pPair );
 764                 delete pPair;
 765             }
 766             if ( ( pPair = xRowNameRanges->Find( theCurArea ) ) != NULL )
 767             {
 768                 xRowNameRanges->Remove( pPair );
 769                 delete pPair;
 770             }
 771             if ( pBtnColHead->IsChecked() )
 772                 xColNameRanges->Join( ScRangePair( theCurArea, theCurData ) );
 773             else
 774                 xRowNameRanges->Join( ScRangePair( theCurArea, theCurData ) );
 775
 776             UpdateNames();
 777
 778             pEdAssign->GrabFocus();
 779             pBtnAdd->Disable();
 780             pBtnRemove->Disable();
 781             pEdAssign->SetText( EMPTY_OUSTRING );
 782             pBtnColHead->Check( sal_True );
 783             pBtnRowHead->Check( false );
 784             pEdAssign2->SetText( EMPTY_OUSTRING );
 785             theCurArea = ScRange();
 786             theCurData = theCurArea;
 787             Range1SelectHdl( 0 );
 788         }
 789         else
 790         {
 791             ERRORBOX( ScGlobal::GetRscString(STR_INVALIDTABNAME) );
 792             if ( !bOk1 )
 793                 pEdAssign->GrabFocus();
 794             else
 795                 pEdAssign2->GrabFocus();
 796         }
 797     }
 798     return 0;
 799 }
 800
 801
 802 /*************************************************************************
 803 #*  Handler:    RemoveBtnHdl
 804 #*------------------------------------------------------------------------
 805 #*
 806 #*  Klasse:     ScColRowNameRangesDlg
 807 #*
 808 #*  Funktion:   Nach betaetigen des Loeschen- Buttons, wird
 809 #*              die markierte Bereichsangabe geloescht.
 810 #*
 811 #*  Input:      ---
 812 #*
 813 #*  Output:     ---
 814 #*
 815 #************************************************************************/
 816
 817 IMPL_LINK_NOARG(ScColRowNameRangesDlg, RemoveBtnHdl)
 818 {
 819     OUString aRangeStr = pLbRange->GetSelectEntry();
 820     sal_uInt16 nSelectPos = pLbRange->GetSelectEntryPos();
 821     sal_Bool bColName =
 822         ((sal_uLong)pLbRange->GetEntryData( nSelectPos ) == nEntryDataCol);
 823     NameRangeMap::const_iterator itr = aRangeMap.find(aRangeStr);
 824     if (itr == aRangeMap.end())
 825         return 0;
 826     const ScRange& rRange = itr->second;
 827
 828     ScRangePair* pPair = NULL;
 829     sal_Bool bFound = false;
 830     if ( bColName && (pPair = xColNameRanges->Find( rRange )) != NULL )
 831         bFound = sal_True;
 832     else if ( !bColName && (pPair = xRowNameRanges->Find( rRange )) != NULL )
 833         bFound = sal_True;
 834     if ( bFound )
 835     {
 836         OUString aStrDelMsg = ScGlobal::GetRscString( STR_QUERY_DELENTRY );
 837         OUString aMsg       = aStrDelMsg.getToken( 0, '#' );
 838
 839         aMsg += aRangeStr;
 840         aMsg += aStrDelMsg.getToken( 1, '#' );
 841
 842         if ( RET_YES == QUERYBOX(aMsg) )
 843         {
 844             if ( bColName )
 845                 xColNameRanges->Remove( pPair );
 846             else
 847                 xRowNameRanges->Remove( pPair );
 848             delete pPair;
 849
 850             UpdateNames();
 851             sal_uInt16 nCnt = pLbRange->GetEntryCount();
 852             if ( nSelectPos >= nCnt )
 853             {
 854                 if ( nCnt )
 855                     nSelectPos = nCnt - 1;
 856                 else
 857                     nSelectPos = 0;
 858             }
 859             pLbRange->SelectEntryPos( nSelectPos );
 860             if ( nSelectPos &&
 861                     (sal_uLong)pLbRange->GetEntryData( nSelectPos ) == nEntryDataDelim )
 862                 pLbRange->SelectEntryPos( --nSelectPos );    // ---Zeile---
 863
 864             pLbRange->GrabFocus();
 865             pBtnAdd->Disable();
 866             pBtnRemove->Disable();
 867             pEdAssign->SetText( EMPTY_OUSTRING );
 868             theCurArea = theCurData = ScRange();
 869             pBtnColHead->Check( sal_True );
 870             pBtnRowHead->Check( false );
 871             pEdAssign2->SetText( EMPTY_OUSTRING );
 872             Range1SelectHdl( 0 );
 873         }
 874     }
 875     return 0;
 876 }
 877
 878
 879 /*************************************************************************
 880 #*  Handler:    Range1SelectHdl
 881 #*------------------------------------------------------------------------
 882 #*
 883 #*  Klasse:     ScColRowNameRangesDlg
 884 #*
 885 #*  Funktion:   Wenn Zeile in Listbox ausgewaehlt wird,
 886 #*              werden die Eingabefelder entsprechend
 887 #*              eingestellt.
 888 #*
 889 #*  Input:      ---
 890 #*
 891 #*  Output:     ---
 892 #*
 893 #************************************************************************/
 894
 895 IMPL_LINK_NOARG(ScColRowNameRangesDlg, Range1SelectHdl)
 896 {
 897     sal_uInt16 nSelectPos = pLbRange->GetSelectEntryPos();
 898     sal_uInt16 nCnt = pLbRange->GetEntryCount();
 899     sal_uInt16 nMoves = 0;
 900     while ( nSelectPos < nCnt
 901             && (sal_uLong)pLbRange->GetEntryData( nSelectPos ) == nEntryDataDelim )
 902     {   // skip Delimiter
 903         ++nMoves;
 904         pLbRange->SelectEntryPos( ++nSelectPos );
 905     }
 906     OUString aRangeStr = pLbRange->GetSelectEntry();
 907     if ( nMoves )
 908     {
 909         if ( nSelectPos > 1 && nSelectPos >= nCnt )
 910         {   // am Ende nicht auf dem " --- Zeile --- " Delimiter stehenbleiben
 911             // wenn davor Eintraege existieren
 912             nSelectPos = nCnt - 2;
 913             pLbRange->SelectEntryPos( nSelectPos );
 914             aRangeStr = pLbRange->GetSelectEntry();
 915         }
 916         else if ( nSelectPos > 2 && nSelectPos < nCnt && !aRangeStr.isEmpty()
 917                   && aRangeStr == pEdAssign->GetText() )
 918         {   // nach oben wandern statt nach unten auf die vorherige Position
 919             nSelectPos -= 2;
 920             pLbRange->SelectEntryPos( nSelectPos );
 921             aRangeStr = pLbRange->GetSelectEntry();
 922         }
 923     }
 924     NameRangeMap::const_iterator itr = aRangeMap.find(aRangeStr);
 925     if ( itr != aRangeMap.end() )
 926     {
 927         sal_Bool bColName =
 928             ((sal_uLong)pLbRange->GetEntryData( nSelectPos ) == nEntryDataCol);
 929         UpdateRangeData( itr->second, bColName );
 930         pBtnAdd->Disable();
 931         pBtnRemove->Enable();
 932     }
 933     else
 934     {
 935         if ( !pEdAssign->GetText().isEmpty() )
 936         {
 937             if ( !pEdAssign2->GetText().isEmpty() )
 938                 pBtnAdd->Enable();
 939             else
 940                 pBtnAdd->Disable();
 941             pBtnColHead->Enable();
 942             pBtnRowHead->Enable();
 943             pEdAssign2->Enable();
 944             pRbAssign2->Enable();
 945         }
 946         else
 947         {
 948             pBtnAdd->Disable();
 949             pBtnColHead->Disable();
 950             pBtnRowHead->Disable();
 951             pEdAssign2->Disable();
 952             pRbAssign2->Disable();
 953         }
 954         pBtnRemove->Disable();
 955         pEdAssign->GrabFocus();
 956     }
 957
 958     pEdAssign->Enable();
 959     pRbAssign->Enable();
 960
 961     return 0;
 962 }
 963
 964
 965 /*************************************************************************
 966 #*  Handler:    Range1DataModifyHdl
 967 #*------------------------------------------------------------------------
 968 #*
 969 #*  Klasse:     ScColRowNameRangesDlg
 970 #*
 971 #*  Funktion:   Wird ausgeloest, wenn in der Tabelle, der Label-
 972 #*              Bereich geaendert wurde.
 973 #*
 974 #*  Input:      ---
 975 #*
 976 #*  Output:     ---
 977 #*
 978 #************************************************************************/
 979
 980 IMPL_LINK_NOARG(ScColRowNameRangesDlg, Range1DataModifyHdl)
 981 {
 982     OUString aNewArea( pEdAssign->GetText() );
 983     sal_Bool bValid = false;
 984     if ( !aNewArea.isEmpty() )
 985     {
 986         ScRange aRange;
 987         if ( (aRange.ParseAny( aNewArea, pDoc, pDoc->GetAddressConvention() ) & SCA_VALID) == SCA_VALID )
 988         {
 989             SetColRowData( aRange );
 990             bValid = sal_True;
 991         }
 992     }
 993     if ( bValid )
 994     {
 995         pBtnAdd->Enable();
 996         pBtnColHead->Enable();
 997         pBtnRowHead->Enable();
 998         pEdAssign2->Enable();
 999         pRbAssign2->Enable();
1000     }
1001     else
1002     {
1003         pBtnAdd->Disable();
1004         pBtnColHead->Disable();
1005         pBtnRowHead->Disable();
1006         pEdAssign2->Disable();
1007         pRbAssign2->Disable();
1008     }
1009     pBtnRemove->Disable();
1010     return 0;
1011 }
1012
1013
1014 /*************************************************************************
1015 #*  Handler:    Range2DataModifyHdl
1016 #*------------------------------------------------------------------------
1017 #*
1018 #*  Klasse:     ScColRowNameRangesDlg
1019 #*
1020 #*  Funktion:   Wird ausgeloest, wenn in der Tabelle, der Daten-
1021 #*              Bereich geaendert wurde
1022 #*
1023 #*  Input:      ---
1024 #*
1025 #*  Output:     ---
1026 #*
1027 #************************************************************************/
1028
1029 IMPL_LINK_NOARG(ScColRowNameRangesDlg, Range2DataModifyHdl)
1030 {
1031     OUString aNewData( pEdAssign2->GetText() );
1032     if ( !aNewData.isEmpty() )
1033     {
1034         ScRange aRange;
1035         if ( (aRange.ParseAny( aNewData, pDoc, pDoc->GetAddressConvention() ) & SCA_VALID) == SCA_VALID )
1036         {
1037             AdjustColRowData( aRange );
1038             pBtnAdd->Enable();
1039         }
1040         else
1041             pBtnAdd->Disable();
1042     }
1043     else
1044     {
1045         pBtnAdd->Disable();
1046     }
1047     return 0;
1048 }
1049
1050
1051 /*************************************************************************
1052 #*  Handler:    ColClickHdl
1053 #*------------------------------------------------------------------------
1054 #*
1055 #*  Klasse:     ScColRowNameRangesDlg
1056 #*
1057 #*  Funktion:   Radiobutton fuer Spalten wurde betaetigt,
1058 #*              die entsprechenden Einstellungen werden
1059 #*              vorgenommen
1060 #*
1061 #*  Input:      ---
1062 #*
1063 #*  Output:     ---
1064 #*
1065 #************************************************************************/
1066
1067 IMPL_LINK_NOARG(ScColRowNameRangesDlg, ColClickHdl)
1068 {
1069     if ( !pBtnColHead->GetSavedValue() )
1070     {
1071         pBtnColHead->Check( sal_True );
1072         pBtnRowHead->Check( false );
1073         if ( theCurArea.aStart.Row() == 0 && theCurArea.aEnd.Row() == MAXROW )
1074         {
1075             theCurArea.aEnd.SetRow( MAXROW - 1 );
1076             OUString aStr(theCurArea.Format(SCR_ABS_3D, pDoc, pDoc->GetAddressConvention()));
1077             pEdAssign->SetText( aStr );
1078         }
1079         ScRange aRange( theCurData );
1080         aRange.aStart.SetRow( std::min( (long)(theCurArea.aEnd.Row() + 1), (long)MAXROW ) );
1081         aRange.aEnd.SetRow( MAXROW );
1082         AdjustColRowData( aRange );
1083     }
1084     return 0;
1085 }
1086
1087
1088 /*************************************************************************
1089 #*  Handler:    RowClickHdl
1090 #*------------------------------------------------------------------------
1091 #*
1092 #*  Klasse:     ScColRowNameRangesDlg
1093 #*
1094 #*  Funktion:   Radiobutton fuer Zeilen wurde betaetigt,
1095 #*              die entsprechenden Einstellungen werden
1096 #*              vorgenommen
1097 #*
1098 #*  Input:      ---
1099 #*
1100 #*  Output:     ---
1101 #*
1102 #************************************************************************/
1103
1104 IMPL_LINK_NOARG(ScColRowNameRangesDlg, RowClickHdl)
1105 {
1106     if ( !pBtnRowHead->GetSavedValue() )
1107     {
1108         pBtnRowHead->Check( sal_True );
1109         pBtnColHead->Check( false );
1110         if ( theCurArea.aStart.Col() == 0 && theCurArea.aEnd.Col() == MAXCOL )
1111         {
1112             theCurArea.aEnd.SetCol( MAXCOL - 1 );
1113             OUString aStr(theCurArea.Format(SCR_ABS_3D, pDoc, pDoc->GetAddressConvention()));
1114             pEdAssign->SetText( aStr );
1115         }
1116         ScRange aRange( theCurData );
1117         aRange.aStart.SetCol( static_cast<SCCOL>(std::min( (long)(theCurArea.aEnd.Col() + 1), (long)MAXCOL )) );
1118         aRange.aEnd.SetCol( MAXCOL );
1119         AdjustColRowData( aRange );
1120     }
1121     return 0;
1122 }
1123
1124
1125 IMPL_LINK( ScColRowNameRangesDlg, GetFocusHdl, Control*, pCtrl )
1126 {
1127     if( (pCtrl == (Control*)pEdAssign) || (pCtrl == (Control*)pRbAssign) )
1128         pEdActive = pEdAssign;
1129     else if( (pCtrl == (Control*)pEdAssign2) || (pCtrl == (Control*)pRbAssign2) )
1130         pEdActive = pEdAssign2;
1131     else
1132         pEdActive = NULL;
1133
1134     if( pEdActive )
1135         pEdActive->SetSelection( Selection( 0, SELECTION_MAX ) );
1136
1137     return 0;
1138 }
1139
1140
1141 IMPL_LINK_NOARG(ScColRowNameRangesDlg, LoseFocusHdl)
1142 {
1143     bDlgLostFocus = !IsActive();
1144     return 0;
1145 }
1146
1147 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */