summaryrefslogtreecommitdiff
path: root/sc/source/ui/vba/vbapane.cxx
diff options
context:
space:
mode:
Diffstat (limited to 'sc/source/ui/vba/vbapane.cxx')
-rw-r--r--sc/source/ui/vba/vbapane.cxx209
1 files changed, 0 insertions, 209 deletions
diff --git a/sc/source/ui/vba/vbapane.cxx b/sc/source/ui/vba/vbapane.cxx
deleted file mode 100644
index 77c41de03..000000000
--- a/sc/source/ui/vba/vbapane.cxx
+++ /dev/null
@@ -1,209 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-#include "vbapane.hxx"
-#include <com/sun/star/sheet/XSpreadsheet.hpp>
-#include <com/sun/star/sheet/XSpreadsheetDocument.hpp>
-#include <com/sun/star/table/CellRangeAddress.hpp>
-#include "vbarange.hxx"
-
-using namespace com::sun::star;
-using namespace ooo::vba;
-
-ScVbaPane::ScVbaPane(
- const css::uno::Reference< ov::XHelperInterface >& xParent,
- const uno::Reference< uno::XComponentContext >& xContext,
- const uno::Reference< frame::XModel >& xModel,
- const uno::Reference< sheet::XViewPane > xViewPane ) throw (uno::RuntimeException) :
- ScVbaPane_BASE( xParent, xContext ),
- m_xModel( xModel, uno::UNO_SET_THROW ),
- m_xViewPane( xViewPane, uno::UNO_SET_THROW )
-{
-}
-
-sal_Int32 SAL_CALL
-ScVbaPane::getScrollColumn() throw (uno::RuntimeException)
-{
- return ( m_xViewPane->getFirstVisibleColumn() + 1 );
-}
-
-void SAL_CALL
-ScVbaPane::setScrollColumn( sal_Int32 _scrollcolumn ) throw (uno::RuntimeException)
-{
- if( _scrollcolumn < 1 )
- {
- throw uno::RuntimeException( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Column number should not less than 1" )),
- uno::Reference< uno::XInterface >() );
- }
- m_xViewPane->setFirstVisibleColumn( _scrollcolumn - 1 );
-}
-
-sal_Int32 SAL_CALL
-ScVbaPane::getScrollRow() throw (uno::RuntimeException)
-{
- return ( m_xViewPane->getFirstVisibleRow() + 1 );
-}
-
-void SAL_CALL
-ScVbaPane::setScrollRow( sal_Int32 _scrollrow ) throw (uno::RuntimeException)
-{
- if( _scrollrow < 1 )
- {
- throw uno::RuntimeException( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Row number should not less than 1" )),
- uno::Reference< uno::XInterface >() );
- }
- m_xViewPane->setFirstVisibleRow( _scrollrow - 1 );
-}
-
-uno::Reference< excel::XRange > SAL_CALL
-ScVbaPane::getVisibleRange() throw (uno::RuntimeException)
-{
- // TODO: Excel includes partly visible rows/columns, Calc does not
- table::CellRangeAddress aRangeAddr = m_xViewPane->getVisibleRange();
- uno::Reference< sheet::XSpreadsheetDocument > xDoc( m_xModel, uno::UNO_QUERY_THROW );
- uno::Reference< container::XIndexAccess > xSheetsIA( xDoc->getSheets(), uno::UNO_QUERY_THROW );
- uno::Reference< sheet::XSpreadsheet > xSheet( xSheetsIA->getByIndex( aRangeAddr.Sheet ), uno::UNO_QUERY_THROW );
- uno::Reference< table::XCellRange > xRange( xSheet->getCellRangeByPosition( aRangeAddr.StartColumn, aRangeAddr.StartRow, aRangeAddr.EndColumn, aRangeAddr.EndRow ), uno::UNO_SET_THROW );
- // TODO: getParent() returns the window, Range needs the worksheet
- return new ScVbaRange( getParent(), mxContext, xRange );
-}
-
-//Method
-void SAL_CALL
-ScVbaPane::SmallScroll( const uno::Any& Down, const uno::Any& Up, const uno::Any& ToRight, const uno::Any& ToLeft ) throw (uno::RuntimeException)
-{
- rtl::OUString messageBuffer;
- sal_Int32 downRows = 0;
- sal_Int32 rightCols = 0;
- table::CellRangeAddress visibleRange = m_xViewPane->getVisibleRange();
-
- if( Down.hasValue() )
- {
- sal_Int32 down = 0;
- if( Down >>= down )
- downRows += down;
- else
- messageBuffer += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Error getting parameter: Down\n" ));
- }
- if( Up.hasValue() )
- {
- sal_Int32 up = 0;
- if( Up >>= up )
- downRows -= up;
- else
- messageBuffer += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Error getting parameter: Up\n" ));
- }
- if( ToRight.hasValue() )
- {
- sal_Int32 right = 0;
- if( ToRight >>= right )
- rightCols += right;
- else
- messageBuffer += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Error getting parameter: ToRight\n" ));
- }
- if( ToLeft.hasValue() )
- {
- sal_Int32 left = 0;
- if( ToLeft >>= left )
- rightCols -= left;
- else
- messageBuffer += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Error getting parameter: ToLeft\n" ));
- }
- if( messageBuffer.getLength() > 0 )
- throw(uno::RuntimeException( messageBuffer, uno::Reference< uno::XInterface >() ) );
-
- sal_Int32 newStartRow = visibleRange.StartRow + downRows;
- if( newStartRow < 0 )
- newStartRow = 0;
- sal_Int32 newStartCol = visibleRange.StartColumn + rightCols;
- if( newStartCol < 0 )
- newStartCol = 0;
- m_xViewPane->setFirstVisibleRow( newStartRow );
- m_xViewPane->setFirstVisibleColumn( newStartCol );
-}
-
-void SAL_CALL
-ScVbaPane::LargeScroll( const uno::Any& Down, const uno::Any& Up, const uno::Any& ToRight, const uno::Any& ToLeft ) throw (uno::RuntimeException)
-{
- rtl::OUString messageBuffer;
- table::CellRangeAddress visibleRange = m_xViewPane->getVisibleRange();
-
- sal_Int32 vertPageSize = 1 + visibleRange.EndRow - visibleRange.StartRow;
- sal_Int32 horizPageSize = 1 + visibleRange.EndColumn - visibleRange.StartColumn;
- sal_Int32 downPages = 0;
- sal_Int32 acrossPages = 0;
- if( Down.hasValue() )
- {
- sal_Int32 down = 0;
- if( Down >>= down )
- downPages += down;
- else
- messageBuffer += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Error getting parameter: Down\n" ));
- }
- if( Up.hasValue() )
- {
- sal_Int32 up = 0;
- if( Up >>= up )
- downPages -= up;
- else
- messageBuffer += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Error getting parameter: Up\n" ));
- }
- if( ToRight.hasValue() )
- {
- sal_Int32 right = 0;
- if( ToRight >>= right )
- acrossPages += right;
- else
- messageBuffer += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Error getting parameter: ToRight\n" ));
- }
- if( ToLeft.hasValue() )
- {
- sal_Int32 left = 0;
- if( ToLeft >>= left )
- acrossPages -= left;
- else
- messageBuffer += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Error getting parameter: ToLeft\n" ));
- }
- if( messageBuffer.getLength() > 0 )
- throw(uno::RuntimeException( messageBuffer, uno::Reference< uno::XInterface >() ) );
-
- sal_Int32 newStartRow = visibleRange.StartRow + (downPages * vertPageSize );
- if( newStartRow < 0 )
- newStartRow = 0;
- sal_Int32 newStartCol = visibleRange.StartColumn + (acrossPages * horizPageSize );
- if( newStartCol < 0 )
- newStartCol = 0;
- m_xViewPane->setFirstVisibleRow( newStartRow );
- m_xViewPane->setFirstVisibleColumn( newStartCol );
-}
-
-// XHelperInterface
-
-VBAHELPER_IMPL_XHELPERINTERFACE( ScVbaPane, "ooo.vba.excel.Pane" )
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
generated by cgit v1.2.3 (git 2.39.1) at 2025-07-19 02:08:12 +0000