[Libreoffice-commits] core.git: Branch 'libreoffice-4-0' - filter/source

[Jürgen Schmidt]

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

New commits:
commit bdfab9e9f362512f42b040469633851ba4cfa255
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
    (cherry picked from commit b82ed78c88b368747be8baccda76733a3bdfe591)
    Reviewed-on: https://gerrit.libreoffice.org/2727
    Reviewed-by: Fridrich Strba <fridrich at documentfoundation.org>
    Tested-by: Fridrich Strba <fridrich at documentfoundation.org>

diff --git a/filter/source/msfilter/escherex.cxx b/filter/source/msfilter/escherex.cxx
index 69b7b4c..f38aeec 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 );