sc/source/ui/miscdlgs/crnrdlg.cxx

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