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

Moves the formatting example and the styles building code so that OpenDocument can share them

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1652 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-05-27 13:14:14 +00:00
parent 9ac1f18a50
commit 9169c3f155
5 changed files with 84 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,66 +0,0 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="laz_fpspreadsheet"/>
</Item1>
</RequiredPackages>
<Units Count="1">
<Unit0>
<Filename Value="excel8write_format.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="excel8write_format"/>
</Unit0>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="10"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="excel8write_format"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

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

@ -1,176 +0,0 @@
{
excel8write.dpr
Demonstrates how to write an Excel 8+ file using the fpspreadsheet library
Adds formatting to the file
AUTHORS: Felipe Monteiro de Carvalho
}
program excel8write_format;
{$mode delphi}{$H+}
uses
Classes, SysUtils, fpspreadsheet, xlsbiff8,
laz_fpspreadsheet, fpsconvencoding;
var
MyWorkbook: TsWorkbook;
MyWorksheet: TsWorksheet;
MyDir: string;
MyCell: PCell;
procedure WriteFirstWorksheet();
begin
MyWorksheet := MyWorkbook.AddWorksheet('Worksheet1');
// Write some cells
MyWorksheet.WriteUTF8Text(1, 0, 'Border');// A2
MyWorksheet.WriteUTF8Text(1, 1, '[]'); // B2
MyCell := MyWorksheet.GetCell(1, 1);
MyCell^.Border := [];
MyCell^.UsedFormattingFields := [uffBorder];
MyWorksheet.WriteUTF8Text(1, 3, '[N]');// D2
MyCell := MyWorksheet.GetCell(1, 3);
MyCell^.Border := [cbNorth];
MyCell^.UsedFormattingFields := [uffBorder];
MyWorksheet.WriteUTF8Text(1, 5, '[W]');// F2
MyCell := MyWorksheet.GetCell(1, 5);
MyCell^.Border := [cbWest];
MyCell^.UsedFormattingFields := [uffBorder];
MyWorksheet.WriteUTF8Text(1, 7, '[E]');// H2
MyCell := MyWorksheet.GetCell(1, 7);
MyCell^.Border := [cbEast];
MyCell^.UsedFormattingFields := [uffBorder];
MyWorksheet.WriteUTF8Text(1, 9, '[S]');// J2
MyCell := MyWorksheet.GetCell(1, 9);
MyCell^.Border := [cbSouth];
MyCell^.UsedFormattingFields := [uffBorder];
MyWorksheet.WriteUTF8Text(3, 1, '[N,W]');// B4
MyCell := MyWorksheet.GetCell(3, 1);
MyCell^.Border := [cbNorth, cbWest];
MyCell^.UsedFormattingFields := [uffBorder];
MyWorksheet.WriteUTF8Text(3, 3, '[N,E]');// D4
MyCell := MyWorksheet.GetCell(3, 3);
MyCell^.Border := [cbNorth, cbEast];
MyCell^.UsedFormattingFields := [uffBorder];
MyWorksheet.WriteUTF8Text(3, 5, '[N,S]');// F4
MyCell := MyWorksheet.GetCell(3, 5);
MyCell^.Border := [cbNorth, cbSouth];
MyCell^.UsedFormattingFields := [uffBorder];
MyWorksheet.WriteUTF8Text(3, 7, '[W,E]');// H4
MyCell := MyWorksheet.GetCell(3, 7);
MyCell^.Border := [cbWest, cbEast];
MyCell^.UsedFormattingFields := [uffBorder];
MyWorksheet.WriteUTF8Text(3, 9, '[W,S]');// J4
MyCell := MyWorksheet.GetCell(3, 9);
MyCell^.Border := [cbWest, cbSouth];
MyCell^.UsedFormattingFields := [uffBorder];
MyWorksheet.WriteUTF8Text(3, 11, '[E,S]');// L4
MyCell := MyWorksheet.GetCell(3, 11);
MyCell^.Border := [cbEast, cbSouth];
MyCell^.UsedFormattingFields := [uffBorder];
MyWorksheet.WriteUTF8Text(5, 1, '[N,W,E]');// B6
MyCell := MyWorksheet.GetCell(5, 1);
MyCell^.Border := [cbNorth, cbWest, cbEast];
MyCell^.UsedFormattingFields := [uffBorder];
MyWorksheet.WriteUTF8Text(5, 3, '[N,W,S]');// D6
MyCell := MyWorksheet.GetCell(5, 3);
MyCell^.Border := [cbNorth, cbWest, cbSouth];
MyCell^.UsedFormattingFields := [uffBorder];
MyWorksheet.WriteUTF8Text(5, 5, '[N,E,S]');// F6
MyCell := MyWorksheet.GetCell(5, 5);
MyCell^.Border := [cbNorth, cbEast, cbSouth];
MyCell^.UsedFormattingFields := [uffBorder];
MyWorksheet.WriteUTF8Text(5, 7, '[W,E,S]');// H6
MyCell := MyWorksheet.GetCell(5, 7);
MyCell^.Border := [cbWest, cbEast, cbSouth];
MyCell^.UsedFormattingFields := [uffBorder];
MyWorksheet.WriteUTF8Text(5, 9, '[N,W,E,S]');// J6
MyCell := MyWorksheet.GetCell(5, 9);
MyCell^.Border := [cbNorth, cbWest, cbEast, cbSouth];
MyCell^.BackgroundColor := scGreen;
MyCell^.UsedFormattingFields := [uffBorder, uffBold, uffBackgroundColor];
end;
procedure WriteSecondWorksheet();
begin
MyWorksheet := MyWorkbook.AddWorksheet('Worksheet2');
// Write some cells
// Line 1
MyWorksheet.WriteUTF8Text(1, 1, 'Relatório');
MyCell := MyWorksheet.GetCell(1, 1);
MyCell^.Border := [cbNorth, cbWest, cbSouth];
MyCell^.BackgroundColor := scGrey20pct;
MyCell^.UsedFormattingFields := [uffBorder, uffBackgroundColor, uffBold];
MyWorksheet.WriteUTF8Text(1, 2, ' ');
MyCell := MyWorksheet.GetCell(1, 2);
MyCell^.Border := [cbNorth, cbEast, cbSouth];
MyCell^.BackgroundColor := scGrey20pct;
MyCell^.UsedFormattingFields := [uffBorder, uffBackgroundColor];
// Line 2
MyWorksheet.WriteUTF8Text(2, 1, 'Compras');
MyCell := MyWorksheet.GetCell(2, 1);
MyCell^.Border := [cbWest];
MyCell^.BackgroundColor := scGrey10pct;
MyCell^.UsedFormattingFields := [uffBorder, uffBackgroundColor];
MyWorksheet.WriteUTF8Text(2, 2, 'R$ 20');
MyCell := MyWorksheet.GetCell(2, 2);
MyCell^.Border := [cbEast];
MyCell^.BackgroundColor := scGrey10pct;
MyCell^.UsedFormattingFields := [uffBorder, uffBackgroundColor];
// Line 3
MyWorksheet.WriteUTF8Text(3, 1, 'Total:');
MyCell := MyWorksheet.GetCell(3, 1);
MyCell^.Border := [cbWest, cbSouth];
MyCell^.BackgroundColor := scGrey10pct;
MyCell^.UsedFormattingFields := [uffBorder, uffBackgroundColor];
MyWorksheet.WriteUTF8Text(3, 2, 'R$ 20');
MyCell := MyWorksheet.GetCell(3, 2);
MyCell^.Border := [cbEast, cbSouth];
MyCell^.BackgroundColor := scGrey10pct;
MyCell^.UsedFormattingFields := [uffBorder, uffBackgroundColor];
end;
begin
MyDir := ExtractFilePath(ParamStr(0));
// Create the spreadsheet
MyWorkbook := TsWorkbook.Create;
WriteFirstWorksheet();
WriteSecondWorksheet();
// Save the spreadsheet to a file
MyWorkbook.WriteToFile(MyDir + 'test3.xls', sfExcel8, False);
MyWorkbook.Free;
end.

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

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