From 231520e7bb996f5ec211ff7e4f64e20f112d8789 Mon Sep 17 00:00:00 2001 From: Gábor Stefanik Date: Sat, 7 Apr 2012 19:28:05 +0200 Subject: Kill vbaFontBase::get/setUnderline --- vbahelper/source/vbahelper/vbafontbase.cxx | 62 ------------------------------ 1 file changed, 62 deletions(-) (limited to 'vbahelper') diff --git a/vbahelper/source/vbahelper/vbafontbase.cxx b/vbahelper/source/vbahelper/vbafontbase.cxx index 3f681c6eec68..59dc77feec07 100644 --- a/vbahelper/source/vbahelper/vbafontbase.cxx +++ b/vbahelper/source/vbahelper/vbafontbase.cxx @@ -276,66 +276,4 @@ VbaFontBase::setColor( const uno::Any& _color ) throw (uno::RuntimeException) 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: */ -- cgit bora/co-24.04.5'>distro/collabora/co-24.04.5 LibreOffice 核心代码仓库文档基金会
summaryrefslogtreecommitdiff
path: root/sysui
AgeCommit message (Expand)Author