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 @@ - + - -