merged Mac code

.gitignore

@@ -13,7 +13,6 @@ kgOrdersServer/logs
 kgOrdersServer/Win32/
 kgOrdersServer/Source/__history/
 kgOrdersServer/Source/__recovery/
-/Reports
 
 *.exe
 *.local

kgOrdersServer/Source/Data.dfm

@@ -1520,4 +1520,11 @@ object FData: TFData
     Left = 669
     Top = 456
   end
+  object Timer1: TTimer
+    Enabled = False
+    Interval = 100
+    OnTimer = Timer1Timer
+    Left = 348
+    Top = 369
+  end
 end

kgOrdersServer/Source/Data.pas

@@ -14,7 +14,7 @@ uses
   BaseGrid, AdvGrid, DBAdvGrid, MemDS, DBAccess, Uni, Vcl.StdCtrls, Vcl.Mask,
   vcl.wwdbedit, vcl.wwdotdot, vcl.wwdbcomb, REST.Client, REST.Types, System.JSON,
   System.Generics.Collections, AdvEdit, vcl.wwdblook, vcl.wwdbdatetimepicker,
-  System.Hash, Api.Database;
+  System.Hash, Api.Database, Vcl.ExtCtrls;
 
 type
   TFData = class(TForm)
@@ -35,9 +35,11 @@ type
     edtPhoneNumber: TEdit;
     edtEmailAddress: TEdit;
     btnPDF: TButton;
+    Timer1: TTimer;
     procedure FormCreate(Sender: TObject);
     procedure btnFindClick(Sender: TObject);
     procedure btnPDFClick(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
   private
     kgDB: TApiDatabase;
     accountSID: string;
@@ -55,17 +57,29 @@ implementation
 
 uses uLibrary, rOrders;
 
-procedure TFData.btnPDFClick(Sender: TObject);
+procedure TFData.FormCreate(Sender: TObject);
 begin
-  RunOrdersReport('&pagenumber=1&pagesize=50&orderby=');
+  Timer1.Enabled := True;
 end;
 
 
-procedure TFData.FormCreate(Sender: TObject);
+procedure TFData.Timer1Timer(Sender: TObject);
 begin
+  Timer1.Enabled := False;
+  Screen.Cursor := crHourGlass;
+  Memo1.Lines.Add( 'creating kgDB TApiDatabase...' );
   kgDB := TApiDatabase.Create(Self);
+  Memo1.Lines.Add( '--kgDB TApiDatabase created!' );
+  Screen.Cursor := crDefault;
 end;
 
+
+procedure TFData.btnPDFClick(Sender: TObject);
+begin
+  RunOrdersReport('&pagenumber=1&pagesize=50&orderby=');
+end;
+
+
 procedure TFData.btnFindClick(Sender: TObject);
 // Retrieves calls from a specific number from the database.
 // SQL: SQL statement to retrieve calls from the database

kgOrdersServer/kgOrdersServer.dproj

@@ -1164,7 +1164,6 @@
                 <Platform value="Win32">True</Platform>
                 <Platform value="Win64">True</Platform>
             </Platforms>
-            <ModelSupport>False</ModelSupport>
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>
     </ProjectExtensions>

kgOrdersServer/kgOrdersServer.ini

 [Settings]
 MemoLogLevel=5
 FileLogLevel=5
-LogFileNum=30
+LogFileNum=34
 webClientVersion=1.0.0
 
 [Database]