mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Kill vbaFontBase::get/setUnderline

Browse Source
This commit is contained in:
Gábor Stefanik
2012-04-07 19:28:05 +02:00
committed by Caolán McNamara
parent 7a1c5e54af
commit 231520e7bb
2 changed files with 0 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
unusedcode.easy
View File

@@ -298,8 +298,6 @@ VCLXDevice::IsCreatedWithToolkit() const
VCLXPrinterServer::getImplementationId() VCLXPrinterServer::getImplementationId()
VCLXPrinterServer::getTypes() VCLXPrinterServer::getTypes()
VCLXRadioButton::getFirstActionListener() VCLXRadioButton::getFirstActionListener()
VbaFontBase::getUnderline()
VbaFontBase::setUnderline(com::sun::star::uno::Any const&)
VbaFoundFilesEnum::SetFileList(com::sun::star::uno::Sequence<rtl::OUString>&) VbaFoundFilesEnum::SetFileList(com::sun::star::uno::Sequence<rtl::OUString>&)
VbaFoundFilesEnum::VbaFoundFilesEnum() VbaFoundFilesEnum::VbaFoundFilesEnum()
VclEventListeners2::~VclEventListeners2() VclEventListeners2::~VclEventListeners2()

62
vbahelper/source/vbahelper/vbafontbase.cxx
View File

@@ -276,66 +276,4 @@ VbaFontBase::setColor( const uno::Any& _color ) throw (uno::RuntimeException)
mxFont->setPropertyValue( VBAFONTBASE_PROPNAME( "CharColor", "TextColor" ), XLRGBToOORGB(_color) ); mxFont->setPropertyValue( VBAFONTBASE_PROPNAME( "CharColor", "TextColor" ), XLRGBToOORGB(_color) );
} }
void SAL_CALL
VbaFontBase::setUnderline( const uno::Any& /*aValue*/ ) throw ( uno::RuntimeException )
{
/*
// default
sal_Int32 nValue = excel::XlUnderlineStyle::xlUnderlineStyleNone;
aValue >>= nValue;
switch ( nValue )
{
// NOTE:: #TODO #FIMXE
// xlUnderlineStyleDoubleAccounting & xlUnderlineStyleSingleAccounting
// don't seem to be supported in Openoffice.
// The import filter converts them to single or double underlines as appropriate
// So, here at the moment we are similarly silently converting
// xlUnderlineStyleSingleAccounting to xlUnderlineStyleSingle.
case excel::XlUnderlineStyle::xlUnderlineStyleNone:
nValue = awt::FontUnderline::NONE;
break;
case excel::XlUnderlineStyle::xlUnderlineStyleSingle:
case excel::XlUnderlineStyle::xlUnderlineStyleSingleAccounting:
nValue = awt::FontUnderline::SINGLE;
break;
case excel::XlUnderlineStyle::xlUnderlineStyleDouble:
case excel::XlUnderlineStyle::xlUnderlineStyleDoubleAccounting:
nValue = awt::FontUnderline::DOUBLE;
break;
default:
throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Unknown value for Underline")), uno::Reference< uno::XInterface >() );
}
mxFont->setPropertyValue( VBAFONTBASE_PROPNAME( "CharUnderline", "FontUnderline" ), uno::Any( nValue ) );
*/
}
uno::Any SAL_CALL
VbaFontBase::getUnderline() throw ( uno::RuntimeException )
{
sal_Int32 nValue = awt::FontUnderline::NONE;
mxFont->getPropertyValue( VBAFONTBASE_PROPNAME( "CharUnderline", "FontUnderline" ) ) >>= nValue;
/*
switch ( nValue )
{
case awt::FontUnderline::DOUBLE:
nValue = excel::XlUnderlineStyle::xlUnderlineStyleDouble;
break;
case awt::FontUnderline::SINGLE:
nValue = excel::XlUnderlineStyle::xlUnderlineStyleSingle;
break;
case awt::FontUnderline::NONE:
nValue = excel::XlUnderlineStyle::xlUnderlineStyleNone;
break;
default:
throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Unknown value retrieved for Underline") ), uno::Reference< uno::XInterface >() );
}
*/
return uno::makeAny( nValue );
}
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ /* vim:set shiftwidth=4 softtabstop=4 expandtab: */