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

fpspreadsheet: Set "use unit" flag of fpscell. Update demo_write_formatting to use package instead of path to fpspreadsheet.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5740 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-02-05 21:04:36 +00:00
parent 5ef12d417d
commit ebb9b428ea
3 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpspreadsheet/examples/other/demo_write_formatting.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags> <Flags>
@ -30,10 +30,13 @@
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="2">
<Item1> <Item1>
<PackageName Value="LazUtils"/> <PackageName Value="laz_fpspreadsheet"/>
</Item1> </Item1>
<Item2>
<PackageName Value="LazUtils"/>
</Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="1"> <Units Count="1">
<Unit0> <Unit0>
@ -50,7 +53,6 @@
</Target> </Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/> <IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="..\..\source\common"/>
<UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Parsing> <Parsing>

6
components/fpspreadsheet/examples/other/demo_write_formatting.pas
View File

@ -12,8 +12,8 @@ program demo_write_formatting;
{$mode delphi}{$H+} {$mode delphi}{$H+}
uses uses
Classes, SysUtils, Classes, SysUtils, fpsTypes, fpspreadsheet, xlsbiff8, fpsopendocument,
fpsTypes, fpspreadsheet, xlsbiff8, fpsopendocument, fpscell; fpscell, laz_fpspreadsheet;
var var
MyWorkbook: TsWorkbook; MyWorkbook: TsWorkbook;
@ -30,7 +30,7 @@ begin
MyWorksheet.WriteText(1, 1, '[]'); // B2 MyWorksheet.WriteText(1, 1, '[]'); // B2
MyCell := MyWorksheet.GetCell(1, 1); MyCell := MyWorksheet.GetCell(1, 1);
MyCell^.Border := []; MyCell.Border := [];
MyWorksheet.WriteText(1, 3, '[N]'); // D2 MyWorksheet.WriteText(1, 3, '[N]'); // D2
MyCell := MyWorksheet.GetCell(1, 3); MyCell := MyWorksheet.GetCell(1, 3);

4
components/fpspreadsheet/source/laz_fpspreadsheet.lpk
View File

@ -19,11 +19,10 @@
</Parsing> </Parsing>
<Other> <Other>
<CompilerMessages> <CompilerMessages>
<IgnoredMessages idx2005="True" idx4055="True" idx5028="True"/> <IgnoredMessages idx5028="True" idx4055="True" idx2005="True"/>
</CompilerMessages> </CompilerMessages>
<CustomOptions Value="$(IDEBuildOptions) <CustomOptions Value="$(IDEBuildOptions)
-dDisableWrapperFunctions"/> -dDisableWrapperFunctions"/>
<CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Description Value="laz_fpspreadsheet is a non-visual component that allows you to use the fpspreadsheet package to read/write spreadsheet files in .xls (BIFF/Excel), .ods OpenDocument (LibreOffice/OpenOffice) and .xlsx Open XML (Excel) formats. <Description Value="laz_fpspreadsheet is a non-visual component that allows you to use the fpspreadsheet package to read/write spreadsheet files in .xls (BIFF/Excel), .ods OpenDocument (LibreOffice/OpenOffice) and .xlsx Open XML (Excel) formats.
@ -52,7 +51,6 @@ This package is all you need if you don't want graphical components (like grids
</Item4> </Item4>
<Item5> <Item5>
<Filename Value="common\fpscell.pas"/> <Filename Value="common\fpscell.pas"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="fpsCell"/> <UnitName Value="fpsCell"/>
</Item5> </Item5>
<Item6> <Item6>