1*cdf0e10cSrcweir /************************************************************************* 2*cdf0e10cSrcweir * 3*cdf0e10cSrcweir * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4*cdf0e10cSrcweir * 5*cdf0e10cSrcweir * Copyright 2000, 2010 Oracle and/or its affiliates. 6*cdf0e10cSrcweir * 7*cdf0e10cSrcweir * OpenOffice.org - a multi-platform office productivity suite 8*cdf0e10cSrcweir * 9*cdf0e10cSrcweir * This file is part of OpenOffice.org. 10*cdf0e10cSrcweir * 11*cdf0e10cSrcweir * OpenOffice.org is free software: you can redistribute it and/or modify 12*cdf0e10cSrcweir * it under the terms of the GNU Lesser General Public License version 3 13*cdf0e10cSrcweir * only, as published by the Free Software Foundation. 14*cdf0e10cSrcweir * 15*cdf0e10cSrcweir * OpenOffice.org is distributed in the hope that it will be useful, 16*cdf0e10cSrcweir * but WITHOUT ANY WARRANTY; without even the implied warranty of 17*cdf0e10cSrcweir * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18*cdf0e10cSrcweir * GNU Lesser General Public License version 3 for more details 19*cdf0e10cSrcweir * (a copy is included in the LICENSE file that accompanied this code). 20*cdf0e10cSrcweir * 21*cdf0e10cSrcweir * You should have received a copy of the GNU Lesser General Public License 22*cdf0e10cSrcweir * version 3 along with OpenOffice.org. If not, see 23*cdf0e10cSrcweir * <http://www.openoffice.org/license.html> 24*cdf0e10cSrcweir * for a copy of the LGPLv3 License. 25*cdf0e10cSrcweir * 26*cdf0e10cSrcweir ************************************************************************/ 27*cdf0e10cSrcweir 28*cdf0e10cSrcweir package integration.forms; 29*cdf0e10cSrcweir 30*cdf0e10cSrcweir import com.sun.star.uno.*; 31*cdf0e10cSrcweir import com.sun.star.lang.XMultiServiceFactory; 32*cdf0e10cSrcweir import com.sun.star.lang.XComponent; 33*cdf0e10cSrcweir import com.sun.star.table.XCellRange; 34*cdf0e10cSrcweir import com.sun.star.table.CellAddress; 35*cdf0e10cSrcweir import com.sun.star.table.CellRangeAddress; 36*cdf0e10cSrcweir import com.sun.star.container.XIndexAccess; 37*cdf0e10cSrcweir import com.sun.star.sheet.XSpreadsheetDocument; 38*cdf0e10cSrcweir import com.sun.star.sheet.XSpreadsheets; 39*cdf0e10cSrcweir import com.sun.star.beans.NamedValue; 40*cdf0e10cSrcweir 41*cdf0e10cSrcweir /** 42*cdf0e10cSrcweir * 43*cdf0e10cSrcweir * @author fs93730 44*cdf0e10cSrcweir */ 45*cdf0e10cSrcweir public class SpreadsheetDocument extends DocumentHelper 46*cdf0e10cSrcweir { 47*cdf0e10cSrcweir /** Creates a new blank spreadsheet document */ 48*cdf0e10cSrcweir /* ------------------------------------------------------------------ */ 49*cdf0e10cSrcweir public SpreadsheetDocument( XMultiServiceFactory orb ) throws com.sun.star.uno.Exception 50*cdf0e10cSrcweir { 51*cdf0e10cSrcweir super( orb, implLoadAsComponent( orb, "private:factory/scalc" ) ); 52*cdf0e10cSrcweir } 53*cdf0e10cSrcweir 54*cdf0e10cSrcweir /* ------------------------------------------------------------------ */ 55*cdf0e10cSrcweir public SpreadsheetDocument( XMultiServiceFactory orb, XComponent document ) throws com.sun.star.uno.Exception 56*cdf0e10cSrcweir { 57*cdf0e10cSrcweir super( orb, document ); 58*cdf0e10cSrcweir } 59*cdf0e10cSrcweir 60*cdf0e10cSrcweir /* ------------------------------------------------------------------ */ 61*cdf0e10cSrcweir /** returns the sheets collection 62*cdf0e10cSrcweir */ 63*cdf0e10cSrcweir public XSpreadsheets getSheets() throws com.sun.star.uno.Exception 64*cdf0e10cSrcweir { 65*cdf0e10cSrcweir XSpreadsheetDocument spreadsheetDoc = (XSpreadsheetDocument)UnoRuntime.queryInterface( XSpreadsheetDocument.class, 66*cdf0e10cSrcweir getDocument() 67*cdf0e10cSrcweir ); 68*cdf0e10cSrcweir return spreadsheetDoc.getSheets(); 69*cdf0e10cSrcweir } 70*cdf0e10cSrcweir 71*cdf0e10cSrcweir /* ------------------------------------------------------------------ */ 72*cdf0e10cSrcweir /** returns the sheet with the given index 73*cdf0e10cSrcweir */ 74*cdf0e10cSrcweir public XCellRange getSheet( int index ) throws com.sun.star.uno.Exception 75*cdf0e10cSrcweir { 76*cdf0e10cSrcweir XIndexAccess sheets = (XIndexAccess)UnoRuntime.queryInterface( XIndexAccess.class, 77*cdf0e10cSrcweir getSheets() 78*cdf0e10cSrcweir ); 79*cdf0e10cSrcweir return (XCellRange)UnoRuntime.queryInterface( XCellRange.class, 80*cdf0e10cSrcweir sheets.getByIndex( index ) 81*cdf0e10cSrcweir ); 82*cdf0e10cSrcweir } 83*cdf0e10cSrcweir 84*cdf0e10cSrcweir /* ------------------------------------------------------------------ */ 85*cdf0e10cSrcweir /** creates a value binding for a given cell 86*cdf0e10cSrcweir */ 87*cdf0e10cSrcweir public com.sun.star.form.binding.XValueBinding createCellBinding( short sheet, short column, short row ) 88*cdf0e10cSrcweir { 89*cdf0e10cSrcweir return createCellBinding( sheet, column, row, false ); 90*cdf0e10cSrcweir } 91*cdf0e10cSrcweir 92*cdf0e10cSrcweir /* ------------------------------------------------------------------ */ 93*cdf0e10cSrcweir /** creates a value binding which can be used to exchange a list box selection <em>index</em> with a cell 94*cdf0e10cSrcweir */ 95*cdf0e10cSrcweir public com.sun.star.form.binding.XValueBinding createListIndexBinding( short sheet, short column, short row ) 96*cdf0e10cSrcweir { 97*cdf0e10cSrcweir return createCellBinding( sheet, column, row, true ); 98*cdf0e10cSrcweir } 99*cdf0e10cSrcweir 100*cdf0e10cSrcweir /* ------------------------------------------------------------------ */ 101*cdf0e10cSrcweir /** creates a value binding for a given cell, with or without support for integer value exchange 102*cdf0e10cSrcweir */ 103*cdf0e10cSrcweir private com.sun.star.form.binding.XValueBinding createCellBinding( short sheet, short column, short row, boolean supportIntegerValues ) 104*cdf0e10cSrcweir { 105*cdf0e10cSrcweir com.sun.star.form.binding.XValueBinding cellBinding = null; 106*cdf0e10cSrcweir try 107*cdf0e10cSrcweir { 108*cdf0e10cSrcweir CellAddress address = new CellAddress( sheet, column, row ); 109*cdf0e10cSrcweir Object[] initParam = new Object[] { new NamedValue( "BoundCell", address ) }; 110*cdf0e10cSrcweir cellBinding = (com.sun.star.form.binding.XValueBinding)UnoRuntime.queryInterface( 111*cdf0e10cSrcweir com.sun.star.form.binding.XValueBinding.class, 112*cdf0e10cSrcweir createInstanceWithArguments( 113*cdf0e10cSrcweir supportIntegerValues ? "com.sun.star.table.ListPositionCellBinding" 114*cdf0e10cSrcweir : "com.sun.star.table.CellValueBinding", 115*cdf0e10cSrcweir initParam 116*cdf0e10cSrcweir ) 117*cdf0e10cSrcweir ); 118*cdf0e10cSrcweir } 119*cdf0e10cSrcweir catch( com.sun.star.uno.Exception e ) 120*cdf0e10cSrcweir { 121*cdf0e10cSrcweir System.err.println( e ); 122*cdf0e10cSrcweir e.printStackTrace( System.err ); 123*cdf0e10cSrcweir } 124*cdf0e10cSrcweir return cellBinding; 125*cdf0e10cSrcweir } 126*cdf0e10cSrcweir 127*cdf0e10cSrcweir /* ------------------------------------------------------------------ */ 128*cdf0e10cSrcweir /** creates a source of list entries associated with a (one-column) cell range 129*cdf0e10cSrcweir */ 130*cdf0e10cSrcweir public com.sun.star.form.binding.XListEntrySource createListEntrySource( short sheet, short column, 131*cdf0e10cSrcweir short topRow, short bottomRow ) 132*cdf0e10cSrcweir { 133*cdf0e10cSrcweir com.sun.star.form.binding.XListEntrySource entrySource = null; 134*cdf0e10cSrcweir try 135*cdf0e10cSrcweir { 136*cdf0e10cSrcweir CellRangeAddress rangeAddress = new CellRangeAddress( sheet, column, 137*cdf0e10cSrcweir topRow, column, bottomRow ); 138*cdf0e10cSrcweir Object[] initParam = new Object[] { new NamedValue( "CellRange", rangeAddress ) }; 139*cdf0e10cSrcweir entrySource = (com.sun.star.form.binding.XListEntrySource)UnoRuntime.queryInterface( 140*cdf0e10cSrcweir com.sun.star.form.binding.XListEntrySource.class, 141*cdf0e10cSrcweir createInstanceWithArguments( 142*cdf0e10cSrcweir "com.sun.star.table.CellRangeListSource", initParam ) ); 143*cdf0e10cSrcweir } 144*cdf0e10cSrcweir catch( com.sun.star.uno.Exception e ) 145*cdf0e10cSrcweir { 146*cdf0e10cSrcweir System.err.println( e ); 147*cdf0e10cSrcweir e.printStackTrace( System.err ); 148*cdf0e10cSrcweir } 149*cdf0e10cSrcweir return entrySource; 150*cdf0e10cSrcweir } 151*cdf0e10cSrcweir } 152