source upload

2022-01-17 22:16:47 +02:00
parent 12936d065b
commit 098e8c48de
1778 changed files with 1206749 additions and 0 deletions
--- a/contrib/mORMot/SQLite3/Samples/19
+++ b/contrib/mORMot/SQLite3/Samples/19
@@ -0,0 +1,68 @@
+object Form1: TForm1
+  Left = 198
+  Top = 124
+  Width = 344
+  Height = 201
+  Caption = 'mORMot FishFacts HTTP Server'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -13
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 16
+  object Label1: TLabel
+    Left = 16
+    Top = 16
+    Width = 297
+    Height = 33
+    Alignment = taCenter
+    AutoSize = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clTeal
+    Font.Height = -16
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 88
+    Top = 72
+    Width = 145
+    Height = 16
+    Caption = 'HTTP Server is running...'
+  end
+  object btnQuit: TButton
+    Left = 24
+    Top = 128
+    Width = 105
+    Height = 25
+    Caption = 'Quit'
+    TabOrder = 1
+    OnClick = btnQuitClick
+  end
+  object btnShowLogs: TButton
+    Left = 192
+    Top = 128
+    Width = 105
+    Height = 25
+    Caption = 'Show Logs'
+    TabOrder = 2
+    OnClick = btnShowLogsClick
+  end
+  object btnOpenBrowser: TButton
+    Left = 24
+    Top = 96
+    Width = 105
+    Height = 25
+    Caption = 'Open AJAX App'
+    Default = True
+    TabOrder = 0
+    OnClick = btnOpenBrowserClick
+  end
+end