From 5bc0c65bd2a3c9ab76bdb99b5ace9911eaf4f5c0 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 30 Jul 2010 06:51:50 +0000
Subject: [PATCH] Implements biff 8 rotation

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1265 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/xlsbiff8.pas | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/components/fpspreadsheet/xlsbiff8.pas b/components/fpspreadsheet/xlsbiff8.pas
index 6ba8fd067..e49dd3045 100755
--- a/components/fpspreadsheet/xlsbiff8.pas
+++ b/components/fpspreadsheet/xlsbiff8.pas
@@ -347,11 +347,15 @@ begin
   // XF12
   WriteXF(AStream, 0, MASK_XF_TYPE_PROT_STYLE_XF, XF_ROTATION_HORIZONTAL);
   // XF13
-  WriteXF(AStream, 0, MASK_XF_TYPE_PROT_STYLE_XF, XF_ROTATION_90_DEGREE_COUNTERCLOCKWISE);
+  WriteXF(AStream, 0, MASK_XF_TYPE_PROT_STYLE_XF, XF_ROTATION_HORIZONTAL);
   // XF14
-  WriteXF(AStream, 0, MASK_XF_TYPE_PROT_STYLE_XF, XF_ROTATION_90_DEGREE_CLOCKWISE);
+  WriteXF(AStream, 0, MASK_XF_TYPE_PROT_STYLE_XF, XF_ROTATION_HORIZONTAL);
   // XF15
   WriteXF(AStream, 0, 0, XF_ROTATION_HORIZONTAL);
+  // XF16
+  WriteXF(AStream, 0, 0, XF_ROTATION_90_DEGREE_COUNTERCLOCKWISE);
+  // XF17
+  WriteXF(AStream, 0, 0, XF_ROTATION_90_DEGREE_CLOCKWISE);
 
   WriteStyle(AStream);
 
@@ -732,8 +736,8 @@ begin
   if ACell^.UsedFormattingFields = [uffTextRotation] then
   begin
     case ACell^.TextRotation of
-      rt90DegreeCounterClockwiseRotation: AStream.WriteWord(WordToLE(13));
-      rt90DegreeClockwiseRotation: AStream.WriteWord(WordToLE(14));
+      rt90DegreeCounterClockwiseRotation: AStream.WriteWord(WordToLE(16));
+      rt90DegreeClockwiseRotation: AStream.WriteWord(WordToLE(17));
     else
       AStream.WriteWord(WordToLE(15));
     end;