From a4b7594f3197098377573d7c81bd2a1955686336 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 26 May 2011 09:22:09 +0000
Subject: [PATCH] FPSpreadsheet: Finishes implementing a generic font style
 manager for biff formats. Finishes integrating it with biff8

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1645 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../fpspreadsheet/examples/excel8demo/excel8write_format.lpi    | 1 -
 .../fpspreadsheet/examples/excel8demo/excel8write_format.pas    | 2 +-
 .../examples/excel8demo/run_excel8write_format.bat              | 2 ++
 3 files changed, 3 insertions(+), 2 deletions(-)
 create mode 100644 components/fpspreadsheet/examples/excel8demo/run_excel8write_format.bat

diff --git a/components/fpspreadsheet/examples/excel8demo/excel8write_format.lpi b/components/fpspreadsheet/examples/excel8demo/excel8write_format.lpi
index e40d98a11..2173ae5db 100644
--- a/components/fpspreadsheet/examples/excel8demo/excel8write_format.lpi
+++ b/components/fpspreadsheet/examples/excel8demo/excel8write_format.lpi
@@ -7,7 +7,6 @@
       <Flags>
         <MainUnitHasCreateFormStatements Value="False"/>
         <MainUnitHasTitleStatement Value="False"/>
-        <UseDefaultCompilerOptions Value="True"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
diff --git a/components/fpspreadsheet/examples/excel8demo/excel8write_format.pas b/components/fpspreadsheet/examples/excel8demo/excel8write_format.pas
index ff713fbae..153299438 100644
--- a/components/fpspreadsheet/examples/excel8demo/excel8write_format.pas
+++ b/components/fpspreadsheet/examples/excel8demo/excel8write_format.pas
@@ -108,7 +108,7 @@ begin
   MyWorksheet.WriteUTF8Text(5, 9, '[N,W,E,S]');// J6
   MyCell := MyWorksheet.GetCell(5, 9);
   MyCell^.Border := [cbNorth, cbWest, cbEast, cbSouth];
-  MyCell^.UsedFormattingFields := [uffBorder];
+  MyCell^.UsedFormattingFields := [uffBorder, uffBold];
 
   // Save the spreadsheet to a file
   MyWorkbook.WriteToFile(MyDir + 'test3.xls', sfExcel8, False);
diff --git a/components/fpspreadsheet/examples/excel8demo/run_excel8write_format.bat b/components/fpspreadsheet/examples/excel8demo/run_excel8write_format.bat
new file mode 100644
index 000000000..f470b475e
--- /dev/null
+++ b/components/fpspreadsheet/examples/excel8demo/run_excel8write_format.bat
@@ -0,0 +1,2 @@
+excel8write_format.exe
+pause
\ No newline at end of file