From f777ba5545ed64dabc7534de8dadf7f7506880ba Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Mon, 23 Jun 2025 22:24:39 +0000 Subject: [PATCH] FPSpreadsheet: minor adjustment in read_write demo projects git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9783 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../examples/read_write/ooxmldemo/ooxmlwrite.lpr | 14 +++++++++----- .../examples/read_write/read_write_demos.lpg | 10 ++++++++++ 2 files changed, 19 insertions(+), 5 deletions(-) diff --git a/components/fpspreadsheet/examples/read_write/ooxmldemo/ooxmlwrite.lpr b/components/fpspreadsheet/examples/read_write/ooxmldemo/ooxmlwrite.lpr index 886374968..d76bd4532 100644 --- a/components/fpspreadsheet/examples/read_write/ooxmldemo/ooxmlwrite.lpr +++ b/components/fpspreadsheet/examples/read_write/ooxmldemo/ooxmlwrite.lpr @@ -122,11 +122,15 @@ begin MyWorkbook.WriteToFile(MyDir + 'test.xlsx', sfOOXML, true); MyWorkbook.Free; - WriteLn('Workbook written to "' + Mydir + 'test.xlsx' + '".'); + WriteLn('Workbook written to "' + MyDir + 'test.xlsx' + '".'); - {$IFDEF MSWINDOWS} - WriteLn('Press ENTER to quit...'); - ReadLn; - {$ENDIF} + if ParamCount = 0 then + begin + {$IFDEF WINDOWS} + WriteLn; + WriteLn('Press ENTER to quit.'); + ReadLn; + {$ENDIF} + end; end. diff --git a/components/fpspreadsheet/examples/read_write/read_write_demos.lpg b/components/fpspreadsheet/examples/read_write/read_write_demos.lpg index 81743146a..8449ca9ef 100644 --- a/components/fpspreadsheet/examples/read_write/read_write_demos.lpg +++ b/components/fpspreadsheet/examples/read_write/read_write_demos.lpg @@ -72,6 +72,16 @@ + + + + + + + + + +