pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

FPSpreadsheet: Finishes implementing a generic font style manager for biff formats. Finishes integrating it with biff8

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1645 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-05-26 09:22:09 +00:00
parent 68f1ccd497
commit a4b7594f31
3 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpspreadsheet/examples/excel8demo/excel8write_format.lpi
View File

@@ -7,7 +7,6 @@
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/> <MainUnitHasTitleStatement Value="False"/>
<UseDefaultCompilerOptions Value="True"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>

2
components/fpspreadsheet/examples/excel8demo/excel8write_format.pas
View File

@@ -108,7 +108,7 @@ begin
MyWorksheet.WriteUTF8Text(5, 9, '[N,W,E,S]');// J6 MyWorksheet.WriteUTF8Text(5, 9, '[N,W,E,S]');// J6
MyCell := MyWorksheet.GetCell(5, 9); MyCell := MyWorksheet.GetCell(5, 9);
MyCell^.Border := [cbNorth, cbWest, cbEast, cbSouth]; MyCell^.Border := [cbNorth, cbWest, cbEast, cbSouth];
MyCell^.UsedFormattingFields := [uffBorder]; MyCell^.UsedFormattingFields := [uffBorder, uffBold];
// Save the spreadsheet to a file // Save the spreadsheet to a file
MyWorkbook.WriteToFile(MyDir + 'test3.xls', sfExcel8, False); MyWorkbook.WriteToFile(MyDir + 'test3.xls', sfExcel8, False);

2
components/fpspreadsheet/examples/excel8demo/run_excel8write_format.bat Normal file
View File

@@ -0,0 +1,2 @@
excel8write_format.exe
pause