/*************************************************************************
*
* 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.
*
************************************************************************/
package integration.forms;
import com.sun.star.uno.*;
import com.sun.star.lang.XMultiServiceFactory;
import com.sun.star.lang.XComponent;
import com.sun.star.table.XCellRange;
import com.sun.star.table.CellAddress;
import com.sun.star.table.CellRangeAddress;
import com.sun.star.container.XIndexAccess;
import com.sun.star.sheet.XSpreadsheetDocument;
import com.sun.star.sheet.XSpreadsheets;
import com.sun.star.beans.NamedValue;
/**
*
* @author fs93730
*/
public class SpreadsheetDocument extends DocumentHelper
{
/** Creates a new blank spreadsheet document */
/* ------------------------------------------------------------------ */
public SpreadsheetDocument( XMultiServiceFactory orb ) throws com.sun.star.uno.Exception
{
super( orb, implLoadAsComponent( orb, "private:factory/scalc" ) );
}
/* ------------------------------------------------------------------ */
public SpreadsheetDocument( XMultiServiceFactory orb, XComponent document ) throws com.sun.star.uno.Exception
{
super( orb, document );
}
/* ------------------------------------------------------------------ */
/** returns the sheets collection
*/
public XSpreadsheets getSheets() throws com.sun.star.uno.Exception
{
XSpreadsheetDocument spreadsheetDoc = (XSpreadsheetDocument)UnoRuntime.queryInterface( XSpreadsheetDocument.class,
getDocument()
);
return spreadsheetDoc.getSheets();
}
/* ------------------------------------------------------------------ */
/** returns the sheet with the given index
*/
public XCellRange getSheet( int index ) throws com.sun.star.uno.Exception
{
XIndexAccess sheets = (XIndexAccess)UnoRuntime.queryInterface( XIndexAccess.class,
getSheets()
);
return (XCellRange)UnoRuntime.queryInterface( XCellRange.class,
sheets.getByIndex( index )
);
}
/* ------------------------------------------------------------------ */
/** creates a value binding for a given cell
*/
public com.sun.star.form.binding.XValueBinding createCellBinding( short sheet, short column, short row )
{
return createCellBinding( sheet, column, row, false );
}
/* ------------------------------------------------------------------ */
/** creates a value binding which can be used to exchange a list box selection <em>index</em> with a cell
*/
public com.sun.star.form.binding.XValueBinding createListIndexBinding( short sheet, short column, short row )
{
return createCellBinding( sheet, column, row, true );
}
/* ------------------------------------------------------------------ */
/** creates a value binding for a given cell, with or without support for integer value exchange
*/
private com.sun.star.form.binding.XValueBinding createCellBinding( short sheet, short column, short row, boolean supportIntegerValues )
{
com.sun.star.form.binding.XValueBinding cellBinding = null;
try
{
CellAddress address = new CellAddress( sheet, column, row );
Object[] initParam = new Object[] { new NamedValue( "BoundCell", address ) };
cellBinding = (com.sun.star.form.binding.XValueBinding)UnoRuntime.queryInterface(
com.sun.star.form.binding.XValueBinding.class,
createInstanceWithArguments(
supportIntegerValues ? "com.sun.star.table.ListPositionCellBinding"
: "com.sun.star.table.CellValueBinding",
initParam
)
);
}
catch( com.sun.star.uno.Exception e )
{
System.err.println( e );
e.printStackTrace( System.err );
}
return cellBinding;
}
/* ------------------------------------------------------------------ */
/** creates a source of list entries associated with a (one-column) cell range
*/
public com.sun.star.form.binding.XListEntrySource createListEntrySource( short sheet, short column,
short topRow, short bottomRow )
{
com.sun.star.form.binding.XListEntrySource entrySource = null;
try
{
CellRangeAddress rangeAddress = new CellRangeAddress( sheet, column,
topRow, column, bottomRow );
Object[] initParam = new Object[] { new NamedValue( "CellRange", rangeAddress ) };
entrySource = (com.sun.star.form.binding.XListEntrySource)UnoRuntime.queryInterface(
com.sun.star.form.binding.XListEntrySource.class,
createInstanceWithArguments(
"com.sun.star.table.CellRangeListSource", initParam ) );
}
catch( com.sun.star.uno.Exception e )
{
System.err.println( e );
e.printStackTrace( System.err );
}
return entrySource;
}
}