pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Implements biff 8 rotation

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1265 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2010-07-30 06:51:50 +00:00
parent 1389a835d1
commit 5bc0c65bd2
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/fpspreadsheet/xlsbiff8.pas
View File

@ -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;