From ebb9b428ea0c1fff38fe8b348a44c3821e6b1b0e Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Sun, 5 Feb 2017 21:04:36 +0000 Subject: [PATCH] fpspreadsheet: Set "use unit" flag of fpscell. Update demo_write_formatting to use package instead of path to fpspreadsheet. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5740 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../examples/other/demo_write_formatting.lpi | 10 ++++++---- .../examples/other/demo_write_formatting.pas | 6 +++--- components/fpspreadsheet/source/laz_fpspreadsheet.lpk | 4 +--- 3 files changed, 10 insertions(+), 10 deletions(-) diff --git a/components/fpspreadsheet/examples/other/demo_write_formatting.lpi b/components/fpspreadsheet/examples/other/demo_write_formatting.lpi index 1f864af20..e29c37cff 100644 --- a/components/fpspreadsheet/examples/other/demo_write_formatting.lpi +++ b/components/fpspreadsheet/examples/other/demo_write_formatting.lpi @@ -1,7 +1,7 @@ - + @@ -30,10 +30,13 @@ - + - + + + + @@ -50,7 +53,6 @@ - diff --git a/components/fpspreadsheet/examples/other/demo_write_formatting.pas b/components/fpspreadsheet/examples/other/demo_write_formatting.pas index de4f2e2a0..a3e909fdf 100644 --- a/components/fpspreadsheet/examples/other/demo_write_formatting.pas +++ b/components/fpspreadsheet/examples/other/demo_write_formatting.pas @@ -12,8 +12,8 @@ program demo_write_formatting; {$mode delphi}{$H+} uses - Classes, SysUtils, - fpsTypes, fpspreadsheet, xlsbiff8, fpsopendocument, fpscell; + Classes, SysUtils, fpsTypes, fpspreadsheet, xlsbiff8, fpsopendocument, + fpscell, laz_fpspreadsheet; var MyWorkbook: TsWorkbook; @@ -30,7 +30,7 @@ begin MyWorksheet.WriteText(1, 1, '[]'); // B2 MyCell := MyWorksheet.GetCell(1, 1); - MyCell^.Border := []; + MyCell.Border := []; MyWorksheet.WriteText(1, 3, '[N]'); // D2 MyCell := MyWorksheet.GetCell(1, 3); diff --git a/components/fpspreadsheet/source/laz_fpspreadsheet.lpk b/components/fpspreadsheet/source/laz_fpspreadsheet.lpk index a4be3be19..4bd8be6dc 100644 --- a/components/fpspreadsheet/source/laz_fpspreadsheet.lpk +++ b/components/fpspreadsheet/source/laz_fpspreadsheet.lpk @@ -19,11 +19,10 @@ - + - -