576 lines
22 KiB
C++
576 lines
22 KiB
C++
/* -*- 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 "vbaborders.hxx"
|
|
|
|
#include <sal/macros.h>
|
|
#include <cppuhelper/implbase3.hxx>
|
|
#include <ooo/vba/excel/XlBordersIndex.hpp>
|
|
#include <ooo/vba/excel/XlBorderWeight.hpp>
|
|
#include <ooo/vba/excel/XlLineStyle.hpp>
|
|
#include <ooo/vba/excel/XlColorIndex.hpp>
|
|
#include <com/sun/star/beans/XPropertySet.hpp>
|
|
#include <com/sun/star/table/TableBorder.hpp>
|
|
#include <com/sun/star/table/XColumnRowRange.hpp>
|
|
#include "vbapalette.hxx"
|
|
|
|
using namespace ::com::sun::star;
|
|
using namespace ::ooo::vba;
|
|
using namespace ::ooo::vba::excel;
|
|
|
|
|
|
typedef ::cppu::WeakImplHelper1<container::XIndexAccess > RangeBorders_Base;
|
|
typedef InheritedHelperInterfaceImpl1<excel::XBorder > ScVbaBorder_Base;
|
|
|
|
// #TODO sort these indexes to match the order in which Excel iterates over the
|
|
// borders, the enumeration will match the order in this list
|
|
static const sal_Int16 supportedIndexTable[] = { XlBordersIndex::xlEdgeLeft, XlBordersIndex::xlEdgeTop, XlBordersIndex::xlEdgeBottom, XlBordersIndex::xlEdgeRight, XlBordersIndex::xlDiagonalDown, XlBordersIndex::xlDiagonalUp, XlBordersIndex::xlInsideVertical, XlBordersIndex::xlInsideHorizontal };
|
|
|
|
const static rtl::OUString sTableBorder( RTL_CONSTASCII_USTRINGPARAM("TableBorder") );
|
|
|
|
// Equiv widths in in 1/100 mm
|
|
const static sal_Int32 OOLineThin = 35;
|
|
const static sal_Int32 OOLineMedium = 88;
|
|
const static sal_Int32 OOLineThick = 141;
|
|
const static sal_Int32 OOLineHairline = 2;
|
|
|
|
class ScVbaBorder : public ScVbaBorder_Base
|
|
{
|
|
private:
|
|
uno::Reference< beans::XPropertySet > m_xProps;
|
|
sal_Int32 m_LineType;
|
|
ScVbaPalette m_Palette;
|
|
bool setBorderLine( table::BorderLine& rBorderLine )
|
|
{
|
|
table::TableBorder aTableBorder;
|
|
m_xProps->getPropertyValue( sTableBorder ) >>= aTableBorder;
|
|
|
|
switch ( m_LineType )
|
|
{
|
|
case XlBordersIndex::xlEdgeLeft:
|
|
aTableBorder.IsLeftLineValid = sal_True;
|
|
aTableBorder.LeftLine= rBorderLine;
|
|
break;
|
|
case XlBordersIndex::xlEdgeTop:
|
|
aTableBorder.IsTopLineValid = sal_True;
|
|
aTableBorder.TopLine = rBorderLine;
|
|
break;
|
|
|
|
case XlBordersIndex::xlEdgeBottom:
|
|
aTableBorder.IsBottomLineValid = sal_True;
|
|
aTableBorder.BottomLine = rBorderLine;
|
|
break;
|
|
case XlBordersIndex::xlEdgeRight:
|
|
aTableBorder.IsRightLineValid = sal_True;
|
|
aTableBorder.RightLine = rBorderLine;
|
|
break;
|
|
case XlBordersIndex::xlInsideVertical:
|
|
aTableBorder.IsVerticalLineValid = sal_True;
|
|
aTableBorder.VerticalLine = rBorderLine;
|
|
break;
|
|
case XlBordersIndex::xlInsideHorizontal:
|
|
aTableBorder.IsHorizontalLineValid = sal_True;
|
|
aTableBorder.HorizontalLine = rBorderLine;
|
|
break;
|
|
case XlBordersIndex::xlDiagonalDown:
|
|
case XlBordersIndex::xlDiagonalUp:
|
|
// #TODO have to ignore at the momement, would be
|
|
// nice to investigate what we can do here
|
|
break;
|
|
default:
|
|
return false;
|
|
}
|
|
m_xProps->setPropertyValue( sTableBorder, uno::makeAny(aTableBorder) );
|
|
return true;
|
|
}
|
|
|
|
bool getBorderLine( table::BorderLine& rBorderLine )
|
|
{
|
|
table::TableBorder aTableBorder;
|
|
m_xProps->getPropertyValue( sTableBorder ) >>= aTableBorder;
|
|
switch ( m_LineType )
|
|
{
|
|
case XlBordersIndex::xlEdgeLeft:
|
|
if ( aTableBorder.IsLeftLineValid )
|
|
rBorderLine = aTableBorder.LeftLine;
|
|
break;
|
|
case XlBordersIndex::xlEdgeTop:
|
|
if ( aTableBorder.IsTopLineValid )
|
|
rBorderLine = aTableBorder.TopLine;
|
|
break;
|
|
|
|
case XlBordersIndex::xlEdgeBottom:
|
|
if ( aTableBorder.IsBottomLineValid )
|
|
rBorderLine = aTableBorder.BottomLine;
|
|
break;
|
|
case XlBordersIndex::xlEdgeRight:
|
|
if ( aTableBorder.IsRightLineValid )
|
|
rBorderLine = aTableBorder.RightLine;
|
|
break;
|
|
case XlBordersIndex::xlInsideVertical:
|
|
if ( aTableBorder.IsVerticalLineValid )
|
|
rBorderLine = aTableBorder.VerticalLine;
|
|
break;
|
|
case XlBordersIndex::xlInsideHorizontal:
|
|
if ( aTableBorder.IsHorizontalLineValid )
|
|
rBorderLine = aTableBorder.HorizontalLine;
|
|
break;
|
|
|
|
case XlBordersIndex::xlDiagonalDown:
|
|
case XlBordersIndex::xlDiagonalUp:
|
|
// #TODO have to ignore at the momement, would be
|
|
// nice to investigate what we can do here
|
|
break;
|
|
default:
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
ScVbaBorder(); // no impl
|
|
protected:
|
|
virtual rtl::OUString getServiceImplName()
|
|
{
|
|
return rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("ScVbaBorder"));
|
|
}
|
|
virtual css::uno::Sequence<rtl::OUString> getServiceNames()
|
|
{
|
|
static uno::Sequence< rtl::OUString > aServiceNames;
|
|
if ( aServiceNames.getLength() == 0 )
|
|
{
|
|
aServiceNames.realloc( 1 );
|
|
aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.Border" ) );
|
|
}
|
|
return aServiceNames;
|
|
}
|
|
public:
|
|
ScVbaBorder( const uno::Reference< beans::XPropertySet > & xProps, const uno::Reference< uno::XComponentContext >& xContext, sal_Int32 lineType, ScVbaPalette& rPalette) : ScVbaBorder_Base( uno::Reference< XHelperInterface >( xProps, uno::UNO_QUERY ), xContext ), m_xProps( xProps ), m_LineType( lineType ), m_Palette( rPalette ) {}
|
|
|
|
// XBorder
|
|
uno::Any SAL_CALL getColor() throw (uno::RuntimeException)
|
|
{
|
|
table::BorderLine aBorderLine;
|
|
if ( getBorderLine( aBorderLine ) )
|
|
return uno::makeAny( OORGBToXLRGB( aBorderLine.Color ) );
|
|
throw uno::RuntimeException( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "No Implementation available" ) ), uno::Reference< uno::XInterface >() );
|
|
}
|
|
void SAL_CALL setColor( const uno::Any& _color ) throw (uno::RuntimeException)
|
|
{
|
|
sal_Int32 nColor = 0;
|
|
_color >>= nColor;
|
|
table::BorderLine aBorderLine;
|
|
if ( getBorderLine( aBorderLine ) )
|
|
{
|
|
aBorderLine.Color = XLRGBToOORGB( nColor );
|
|
setBorderLine( aBorderLine );
|
|
}
|
|
else
|
|
throw uno::RuntimeException( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "No Implementation available" ) ), uno::Reference< uno::XInterface >() );
|
|
}
|
|
|
|
uno::Any SAL_CALL getColorIndex() throw (uno::RuntimeException)
|
|
{
|
|
sal_Int32 nColor = 0;
|
|
XLRGBToOORGB( getColor() ) >>= nColor;
|
|
uno::Reference< container::XIndexAccess > xIndex = m_Palette.getPalette();
|
|
sal_Int32 nElems = xIndex->getCount();
|
|
sal_Int32 nIndex = -1;
|
|
for ( sal_Int32 count=0; count<nElems; ++count )
|
|
{
|
|
sal_Int32 nPaletteColor = 0;
|
|
xIndex->getByIndex( count ) >>= nPaletteColor;
|
|
if ( nPaletteColor == nColor )
|
|
{
|
|
nIndex = count + 1;
|
|
break;
|
|
}
|
|
}
|
|
return uno::makeAny(nIndex);
|
|
}
|
|
|
|
void SAL_CALL setColorIndex( const uno::Any& _colorindex ) throw (uno::RuntimeException)
|
|
{
|
|
sal_Int32 nColor = 0;
|
|
_colorindex >>= nColor;
|
|
if ( !nColor || nColor == XlColorIndex::xlColorIndexAutomatic )
|
|
nColor = 1;
|
|
setColor( OORGBToXLRGB( m_Palette.getPalette()->getByIndex( --nColor ) ) );
|
|
}
|
|
uno::Any SAL_CALL getWeight() throw (uno::RuntimeException)
|
|
{
|
|
table::BorderLine aBorderLine;
|
|
if ( getBorderLine( aBorderLine ) )
|
|
{
|
|
switch ( aBorderLine.OuterLineWidth )
|
|
{
|
|
case 0: // Thin = default OO thickness
|
|
case OOLineThin:
|
|
return uno::makeAny( XlBorderWeight::xlThin );
|
|
case OOLineMedium:
|
|
return uno::makeAny( XlBorderWeight::xlMedium );
|
|
case OOLineThick:
|
|
return uno::makeAny( XlBorderWeight::xlThick );
|
|
case OOLineHairline:
|
|
return uno::makeAny( XlBorderWeight::xlHairline );
|
|
default:
|
|
break;
|
|
}
|
|
}
|
|
throw uno::RuntimeException( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Method failed" ) ), uno::Reference< uno::XInterface >() );
|
|
}
|
|
void SAL_CALL setWeight( const uno::Any& _weight ) throw (uno::RuntimeException)
|
|
{
|
|
sal_Int32 nWeight = 0;
|
|
_weight >>= nWeight;
|
|
table::BorderLine aBorderLine;
|
|
if ( getBorderLine( aBorderLine ) )
|
|
{
|
|
switch ( nWeight )
|
|
{
|
|
case XlBorderWeight::xlThin:
|
|
aBorderLine.OuterLineWidth = OOLineThin;
|
|
break;
|
|
case XlBorderWeight::xlMedium:
|
|
aBorderLine.OuterLineWidth = OOLineMedium;
|
|
break;
|
|
case XlBorderWeight::xlThick:
|
|
aBorderLine.OuterLineWidth = OOLineThick;
|
|
break;
|
|
case XlBorderWeight::xlHairline:
|
|
aBorderLine.OuterLineWidth = OOLineHairline;
|
|
break;
|
|
default:
|
|
throw uno::RuntimeException( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Bad param" ) ), uno::Reference< uno::XInterface >() );
|
|
}
|
|
setBorderLine( aBorderLine );
|
|
}
|
|
else
|
|
throw uno::RuntimeException( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Method failed" ) ), uno::Reference< uno::XInterface >() );
|
|
}
|
|
|
|
uno::Any SAL_CALL getLineStyle() throw (uno::RuntimeException)
|
|
{
|
|
// always return xlContinuous;
|
|
return uno::makeAny( XlLineStyle::xlContinuous );
|
|
}
|
|
void SAL_CALL setLineStyle( const uno::Any& _linestyle ) throw (uno::RuntimeException)
|
|
{
|
|
// Urk no choice but to silently ignore we don't support this attribute
|
|
// #TODO would be nice to support the excel line styles
|
|
sal_Int32 nLineStyle = 0;
|
|
_linestyle >>= nLineStyle;
|
|
table::BorderLine aBorderLine;
|
|
if ( getBorderLine( aBorderLine ) )
|
|
{
|
|
switch ( nLineStyle )
|
|
{
|
|
case XlLineStyle::xlContinuous:
|
|
case XlLineStyle::xlDash:
|
|
case XlLineStyle::xlDashDot:
|
|
case XlLineStyle::xlDashDotDot:
|
|
case XlLineStyle::xlDot:
|
|
case XlLineStyle::xlDouble:
|
|
case XlLineStyle::xlLineStyleNone:
|
|
case XlLineStyle::xlSlantDashDot:
|
|
break;
|
|
default:
|
|
throw uno::RuntimeException( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Bad param" ) ), uno::Reference< uno::XInterface >() );
|
|
}
|
|
setBorderLine( aBorderLine );
|
|
}
|
|
else
|
|
throw uno::RuntimeException( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Method failed" ) ), uno::Reference< uno::XInterface >() );
|
|
}
|
|
};
|
|
|
|
class RangeBorders : public RangeBorders_Base
|
|
{
|
|
private:
|
|
uno::Reference< table::XCellRange > m_xRange;
|
|
uno::Reference< uno::XComponentContext > m_xContext;
|
|
ScVbaPalette m_Palette;
|
|
sal_Int32 getTableIndex( sal_Int32 nConst )
|
|
{
|
|
// hokay return position of the index in the table
|
|
sal_Int32 nIndexes = getCount();
|
|
sal_Int32 realIndex = 0;
|
|
const sal_Int16* pTableEntry = supportedIndexTable;
|
|
for ( ; realIndex < nIndexes; ++realIndex, ++pTableEntry )
|
|
{
|
|
if ( *pTableEntry == nConst )
|
|
return realIndex;
|
|
}
|
|
return getCount(); // error condition
|
|
}
|
|
public:
|
|
RangeBorders( const uno::Reference< table::XCellRange >& xRange, const uno::Reference< uno::XComponentContext > & xContext, ScVbaPalette& rPalette ) : m_xRange( xRange ), m_xContext( xContext ), m_Palette( rPalette )
|
|
{
|
|
}
|
|
// XIndexAccess
|
|
virtual ::sal_Int32 SAL_CALL getCount( ) throw (uno::RuntimeException)
|
|
{
|
|
return SAL_N_ELEMENTS( supportedIndexTable );
|
|
}
|
|
virtual uno::Any SAL_CALL getByIndex( ::sal_Int32 Index ) throw (lang::IndexOutOfBoundsException, lang::WrappedTargetException, uno::RuntimeException)
|
|
{
|
|
|
|
sal_Int32 nIndex = getTableIndex( Index );
|
|
if ( nIndex >= 0 && nIndex < getCount() )
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProps( m_xRange, uno::UNO_QUERY_THROW );
|
|
return uno::makeAny( uno::Reference< excel::XBorder >( new ScVbaBorder( xProps, m_xContext, supportedIndexTable[ nIndex ], m_Palette )) );
|
|
}
|
|
throw lang::IndexOutOfBoundsException();
|
|
}
|
|
virtual uno::Type SAL_CALL getElementType( ) throw (uno::RuntimeException)
|
|
{
|
|
return excel::XBorder::static_type(0);
|
|
}
|
|
virtual ::sal_Bool SAL_CALL hasElements( ) throw (uno::RuntimeException)
|
|
{
|
|
return sal_True;
|
|
}
|
|
};
|
|
|
|
uno::Reference< container::XIndexAccess >
|
|
rangeToBorderIndexAccess( const uno::Reference< table::XCellRange >& xRange, const uno::Reference< uno::XComponentContext > & xContext, ScVbaPalette& rPalette )
|
|
{
|
|
return new RangeBorders( xRange, xContext, rPalette );
|
|
}
|
|
|
|
class RangeBorderEnumWrapper : public EnumerationHelper_BASE
|
|
{
|
|
uno::Reference<container::XIndexAccess > m_xIndexAccess;
|
|
sal_Int32 nIndex;
|
|
public:
|
|
RangeBorderEnumWrapper( const uno::Reference< container::XIndexAccess >& xIndexAccess ) : m_xIndexAccess( xIndexAccess ), nIndex( 0 ) {}
|
|
virtual ::sal_Bool SAL_CALL hasMoreElements( ) throw (uno::RuntimeException)
|
|
{
|
|
return ( nIndex < m_xIndexAccess->getCount() );
|
|
}
|
|
|
|
virtual uno::Any SAL_CALL nextElement( ) throw (container::NoSuchElementException, lang::WrappedTargetException, uno::RuntimeException)
|
|
{
|
|
if ( nIndex < m_xIndexAccess->getCount() )
|
|
return m_xIndexAccess->getByIndex( nIndex++ );
|
|
throw container::NoSuchElementException();
|
|
}
|
|
};
|
|
|
|
ScVbaBorders::ScVbaBorders( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext > & xContext, const uno::Reference< table::XCellRange >& xRange, ScVbaPalette& rPalette ): ScVbaBorders_BASE( xParent, xContext, rangeToBorderIndexAccess( xRange ,xContext, rPalette ) ), bRangeIsSingleCell( false )
|
|
{
|
|
uno::Reference< table::XColumnRowRange > xColumnRowRange(xRange, uno::UNO_QUERY_THROW );
|
|
if ( xColumnRowRange->getRows()->getCount() == 1 && xColumnRowRange->getColumns()->getCount() == 1 )
|
|
bRangeIsSingleCell = true;
|
|
m_xProps.set( xRange, uno::UNO_QUERY_THROW );
|
|
}
|
|
|
|
uno::Reference< container::XEnumeration >
|
|
ScVbaBorders::createEnumeration() throw (uno::RuntimeException)
|
|
{
|
|
return new RangeBorderEnumWrapper( m_xIndexAccess );
|
|
}
|
|
|
|
uno::Any
|
|
ScVbaBorders::createCollectionObject( const css::uno::Any& aSource )
|
|
{
|
|
return aSource; // its already a Border object
|
|
}
|
|
|
|
uno::Type
|
|
ScVbaBorders::getElementType() throw (uno::RuntimeException)
|
|
{
|
|
return excel::XBorders::static_type(0);
|
|
}
|
|
|
|
uno::Any
|
|
ScVbaBorders::getItemByIntIndex( const sal_Int32 nIndex ) throw (uno::RuntimeException)
|
|
{
|
|
return createCollectionObject( m_xIndexAccess->getByIndex( nIndex ) );
|
|
}
|
|
|
|
|
|
uno::Any SAL_CALL ScVbaBorders::getColor() throw (uno::RuntimeException)
|
|
{
|
|
sal_Int32 count = getCount();
|
|
uno::Any color;
|
|
for( sal_Int32 i = 0; i < count ; i++ )
|
|
{
|
|
if( XlBordersIndex::xlDiagonalDown != supportedIndexTable[i] && XlBordersIndex::xlDiagonalUp != supportedIndexTable[i] )
|
|
{
|
|
uno::Reference< XBorder > xBorder( getItemByIntIndex( supportedIndexTable[i] ), uno::UNO_QUERY_THROW );
|
|
if( color.hasValue() )
|
|
{
|
|
if( color != xBorder->getColor() )
|
|
return uno::makeAny( uno::Reference< uno::XInterface >() );
|
|
}
|
|
else
|
|
color = xBorder->getColor();
|
|
}
|
|
}
|
|
return color;
|
|
}
|
|
void SAL_CALL ScVbaBorders::setColor( const uno::Any& _color ) throw (uno::RuntimeException)
|
|
{
|
|
sal_Int32 count = getCount();
|
|
for( sal_Int32 i = 0; i < count ; i++ )
|
|
{
|
|
uno::Reference< XBorder > xBorder( getItemByIntIndex( supportedIndexTable[i] ), uno::UNO_QUERY_THROW );
|
|
xBorder->setColor( _color );
|
|
}
|
|
}
|
|
uno::Any SAL_CALL ScVbaBorders::getColorIndex() throw (uno::RuntimeException)
|
|
{
|
|
sal_Int32 count = getCount();
|
|
uno::Any nColorIndex;
|
|
for( sal_Int32 i = 0; i < count ; i++ )
|
|
{
|
|
if( XlBordersIndex::xlDiagonalDown != supportedIndexTable[i] && XlBordersIndex::xlDiagonalUp != supportedIndexTable[i] )
|
|
{
|
|
uno::Reference< XBorder > xBorder( getItemByIntIndex( supportedIndexTable[i] ), uno::UNO_QUERY_THROW );
|
|
if( nColorIndex.hasValue() )
|
|
{
|
|
if( nColorIndex != xBorder->getColorIndex() )
|
|
return uno::makeAny( uno::Reference< uno::XInterface >() );
|
|
}
|
|
else
|
|
nColorIndex = xBorder->getColorIndex();
|
|
}
|
|
}
|
|
return nColorIndex;
|
|
}
|
|
void SAL_CALL ScVbaBorders::setColorIndex( const uno::Any& _colorindex ) throw (uno::RuntimeException)
|
|
{
|
|
sal_Int32 count = getCount();
|
|
for( sal_Int32 i = 0; i < count ; i++ )
|
|
{
|
|
uno::Reference< XBorder > xBorder( getItemByIntIndex( supportedIndexTable[i] ), uno::UNO_QUERY_THROW );
|
|
xBorder->setColorIndex( _colorindex );
|
|
}
|
|
}
|
|
|
|
bool
|
|
lcl_areAllLineWidthsSame( const table::TableBorder& maTableBorder, bool bIsCell )
|
|
{
|
|
|
|
bool bRes = false;
|
|
if (bIsCell)
|
|
{
|
|
bRes = ((maTableBorder.TopLine.OuterLineWidth == maTableBorder.BottomLine.OuterLineWidth) &&
|
|
(maTableBorder.TopLine.OuterLineWidth == maTableBorder.LeftLine.OuterLineWidth) &&
|
|
(maTableBorder.TopLine.OuterLineWidth == maTableBorder.RightLine.OuterLineWidth));
|
|
}
|
|
else
|
|
{
|
|
bRes = ((maTableBorder.TopLine.OuterLineWidth == maTableBorder.BottomLine.OuterLineWidth) &&
|
|
(maTableBorder.TopLine.OuterLineWidth == maTableBorder.LeftLine.OuterLineWidth) &&
|
|
(maTableBorder.TopLine.OuterLineWidth == maTableBorder.HorizontalLine.OuterLineWidth) &&
|
|
(maTableBorder.TopLine.OuterLineWidth == maTableBorder.VerticalLine.OuterLineWidth) &&
|
|
(maTableBorder.TopLine.OuterLineWidth == maTableBorder.RightLine.OuterLineWidth));
|
|
}
|
|
return bRes;
|
|
}
|
|
|
|
uno::Any SAL_CALL ScVbaBorders::getLineStyle() throw (uno::RuntimeException)
|
|
{
|
|
table::TableBorder maTableBorder;
|
|
m_xProps->getPropertyValue( sTableBorder ) >>= maTableBorder;
|
|
|
|
sal_Int32 aLinestyle = XlLineStyle::xlLineStyleNone;
|
|
|
|
if ( lcl_areAllLineWidthsSame( maTableBorder, bRangeIsSingleCell ))
|
|
{
|
|
if (maTableBorder.TopLine.LineDistance != 0)
|
|
{
|
|
aLinestyle = XlLineStyle::xlDouble;
|
|
}
|
|
else if ( maTableBorder.TopLine.OuterLineWidth != 0 )
|
|
{
|
|
aLinestyle = XlLineStyle::xlContinuous;
|
|
}
|
|
}
|
|
return uno::makeAny( aLinestyle );
|
|
}
|
|
void SAL_CALL ScVbaBorders::setLineStyle( const uno::Any& _linestyle ) throw (uno::RuntimeException)
|
|
{
|
|
sal_Int32 count = getCount();
|
|
for( sal_Int32 i = 0; i < count ; i++ )
|
|
{
|
|
uno::Reference< XBorder > xBorder( getItemByIntIndex( supportedIndexTable[i] ), uno::UNO_QUERY_THROW );
|
|
xBorder->setLineStyle( _linestyle );
|
|
}
|
|
}
|
|
uno::Any SAL_CALL ScVbaBorders::getWeight() throw (uno::RuntimeException)
|
|
{
|
|
sal_Int32 count = getCount();
|
|
uno::Any weight;
|
|
for( sal_Int32 i = 0; i < count ; i++ )
|
|
{
|
|
if( XlBordersIndex::xlDiagonalDown != supportedIndexTable[i] && XlBordersIndex::xlDiagonalUp != supportedIndexTable[i] )
|
|
{
|
|
uno::Reference< XBorder > xBorder( getItemByIntIndex( supportedIndexTable[i] ), uno::UNO_QUERY_THROW );
|
|
if( weight.hasValue() )
|
|
{
|
|
if( weight != xBorder->getWeight() )
|
|
return uno::makeAny( uno::Reference< uno::XInterface >() );
|
|
}
|
|
else
|
|
weight = xBorder->getWeight();
|
|
}
|
|
}
|
|
return weight;
|
|
}
|
|
void SAL_CALL ScVbaBorders::setWeight( const uno::Any& _weight ) throw (uno::RuntimeException)
|
|
{
|
|
sal_Int32 count = getCount();
|
|
for( sal_Int32 i = 0; i < count ; i++ )
|
|
{
|
|
uno::Reference< XBorder > xBorder( getItemByIntIndex( supportedIndexTable[i] ), uno::UNO_QUERY_THROW );
|
|
xBorder->setWeight( _weight );
|
|
}
|
|
}
|
|
|
|
|
|
rtl::OUString
|
|
ScVbaBorders::getServiceImplName()
|
|
{
|
|
return rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("ScVbaBorders"));
|
|
}
|
|
|
|
uno::Sequence< rtl::OUString >
|
|
ScVbaBorders::getServiceNames()
|
|
{
|
|
static uno::Sequence< rtl::OUString > aServiceNames;
|
|
if ( aServiceNames.getLength() == 0 )
|
|
{
|
|
aServiceNames.realloc( 1 );
|
|
aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.Borders" ) );
|
|
}
|
|
return aServiceNames;
|
|
}
|
|
|
|
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|