[Libreoffice-commits] core.git: filter/source

[Jürgen Schmidt]

 filter/source/msfilter/escherex.cxx |    9 +++++++++
 1 file changed, 9 insertions(+)

New commits:
commit b82ed78c88b368747be8baccda76733a3bdfe591
Author: Jürgen Schmidt <jsc at apache.org>
Date:   Fri Jun 8 15:08:31 2012 +0000

    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

diff --git a/filter/source/msfilter/escherex.cxx b/filter/source/msfilter/escherex.cxx
index 7fbe40a..34fe8a5 100644
--- a/filter/source/msfilter/escherex.cxx
+++ b/filter/source/msfilter/escherex.cxx
@@ -967,6 +967,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 );