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

fpspreadsheet: Fix compilation of spreadsheet tests

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5206 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-09-24 18:31:03 +00:00
parent 6fd0ed87e3
commit ec13cdb929
2 changed files with 5 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpspreadsheet/tests/spreadtestgui.lpi
View File

@ -12,9 +12,6 @@
<i18n> <i18n>
<EnableI18N LFM="False"/> <EnableI18N LFM="False"/>
</i18n> </i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1"> <BuildModes Count="1">
<Item1 Name="Default" Default="True"/> <Item1 Name="Default" Default="True"/>
</BuildModes> </BuildModes>

10
components/fpspreadsheet/tests/virtualmodetests.pas
View File

@ -17,7 +17,7 @@ type
TSpreadVirtualModeTests= class(TTestCase) TSpreadVirtualModeTests= class(TTestCase)
private private
procedure WriteVirtualCellDataHandler(Sender: TObject; ARow, ACol: Cardinal; procedure WriteVirtualCellDataHandler(Sender: TsWorksheet; ARow, ACol: Cardinal;
var AValue:Variant; var AStyleCell: PCell); var AValue:Variant; var AStyleCell: PCell);
protected protected
// Set up expected values: // Set up expected values:
@ -56,7 +56,7 @@ procedure TSpreadVirtualModeTests.TearDown;
begin begin
end; end;
procedure TSpreadVirtualModeTests.WriteVirtualCellDataHandler(Sender: TObject; procedure TSpreadVirtualModeTests.WriteVirtualCellDataHandler(Sender: TsWorksheet;
ARow, ACol: Cardinal; var AValue:Variant; var AStyleCell: PCell); ARow, ACol: Cardinal; var AValue:Variant; var AStyleCell: PCell);
begin begin
Unused(ACol); Unused(ACol);
@ -86,10 +86,10 @@ begin
workbook.Options := workbook.Options + [boVirtualMode]; workbook.Options := workbook.Options + [boVirtualMode];
if ABufStreamMode then if ABufStreamMode then
workbook.Options := workbook.Options + [boBufStream]; workbook.Options := workbook.Options + [boBufStream];
workbook.VirtualColCount := 1; worksheet.VirtualColCount := 1;
workbook.VirtualRowCount := Length(SollNumbers) + 4; worksheet.VirtualRowCount := Length(SollNumbers) + 4;
// We'll use only the first 4 SollStrings, the others cause trouble due to utf8 and formatting. // We'll use only the first 4 SollStrings, the others cause trouble due to utf8 and formatting.
workbook.OnWriteCellData := @WriteVirtualCellDataHandler; worksheet.OnWriteCellData := @WriteVirtualCellDataHandler;
tempFile:=NewTempFile; tempFile:=NewTempFile;
workbook.WriteToFile(tempfile, AFormat, true); workbook.WriteToFile(tempfile, AFormat, true);
finally finally