sc/source/ui/docshell/docsh6.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 "scitems.hxx"
  21
  22 #include <svx/pageitem.hxx>
  23 #include <sfx2/linkmgr.hxx>
  24
  25 #include "docsh.hxx"
  26
  27 #include "stlsheet.hxx"
  28 #include "stlpool.hxx"
  29 #include "global.hxx"
  30 #include "viewdata.hxx"
  31 #include "tabvwsh.hxx"
  32 #include "tablink.hxx"
  33 #include "globstr.hrc"
  34 #include "scmod.hxx"
  35 #include "compiler.hxx"
  36 #include "interpre.hxx"
  37 #include "calcconfig.hxx"
  38
  39 #include <vcl/msgbox.hxx>
  40
  41 #include <com/sun/star/beans/XPropertySet.hpp>
  42 #include <com/sun/star/container/XNameAccess.hpp>
  43 #include <com/sun/star/lang/XMultiServiceFactory.hpp>
  44 #include <com/sun/star/util/XChangesBatch.hpp>
  45
  46 using ::com::sun::star::beans::XPropertySet;
  47 using ::com::sun::star::lang::XMultiServiceFactory;
  48 using ::com::sun::star::container::XNameAccess;
  49 using ::com::sun::star::util::XChangesBatch;
  50 using ::com::sun::star::uno::Any;
  51 using ::com::sun::star::uno::Exception;
  52 using ::com::sun::star::uno::Reference;
  53 using ::com::sun::star::uno::Sequence;
  54 using ::com::sun::star::uno::UNO_QUERY_THROW;
  55
  56 namespace {
  57
  58 struct ScStylePair
  59 {
  60     SfxStyleSheetBase *pSource;
  61     SfxStyleSheetBase *pDest;
  62 };
  63
  64 }
  65
  66 // STATIC DATA -----------------------------------------------------------
  67
  68 //----------------------------------------------------------------------
  69
  70 //
  71 //  Ole
  72 //
  73
  74 void ScDocShell::SetVisArea( const Rectangle & rVisArea )
  75 {
  76     //  with the SnapVisArea call in SetVisAreaOrSize, it's safe to always
  77     //  use both the size and position of the VisArea
  78     SetVisAreaOrSize( rVisArea, sal_True );
  79 }
  80
  81 static void lcl_SetTopRight( Rectangle& rRect, const Point& rPos )
  82 {
  83     Size aSize = rRect.GetSize();
  84     rRect.Right() = rPos.X();
  85     rRect.Left() = rPos.X() - aSize.Width() + 1;
  86     rRect.Top() = rPos.Y();
  87     rRect.Bottom() = rPos.Y() + aSize.Height() - 1;
  88 }
  89
  90 void ScDocShell::SetVisAreaOrSize( const Rectangle& rVisArea, sal_Bool bModifyStart )
  91 {
  92     sal_Bool bNegativePage = aDocument.IsNegativePage( aDocument.GetVisibleTab() );
  93
  94     Rectangle aArea = rVisArea;
  95     if (bModifyStart)
  96     {
  97         // when loading, don't check for negative values, because the sheet orientation
  98         // might be set later
  99         if ( !aDocument.IsImportingXML() )
 100         {
 101             if ( ( bNegativePage ? (aArea.Right() > 0) : (aArea.Left() < 0) ) || aArea.Top() < 0 )
 102             {
 103                 //  VisArea start position can't be negative.
 104                 //  Move the VisArea, otherwise only the upper left position would
 105                 //  be changed in SnapVisArea, and the size would be wrong.
 106
 107                 Point aNewPos( 0, std::max( aArea.Top(), (long) 0 ) );
 108                 if ( bNegativePage )
 109                 {
 110                     aNewPos.X() = std::min( aArea.Right(), (long) 0 );
 111                     lcl_SetTopRight( aArea, aNewPos );
 112                 }
 113                 else
 114                 {
 115                     aNewPos.X() = std::max( aArea.Left(), (long) 0 );
 116                     aArea.SetPos( aNewPos );
 117                 }
 118             }
 119         }
 120     }
 121     else
 122     {
 123         Rectangle aOldVisArea = SfxObjectShell::GetVisArea();
 124         if ( bNegativePage )
 125             lcl_SetTopRight( aArea, aOldVisArea.TopRight() );
 126         else
 127             aArea.SetPos( aOldVisArea.TopLeft() );
 128     }
 129
 130     //      hier Position anpassen!
 131
 132     //  when loading an ole object, the VisArea is set from the document's
 133     //  view settings and must be used as-is (document content may not be complete yet).
 134     if ( !aDocument.IsImportingXML() )
 135         SnapVisArea( aArea );
 136
 137     //TODO/LATER: it's unclear which IPEnv is used here
 138     /*
 139     SvInPlaceEnvironment* pEnv = GetIPEnv();
 140     if (pEnv)
 141     {
 142         Window* pWin = pEnv->GetEditWin();
 143         pEnv->MakeScale( aArea.GetSize(), MAP_100TH_MM,
 144                             pWin->LogicToPixel( aArea.GetSize() ) );
 145     } */
 146
 147     //TODO/LATER: formerly in SvInplaceObject
 148     SfxObjectShell::SetVisArea( aArea );
 149
 150     if (bIsInplace)                     // Zoom in der InPlace View einstellen
 151     {
 152         ScTabViewShell* pViewSh = ScTabViewShell::GetActiveViewShell();
 153         if (pViewSh)
 154         {
 155             if (pViewSh->GetViewData()->GetDocShell() == this)
 156                 pViewSh->UpdateOleZoom();
 157         }
 158     }
 159
 160     if (aDocument.IsEmbedded())
 161     {
 162         ScRange aOld;
 163         aDocument.GetEmbedded( aOld);
 164         aDocument.SetEmbedded( aDocument.GetVisibleTab(), aArea );
 165         ScRange aNew;
 166         aDocument.GetEmbedded( aNew);
 167         if (aOld != aNew)
 168             PostPaint(0,0,0,MAXCOL,MAXROW,MAXTAB,PAINT_GRID);
 169
 170         //TODO/LATER: currently not implemented
 171         //ViewChanged( ASPECT_CONTENT );          // auch im Container anzeigen
 172     }
 173 }
 174
 175 sal_Bool ScDocShell::IsOle()
 176 {
 177     return (GetCreateMode() == SFX_CREATE_MODE_EMBEDDED);
 178 }
 179
 180 void ScDocShell::UpdateOle( const ScViewData* pViewData, sal_Bool bSnapSize )
 181 {
 182     //  wenn's gar nicht Ole ist, kann man sich die Berechnungen sparen
 183     //  (VisArea wird dann beim Save wieder zurueckgesetzt)
 184
 185     if (GetCreateMode() == SFX_CREATE_MODE_STANDARD)
 186         return;
 187
 188     OSL_ENSURE(pViewData,"pViewData==0 bei ScDocShell::UpdateOle");
 189
 190     Rectangle aOldArea = SfxObjectShell::GetVisArea();
 191     Rectangle aNewArea = aOldArea;
 192
 193     sal_Bool bEmbedded = aDocument.IsEmbedded();
 194     if (bEmbedded)
 195         aNewArea = aDocument.GetEmbeddedRect();
 196     else
 197     {
 198         SCTAB nTab = pViewData->GetTabNo();
 199         if ( nTab != aDocument.GetVisibleTab() )
 200             aDocument.SetVisibleTab( nTab );
 201
 202         sal_Bool bNegativePage = aDocument.IsNegativePage( nTab );
 203         SCCOL nX = pViewData->GetPosX(SC_SPLIT_LEFT);
 204         SCROW nY = pViewData->GetPosY(SC_SPLIT_BOTTOM);
 205         Rectangle aMMRect = aDocument.GetMMRect( nX,nY, nX,nY, nTab );
 206         if (bNegativePage)
 207             lcl_SetTopRight( aNewArea, aMMRect.TopRight() );
 208         else
 209             aNewArea.SetPos( aMMRect.TopLeft() );
 210         if (bSnapSize)
 211             SnapVisArea(aNewArea);            // uses the new VisibleTab
 212     }
 213
 214     if (aNewArea != aOldArea)
 215         SetVisAreaOrSize( aNewArea, true ); // hier muss auch der Start angepasst werden
 216 }
 217
 218 //
 219 //  Style-Krempel fuer Organizer etc.
 220 //
 221
 222 SfxStyleSheetBasePool* ScDocShell::GetStyleSheetPool()
 223 {
 224     return (SfxStyleSheetBasePool*)aDocument.GetStyleSheetPool();
 225 }
 226
 227
 228 //  nach dem Laden von Vorlagen aus einem anderen Dokment (LoadStyles, Insert)
 229 //  muessen die SetItems (ATTR_PAGE_HEADERSET, ATTR_PAGE_FOOTERSET) auf den richtigen
 230 //  Pool umgesetzt werden, bevor der Quell-Pool geloescht wird.
 231
 232 static void lcl_AdjustPool( SfxStyleSheetBasePool* pStylePool )
 233 {
 234     pStylePool->SetSearchMask(SFX_STYLE_FAMILY_PAGE, SFXSTYLEBIT_ALL);
 235     SfxStyleSheetBase *pStyle = pStylePool->First();
 236     while ( pStyle )
 237     {
 238         SfxItemSet& rStyleSet = pStyle->GetItemSet();
 239
 240         const SfxPoolItem* pItem;
 241         if (rStyleSet.GetItemState(ATTR_PAGE_HEADERSET,false,&pItem) == SFX_ITEM_SET)
 242         {
 243             SfxItemSet& rSrcSet = ((SvxSetItem*)pItem)->GetItemSet();
 244             SfxItemSet* pDestSet = new SfxItemSet(*rStyleSet.GetPool(),rSrcSet.GetRanges());
 245             pDestSet->Put(rSrcSet);
 246             rStyleSet.Put(SvxSetItem(ATTR_PAGE_HEADERSET,pDestSet));
 247         }
 248         if (rStyleSet.GetItemState(ATTR_PAGE_FOOTERSET,false,&pItem) == SFX_ITEM_SET)
 249         {
 250             SfxItemSet& rSrcSet = ((SvxSetItem*)pItem)->GetItemSet();
 251             SfxItemSet* pDestSet = new SfxItemSet(*rStyleSet.GetPool(),rSrcSet.GetRanges());
 252             pDestSet->Put(rSrcSet);
 253             rStyleSet.Put(SvxSetItem(ATTR_PAGE_FOOTERSET,pDestSet));
 254         }
 255
 256         pStyle = pStylePool->Next();
 257     }
 258 }
 259
 260 void ScDocShell::LoadStyles( SfxObjectShell &rSource )
 261 {
 262     aDocument.StylesToNames();
 263
 264     SfxObjectShell::LoadStyles(rSource);
 265     lcl_AdjustPool( GetStyleSheetPool() );      // SetItems anpassen
 266
 267     aDocument.UpdStlShtPtrsFrmNms();
 268
 269     UpdateAllRowHeights();
 270
 271         //  Paint
 272
 273     PostPaint( 0,0,0, MAXCOL,MAXROW,MAXTAB, PAINT_GRID | PAINT_LEFT );
 274 }
 275
 276 void ScDocShell::LoadStylesArgs( ScDocShell& rSource, bool bReplace, bool bCellStyles, bool bPageStyles )
 277 {
 278     //  similar to LoadStyles, but with selectable behavior for XStyleLoader::loadStylesFromURL call
 279
 280     if ( !bCellStyles && !bPageStyles )     // nothing to do
 281         return;
 282
 283     ScStyleSheetPool* pSourcePool = rSource.GetDocument()->GetStyleSheetPool();
 284     ScStyleSheetPool* pDestPool = aDocument.GetStyleSheetPool();
 285
 286     SfxStyleFamily eFamily = bCellStyles ?
 287             ( bPageStyles ? SFX_STYLE_FAMILY_ALL : SFX_STYLE_FAMILY_PARA ) :
 288             SFX_STYLE_FAMILY_PAGE;
 289     SfxStyleSheetIterator aIter( pSourcePool, eFamily );
 290     sal_uInt16 nSourceCount = aIter.Count();
 291     if ( nSourceCount == 0 )
 292         return;                             // no source styles
 293
 294     ScStylePair* pStyles = new ScStylePair[ nSourceCount ];
 295     sal_uInt16 nFound = 0;
 296
 297     //  first create all new styles
 298
 299     SfxStyleSheetBase* pSourceStyle = aIter.First();
 300     while (pSourceStyle)
 301     {
 302         OUString aName = pSourceStyle->GetName();
 303         SfxStyleSheetBase* pDestStyle = pDestPool->Find( pSourceStyle->GetName(), pSourceStyle->GetFamily() );
 304         if ( pDestStyle )
 305         {
 306             // touch existing styles only if replace flag is set
 307             if ( bReplace )
 308             {
 309                 pStyles[nFound].pSource = pSourceStyle;
 310                 pStyles[nFound].pDest = pDestStyle;
 311                 ++nFound;
 312             }
 313         }
 314         else
 315         {
 316             pStyles[nFound].pSource = pSourceStyle;
 317             pStyles[nFound].pDest = &pDestPool->Make( aName, pSourceStyle->GetFamily(), pSourceStyle->GetMask() );
 318             ++nFound;
 319         }
 320
 321         pSourceStyle = aIter.Next();
 322     }
 323
 324     //  then copy contents (after inserting all styles, for parent etc.)
 325
 326     for ( sal_uInt16 i = 0; i < nFound; ++i )
 327     {
 328         pStyles[i].pDest->GetItemSet().PutExtended(
 329             pStyles[i].pSource->GetItemSet(), SFX_ITEM_DONTCARE, SFX_ITEM_DEFAULT);
 330         if(pStyles[i].pSource->HasParentSupport())
 331             pStyles[i].pDest->SetParent(pStyles[i].pSource->GetParent());
 332         // follow is never used
 333     }
 334
 335     lcl_AdjustPool( GetStyleSheetPool() );      // adjust SetItems
 336     UpdateAllRowHeights();
 337     PostPaint( 0,0,0, MAXCOL,MAXROW,MAXTAB, PAINT_GRID | PAINT_LEFT );      // Paint
 338
 339     delete[] pStyles;
 340 }
 341
 342
 343 void ScDocShell::ReconnectDdeLink(SfxObjectShell& rServer)
 344 {
 345     ::sfx2::LinkManager* pLinkManager = aDocument.GetLinkManager();
 346     if (!pLinkManager)
 347         return;
 348
 349     pLinkManager->ReconnectDdeLink(rServer);
 350 }
 351
 352 void ScDocShell::UpdateLinks()
 353 {
 354     typedef boost::unordered_set<OUString, OUStringHash> StrSetType;
 355
 356     sfx2::LinkManager* pLinkManager = aDocument.GetLinkManager();
 357     StrSetType aNames;
 358
 359     // nicht mehr benutzte Links raus
 360
 361     size_t nCount = pLinkManager->GetLinks().size();
 362     for (size_t k=nCount; k>0; )
 363     {
 364         --k;
 365         ::sfx2::SvBaseLink* pBase = *pLinkManager->GetLinks()[k];
 366         if (pBase->ISA(ScTableLink))
 367         {
 368             ScTableLink* pTabLink = static_cast<ScTableLink*>(pBase);
 369             if (pTabLink->IsUsed())
 370                 aNames.insert(pTabLink->GetFileName());
 371             else        // nicht mehr benutzt -> loeschen
 372             {
 373                 pTabLink->SetAddUndo(sal_True);
 374                 pLinkManager->Remove(k);
 375             }
 376         }
 377     }
 378
 379     // neue Links eintragen
 380
 381     SCTAB nTabCount = aDocument.GetTableCount();
 382     for (SCTAB i = 0; i < nTabCount; ++i)
 383     {
 384         if (!aDocument.IsLinked(i))
 385             continue;
 386
 387         OUString aDocName = aDocument.GetLinkDoc(i);
 388         OUString aFltName = aDocument.GetLinkFlt(i);
 389         OUString aOptions = aDocument.GetLinkOpt(i);
 390         sal_uLong nRefresh  = aDocument.GetLinkRefreshDelay(i);
 391         bool bThere = false;
 392         for (SCTAB j = 0; j < i && !bThere; ++j)                // im Dokument mehrfach?
 393         {
 394             if (aDocument.IsLinked(j)
 395                     && aDocument.GetLinkDoc(j) == aDocName
 396                     && aDocument.GetLinkFlt(j) == aFltName
 397                     && aDocument.GetLinkOpt(j) == aOptions)
 398                     // Ignore refresh delay in compare, it should be the
 399                     // same for identical links and we don't want dupes
 400                     // if it ain't.
 401                 bThere = true;
 402         }
 403
 404         if (!bThere)                                        // schon als Filter eingetragen?
 405         {
 406             if (!aNames.insert(aDocName).second)
 407                 bThere = true;
 408         }
 409
 410         if (!bThere)
 411         {
 412             ScTableLink* pLink = new ScTableLink( this, aDocName, aFltName, aOptions, nRefresh );
 413             pLink->SetInCreate(true);
 414             pLinkManager->InsertFileLink(*pLink, OBJECT_CLIENT_FILE, aDocName, &aFltName);
 415             pLink->Update();
 416             pLink->SetInCreate(false);
 417         }
 418     }
 419 }
 420
 421 sal_Bool ScDocShell::ReloadTabLinks()
 422 {
 423     sfx2::LinkManager* pLinkManager = aDocument.GetLinkManager();
 424
 425     bool bAny = false;
 426     size_t nCount = pLinkManager->GetLinks().size();
 427     for (size_t i=0; i<nCount; i++ )
 428     {
 429         ::sfx2::SvBaseLink* pBase = *pLinkManager->GetLinks()[i];
 430         if (pBase->ISA(ScTableLink))
 431         {
 432             ScTableLink* pTabLink = static_cast<ScTableLink*>(pBase);
 433 //                      pTabLink->SetAddUndo(sal_False);                //! Undo's zusammenfassen
 434
 435                         // Painting only after Update() makes no sense:
 436                         // ScTableLink::Refresh() will post a Paint only is bDoPaint is true
 437             // pTabLink->SetPaint(false);          //  Paint nur einmal am Ende
 438             pTabLink->Update();
 439             //pTabLink->SetPaint(true);
 440 //                      pTabLink->SetAddUndo(sal_True);
 441             bAny = true;
 442         }
 443     }
 444
 445     if ( bAny )
 446     {
 447         //  Paint nur einmal
 448         PostPaint( ScRange(0,0,0,MAXCOL,MAXROW,MAXTAB),
 449                                     PAINT_GRID | PAINT_TOP | PAINT_LEFT );
 450
 451         SetDocumentModified();
 452     }
 453
 454     return sal_True;        //! Fehler erkennen
 455 }
 456
 457 void ScDocShell::SetFormulaOptions(const ScFormulaOptions& rOpt )
 458 {
 459     aDocument.SetGrammar( rOpt.GetFormulaSyntax() );
 460
 461     // This needs to be called first since it may re-initialize the entire
 462     // opcode map.
 463     if (rOpt.GetUseEnglishFuncName())
 464     {
 465         // switch native symbols to English.
 466         ScCompiler aComp(NULL, ScAddress());
 467         ScCompiler::OpCodeMapPtr xMap = aComp.GetOpCodeMap(::com::sun::star::sheet::FormulaLanguage::ENGLISH);
 468         ScCompiler::SetNativeSymbols(xMap);
 469     }
 470     else
 471         // re-initialize native symbols with localized function names.
 472         ScCompiler::ResetNativeSymbols();
 473
 474     // Force re-population of function names for the function wizard, function tip etc.
 475     ScGlobal::ResetFunctionList();
 476
 477     // Update the separators.
 478     ScCompiler::UpdateSeparatorsNative(
 479         rOpt.GetFormulaSepArg(), rOpt.GetFormulaSepArrayCol(), rOpt.GetFormulaSepArrayRow());
 480
 481     // Global interpreter settings.
 482     ScInterpreter::SetGlobalConfig(rOpt.GetCalcConfig());
 483 }
 484
 485 void ScDocShell::CheckConfigOptions()
 486 {
 487     if (IsConfigOptionsChecked())
 488         // no need to check repeatedly.
 489         return;
 490
 491     OUString aDecSep = ScGlobal::GetpLocaleData()->getNumDecimalSep();
 492
 493     ScModule* pScMod = SC_MOD();
 494     const ScFormulaOptions& rOpt=pScMod->GetFormulaOptions();
 495     OUString aSepArg = rOpt.GetFormulaSepArg();
 496     OUString aSepArrRow = rOpt.GetFormulaSepArrayRow();
 497     OUString aSepArrCol = rOpt.GetFormulaSepArrayCol();
 498
 499     if (aDecSep == aSepArg || aDecSep == aSepArrRow || aDecSep == aSepArrCol)
 500     {
 501         // One of arg separators conflicts with the current decimal
 502         // separator.  Reset them to default.
 503         ScFormulaOptions aNew = rOpt;
 504         aNew.ResetFormulaSeparators();
 505         SetFormulaOptions(aNew);
 506         pScMod->SetFormulaOptions(aNew);
 507
 508         // Launch a nice warning dialog to let the users know of this change.
 509         ScTabViewShell* pViewShell = GetBestViewShell();
 510         if (pViewShell)
 511         {
 512             Window* pParent = pViewShell->GetFrameWin();
 513             InfoBox aBox(pParent, ScGlobal::GetRscString(STR_OPTIONS_WARN_SEPARATORS));
 514             aBox.Execute();
 515         }
 516
 517         // For now, this is the only option setting that could launch info
 518         // dialog.  But in the future we may want to implement a nicer
 519         // dialog to display a list of warnings in case we have several
 520         // pieces of information to display.
 521     }
 522
 523     SetConfigOptionsChecked(true);
 524 }
 525
 526 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */