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