1 /************************************************************** 2 * 3 * Licensed to the Apache Software Foundation (ASF) under one 4 * or more contributor license agreements. See the NOTICE file 5 * distributed with this work for additional information 6 * regarding copyright ownership. The ASF licenses this file 7 * to you under the Apache License, Version 2.0 (the 8 * "License"); you may not use this file except in compliance 9 * with the License. You may obtain a copy of the License at 10 * 11 * http://www.apache.org/licenses/LICENSE-2.0 12 * 13 * Unless required by applicable law or agreed to in writing, 14 * software distributed under the License is distributed on an 15 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16 * KIND, either express or implied. See the License for the 17 * specific language governing permissions and limitations 18 * under the License. 19 * 20 *************************************************************/ 21 22 23 24 #include "vbapane.hxx" 25 #include <com/sun/star/sheet/XSpreadsheet.hpp> 26 #include <com/sun/star/sheet/XSpreadsheetDocument.hpp> 27 #include <com/sun/star/table/CellRangeAddress.hpp> 28 #include "vbarange.hxx" 29 30 using namespace com::sun::star; 31 using namespace ooo::vba; 32 33 ScVbaPane::ScVbaPane( 34 const css::uno::Reference< ov::XHelperInterface >& xParent, 35 const uno::Reference< uno::XComponentContext >& xContext, 36 const uno::Reference< frame::XModel >& xModel, 37 const uno::Reference< sheet::XViewPane > xViewPane ) throw (uno::RuntimeException) : 38 ScVbaPane_BASE( xParent, xContext ), 39 m_xModel( xModel, uno::UNO_SET_THROW ), 40 m_xViewPane( xViewPane, uno::UNO_SET_THROW ) 41 { 42 } 43 44 sal_Int32 SAL_CALL 45 ScVbaPane::getScrollColumn() throw (uno::RuntimeException) 46 { 47 return ( m_xViewPane->getFirstVisibleColumn() + 1 ); 48 } 49 50 void SAL_CALL 51 ScVbaPane::setScrollColumn( sal_Int32 _scrollcolumn ) throw (uno::RuntimeException) 52 { 53 if( _scrollcolumn < 1 ) 54 { 55 throw uno::RuntimeException( rtl::OUString::createFromAscii( "Column number should not less than 1" ), 56 uno::Reference< uno::XInterface >() ); 57 } 58 m_xViewPane->setFirstVisibleColumn( _scrollcolumn - 1 ); 59 } 60 61 sal_Int32 SAL_CALL 62 ScVbaPane::getScrollRow() throw (uno::RuntimeException) 63 { 64 return ( m_xViewPane->getFirstVisibleRow() + 1 ); 65 } 66 67 void SAL_CALL 68 ScVbaPane::setScrollRow( sal_Int32 _scrollrow ) throw (uno::RuntimeException) 69 { 70 if( _scrollrow < 1 ) 71 { 72 throw uno::RuntimeException( rtl::OUString::createFromAscii( "Row number should not less than 1" ), 73 uno::Reference< uno::XInterface >() ); 74 } 75 m_xViewPane->setFirstVisibleRow( _scrollrow - 1 ); 76 } 77 78 uno::Reference< excel::XRange > SAL_CALL 79 ScVbaPane::getVisibleRange() throw (uno::RuntimeException) 80 { 81 // TODO: Excel includes partly visible rows/columns, Calc does not 82 table::CellRangeAddress aRangeAddr = m_xViewPane->getVisibleRange(); 83 uno::Reference< sheet::XSpreadsheetDocument > xDoc( m_xModel, uno::UNO_QUERY_THROW ); 84 uno::Reference< container::XIndexAccess > xSheetsIA( xDoc->getSheets(), uno::UNO_QUERY_THROW ); 85 uno::Reference< sheet::XSpreadsheet > xSheet( xSheetsIA->getByIndex( aRangeAddr.Sheet ), uno::UNO_QUERY_THROW ); 86 uno::Reference< table::XCellRange > xRange( xSheet->getCellRangeByPosition( aRangeAddr.StartColumn, aRangeAddr.StartRow, aRangeAddr.EndColumn, aRangeAddr.EndRow ), uno::UNO_SET_THROW ); 87 // TODO: getParent() returns the window, Range needs the worksheet 88 return new ScVbaRange( getParent(), mxContext, xRange ); 89 } 90 91 //Method 92 void SAL_CALL 93 ScVbaPane::SmallScroll( const uno::Any& Down, const uno::Any& Up, const uno::Any& ToRight, const uno::Any& ToLeft ) throw (uno::RuntimeException) 94 { 95 rtl::OUString messageBuffer; 96 sal_Int32 downRows = 0; 97 sal_Int32 rightCols = 0; 98 table::CellRangeAddress visibleRange = m_xViewPane->getVisibleRange(); 99 100 if( Down.hasValue() ) 101 { 102 sal_Int32 down = 0; 103 if( Down >>= down ) 104 downRows += down; 105 else 106 messageBuffer += rtl::OUString::createFromAscii( "Error getting parameter: Down\n" ); 107 } 108 if( Up.hasValue() ) 109 { 110 sal_Int32 up = 0; 111 if( Up >>= up ) 112 downRows -= up; 113 else 114 messageBuffer += rtl::OUString::createFromAscii( "Error getting parameter: Up\n" ); 115 } 116 if( ToRight.hasValue() ) 117 { 118 sal_Int32 right = 0; 119 if( ToRight >>= right ) 120 rightCols += right; 121 else 122 messageBuffer += rtl::OUString::createFromAscii( "Error getting parameter: ToRight\n" ); 123 } 124 if( ToLeft.hasValue() ) 125 { 126 sal_Int32 left = 0; 127 if( ToLeft >>= left ) 128 rightCols -= left; 129 else 130 messageBuffer += rtl::OUString::createFromAscii( "Error getting parameter: ToLeft\n" ); 131 } 132 if( messageBuffer.getLength() > 0 ) 133 throw(uno::RuntimeException( messageBuffer, uno::Reference< uno::XInterface >() ) ); 134 135 sal_Int32 newStartRow = visibleRange.StartRow + downRows; 136 if( newStartRow < 0 ) 137 newStartRow = 0; 138 sal_Int32 newStartCol = visibleRange.StartColumn + rightCols; 139 if( newStartCol < 0 ) 140 newStartCol = 0; 141 m_xViewPane->setFirstVisibleRow( newStartRow ); 142 m_xViewPane->setFirstVisibleColumn( newStartCol ); 143 } 144 145 void SAL_CALL 146 ScVbaPane::LargeScroll( const uno::Any& Down, const uno::Any& Up, const uno::Any& ToRight, const uno::Any& ToLeft ) throw (uno::RuntimeException) 147 { 148 rtl::OUString messageBuffer; 149 table::CellRangeAddress visibleRange = m_xViewPane->getVisibleRange(); 150 151 sal_Int32 vertPageSize = 1 + visibleRange.EndRow - visibleRange.StartRow; 152 sal_Int32 horizPageSize = 1 + visibleRange.EndColumn - visibleRange.StartColumn; 153 sal_Int32 downPages = 0; 154 sal_Int32 acrossPages = 0; 155 if( Down.hasValue() ) 156 { 157 sal_Int32 down = 0; 158 if( Down >>= down ) 159 downPages += down; 160 else 161 messageBuffer += rtl::OUString::createFromAscii( "Error getting parameter: Down\n" ); 162 } 163 if( Up.hasValue() ) 164 { 165 sal_Int32 up = 0; 166 if( Up >>= up ) 167 downPages -= up; 168 else 169 messageBuffer += rtl::OUString::createFromAscii( "Error getting parameter: Up\n" ); 170 } 171 if( ToRight.hasValue() ) 172 { 173 sal_Int32 right = 0; 174 if( ToRight >>= right ) 175 acrossPages += right; 176 else 177 messageBuffer += rtl::OUString::createFromAscii( "Error getting parameter: ToRight\n" ); 178 } 179 if( ToLeft.hasValue() ) 180 { 181 sal_Int32 left = 0; 182 if( ToLeft >>= left ) 183 acrossPages -= left; 184 else 185 messageBuffer += rtl::OUString::createFromAscii( "Error getting parameter: ToLeft\n" ); 186 } 187 if( messageBuffer.getLength() > 0 ) 188 throw(uno::RuntimeException( messageBuffer, uno::Reference< uno::XInterface >() ) ); 189 190 sal_Int32 newStartRow = visibleRange.StartRow + (downPages * vertPageSize ); 191 if( newStartRow < 0 ) 192 newStartRow = 0; 193 sal_Int32 newStartCol = visibleRange.StartColumn + (acrossPages * horizPageSize ); 194 if( newStartCol < 0 ) 195 newStartCol = 0; 196 m_xViewPane->setFirstVisibleRow( newStartRow ); 197 m_xViewPane->setFirstVisibleColumn( newStartCol ); 198 } 199 200 // XHelperInterface 201 202 VBAHELPER_IMPL_XHELPERINTERFACE( ScVbaPane, "ooo.vba.excel.Pane" ) 203