fpspreadsheet: Add support for reading/writing of column widths in biff8 (specified as multiples of the width of the character "0"). Add test case. No regressions

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

components/fpspreadsheet/examples/excel8demo/excel8read.lpi

@@ -1,4 +1,4 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
     <Version Value="9"/>
@@ -43,7 +43,7 @@
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="10"/>
+    <Version Value="11"/>
     <PathDelim Value="\"/>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>

components/fpspreadsheet/examples/excel8demo/excel8write.lpr

@@ -141,13 +141,13 @@ begin
   MyWorksheet.WriteDateTime(37, 1, number, nfTimeInterval);
 
   // Set width of columns 1 and 5
-  lCol.Width := 100;  //mm
+  lCol.Width := 30;
   MyWorksheet.WriteColInfo(1, lCol);
-  lCol.Width := 50;
+  lCol.Width := 5;
   MyWorksheet.WriteColInfo(5, lCol);
 
   // Set height of rows 5 and 6
-  lRow.Height := 10;  // mm
+  lRow.Height := 10;
   MyWorksheet.WriteRowInfo(5, lRow);
   lRow.Height := 5;
   MyWorksheet.WriteRowInfo(6, lRow);