fpspreadsheet: Fix incorrect column names left in ooxml format (issue #0026447)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3273 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/fpspreadsheet/examples/ooxmldemo/ooxmlwrite.lpi

@@ -1,4 +1,4 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
     <Version Value="9"/>
@@ -39,12 +39,11 @@
       <Unit0>
         <Filename Value="ooxmlwrite.lpr"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="ooxmlwrite"/>
       </Unit0>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="10"/>
+    <Version Value="11"/>
     <PathDelim Value="\"/>
     <SearchPaths>
       <OtherUnitFiles Value=".."/>
@@ -55,11 +54,10 @@
         <UseAnsiStrings Value="False"/>
       </SyntaxOptions>
     </Parsing>
-    <Other>
-      <CompilerMessages>
-        <UseMsgFile Value="True"/>
-      </CompilerMessages>
-      <CompilerPath Value="$(CompPath)"/>
-    </Other>
+    <Linking>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf2Set"/>
+      </Debugging>
+    </Linking>
   </CompilerOptions>
 </CONFIG>

components/fpspreadsheet/examples/ooxmldemo/ooxmlwrite.lpr

@@ -33,6 +33,8 @@ begin
   MyWorksheet.WriteNumber(0, 2, 3.0);
   MyWorksheet.WriteNumber(0, 3, 4.0);
 
+  MyWorksheet.WriteUTF8Text(0, 26, 'AA'); // Test for column name
+
 // Uncomment this to test large XLS files
   for i := 2 to 2{20} do
   begin

components/fpspreadsheet/fpspreadsheet.pas

@@ -1588,13 +1588,8 @@ end;
   and zero based, to a textual representation which is [Col][Row],
   being that the Col is in letters and the row is in 1-based numbers }
 class function TsWorksheet.CellPosToText(ARow, ACol: Cardinal): string;
-var
-  lStr: string;
 begin
-  lStr := '';
-  if ACol < 26 then lStr := Char(ACol+65);
-
-  Result := Format('%s%d', [lStr, ARow+1]);
+  Result := GetCellString(ARow, ACol, [rfRelCol, rfRelRow]);
 end;
 
 {@@