From 054f1bacde54692e3dfc0c4fa77adfe9f048741a Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 29 Aug 2011 13:01:53 +0000
Subject: [PATCH] fpspreadsheet: Some more ooxml fixes

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1863 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/fpspreadsheet.pas | 2 +-
 components/fpspreadsheet/xlsxooxml.pas     | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/fpspreadsheet/fpspreadsheet.pas b/components/fpspreadsheet/fpspreadsheet.pas
index 16c519d19..ba06dee29 100755
--- a/components/fpspreadsheet/fpspreadsheet.pas
+++ b/components/fpspreadsheet/fpspreadsheet.pas
@@ -398,7 +398,7 @@ var
   lStr: string;
 begin
   lStr := '';
-  if ACol < 26 then lStr := Char(ACol+54);
+  if ACol < 26 then lStr := Char(ACol+65);
 
   Result := Format('%s%d', [lStr, ARow+1]);
 end;
diff --git a/components/fpspreadsheet/xlsxooxml.pas b/components/fpspreadsheet/xlsxooxml.pas
index 9b2990bb7..18f2af5eb 100755
--- a/components/fpspreadsheet/xlsxooxml.pas
+++ b/components/fpspreadsheet/xlsxooxml.pas
@@ -493,7 +493,7 @@ begin
   CellPosText := TsWorksheet.CellPosToText(ARow, ACol);
   FSheets[FCurSheetNum] := FSheets[FCurSheetNum] +
    Format('    <c r="%s" t="s">', [CellPosText]) + LineEnding +
-          '      <v>2</v>' + LineEnding +
+   Format('      <v>%s</v>', [AValue]) + LineEnding +
           '    </c>' + LineEnding;
 end;
 
@@ -508,7 +508,7 @@ begin
   CellPosText := TsWorksheet.CellPosToText(ARow, ACol);
   FSheets[FCurSheetNum] := FSheets[FCurSheetNum] +
    Format('    <c r="%s">', [CellPosText]) + LineEnding +
-          '      <v>1</v>' + LineEnding +
+   Format('      <v>%f</v>', [AValue]) + LineEnding +
           '    </c>' + LineEnding;
 end;