From 72d201621ffcf3ac5e9b5669cbe8de8f51bf77d7 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 12 Aug 2009 13:08:44 +0000
Subject: [PATCH] fpspreadsheet: small improvements

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@932 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../examples/excel8demo/excel8read.lpi        | 39 +++++--------------
 .../examples/excel8demo/run_excel8read.bat    |  2 +
 components/fpspreadsheet/xlsbiff2.pas         |  3 ++
 components/fpspreadsheet/xlsbiff5.pas         |  5 ++-
 components/fpspreadsheet/xlsbiff8.pas         |  2 +-
 5 files changed, 19 insertions(+), 32 deletions(-)
 create mode 100644 components/fpspreadsheet/examples/excel8demo/run_excel8read.bat

diff --git a/components/fpspreadsheet/examples/excel8demo/excel8read.lpi b/components/fpspreadsheet/examples/excel8demo/excel8read.lpi
index 4147ad1c7..7f9dc1779 100644
--- a/components/fpspreadsheet/examples/excel8demo/excel8read.lpi
+++ b/components/fpspreadsheet/examples/excel8demo/excel8read.lpi
@@ -1,18 +1,20 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="7"/>
+    <PathDelim Value="\"/>
+    <Version Value="6"/>
     <General>
+      <Flags>
+        <AlwaysBuild Value="False"/>
+      </Flags>
+      <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
+      <IconPath Value="./"/>
       <TargetFileExt Value=""/>
-      <Icon Value="0"/>
       <UseXPManifest Value="True"/>
-      <ActiveEditorIndexAtStart Value="0"/>
     </General>
     <VersionInfo>
       <ProjectVersion Value=""/>
-      <Language Value=""/>
-      <CharSet Value=""/>
     </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
@@ -36,40 +38,17 @@
         <Filename Value="excel8read.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="excel8read"/>
-        <CursorPos X="22" Y="13"/>
-        <TopLine Value="1"/>
-        <EditorIndex Value="0"/>
-        <UsageCount Value="20"/>
-        <Loaded Value="True"/>
       </Unit0>
     </Units>
-    <JumpHistory Count="1" HistoryIndex="0">
-      <Position1>
-        <Filename Value="excel8read.lpr"/>
-        <Caret Line="36" Column="62" TopLine="29"/>
-      </Position1>
-    </JumpHistory>
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="8"/>
+    <PathDelim Value="\"/>
     <SearchPaths>
-      <IncludeFiles Value="$(ProjOutDir)/"/>
+      <IncludeFiles Value="$(ProjOutDir)\"/>
     </SearchPaths>
     <Other>
       <CompilerPath Value="$(CompPath)"/>
     </Other>
   </CompilerOptions>
-  <Debugging>
-    <Exceptions Count="3">
-      <Item1>
-        <Name Value="EAbort"/>
-      </Item1>
-      <Item2>
-        <Name Value="ECodetoolError"/>
-      </Item2>
-      <Item3>
-        <Name Value="EFOpenError"/>
-      </Item3>
-    </Exceptions>
-  </Debugging>
 </CONFIG>
diff --git a/components/fpspreadsheet/examples/excel8demo/run_excel8read.bat b/components/fpspreadsheet/examples/excel8demo/run_excel8read.bat
new file mode 100644
index 000000000..5b8301637
--- /dev/null
+++ b/components/fpspreadsheet/examples/excel8demo/run_excel8read.bat
@@ -0,0 +1,2 @@
+excel8read.exe
+pause
\ No newline at end of file
diff --git a/components/fpspreadsheet/xlsbiff2.pas b/components/fpspreadsheet/xlsbiff2.pas
index 27739bc85..3347042a5 100755
--- a/components/fpspreadsheet/xlsbiff2.pas
+++ b/components/fpspreadsheet/xlsbiff2.pas
@@ -19,6 +19,9 @@ Excel file format specification obtained from:
 
 http://sc.openoffice.org/excelfileformat.pdf
 
+Encoding information: ISO_8859_1 is used, to have support to
+other characters, please use a format which support unicode
+
 AUTHORS: Felipe Monteiro de Carvalho
 }
 unit xlsbiff2;
diff --git a/components/fpspreadsheet/xlsbiff5.pas b/components/fpspreadsheet/xlsbiff5.pas
index f71af693d..6f94c8a53 100755
--- a/components/fpspreadsheet/xlsbiff5.pas
+++ b/components/fpspreadsheet/xlsbiff5.pas
@@ -45,6 +45,9 @@ Microsoft BIFF 5 writer example:
 
 http://support.microsoft.com/kb/150447/en-us
 
+Encoding information: ISO_8859_1 is used, to have support to
+other characters, please use a format which support unicode
+
 AUTHORS: Felipe Monteiro de Carvalho
 }
 unit xlsbiff5;
@@ -127,7 +130,7 @@ implementation
 const
   { Excel record IDs }
   INT_EXCEL_ID_BOF        = $0809;
-  INT_EXCEL_ID_BOUNDSHEET = $0085; // Refered as SHEET in the OpenOffice docs
+  INT_EXCEL_ID_BOUNDSHEET = $0085; // Renamed to SHEET in the latest OpenOffice docs
   INT_EXCEL_ID_EOF        = $000A;
   INT_EXCEL_ID_DIMENSIONS = $0200;
   INT_EXCEL_ID_FONT       = $0031;
diff --git a/components/fpspreadsheet/xlsbiff8.pas b/components/fpspreadsheet/xlsbiff8.pas
index f2ac4e364..430450070 100755
--- a/components/fpspreadsheet/xlsbiff8.pas
+++ b/components/fpspreadsheet/xlsbiff8.pas
@@ -112,7 +112,7 @@ implementation
 const
   { Excel record IDs }
   INT_EXCEL_ID_BOF        = $0809;
-  INT_EXCEL_ID_BOUNDSHEET = $0085;
+  INT_EXCEL_ID_BOUNDSHEET = $0085; // Renamed to SHEET in the latest OpenOffice docs
   INT_EXCEL_ID_EOF        = $000A;
   INT_EXCEL_ID_DIMENSIONS = $0200;
   INT_EXCEL_ID_FONT       = $0031;