From 8aee090396063c6f3a9e47317e3f2a97ca832fa1 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Thu, 12 Jun 2014 22:22:56 +0000 Subject: [PATCH] fpspreadsheet: Remove testing code from excel8write.lpr git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3157 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/fpspreadsheet/examples/excel8demo/excel8write.lpr | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/components/fpspreadsheet/examples/excel8demo/excel8write.lpr b/components/fpspreadsheet/examples/excel8demo/excel8write.lpr index 7c8174997..1ae1eea57 100644 --- a/components/fpspreadsheet/examples/excel8demo/excel8write.lpr +++ b/components/fpspreadsheet/examples/excel8demo/excel8write.lpr @@ -54,8 +54,6 @@ begin MyWorksheet.LeftPaneWidth := 20*72*2; // 72 pt = inch --> 2 inches = 5 cm } // Write some cells - MyWorksheet.WriteNumber(0, 0, 0.0, nfSci, 1); -(* MyWorksheet.WriteNumber(0, 1, 2.0);// B1 MyWorksheet.WriteNumber(0, 2, 3.0);// C1 MyWorksheet.WriteNumber(0, 3, 4.0);// D1 @@ -415,7 +413,7 @@ begin MyWorksheet.WriteUTF8Text(0, 3, Str_Fourth); MyWorksheet.WriteTextRotation(0, 0, rt90DegreeClockwiseRotation); MyWorksheet.WriteUsedFormatting(0, 1, [uffBold]); -*) + // Save the spreadsheet to a file MyWorkbook.WriteToFile(MyDir + 'test.xls', sfExcel8, true); MyWorkbook.Free;