sc/source/ui/vba/vbawindow.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 #include "excelvbahelper.hxx"
  20 #include "vbawindow.hxx"
  21 #include "vbaworksheets.hxx"
  22 #include "vbaworksheet.hxx"
  23 #include "vbaworkbook.hxx"
  24 #include "vbapane.hxx"
  25 #include <com/sun/star/sheet/XSpreadsheetDocument.hpp>
  26 #include <com/sun/star/sheet/XSpreadsheet.hpp>
  27 #include <com/sun/star/sheet/XViewSplitable.hpp>
  28 #include <com/sun/star/sheet/XViewFreezable.hpp>
  29 #include <com/sun/star/container/XNamed.hpp>
  30 #include <com/sun/star/view/DocumentZoomType.hpp>
  31 #include <com/sun/star/table/CellRangeAddress.hpp>
  32 #include <o3tl/safeint.hxx>
  33 #include <ooo/vba/excel/XApplication.hpp>
  34 #include <ooo/vba/excel/XlWindowState.hpp>
  35 #include <ooo/vba/excel/XlWindowView.hpp>
  36 #include <basic/sberrors.hxx>
  37 #include <comphelper/sequence.hxx>
  38 #include <cppuhelper/implbase.hxx>
  39
  40 #include <docsh.hxx>
  41 #include <tabvwsh.hxx>
  42 #include <docuno.hxx>
  43 #include <sc.hrc>
  44 #include <sfx2/viewfrm.hxx>
  45 #include <utility>
  46 #include <vcl/wrkwin.hxx>
  47 #include <unonames.hxx>
  48 #include <markdata.hxx>
  49 #include <unordered_map>
  50
  51 using namespace ::com::sun::star;
  52 using namespace ::ooo::vba;
  53 using namespace ::ooo::vba::excel::XlWindowState;
  54
  55 typedef  std::unordered_map< OUString,
  56 SCTAB > NameIndexHash;
  57
  58 typedef std::vector< uno::Reference< sheet::XSpreadsheet > > Sheets;
  59
  60 typedef ::cppu::WeakImplHelper< container::XEnumerationAccess
  61     , css::container::XIndexAccess
  62     , css::container::XNameAccess
  63     > SelectedSheets_BASE;
  64
  65 namespace {
  66
  67 class SelectedSheetsEnum : public ::cppu::WeakImplHelper< container::XEnumeration >
  68 {
  69 public:
  70     uno::Reference< uno::XComponentContext > m_xContext;
  71     Sheets m_sheets;
  72     uno::Reference< frame::XModel > m_xModel;
  73     Sheets::const_iterator m_it;
  74
  75     /// @throws uno::RuntimeException
  76     SelectedSheetsEnum( uno::Reference< uno::XComponentContext > xContext, Sheets&& sheets, uno::Reference< frame::XModel > xModel )
  77         :  m_xContext(std::move( xContext )), m_sheets( std::move(sheets) ), m_xModel(std::move( xModel ))
  78     {
  79         m_it = m_sheets.begin();
  80     }
  81     // XEnumeration
  82     virtual sal_Bool SAL_CALL hasMoreElements(  ) override
  83     {
  84         return m_it != m_sheets.end();
  85     }
  86     virtual uno::Any SAL_CALL nextElement(  ) override
  87     {
  88         if ( !hasMoreElements() )
  89         {
  90             throw container::NoSuchElementException();
  91         }
  92         // #FIXME needs ThisWorkbook as parent
  93         return uno::Any( uno::Reference< excel::XWorksheet > ( new ScVbaWorksheet( uno::Reference< XHelperInterface >(), m_xContext, *(m_it++), m_xModel ) ) );
  94     }
  95
  96 };
  97
  98 class SelectedSheetsEnumAccess : public SelectedSheets_BASE
  99 {
 100     uno::Reference< uno::XComponentContext > m_xContext;
 101     NameIndexHash namesToIndices;
 102     Sheets sheets;
 103     rtl::Reference< ScModelObj > m_xModel;
 104 public:
 105     SelectedSheetsEnumAccess( uno::Reference< uno::XComponentContext > xContext, const uno::Reference< frame::XModel > & xModel ):m_xContext(std::move( xContext ))
 106     {
 107         ScModelObj* pModel = static_cast< ScModelObj* >( xModel.get() );
 108         if ( !pModel )
 109             throw uno::RuntimeException(u"Cannot obtain current document"_ustr );
 110         m_xModel = pModel;
 111         ScDocShell* pDocShell = static_cast<ScDocShell*>(pModel->GetEmbeddedObject());
 112         if ( !pDocShell )
 113             throw uno::RuntimeException(u"Cannot obtain docshell"_ustr );
 114         ScTabViewShell* pViewShell = excel::getBestViewShell( m_xModel );
 115         if ( !pViewShell )
 116             throw uno::RuntimeException(u"Cannot obtain view shell"_ustr );
 117
 118         SCTAB nTabCount = pDocShell->GetDocument().GetTableCount();
 119         SCTAB nIndex = 0;
 120         const ScMarkData& rMarkData = pViewShell->GetViewData().GetMarkData();
 121         sheets.reserve( nTabCount );
 122         uno::Reference <container::XIndexAccess> xIndex( m_xModel->getSheets(), uno::UNO_QUERY_THROW );
 123         for (const auto& rTab : rMarkData)
 124         {
 125             if (rTab >= nTabCount)
 126                 break;
 127             uno::Reference< sheet::XSpreadsheet > xSheet( xIndex->getByIndex( rTab ), uno::UNO_QUERY_THROW );
 128             uno::Reference< container::XNamed > xNamed( xSheet, uno::UNO_QUERY_THROW );
 129             sheets.push_back( xSheet );
 130             namesToIndices[ xNamed->getName() ] = nIndex++;
 131         }
 132
 133     }
 134
 135     //XEnumerationAccess
 136     virtual uno::Reference< container::XEnumeration > SAL_CALL createEnumeration(  ) override
 137     {
 138         return new SelectedSheetsEnum( m_xContext, std::vector(sheets), m_xModel  );
 139     }
 140     // XIndexAccess
 141     virtual ::sal_Int32 SAL_CALL getCount(  ) override
 142     {
 143         return sheets.size();
 144     }
 145     virtual uno::Any SAL_CALL getByIndex( ::sal_Int32 Index ) override
 146     {
 147         if ( Index < 0
 148         || o3tl::make_unsigned( Index ) >= sheets.size() )
 149             throw lang::IndexOutOfBoundsException();
 150
 151         return uno::Any( sheets[ Index ] );
 152     }
 153
 154     //XElementAccess
 155     virtual uno::Type SAL_CALL getElementType(  ) override
 156     {
 157         return cppu::UnoType<excel::XWorksheet>::get();
 158     }
 159
 160     virtual sal_Bool SAL_CALL hasElements(  ) override
 161     {
 162         return ( !sheets.empty() );
 163     }
 164
 165     //XNameAccess
 166     virtual uno::Any SAL_CALL getByName( const OUString& aName ) override
 167     {
 168         NameIndexHash::const_iterator it = namesToIndices.find( aName );
 169         if ( it == namesToIndices.end() )
 170             throw container::NoSuchElementException();
 171         return uno::Any( sheets[ it->second ] );
 172
 173     }
 174
 175     virtual uno::Sequence< OUString > SAL_CALL getElementNames(  ) override
 176     {
 177         return comphelper::mapKeysToSequence( namesToIndices );
 178     }
 179
 180     virtual sal_Bool SAL_CALL hasByName( const OUString& aName ) override
 181     {
 182         NameIndexHash::const_iterator it = namesToIndices.find( aName );
 183         return (it != namesToIndices.end());
 184     }
 185
 186 };
 187
 188 }
 189
 190 ScVbaWindow::ScVbaWindow(
 191         const uno::Reference< XHelperInterface >& xParent,
 192         const uno::Reference< uno::XComponentContext >& xContext,
 193         const uno::Reference< frame::XModel >& xModel,
 194         const uno::Reference< frame::XController >& xController ) :
 195     WindowImpl_BASE( xParent, xContext, xModel, xController )
 196 {
 197     init();
 198 }
 199
 200 ScVbaWindow::ScVbaWindow(
 201         const uno::Sequence< uno::Any >& args,
 202         const uno::Reference< uno::XComponentContext >& xContext ) :
 203     WindowImpl_BASE( args, xContext )
 204 {
 205     init();
 206 }
 207
 208 void
 209 ScVbaWindow::init()
 210 {
 211     /*  This method is called from the constructor, thus the own refcount is
 212         still zero. The implementation of ActivePane() uses a UNO reference of
 213         this (to set this window as parent of the pane object). This requires
 214         the own refcount to be non-zero, otherwise this instance will be
 215         destructed immediately! Guard the call to ActivePane() in try/catch to
 216         not miss the decrementation of the reference count on exception. */
 217     osl_atomic_increment( &m_refCount );
 218     try
 219     {
 220        m_xPane = ActivePane();
 221     }
 222     catch( uno::Exception& )
 223     {
 224     }
 225     osl_atomic_decrement( &m_refCount );
 226 }
 227
 228 uno::Reference< beans::XPropertySet >
 229 ScVbaWindow::getControllerProps() const
 230 {
 231     return uno::Reference< beans::XPropertySet >( getController(), uno::UNO_QUERY_THROW );
 232 }
 233
 234 uno::Reference< beans::XPropertySet >
 235 ScVbaWindow::getFrameProps() const
 236 {
 237     return uno::Reference< beans::XPropertySet >( getController()->getFrame(), uno::UNO_QUERY_THROW );
 238 }
 239
 240 uno::Reference< awt::XDevice >
 241 ScVbaWindow::getDevice() const
 242 {
 243     return uno::Reference< awt::XDevice >( getWindow(), uno::UNO_QUERY_THROW );
 244 }
 245
 246 void
 247 ScVbaWindow::Scroll( const uno::Any& Down, const uno::Any& Up, const uno::Any& ToRight, const uno::Any& ToLeft, bool bLargeScroll )
 248 {
 249     if( !m_xPane.is() )
 250         throw uno::RuntimeException();
 251     if( bLargeScroll )
 252         m_xPane->LargeScroll( Down, Up, ToRight, ToLeft );
 253     else
 254         m_xPane->SmallScroll( Down, Up, ToRight, ToLeft );
 255 }
 256
 257 void SAL_CALL
 258 ScVbaWindow::SmallScroll( const uno::Any& Down, const uno::Any& Up, const uno::Any& ToRight, const uno::Any& ToLeft )
 259 {
 260     Scroll( Down, Up, ToRight, ToLeft, false );
 261 }
 262
 263 void SAL_CALL
 264 ScVbaWindow::LargeScroll( const uno::Any& Down, const uno::Any& Up, const uno::Any& ToRight, const uno::Any& ToLeft )
 265 {
 266     Scroll( Down, Up, ToRight, ToLeft, true );
 267 }
 268
 269 uno::Any SAL_CALL
 270 ScVbaWindow::SelectedSheets( const uno::Any& aIndex )
 271 {
 272     uno::Reference< container::XEnumerationAccess > xEnumAccess( new SelectedSheetsEnumAccess( mxContext, m_xModel ) );
 273     // #FIXME needs a workbook as a parent
 274     uno::Reference< excel::XWorksheets > xSheets(  new ScVbaWorksheets( uno::Reference< XHelperInterface >(), mxContext, xEnumAccess, m_xModel ) );
 275     if ( aIndex.hasValue() )
 276     {
 277         uno::Reference< XCollection > xColl( xSheets, uno::UNO_QUERY_THROW );
 278         return xColl->Item( aIndex, uno::Any() );
 279     }
 280     return uno::Any( xSheets );
 281 }
 282
 283 void SAL_CALL
 284 ScVbaWindow::ScrollWorkbookTabs( const uno::Any& /*Sheets*/, const uno::Any& /*Position*/ )
 285 {
 286 // #TODO #FIXME need some implementation to scroll through the tabs
 287 // but where is this done?
 288 /*
 289     sal_Int32 nSheets = 0;
 290     sal_Int32 nPosition = 0;
 291     throw uno::RuntimeException("No Implemented" );
 292     sal_Bool bSheets = ( Sheets >>= nSheets );
 293     sal_Bool bPosition = ( Position >>= nPosition );
 294     if ( bSheets || bPosition ) // at least one param specified
 295         if ( bSheets )
 296             ;// use sheets
 297         else if ( bPosition )
 298             ; //use position
 299 */
 300
 301 }
 302
 303 uno::Any SAL_CALL
 304 ScVbaWindow::getCaption()
 305 {
 306     // tdf#118129 - return only the caption property of the frame
 307     OUString sTitle;
 308     getFrameProps()->getPropertyValue(SC_UNONAME_TITLE) >>= sTitle;
 309     return uno::Any( sTitle );
 310 }
 311
 312 void SAL_CALL
 313 ScVbaWindow::setCaption( const uno::Any& _caption )
 314 {
 315     getFrameProps()->setPropertyValue( SC_UNONAME_TITLE, _caption );
 316 }
 317
 318 uno::Any SAL_CALL
 319 ScVbaWindow::getScrollRow()
 320 {
 321     sal_Int32 nValue = 0;
 322     // !! TODO !! get view shell from controller
 323     ScTabViewShell* pViewShell = excel::getBestViewShell( m_xModel );
 324     if ( pViewShell )
 325     {
 326         ScSplitPos eWhich = pViewShell->GetViewData().GetActivePart();
 327         nValue = pViewShell->GetViewData().GetPosY(WhichV(eWhich));
 328     }
 329
 330     return uno::Any( nValue + 1);
 331 }
 332
 333 void SAL_CALL
 334 ScVbaWindow::setScrollRow( const uno::Any& _scrollrow )
 335 {
 336     // !! TODO !! get view shell from controller
 337     ScTabViewShell* pViewShell = excel::getBestViewShell( m_xModel );
 338     if ( pViewShell )
 339     {
 340         sal_Int32 scrollRow = 0;
 341         _scrollrow >>= scrollRow;
 342         ScSplitPos eWhich = pViewShell->GetViewData().GetActivePart();
 343         sal_Int32 nOldValue = pViewShell->GetViewData().GetPosY(WhichV(eWhich)) + 1;
 344         pViewShell->ScrollLines(0, scrollRow - nOldValue);
 345     }
 346 }
 347
 348 uno::Any SAL_CALL
 349 ScVbaWindow::getScrollColumn()
 350 {
 351     sal_Int32 nValue = 0;
 352     // !! TODO !! get view shell from controller
 353     ScTabViewShell* pViewShell = excel::getBestViewShell( m_xModel );
 354     if ( pViewShell )
 355     {
 356         ScSplitPos eWhich = pViewShell->GetViewData().GetActivePart();
 357         nValue = pViewShell->GetViewData().GetPosX(WhichH(eWhich));
 358     }
 359
 360     return uno::Any( nValue + 1);
 361 }
 362
 363 void SAL_CALL
 364 ScVbaWindow::setScrollColumn( const uno::Any& _scrollcolumn )
 365 {
 366     // !! TODO !! get view shell from controller
 367     ScTabViewShell* pViewShell = excel::getBestViewShell( m_xModel );
 368     if ( pViewShell )
 369     {
 370         sal_Int32 scrollColumn = 0;
 371         _scrollcolumn >>= scrollColumn;
 372         ScSplitPos eWhich = pViewShell->GetViewData().GetActivePart();
 373         sal_Int32 nOldValue = pViewShell->GetViewData().GetPosX(WhichH(eWhich)) + 1;
 374         pViewShell->ScrollLines(scrollColumn - nOldValue, 0);
 375     }
 376 }
 377
 378 uno::Any SAL_CALL
 379 ScVbaWindow::getWindowState()
 380 {
 381     sal_Int32 nwindowState = xlNormal;
 382     // !! TODO !! get view shell from controller
 383     if (ScTabViewShell* pViewShell = excel::getBestViewShell( m_xModel ))
 384     {
 385         SfxViewFrame& rViewFrame = pViewShell->GetViewFrame();
 386         WorkWindow* pWork = static_cast<WorkWindow*>( rViewFrame.GetFrame().GetSystemWindow() );
 387         if ( pWork )
 388         {
 389             if ( pWork -> IsMaximized())
 390                 nwindowState = xlMaximized;
 391             else if (pWork -> IsMinimized())
 392                 nwindowState = xlMinimized;
 393         }
 394     }
 395     return uno::Any( nwindowState );
 396 }
 397
 398 void SAL_CALL
 399 ScVbaWindow::setWindowState( const uno::Any& _windowstate )
 400 {
 401     sal_Int32 nwindowState = xlMaximized;
 402     _windowstate >>= nwindowState;
 403     // !! TODO !! get view shell from controller
 404     if (ScTabViewShell* pViewShell = excel::getBestViewShell( m_xModel ))
 405     {
 406         SfxViewFrame& rViewFrame = pViewShell->GetViewFrame();
 407         WorkWindow* pWork = static_cast<WorkWindow*>( rViewFrame.GetFrame().GetSystemWindow() );
 408         if ( pWork )
 409         {
 410             if ( nwindowState == xlMaximized)
 411                 pWork -> Maximize();
 412             else if (nwindowState == xlMinimized)
 413                 pWork -> Minimize();
 414             else if (nwindowState == xlNormal)
 415                 pWork -> Restore();
 416             else
 417                 throw uno::RuntimeException(u"Invalid Parameter"_ustr );
 418         }
 419     }
 420 }
 421
 422 void
 423 ScVbaWindow::Activate()
 424 {
 425     rtl::Reference<ScVbaWorkbook> workbook( new ScVbaWorkbook( uno::Reference< XHelperInterface >( Application(), uno::UNO_QUERY_THROW ), mxContext, m_xModel ) );
 426
 427     workbook->Activate();
 428 }
 429
 430 void
 431 ScVbaWindow::Close( const uno::Any& SaveChanges, const uno::Any& FileName, const uno::Any& RouteWorkBook )
 432 {
 433     rtl::Reference< ScVbaWorkbook > workbook( new ScVbaWorkbook( uno::Reference< XHelperInterface >( Application(), uno::UNO_QUERY_THROW ), mxContext, m_xModel ) );
 434     workbook->Close(SaveChanges, FileName, RouteWorkBook );
 435 }
 436
 437 uno::Reference< excel::XPane > SAL_CALL
 438 ScVbaWindow::ActivePane()
 439 {
 440     uno::Reference< sheet::XViewPane > xViewPane( getController(), uno::UNO_QUERY_THROW );
 441     return new ScVbaPane( this, mxContext, m_xModel, xViewPane );
 442 }
 443
 444 uno::Reference< excel::XRange > SAL_CALL
 445 ScVbaWindow::ActiveCell(  )
 446 {
 447     uno::Reference< excel::XApplication > xApplication( Application(), uno::UNO_QUERY_THROW );
 448     return xApplication->getActiveCell();
 449 }
 450
 451 uno::Any SAL_CALL
 452 ScVbaWindow::Selection(  )
 453 {
 454     uno::Reference< excel::XApplication > xApplication( Application(), uno::UNO_QUERY_THROW );
 455     return xApplication->getSelection();
 456 }
 457
 458 uno::Reference< excel::XRange > SAL_CALL
 459 ScVbaWindow::RangeSelection()
 460 {
 461     /*  TODO / FIXME: According to documentation, this method returns the range
 462         selection even if shapes are selected. */
 463     return uno::Reference< excel::XRange >( Selection(), uno::UNO_QUERY_THROW );
 464 }
 465
 466 sal_Bool SAL_CALL
 467 ScVbaWindow::getDisplayGridlines()
 468 {
 469     bool bGrid = true;
 470     getControllerProps()->getPropertyValue( SC_UNO_SHOWGRID ) >>= bGrid;
 471     return bGrid;
 472 }
 473
 474 void SAL_CALL
 475 ScVbaWindow::setDisplayGridlines( sal_Bool _displaygridlines )
 476 {
 477     getControllerProps()->setPropertyValue( SC_UNO_SHOWGRID, uno::Any( _displaygridlines ));
 478 }
 479
 480 sal_Bool SAL_CALL
 481 ScVbaWindow::getDisplayHeadings()
 482 {
 483     bool bHeading = true;
 484     getControllerProps()->getPropertyValue( SC_UNO_COLROWHDR ) >>= bHeading;
 485     return bHeading;
 486 }
 487
 488 void SAL_CALL
 489 ScVbaWindow::setDisplayHeadings( sal_Bool _bDisplayHeadings )
 490 {
 491     getControllerProps()->setPropertyValue( SC_UNO_COLROWHDR, uno::Any( _bDisplayHeadings ));
 492 }
 493
 494 sal_Bool SAL_CALL
 495 ScVbaWindow::getDisplayHorizontalScrollBar()
 496 {
 497     bool bHorizontalScrollBar = true;
 498     getControllerProps()->getPropertyValue( SC_UNO_HORSCROLL ) >>= bHorizontalScrollBar;
 499     return bHorizontalScrollBar;
 500 }
 501
 502 void SAL_CALL
 503 ScVbaWindow::setDisplayHorizontalScrollBar( sal_Bool _bDisplayHorizontalScrollBar )
 504 {
 505     getControllerProps()->setPropertyValue( SC_UNO_HORSCROLL, uno::Any( _bDisplayHorizontalScrollBar ));
 506 }
 507
 508 sal_Bool SAL_CALL
 509 ScVbaWindow::getDisplayOutline()
 510 {
 511     bool bOutline = true;
 512     getControllerProps()->getPropertyValue( SC_UNO_OUTLSYMB ) >>= bOutline;
 513     return bOutline;
 514 }
 515
 516 void SAL_CALL
 517 ScVbaWindow::setDisplayOutline( sal_Bool _bDisplayOutline )
 518 {
 519     getControllerProps()->setPropertyValue( SC_UNO_OUTLSYMB, uno::Any( _bDisplayOutline ));
 520 }
 521
 522 sal_Bool SAL_CALL
 523 ScVbaWindow::getDisplayVerticalScrollBar()
 524 {
 525     bool bVerticalScrollBar = true;
 526     getControllerProps()->getPropertyValue( SC_UNO_VERTSCROLL ) >>= bVerticalScrollBar;
 527     return bVerticalScrollBar;
 528 }
 529
 530 void SAL_CALL
 531 ScVbaWindow::setDisplayVerticalScrollBar( sal_Bool _bDisplayVerticalScrollBar )
 532 {
 533     getControllerProps()->setPropertyValue( SC_UNO_VERTSCROLL, uno::Any( _bDisplayVerticalScrollBar ));
 534 }
 535
 536 sal_Bool SAL_CALL
 537 ScVbaWindow::getDisplayWorkbookTabs()
 538 {
 539     bool bWorkbookTabs = true;
 540     getControllerProps()->getPropertyValue( SC_UNO_SHEETTABS ) >>= bWorkbookTabs;
 541     return bWorkbookTabs;
 542 }
 543
 544 void SAL_CALL
 545 ScVbaWindow::setDisplayWorkbookTabs( sal_Bool _bDisplayWorkbookTabs )
 546 {
 547     getControllerProps()->setPropertyValue( SC_UNO_SHEETTABS, uno::Any( _bDisplayWorkbookTabs ));
 548 }
 549
 550 sal_Bool SAL_CALL
 551 ScVbaWindow::getFreezePanes()
 552 {
 553     uno::Reference< sheet::XViewFreezable > xViewFreezable( getController(), uno::UNO_QUERY_THROW );
 554     return xViewFreezable->hasFrozenPanes();
 555 }
 556
 557 void SAL_CALL
 558 ScVbaWindow::setFreezePanes( sal_Bool _bFreezePanes )
 559 {
 560     uno::Reference< sheet::XViewPane > xViewPane( getController(), uno::UNO_QUERY_THROW );
 561     uno::Reference< sheet::XViewSplitable > xViewSplitable( xViewPane, uno::UNO_QUERY_THROW );
 562     uno::Reference< sheet::XViewFreezable > xViewFreezable( xViewPane, uno::UNO_QUERY_THROW );
 563     if( _bFreezePanes )
 564     {
 565         if( xViewSplitable->getIsWindowSplit() )
 566         {
 567             // if there is a split we freeze at the split
 568             sal_Int32 nColumn = getSplitColumn();
 569             sal_Int32 nRow = getSplitRow();
 570             xViewFreezable->freezeAtPosition( nColumn, nRow );
 571         }
 572         else
 573         {
 574             // otherwise we freeze in the center of the visible sheet
 575             table::CellRangeAddress aCellRangeAddress = xViewPane->getVisibleRange();
 576             sal_Int32 nColumn = aCellRangeAddress.StartColumn + (( aCellRangeAddress.EndColumn - aCellRangeAddress.StartColumn )/2 );
 577             sal_Int32 nRow = aCellRangeAddress.StartRow + (( aCellRangeAddress.EndRow - aCellRangeAddress.StartRow )/2 );
 578             xViewFreezable->freezeAtPosition( nColumn, nRow );
 579         }
 580     }
 581     else
 582     {
 583         //remove the freeze panes
 584         xViewSplitable->splitAtPosition(0,0);
 585     }
 586 }
 587
 588 sal_Bool SAL_CALL
 589 ScVbaWindow::getSplit()
 590 {
 591     uno::Reference< sheet::XViewSplitable > xViewSplitable( getController(), uno::UNO_QUERY_THROW );
 592     return xViewSplitable->getIsWindowSplit();
 593 }
 594
 595 void SAL_CALL
 596 ScVbaWindow::setSplit( sal_Bool _bSplit )
 597 {
 598     if( !_bSplit )
 599     {
 600         uno::Reference< sheet::XViewSplitable > xViewSplitable( getController(), uno::UNO_QUERY_THROW );
 601         xViewSplitable->splitAtPosition(0,0);
 602     }
 603     else
 604     {
 605         uno::Reference< sheet::XViewFreezable > xViewFreezable( getController(), uno::UNO_QUERY_THROW );
 606         uno::Reference< excel::XRange > xRange = ActiveCell();
 607         sal_Int32 nRow = xRange->getRow();
 608         sal_Int32 nColumn = xRange->getColumn();
 609         SplitAtDefinedPosition( nColumn-1, nRow-1 );
 610     }
 611 }
 612
 613 sal_Int32 SAL_CALL
 614 ScVbaWindow::getSplitColumn()
 615 {
 616     uno::Reference< sheet::XViewSplitable > xViewSplitable( getController(), uno::UNO_QUERY_THROW );
 617     return xViewSplitable->getSplitColumn();
 618 }
 619
 620 void SAL_CALL
 621 ScVbaWindow::setSplitColumn( sal_Int32 _splitcolumn )
 622 {
 623     if( getSplitColumn() != _splitcolumn )
 624     {
 625         uno::Reference< sheet::XViewFreezable > xViewFreezable( getController(), uno::UNO_QUERY_THROW );
 626         sal_Int32 nRow = getSplitRow();
 627         SplitAtDefinedPosition( _splitcolumn, nRow );
 628     }
 629 }
 630
 631 double SAL_CALL
 632 ScVbaWindow::getSplitHorizontal()
 633 {
 634     uno::Reference< sheet::XViewSplitable > xViewSplitable( getController(), uno::UNO_QUERY_THROW );
 635     return PixelsToPoints( getDevice(), xViewSplitable->getSplitHorizontal(), true );
 636 }
 637
 638 void SAL_CALL
 639 ScVbaWindow::setSplitHorizontal( double _splithorizontal )
 640 {
 641     uno::Reference< sheet::XViewSplitable > xViewSplitable( getController(), uno::UNO_QUERY_THROW );
 642     double fHoriPixels = PointsToPixels( getDevice(), _splithorizontal, true );
 643     xViewSplitable->splitAtPosition( static_cast< sal_Int32 >( fHoriPixels ), 0 );
 644 }
 645
 646 sal_Int32 SAL_CALL
 647 ScVbaWindow::getSplitRow()
 648 {
 649     uno::Reference< sheet::XViewSplitable > xViewSplitable( getController(), uno::UNO_QUERY_THROW );
 650     return xViewSplitable->getSplitRow();
 651 }
 652
 653 void SAL_CALL
 654 ScVbaWindow::setSplitRow( sal_Int32 _splitrow )
 655 {
 656     if( getSplitRow() != _splitrow )
 657     {
 658         uno::Reference< sheet::XViewFreezable > xViewFreezable( getController(), uno::UNO_QUERY_THROW );
 659         sal_Int32 nColumn = getSplitColumn();
 660         SplitAtDefinedPosition( nColumn, _splitrow );
 661     }
 662 }
 663
 664 double SAL_CALL
 665 ScVbaWindow::getSplitVertical()
 666 {
 667     uno::Reference< sheet::XViewSplitable > xViewSplitable( getController(), uno::UNO_QUERY_THROW );
 668     return PixelsToPoints( getDevice(), xViewSplitable->getSplitVertical(), false );
 669 }
 670
 671 void SAL_CALL
 672 ScVbaWindow::setSplitVertical(double _splitvertical )
 673 {
 674     uno::Reference< sheet::XViewSplitable > xViewSplitable( getController(), uno::UNO_QUERY_THROW );
 675     double fVertiPixels = PointsToPixels( getDevice(), _splitvertical, false );
 676     xViewSplitable->splitAtPosition( 0, static_cast<sal_Int32>( fVertiPixels ) );
 677 }
 678
 679 void ScVbaWindow::SplitAtDefinedPosition( sal_Int32 nColumns, sal_Int32 nRows )
 680 {
 681     uno::Reference< sheet::XViewSplitable > xViewSplitable( getController(), uno::UNO_QUERY_THROW );
 682     uno::Reference< sheet::XViewFreezable > xViewFreezable( xViewSplitable, uno::UNO_QUERY_THROW );
 683     // nColumns and nRows means split columns/rows
 684     if( nColumns == 0 && nRows == 0 )
 685         return;
 686
 687     sal_Int32 cellColumn = nColumns + 1;
 688     sal_Int32 cellRow = nRows + 1;
 689
 690     ScTabViewShell* pViewShell = excel::getBestViewShell( m_xModel );
 691     if ( pViewShell )
 692     {
 693         //firstly remove the old splitter
 694         xViewSplitable->splitAtPosition(0,0);
 695
 696         uno::Reference< excel::XApplication > xApplication( Application(), uno::UNO_QUERY_THROW );
 697         uno::Reference< excel::XWorksheet > xSheet( xApplication->getActiveSheet(), uno::UNO_SET_THROW );
 698         xSheet->Cells(uno::Any(cellRow), uno::Any(cellColumn))->Select();
 699
 700         //pViewShell->FreezeSplitters( FALSE );
 701         dispatchExecute( pViewShell, SID_WINDOW_SPLIT );
 702     }
 703 }
 704
 705 uno::Any SAL_CALL
 706 ScVbaWindow::getZoom()
 707 {
 708     uno::Reference< beans::XPropertySet > xProps = getControllerProps();
 709     OUString sName( SC_UNO_ZOOMTYPE );
 710     sal_Int16 nZoomType = view::DocumentZoomType::PAGE_WIDTH;
 711     xProps->getPropertyValue( sName ) >>= nZoomType;
 712     if( nZoomType == view::DocumentZoomType::PAGE_WIDTH )
 713     {
 714         return uno::Any( true );
 715     }
 716     else if( nZoomType == view::DocumentZoomType::BY_VALUE )
 717     {
 718         sName = SC_UNO_ZOOMVALUE;
 719         sal_Int16 nZoom = 100;
 720         xProps->getPropertyValue( sName ) >>= nZoom;
 721         return uno::Any( nZoom );
 722     }
 723     return uno::Any();
 724 }
 725
 726 void SAL_CALL ScVbaWindow::setZoom(const uno::Any& _zoom)
 727 {
 728     sal_Int16 nZoom = 100;
 729     _zoom >>= nZoom;
 730     uno::Reference <sheet::XSpreadsheetDocument> xSpreadDoc( m_xModel, uno::UNO_QUERY_THROW );
 731     uno::Reference< excel::XWorksheet > xActiveSheet = ActiveSheet();
 732     SCTAB nTab = 0;
 733     if ( !ScVbaWorksheets::nameExists (xSpreadDoc, xActiveSheet->getName(), nTab) )
 734         throw uno::RuntimeException();
 735     std::vector< SCTAB > vTabs { nTab };
 736     excel::implSetZoom( m_xModel, nZoom, vTabs );
 737 }
 738
 739 uno::Reference< excel::XWorksheet > SAL_CALL
 740 ScVbaWindow::ActiveSheet(  )
 741 {
 742     uno::Reference< excel::XApplication > xApplication( Application(), uno::UNO_QUERY_THROW );
 743     return xApplication->getActiveSheet();
 744 }
 745
 746 uno::Any SAL_CALL
 747 ScVbaWindow::getView()
 748 {
 749     bool bPageBreak = false;
 750     sal_Int32 nWindowView = excel::XlWindowView::xlNormalView;
 751
 752     ScTabViewShell* pViewShell = excel::getBestViewShell( m_xModel );
 753     if (pViewShell)
 754         bPageBreak = pViewShell->GetViewData().IsPagebreakMode();
 755
 756     if( bPageBreak )
 757         nWindowView = excel::XlWindowView::xlPageBreakPreview;
 758     else
 759         nWindowView = excel::XlWindowView::xlNormalView;
 760
 761     return uno::Any( nWindowView );
 762 }
 763
 764 void SAL_CALL
 765 ScVbaWindow::setView( const uno::Any& _view)
 766 {
 767     sal_Int32 nWindowView = excel::XlWindowView::xlNormalView;
 768     _view >>= nWindowView;
 769     sal_uInt16 nSlot = FID_NORMALVIEWMODE;
 770     switch ( nWindowView )
 771     {
 772         case excel::XlWindowView::xlNormalView:
 773             nSlot = FID_NORMALVIEWMODE;
 774             break;
 775         case excel::XlWindowView::xlPageBreakPreview:
 776             nSlot = FID_PAGEBREAKMODE;
 777             break;
 778         default:
 779             DebugHelper::runtimeexception(ERRCODE_BASIC_BAD_PARAMETER);
 780     }
 781     // !! TODO !! get view shell from controller
 782     ScTabViewShell* pViewShell = excel::getBestViewShell( m_xModel );
 783     if ( pViewShell )
 784         dispatchExecute( pViewShell, nSlot );
 785 }
 786
 787 uno::Reference< excel::XRange > SAL_CALL
 788 ScVbaWindow::getVisibleRange()
 789 {
 790     uno::Reference< container::XIndexAccess > xPanesIA( getController(), uno::UNO_QUERY_THROW );
 791     uno::Reference< sheet::XViewPane > xTopLeftPane( xPanesIA->getByIndex( 0 ), uno::UNO_QUERY_THROW );
 792     uno::Reference< excel::XPane > xPane( new ScVbaPane( this, mxContext, m_xModel, xTopLeftPane ) );
 793     return xPane->getVisibleRange();
 794 }
 795
 796 sal_Int32 SAL_CALL
 797 ScVbaWindow::PointsToScreenPixelsX(sal_Int32 _points)
 798 {
 799     sal_Int32 nHundredthsofOneMillimeters = Millimeter::getInHundredthsOfOneMillimeter( _points );
 800     double fConvertFactor = getDevice()->getInfo().PixelPerMeterX/100000;
 801     return static_cast<sal_Int32>(fConvertFactor * nHundredthsofOneMillimeters );
 802 }
 803
 804 sal_Int32 SAL_CALL
 805 ScVbaWindow::PointsToScreenPixelsY(sal_Int32 _points)
 806 {
 807     sal_Int32 nHundredthsofOneMillimeters = Millimeter::getInHundredthsOfOneMillimeter( _points );
 808     double fConvertFactor = getDevice()->getInfo().PixelPerMeterY/100000;
 809     return static_cast<sal_Int32>(fConvertFactor * nHundredthsofOneMillimeters );
 810 }
 811
 812 void SAL_CALL
 813 ScVbaWindow::PrintOut( const css::uno::Any& From, const css::uno::Any&To, const css::uno::Any& Copies, const css::uno::Any& Preview, const css::uno::Any& ActivePrinter, const css::uno::Any& PrintToFile, const css::uno::Any& Collate, const css::uno::Any& PrToFileName )
 814 {
 815     // need test, print current active sheet
 816     // !! TODO !! get view shell from controller
 817     PrintOutHelper( excel::getBestViewShell( m_xModel ), From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, true );
 818 }
 819
 820 void SAL_CALL
 821 ScVbaWindow::PrintPreview( const css::uno::Any& EnableChanges )
 822 {
 823     // need test, print preview current active sheet
 824     // !! TODO !! get view shell from controller
 825     PrintPreviewHelper( EnableChanges, excel::getBestViewShell( m_xModel ) );
 826 }
 827
 828 double SAL_CALL ScVbaWindow::getTabRatio()
 829 {
 830     ScTabViewShell* pViewShell = excel::getBestViewShell( m_xModel );
 831     if ( pViewShell && pViewShell->GetViewData().GetView() )
 832     {
 833         double fRatio = ScTabView::GetRelTabBarWidth();
 834         if ( fRatio >= 0.0 && fRatio <= 1.0 )
 835             return fRatio;
 836     }
 837     return 0.0;
 838 }
 839
 840 void SAL_CALL ScVbaWindow::setTabRatio( double fRatio )
 841 {
 842     ScTabViewShell* pViewShell = excel::getBestViewShell( m_xModel );
 843     if ( pViewShell && pViewShell->GetViewData().GetView() )
 844     {
 845         if ( fRatio >= 0.0 && fRatio <= 1.0 )
 846             pViewShell->GetViewData().GetView()->SetRelTabBarWidth( fRatio );
 847     }
 848 }
 849
 850 OUString
 851 ScVbaWindow::getServiceImplName()
 852 {
 853     return u"ScVbaWindow"_ustr;
 854 }
 855
 856 uno::Sequence< OUString >
 857 ScVbaWindow::getServiceNames()
 858 {
 859     static uno::Sequence< OUString > const aServiceNames
 860     {
 861         u"ooo.vba.excel.Window"_ustr
 862     };
 863     return aServiceNames;
 864 }
 865
 866 extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface*
 867 Calc_ScVbaWindow_get_implementation(
 868     css::uno::XComponentContext* context, css::uno::Sequence<css::uno::Any> const& args)
 869 {
 870     return cppu::acquire(new ScVbaWindow(args, context));
 871 }
 872
 873 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */