From bdfab9e9f362512f42b040469633851ba4cfa255 Mon Sep 17 00:00:00 2001 From: Jürgen Schmidt Date: Fri, 8 Jun 2012 15:08:31 +0000 Subject: i#119870: Line transparency value is lost after saving as another ppt by AOO fix: export linetransparency attribute Patch By: Lei Debin Found By: phoenix wanglf Review By: jsc Change-Id: I56a589036d1e4e2399f5a1a94283ebd4ce2126f0 (cherry picked from commit b82ed78c88b368747be8baccda76733a3bdfe591) Reviewed-on: https://gerrit.libreoffice.org/2727 Reviewed-by: Fridrich Strba Tested-by: Fridrich Strba --- filter/source/msfilter/escherex.cxx | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'filter/source') diff --git a/filter/source/msfilter/escherex.cxx b/filter/source/msfilter/escherex.cxx index 69b7b4c7a262..f38aeec06e95 100644 --- a/filter/source/msfilter/escherex.cxx +++ b/filter/source/msfilter/escherex.cxx @@ -978,6 +978,15 @@ void EscherPropertyContainer::CreateLineProperties( } AddOpt( ESCHER_Prop_lineJoinStyle, eLineJoin ); + if ( EscherPropertyValueHelper::GetPropertyValue( + aAny, rXPropSet, String( RTL_CONSTASCII_USTRINGPARAM( "LineTransparence" ) ), sal_True ) ) + { + sal_Int16 nTransparency = 0; + if ( aAny >>= nTransparency ) + AddOpt( ESCHER_Prop_lineOpacity, ( ( 100 - nTransparency ) << 16 ) / 100 ); + } + + if ( bEdge == sal_False ) { AddOpt( ESCHER_Prop_fFillOK, 0x1001 ); -- cgit