From b406d1e64d302cda2f151853d31180e3a2fd3654 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 14 Mar 2015 22:10:29 +0000
Subject: [PATCH] fpspreadsheet: Add measurement of file loading time to
 fpsctrls/demo_ctrl

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4028 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../fpspreadsheet/examples/visual/fpsctrls/demo_ctrls.lpi   | 6 ++++++
 .../fpspreadsheet/examples/visual/fpsctrls/demo_ctrls.lpr   | 4 ++--
 components/fpspreadsheet/examples/visual/fpsctrls/main.pas  | 6 ++++++
 3 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/components/fpspreadsheet/examples/visual/fpsctrls/demo_ctrls.lpi b/components/fpspreadsheet/examples/visual/fpsctrls/demo_ctrls.lpi
index 60279b956..53dfe47c9 100644
--- a/components/fpspreadsheet/examples/visual/fpsctrls/demo_ctrls.lpi
+++ b/components/fpspreadsheet/examples/visual/fpsctrls/demo_ctrls.lpi
@@ -76,13 +76,18 @@
       <Unit2>
         <Filename Value="..\shared\scsvparamsform.pas"/>
         <IsPartOfProject Value="True"/>
+        <ComponentName Value="CSVParamsForm"/>
         <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
         <UnitName Value="sCSVParamsForm"/>
       </Unit2>
       <Unit3>
         <Filename Value="..\shared\sformatsettingsform.pas"/>
         <IsPartOfProject Value="True"/>
+        <ComponentName Value="FormatSettingsForm"/>
         <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="sFormatsettingsForm"/>
       </Unit3>
       <Unit4>
         <Filename Value="..\shared\ssortparamsform.pas"/>
@@ -93,6 +98,7 @@
         <Filename Value="..\shared\scurrencyform.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="CurrencyForm"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="scurrencyform"/>
       </Unit5>
diff --git a/components/fpspreadsheet/examples/visual/fpsctrls/demo_ctrls.lpr b/components/fpspreadsheet/examples/visual/fpsctrls/demo_ctrls.lpr
index 7a56e805e..343e5b88c 100644
--- a/components/fpspreadsheet/examples/visual/fpsctrls/demo_ctrls.lpr
+++ b/components/fpspreadsheet/examples/visual/fpsctrls/demo_ctrls.lpr
@@ -7,8 +7,8 @@ uses
   cthreads,
   {$ENDIF}{$ENDIF}
   Interfaces,  // this includes the LCL widgetset
-  Forms, main, scsvparamsform, sformatsettingsform,
-  ssortparamsform, scurrencyform
+  Forms, main,
+  scsvparamsform, sformatsettingsform, ssortparamsform, scurrencyform
   { you can add units after this };
 
 {$R *.res}
diff --git a/components/fpspreadsheet/examples/visual/fpsctrls/main.pas b/components/fpspreadsheet/examples/visual/fpsctrls/main.pas
index a105432dd..3b281862f 100644
--- a/components/fpspreadsheet/examples/visual/fpsctrls/main.pas
+++ b/components/fpspreadsheet/examples/visual/fpsctrls/main.pas
@@ -320,6 +320,7 @@ implementation
 {$R *.lfm}
 
 uses
+  LCLProc, // debugln
   fpsUtils, fpsCSV,
   sCSVParamsForm, sCurrencyForm, sFormatSettingsForm, sSortParamsForm;
 
@@ -328,6 +329,8 @@ uses
 
 { Loads the spreadsheet file selected by the AcFileOpen action }
 procedure TMainForm.AcFileOpenAccept(Sender: TObject);
+var
+  t: TTime;
 begin
   WorkbookSource.AutodetectFormat := false;
   case AcFileOpen.Dialog.FilterIndex of
@@ -340,7 +343,10 @@ begin
     7: WorkbookSource.FileFormat := sfOpenDocument;  // Open/LibreOffice
     8: WorkbookSource.FileFormat := sfCSV;           // Text files
   end;
+  t := now;
   WorkbookSource.FileName := UTF8ToAnsi(AcFileOpen.Dialog.FileName);  // this loads the file
+  t := (now - t)*24*3600;
+  DebugLn(Format('Loading time for %s: %.3f sec', [AcFileOpen.Dialog.FileName, t]));
   UpdateCaption;
 end;