sc/source/ui/optdlg/tpusrlst.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: tpusrlst.cxx,v $
  10  * $Revision: 1.12 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_sc.hxx"
  33
  34 #undef SC_DLLIMPLEMENTATION
  35
  36
  37
  38 //------------------------------------------------------------------
  39
  40 #include <vcl/msgbox.hxx>
  41
  42 #include "global.hxx"
  43 #include "document.hxx"
  44 #include "tabvwsh.hxx"
  45 #include "viewdata.hxx"
  46 #include "uiitems.hxx"
  47 #include "userlist.hxx"
  48 #include "rangeutl.hxx"
  49 #include "crdlg.hxx"
  50 #include "scresid.hxx"
  51 #include "sc.hrc"       // -> Slot-IDs
  52 #include "optdlg.hrc"
  53 #include "globstr.hrc"
  54
  55 #define _TPUSRLST_CXX
  56 #include "tpusrlst.hxx"
  57 #undef _TPUSRLST_CXX
  58
  59 //CHINA001 #include "scui_def.hxx" //CHINA001
  60 //CHINA001 #include "scresid.hxx" //add by CHINA001
  61 //CHINA001 #include "miscdlgs.hrc"  //add by CHINA001
  62 //CHINA001
  63 //CHINA001 #include "scabstdlg.hxx" //CHINA001
  64 // STATIC DATA -----------------------------------------------------------
  65
  66 #define CR      (sal_Unicode)13
  67 #define LF      (sal_Unicode)10
  68
  69 static USHORT pUserListsRanges[] =
  70 {
  71     SID_SCUSERLISTS,
  72     SID_SCUSERLISTS,
  73     0
  74 };
  75
  76 static const sal_Unicode cDelimiter = ',';
  77
  78
  79 //========================================================================
  80 // Benutzerdefinierte Listen:
  81
  82
  83 ScTpUserLists::ScTpUserLists( Window*                           pParent,
  84                               const SfxItemSet&         rCoreAttrs )
  85
  86     :   SfxTabPage              ( pParent,
  87                           ScResId( RID_SCPAGE_USERLISTS ),
  88                           rCoreAttrs ),
  89         aFtLists                ( this, ScResId( FT_LISTS ) ),
  90         aLbLists                ( this, ScResId( LB_LISTS ) ),
  91         aFtEntries              ( this, ScResId( FT_ENTRIES ) ),
  92         aEdEntries              ( this, ScResId( ED_ENTRIES ) ),
  93         aFtCopyFrom     ( this, ScResId( FT_COPYFROM ) ),
  94         aEdCopyFrom     ( this, ScResId( ED_COPYFROM ) ),
  95         aBtnNew                 ( this, ScResId( BTN_NEW ) ),
  96         aBtnAdd                 ( this, ScResId( BTN_ADD ) ),
  97         aBtnRemove              ( this, ScResId( BTN_REMOVE ) ),
  98         aBtnCopy                ( this, ScResId( BTN_COPY ) ),
  99         aStrQueryRemove ( ScResId( STR_QUERYREMOVE ) ),
 100         aStrNew                 ( aBtnNew.GetText() ),
 101         aStrCancel              ( ScResId( STR_DISMISS ) ),
 102         aStrAdd                 ( ScResId( SCSTR_ADD ) ),
 103         aStrModify              ( ScResId( SCSTR_MODIFY ) ),
 104         aStrCopyList    ( ScResId( STR_COPYLIST ) ),
 105         aStrCopyFrom    ( ScResId( STR_COPYFROM ) ),
 106         aStrCopyErr             ( ScResId( STR_COPYERR ) ),
 107         //
 108         nWhichUserLists ( GetWhich( SID_SCUSERLISTS ) ),
 109         pUserLists              ( NULL ),
 110         pDoc                    ( NULL ),
 111         pViewData               ( NULL ),
 112         pRangeUtil              ( new ScRangeUtil ),
 113         bModifyMode     ( FALSE ),
 114         bCancelMode     ( FALSE ),
 115         bCopyDone               ( FALSE ),
 116         nCancelPos              ( 0 )
 117 {
 118     SetExchangeSupport();
 119     Init();
 120     FreeResource();
 121 }
 122
 123 // -----------------------------------------------------------------------
 124
 125 __EXPORT ScTpUserLists::~ScTpUserLists()
 126 {
 127     delete pUserLists;
 128     delete pRangeUtil;
 129 }
 130
 131 // -----------------------------------------------------------------------
 132
 133 void ScTpUserLists::Init()
 134 {
 135     SfxViewShell*       pSh = SfxViewShell::Current();
 136     ScTabViewShell* pViewSh = PTR_CAST(ScTabViewShell, pSh);
 137
 138     aLbLists.SetSelectHdl       ( LINK( this, ScTpUserLists, LbSelectHdl ) );
 139     aBtnNew.SetClickHdl         ( LINK( this, ScTpUserLists, BtnClickHdl ) );
 140     aBtnNew.SetClickHdl         ( LINK( this, ScTpUserLists, BtnClickHdl ) );
 141     aBtnAdd.SetClickHdl         ( LINK( this, ScTpUserLists, BtnClickHdl ) );
 142     aBtnRemove.SetClickHdl      ( LINK( this, ScTpUserLists, BtnClickHdl ) );
 143     aEdEntries.SetModifyHdl     ( LINK( this, ScTpUserLists, EdEntriesModHdl ) );
 144
 145
 146     if ( pViewSh )
 147     {
 148         SCTAB   nStartTab       = 0;
 149         SCTAB   nEndTab         = 0;
 150         SCCOL   nStartCol       = 0;
 151         SCROW   nStartRow       = 0;
 152         SCCOL   nEndCol         = 0;
 153         SCROW   nEndRow         = 0;
 154
 155         pViewData = pViewSh->GetViewData();
 156         pDoc = pViewData->GetDocument();
 157
 158         pViewData->GetSimpleArea( nStartCol, nStartRow, nStartTab,
 159                                   nEndCol,       nEndRow,  nEndTab );
 160
 161         PutInOrder( nStartCol, nEndCol );
 162         PutInOrder( nStartRow, nEndRow );
 163         PutInOrder( nStartTab, nEndTab );
 164
 165         ScRange( nStartCol, nStartRow, nStartTab, nEndCol, nEndRow, nEndTab
 166                 ).Format( aStrSelectedArea, SCR_ABS_3D, pDoc );
 167
 168         aBtnCopy.SetClickHdl ( LINK( this, ScTpUserLists, BtnClickHdl ) );
 169         aBtnCopy.Enable();
 170     }
 171     else
 172     {
 173         aBtnCopy.Disable();
 174         aFtCopyFrom.Disable();
 175         aEdCopyFrom.Disable();
 176     }
 177
 178 //      aLbLists.GrabFocus();
 179 }
 180
 181 // -----------------------------------------------------------------------
 182
 183 USHORT* __EXPORT ScTpUserLists::GetRanges()
 184 {
 185     return pUserListsRanges;
 186 }
 187
 188 // -----------------------------------------------------------------------
 189
 190 SfxTabPage* __EXPORT ScTpUserLists::Create( Window* pParent, const SfxItemSet& rAttrSet )
 191 {
 192     return ( new ScTpUserLists( pParent, rAttrSet ) );
 193 }
 194
 195 // -----------------------------------------------------------------------
 196
 197 void __EXPORT ScTpUserLists::Reset( const SfxItemSet& rCoreAttrs )
 198 {
 199     const ScUserListItem& rUserListItem = (const ScUserListItem&)
 200                                            rCoreAttrs.Get( nWhichUserLists );
 201     const ScUserList*     pCoreList     = rUserListItem.GetUserList();
 202
 203     DBG_ASSERT( pCoreList, "UserList not found :-/" );
 204
 205     if ( pCoreList )
 206     {
 207         if ( !pUserLists )
 208             pUserLists = new ScUserList( *pCoreList );
 209         else
 210             *pUserLists = *pCoreList;
 211
 212         if ( UpdateUserListBox() > 0 )
 213         {
 214             aLbLists.SelectEntryPos( 0 );
 215             UpdateEntries( 0 );
 216         }
 217     }
 218     else if ( !pUserLists )
 219         pUserLists = new ScUserList;
 220
 221     aEdCopyFrom.SetText( aStrSelectedArea );
 222
 223     if ( aLbLists.GetEntryCount() == 0 )
 224     {
 225         aFtLists        .Disable();
 226         aLbLists        .Disable();
 227         aFtEntries      .Disable();
 228         aEdEntries      .Disable();
 229         aBtnRemove      .Disable();
 230     }
 231
 232     aBtnNew.SetText( aStrNew );
 233     aBtnAdd.SetText( aStrAdd );
 234     aBtnAdd.Disable();
 235
 236     if ( !bCopyDone && pViewData )
 237     {
 238         aFtCopyFrom .Enable();
 239         aEdCopyFrom .Enable();
 240         aBtnCopy        .Enable();
 241     }
 242
 243 //      aLbLists.GrabFocus();
 244 }
 245
 246 // -----------------------------------------------------------------------
 247
 248 BOOL __EXPORT ScTpUserLists::FillItemSet( SfxItemSet& rCoreAttrs )
 249 {
 250     // Modifikationen noch nicht uebernommen?
 251     // -> Click auf Add-Button simulieren
 252
 253     if ( bModifyMode || bCancelMode )
 254         BtnClickHdl( &aBtnAdd );
 255
 256     const ScUserListItem& rUserListItem = (const ScUserListItem&)
 257                                            GetItemSet().Get( nWhichUserLists );
 258
 259     ScUserList* pCoreList               = rUserListItem.GetUserList();
 260     BOOL                bDataModified   = FALSE;
 261
 262     if ( (pUserLists == NULL) && (pCoreList == NULL) )
 263     {
 264         bDataModified = FALSE;
 265     }
 266     else if ( pUserLists != NULL )
 267     {
 268         if ( pCoreList != NULL )
 269             bDataModified = (*pUserLists != *pCoreList);
 270         else
 271             bDataModified = TRUE;
 272     }
 273
 274     if ( bDataModified )
 275     {
 276         ScUserListItem aULItem( nWhichUserLists );
 277
 278         if ( pUserLists )
 279             aULItem.SetUserList( *pUserLists );
 280
 281         rCoreAttrs.Put( aULItem );
 282     }
 283
 284     return bDataModified;
 285 }
 286
 287 // -----------------------------------------------------------------------
 288
 289 int __EXPORT ScTpUserLists::DeactivatePage( SfxItemSet* pSetP )
 290 {
 291     if ( pSetP )
 292         FillItemSet( *pSetP );
 293
 294     return LEAVE_PAGE;
 295 }
 296
 297 // -----------------------------------------------------------------------
 298
 299 USHORT ScTpUserLists::UpdateUserListBox()
 300 {
 301     aLbLists.Clear();
 302
 303     if ( !pUserLists ) return 0;
 304
 305     //----------------------------------------------------------
 306
 307     USHORT      nCount = pUserLists->GetCount();
 308     String      aEntry;
 309
 310     if ( nCount > 0 )
 311     {
 312         for ( USHORT i=0; i<nCount; i++ )
 313         {
 314             aEntry = (*pUserLists)[i]->GetString();
 315             DBG_ASSERT( aEntry.Len() > 0, "Empty UserList-entry :-/" );
 316             aLbLists.InsertEntry( aEntry );
 317         }
 318     }
 319
 320     return nCount;
 321 }
 322
 323 // -----------------------------------------------------------------------
 324
 325 void ScTpUserLists::UpdateEntries( USHORT nList )
 326 {
 327     if ( !pUserLists ) return;
 328
 329     //----------------------------------------------------------
 330
 331     if ( nList < pUserLists->GetCount() )
 332     {
 333         ScUserListData* pList     = (*pUserLists)[nList];
 334         USHORT                  nSubCount = pList->GetSubCount();
 335         String                  aEntryListStr;
 336
 337         for ( USHORT i=0; i<nSubCount; i++ )
 338         {
 339             if ( i!=0 )
 340                 aEntryListStr += CR;
 341             aEntryListStr += pList->GetSubStr( i );
 342         }
 343
 344         aEntryListStr.ConvertLineEnd();
 345         aEdEntries.SetText( aEntryListStr );
 346     }
 347     else
 348     {
 349         DBG_ERROR( "Invalid ListIndex :-/" );
 350     }
 351 }
 352
 353 // -----------------------------------------------------------------------
 354
 355 void ScTpUserLists::MakeListStr( String& rListStr )
 356 {
 357     String      aInputStr(rListStr);
 358     String      aStr;
 359
 360     xub_StrLen  nLen    = aStr.Len();
 361     xub_StrLen  c               = 0;
 362
 363     aInputStr.ConvertLineEnd( LINEEND_LF );
 364     //aStr.EraseAllChars( ' ' );
 365
 366     xub_StrLen nToken=rListStr.GetTokenCount(LF);
 367
 368     for(xub_StrLen i=0;i<nToken;i++)
 369     {
 370         String aString=rListStr.GetToken(i,LF);
 371         aString.EraseLeadingChars(' ');
 372         aString.EraseTrailingChars(' ');
 373         aStr+=aString;
 374         aStr+=cDelimiter;
 375     }
 376
 377     /*
 378     // '\n' durch cDelimiter ersetzen:
 379     for ( c=0;
 380           (c < nLen) && (nFound != STRING_NOTFOUND);
 381           c++ )
 382     {
 383         nFound = aStr.Search( LF, nFound );
 384         if ( nFound != STRING_NOTFOUND )
 385             aStr[nFound] = cDelimiter;
 386     }
 387     */
 388
 389     aStr.EraseLeadingChars( cDelimiter );
 390     aStr.EraseTrailingChars( cDelimiter );
 391     nLen = aStr.Len();
 392
 393     rListStr.Erase();
 394
 395     // Alle Doppelten cDelimiter entfernen:
 396     c=0;
 397     while ( c < nLen )
 398     {
 399         rListStr += aStr.GetChar(c);
 400         c++;
 401
 402         if ( aStr.GetChar(c) == cDelimiter )
 403         {
 404             rListStr += aStr.GetChar(c);
 405
 406             while ( (aStr.GetChar(c) == cDelimiter) && (c < nLen) )
 407                 c++;
 408         }
 409     }
 410
 411 }
 412
 413 // -----------------------------------------------------------------------
 414
 415 void ScTpUserLists::AddNewList( const String& rEntriesStr )
 416 {
 417     String theEntriesStr( rEntriesStr );
 418
 419     if ( !pUserLists )
 420         pUserLists = new ScUserList;
 421
 422     MakeListStr( theEntriesStr );
 423
 424     if ( !pUserLists->Insert( new ScUserListData( theEntriesStr ) ) )
 425     {
 426         DBG_ERROR( "Entry could not be inserted :-/" );
 427     }
 428 }
 429
 430 // -----------------------------------------------------------------------
 431
 432 void ScTpUserLists::CopyListFromArea( const ScRefAddress& rStartPos,
 433                                       const ScRefAddress& rEndPos )
 434 {
 435     if ( bCopyDone ) return;
 436
 437     //----------------------------------------------------------
 438
 439     SCTAB       nTab                    = rStartPos.Tab();
 440     SCCOL       nStartCol               = rStartPos.Col();
 441     SCROW       nStartRow               = rStartPos.Row();
 442     SCCOL       nEndCol                 = rEndPos.Col();
 443     SCROW       nEndRow                 = rEndPos.Row();
 444     USHORT      nCellDir                = SCRET_COLS;
 445     BOOL        bValueIgnored   = FALSE;
 446
 447     if ( (nStartCol != nEndCol) && (nStartRow != nEndRow) )
 448     {
 449         nCellDir = ScColOrRowDlg( this, aStrCopyList, aStrCopyFrom ).Execute();
 450 //CHINA001              ScAbstractDialogFactory* pFact = ScAbstractDialogFactory::Create();
 451 //CHINA001              DBG_ASSERT(pFact, "ScAbstractFactory create fail!");//CHINA001
 452 //CHINA001
 453 //CHINA001              VclAbstractDialog* pDlg = pFact->CreateScColOrRowDlg( this, aStrCopyList, aStrCopyFrom,ResId(RID_SCDLG_COLORROW) );
 454 //CHINA001              DBG_ASSERT(pDlg, "Dialog create fail!");//CHINA001
 455 //CHINA001              nCellDir = pDlg->Execute();
 456 //CHINA001              delete pDlg; //CHINA001
 457     }
 458     else if ( nStartCol != nEndCol )
 459         nCellDir = SCRET_ROWS;
 460     else
 461         nCellDir = SCRET_COLS;
 462
 463     if ( nCellDir != RET_CANCEL )
 464     {
 465         String  aStrList;
 466         String  aStrField;
 467
 468         if ( nCellDir == SCRET_COLS )
 469         {
 470             for ( SCCOL col=nStartCol; col<=nEndCol; col++ )
 471             {
 472                 for ( SCROW row=nStartRow; row<=nEndRow; row++ )
 473                 {
 474                     if ( pDoc->HasStringData( col, row, nTab ) )
 475                     {
 476                         pDoc->GetString( col, row, nTab, aStrField );
 477
 478                         if ( aStrField.Len() > 0 )
 479                         {
 480                             aStrList += aStrField;
 481                             aStrList += '\n';
 482                         }
 483                     }
 484                     else
 485                         bValueIgnored = TRUE;
 486                 }
 487                 if ( aStrList.Len() > 0 )
 488                     AddNewList( aStrList );
 489                 aStrList.Erase();
 490             }
 491         }
 492         else
 493         {
 494             for ( SCROW row=nStartRow; row<=nEndRow; row++ )
 495             {
 496                 for ( SCCOL col=nStartCol; col<=nEndCol; col++ )
 497                 {
 498                     if ( pDoc->HasStringData( col, row, nTab ) )
 499                     {
 500                         pDoc->GetString( col, row, nTab, aStrField );
 501
 502                         if ( aStrField.Len() > 0 )
 503                         {
 504                             aStrList += aStrField;
 505                             aStrList += '\n';
 506                         }
 507                     }
 508                     else
 509                         bValueIgnored = TRUE;
 510                 }
 511                 if ( aStrList.Len() > 0 )
 512                     AddNewList( aStrList );
 513                 aStrList.Erase();
 514             }
 515         }
 516
 517         if ( bValueIgnored )
 518         {
 519             InfoBox( this, aStrCopyErr ).Execute();
 520         }
 521     }
 522
 523     //----------------------------------------------------------
 524
 525     bCopyDone = TRUE;
 526
 527 }
 528
 529 // -----------------------------------------------------------------------
 530
 531 void ScTpUserLists::ModifyList( USHORT                  nSelList,
 532                                 const String&   rEntriesStr )
 533 {
 534     if ( !pUserLists ) return;
 535
 536     //----------------------------------------------------------
 537
 538     String theEntriesStr( rEntriesStr );
 539
 540     MakeListStr( theEntriesStr );
 541
 542     (*pUserLists)[nSelList]->SetString( theEntriesStr );
 543 }
 544
 545 // -----------------------------------------------------------------------
 546
 547 void ScTpUserLists::RemoveList( USHORT nList )
 548 {
 549     if ( pUserLists ) pUserLists->AtFree( nList );
 550 }
 551
 552 //-----------------------------------------------------------------------
 553 // Handler:
 554 //---------
 555
 556 IMPL_LINK( ScTpUserLists, LbSelectHdl, ListBox*, pLb )
 557 {
 558     if ( pLb == &aLbLists )
 559     {
 560         USHORT nSelPos = aLbLists.GetSelectEntryPos();
 561         if ( nSelPos != LISTBOX_ENTRY_NOTFOUND )
 562         {
 563             if ( !aFtEntries.IsEnabled() )      aFtEntries.Enable();
 564             if ( !aEdEntries.IsEnabled() )      aEdEntries.Enable();
 565             if ( !aBtnRemove.IsEnabled() )      aBtnRemove.Enable();
 566             if (  aBtnAdd.IsEnabled() )         aBtnAdd.Disable();
 567
 568             UpdateEntries( nSelPos );
 569         }
 570     }
 571
 572     return 0;
 573 }
 574
 575 // -----------------------------------------------------------------------
 576
 577 IMPL_LINK( ScTpUserLists, BtnClickHdl, PushButton*, pBtn )
 578 {
 579     if ( pBtn == &aBtnNew )
 580     {
 581         if ( !bCancelMode )
 582         {
 583             nCancelPos = ( aLbLists.GetEntryCount() > 0 )
 584                             ? aLbLists.GetSelectEntryPos()
 585                             : 0;
 586             aLbLists.SetNoSelection();
 587             aFtLists.Disable();
 588             aLbLists.Disable();
 589             aFtEntries.Enable();
 590             aEdEntries.Enable();
 591             aEdEntries.SetText( EMPTY_STRING );
 592             aEdEntries.GrabFocus();
 593             aBtnAdd.Disable();
 594             aBtnRemove.Disable();
 595             //-----------------------------
 596             if ( aBtnCopy.IsEnabled() )
 597             {
 598                 aBtnCopy.Disable();
 599                 aFtCopyFrom.Disable();
 600                 aEdCopyFrom.Disable();
 601             }
 602             aBtnNew.SetText( aStrCancel );
 603             bCancelMode = TRUE;
 604         }
 605         else // if ( bCancelMode )
 606         {
 607             if ( aLbLists.GetEntryCount() > 0 )
 608             {
 609                 aLbLists.SelectEntryPos( nCancelPos );
 610                 LbSelectHdl( &aLbLists );
 611                 aFtLists.Enable();
 612                 aLbLists.Enable();
 613             }
 614             else
 615             {
 616                 aFtEntries.Disable();
 617                 aEdEntries.Disable();
 618                 aEdEntries.SetText( EMPTY_STRING );
 619                 aBtnRemove.Disable();
 620             }
 621             aBtnAdd.Disable();
 622             //-----------------------------
 623             if ( pViewData && !bCopyDone )
 624             {
 625                 aBtnCopy.Enable();
 626                 aFtCopyFrom.Enable();
 627                 aEdCopyFrom.Enable();
 628             }
 629             aBtnNew.SetText( aStrNew );
 630             bCancelMode = FALSE;
 631             bModifyMode = FALSE;
 632         }
 633     }
 634     else if ( pBtn == &aBtnAdd )
 635     {
 636         String theEntriesStr( aEdEntries.GetText() );
 637
 638         if ( !bModifyMode )
 639         {
 640             if ( theEntriesStr.Len() > 0 )
 641             {
 642                 AddNewList( theEntriesStr );
 643                 UpdateUserListBox();
 644                 aLbLists.SelectEntryPos( aLbLists.GetEntryCount()-1 );
 645                 LbSelectHdl( &aLbLists );
 646                 aFtLists.Enable();
 647                 aLbLists.Enable();
 648             }
 649             else
 650             {
 651                 if ( aLbLists.GetEntryCount() > 0 )
 652                 {
 653                     aLbLists.SelectEntryPos( nCancelPos );
 654                     LbSelectHdl( &aLbLists );
 655                     aLbLists.Enable();
 656                     aLbLists.Enable();
 657                 }
 658             }
 659
 660             aBtnAdd.Disable();
 661             aBtnRemove.Enable();
 662             aBtnNew.SetText( aStrNew );
 663             bCancelMode = FALSE;
 664         }
 665         else // if ( bModifyMode )
 666         {
 667             USHORT nSelList = aLbLists.GetSelectEntryPos();
 668
 669             DBG_ASSERT( nSelList != LISTBOX_ENTRY_NOTFOUND,     "Modify without List :-/" );
 670
 671             if ( theEntriesStr.Len() > 0 )
 672             {
 673                 ModifyList( nSelList, theEntriesStr );
 674                 UpdateUserListBox();
 675                 aLbLists.SelectEntryPos( nSelList );
 676             }
 677             else
 678             {
 679                 aLbLists.SelectEntryPos( 0 );
 680                 LbSelectHdl( &aLbLists );
 681             }
 682
 683             aBtnNew.SetText( aStrNew ); bCancelMode = FALSE;
 684             aBtnAdd.SetText( aStrAdd ); bModifyMode = FALSE;
 685             aBtnAdd.Disable();
 686             aBtnRemove.Enable();
 687             aFtLists.Enable();
 688             aLbLists.Enable();
 689         }
 690
 691         if ( pViewData && !bCopyDone )
 692         {
 693             aBtnCopy.Enable();
 694             aFtCopyFrom.Enable();
 695             aEdCopyFrom.Enable();
 696         }
 697     }
 698     else if ( pBtn == &aBtnRemove )
 699     {
 700         if ( aLbLists.GetEntryCount() > 0 )
 701         {
 702             USHORT nRemovePos   = aLbLists.GetSelectEntryPos();
 703             String aMsg                 ( aStrQueryRemove.GetToken( 0, '#' ) );
 704
 705             aMsg += aLbLists.GetEntry( nRemovePos );
 706             aMsg += aStrQueryRemove.GetToken( 1, '#' );
 707
 708
 709             if ( RET_YES == QueryBox( this,
 710                                       WinBits( WB_YES_NO | WB_DEF_YES ),
 711                                       aMsg
 712                                      ).Execute() )
 713             {
 714                 RemoveList( nRemovePos );
 715                 UpdateUserListBox();
 716
 717                 if ( aLbLists.GetEntryCount() > 0 )
 718                 {
 719                     aLbLists.SelectEntryPos(
 720                         ( nRemovePos >= aLbLists.GetEntryCount() )
 721                             ? aLbLists.GetEntryCount()-1
 722                             : nRemovePos );
 723                     LbSelectHdl( &aLbLists );
 724                 }
 725                 else
 726                 {
 727                     aFtLists.Disable();
 728                     aLbLists.Disable();
 729                     aFtEntries.Disable();
 730                     aEdEntries.Disable();
 731                     aEdEntries.SetText( EMPTY_STRING );
 732                     aBtnRemove.Disable();
 733                 }
 734             }
 735
 736             if ( pViewData && !bCopyDone && !aBtnCopy.IsEnabled() )
 737             {
 738                 aBtnCopy.Enable();
 739                 aFtCopyFrom.Enable();
 740                 aEdCopyFrom.Enable();
 741             }
 742         }
 743     }
 744     else if ( pViewData && (pBtn == &aBtnCopy) )
 745     {
 746         if ( bCopyDone )
 747             return 0;
 748
 749         //-----------------------------------------------------------
 750
 751         ScRefAddress theStartPos;
 752         ScRefAddress theEndPos;
 753         String          theAreaStr( aEdCopyFrom.GetText() );
 754         BOOL            bAreaOk = FALSE;
 755
 756         if ( theAreaStr.Len() > 0 )
 757         {
 758             bAreaOk = pRangeUtil->IsAbsArea( theAreaStr,
 759                                              pDoc,
 760                                              pViewData->GetTabNo(),
 761                                              &theAreaStr,
 762                                              &theStartPos,
 763                                              &theEndPos,
 764                                              pDoc->GetAddressConvention() );
 765             if ( !bAreaOk )
 766             {
 767                 bAreaOk = pRangeUtil->IsAbsPos(  theAreaStr,
 768                                                  pDoc,
 769                                                  pViewData->GetTabNo(),
 770                                                  &theAreaStr,
 771                                                  &theStartPos,
 772                                                  pDoc->GetAddressConvention() );
 773                 theEndPos = theStartPos;
 774             }
 775         }
 776
 777         if ( bAreaOk )
 778         {
 779             CopyListFromArea( theStartPos, theEndPos );
 780             UpdateUserListBox();
 781             aLbLists.SelectEntryPos( aLbLists.GetEntryCount()-1 );
 782             LbSelectHdl( &aLbLists );
 783             aEdCopyFrom .SetText( theAreaStr );
 784             aEdCopyFrom .Disable();
 785             aBtnCopy    .Disable();
 786             aFtCopyFrom .Disable();
 787         }
 788         else
 789         {
 790             ErrorBox( this, WinBits( WB_OK | WB_DEF_OK ),
 791                       ScGlobal::GetRscString( STR_INVALID_TABREF )
 792                     ).Execute();
 793             aEdCopyFrom.GrabFocus();
 794             aEdCopyFrom.SetSelection( Selection( 0, SELECTION_MAX ) );
 795         }
 796     }
 797
 798     return 0;
 799 }
 800
 801 // -----------------------------------------------------------------------
 802
 803 IMPL_LINK( ScTpUserLists, EdEntriesModHdl, MultiLineEdit*, pEd )
 804 {
 805     if ( pEd != &aEdEntries )
 806         return 0;
 807
 808     //-----------------------------------------------------------
 809
 810     if ( aBtnCopy.IsEnabled() )
 811     {
 812         aBtnCopy        .Disable();
 813         aFtCopyFrom     .Disable();
 814         aEdCopyFrom     .Disable();
 815     }
 816
 817     if ( aEdEntries.GetText().Len() > 0 )
 818     {
 819         if ( !bCancelMode && !bModifyMode )
 820         {
 821             aBtnNew.SetText( aStrCancel );      bCancelMode = TRUE;
 822             aBtnAdd.SetText( aStrModify );      bModifyMode = TRUE;
 823             aBtnAdd.Enable();
 824             aBtnRemove.Disable();
 825             aFtLists.Disable();
 826             aLbLists.Disable();
 827         }
 828         else // if ( bCancelMode || bModifyMode )
 829         {
 830             if ( !aBtnAdd.IsEnabled() ) aBtnAdd.Enable();
 831         }
 832     }
 833     else
 834     {
 835         if ( aBtnAdd.IsEnabled() ) aBtnAdd.Disable();
 836     }
 837
 838     return 0;
 839 }
 840
 841
 842