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/01
+++ b/contrib/mORMot/SQLite3/Samples/01
@@ -0,0 +1,74 @@
+object Form1: TForm1
+  Left = 378
+  Height = 286
+  Top = 390
+  Width = 490
+  BorderStyle = bsSingle
+  Caption = 'Form1'
+  ClientHeight = 286
+  ClientWidth = 490
+  Color = clBtnFace
+  Font.Color = clWindowText
+  Font.Height = -13
+  Font.Name = 'Tahoma'
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  LCLVersion = '1.2.6.0'
+  object Label1: TLabel
+    Left = 40
+    Height = 15
+    Top = 16
+    Width = 73
+    Caption = 'Your name:'
+    ParentColor = False
+  end
+  object Label2: TLabel
+    Left = 40
+    Height = 15
+    Top = 72
+    Width = 95
+    Caption = 'Your message:'
+    ParentColor = False
+  end
+  object QuestionMemo: TMemo
+    Left = 32
+    Height = 121
+    Top = 88
+    Width = 409
+    TabOrder = 0
+  end
+  object NameEdit: TEdit
+    Left = 32
+    Height = 23
+    Top = 32
+    Width = 217
+    TabOrder = 1
+  end
+  object AddButton: TButton
+    Left = 48
+    Height = 25
+    Top = 232
+    Width = 145
+    Caption = 'Add the message'
+    OnClick = AddButtonClick
+    TabOrder = 2
+  end
+  object QuitButton: TButton
+    Left = 296
+    Height = 25
+    Top = 232
+    Width = 75
+    Caption = 'Quit'
+    OnClick = QuitButtonClick
+    TabOrder = 3
+  end
+  object FindButton: TButton
+    Left = 256
+    Height = 25
+    Top = 32
+    Width = 185
+    Caption = 'Find a previous message'
+    OnClick = FindButtonClick
+    TabOrder = 4
+  end
+end