2018-10-23 16:18:34 +02:00
|
|
|
object MainForm: TMainForm
|
|
|
|
Left = 0
|
|
|
|
Top = 0
|
|
|
|
Caption = 'TMVCActiveRecord - ShowCase'
|
2020-01-04 12:53:53 +01:00
|
|
|
ClientHeight = 452
|
2018-10-23 16:18:34 +02:00
|
|
|
ClientWidth = 635
|
|
|
|
Color = clBtnFace
|
|
|
|
Font.Charset = DEFAULT_CHARSET
|
|
|
|
Font.Color = clWindowText
|
|
|
|
Font.Height = -11
|
|
|
|
Font.Name = 'Tahoma'
|
|
|
|
Font.Style = []
|
|
|
|
OldCreateOrder = False
|
2019-01-08 12:48:27 +01:00
|
|
|
OnDestroy = FormDestroy
|
2019-09-13 15:17:56 +02:00
|
|
|
OnShow = FormShow
|
2018-10-23 16:18:34 +02:00
|
|
|
DesignSize = (
|
|
|
|
635
|
2020-01-04 12:53:53 +01:00
|
|
|
452)
|
2018-10-23 16:18:34 +02:00
|
|
|
PixelsPerInch = 96
|
|
|
|
TextHeight = 13
|
|
|
|
object btnCRUD: TButton
|
|
|
|
Left = 8
|
|
|
|
Top = 8
|
|
|
|
Width = 121
|
|
|
|
Height = 33
|
|
|
|
Caption = 'CRUD'
|
|
|
|
TabOrder = 0
|
|
|
|
OnClick = btnCRUDClick
|
|
|
|
end
|
|
|
|
object btnSelect: TButton
|
|
|
|
Left = 8
|
2019-02-21 20:17:11 +01:00
|
|
|
Top = 86
|
2018-10-23 16:18:34 +02:00
|
|
|
Width = 121
|
|
|
|
Height = 33
|
|
|
|
Caption = 'Queries'
|
|
|
|
TabOrder = 1
|
|
|
|
OnClick = btnSelectClick
|
|
|
|
end
|
|
|
|
object Memo1: TMemo
|
|
|
|
Left = 135
|
|
|
|
Top = 8
|
|
|
|
Width = 492
|
2020-01-04 12:53:53 +01:00
|
|
|
Height = 436
|
2018-10-23 16:18:34 +02:00
|
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
2019-12-17 17:34:23 +01:00
|
|
|
Ctl3D = True
|
|
|
|
DoubleBuffered = True
|
2018-10-23 16:18:34 +02:00
|
|
|
Font.Charset = ANSI_CHARSET
|
|
|
|
Font.Color = clWindowText
|
|
|
|
Font.Height = -13
|
|
|
|
Font.Name = 'Consolas'
|
|
|
|
Font.Style = []
|
2019-12-17 17:34:23 +01:00
|
|
|
ParentCtl3D = False
|
|
|
|
ParentDoubleBuffered = False
|
2018-10-23 16:18:34 +02:00
|
|
|
ParentFont = False
|
2019-12-17 17:34:23 +01:00
|
|
|
ReadOnly = True
|
|
|
|
ScrollBars = ssBoth
|
2018-10-23 16:18:34 +02:00
|
|
|
TabOrder = 2
|
2019-12-17 17:34:23 +01:00
|
|
|
WantReturns = False
|
|
|
|
WordWrap = False
|
2018-10-23 16:18:34 +02:00
|
|
|
end
|
|
|
|
object btnRelations: TButton
|
|
|
|
Left = 8
|
2019-02-21 20:17:11 +01:00
|
|
|
Top = 125
|
2018-10-23 16:18:34 +02:00
|
|
|
Width = 121
|
|
|
|
Height = 35
|
|
|
|
Caption = 'Relations'
|
|
|
|
TabOrder = 3
|
|
|
|
OnClick = btnRelationsClick
|
|
|
|
end
|
|
|
|
object btnInheritance: TButton
|
|
|
|
Left = 8
|
2019-02-21 20:17:11 +01:00
|
|
|
Top = 166
|
2018-10-23 16:18:34 +02:00
|
|
|
Width = 121
|
|
|
|
Height = 34
|
|
|
|
Caption = 'Inheritance'
|
|
|
|
TabOrder = 4
|
|
|
|
OnClick = btnInheritanceClick
|
|
|
|
end
|
|
|
|
object btnValidation: TButton
|
|
|
|
Left = 8
|
2019-02-21 20:17:11 +01:00
|
|
|
Top = 206
|
2018-10-23 16:18:34 +02:00
|
|
|
Width = 121
|
|
|
|
Height = 34
|
|
|
|
Caption = 'Validation'
|
|
|
|
TabOrder = 5
|
|
|
|
OnClick = btnValidationClick
|
|
|
|
end
|
|
|
|
object btnMultiThreading: TButton
|
|
|
|
Left = 8
|
2019-02-21 20:17:11 +01:00
|
|
|
Top = 286
|
2018-10-23 16:18:34 +02:00
|
|
|
Width = 121
|
|
|
|
Height = 34
|
|
|
|
Caption = 'Multi Threading'
|
|
|
|
TabOrder = 6
|
|
|
|
OnClick = btnMultiThreadingClick
|
|
|
|
end
|
2018-11-02 21:43:09 +01:00
|
|
|
object btnRQL: TButton
|
|
|
|
Left = 8
|
2019-02-21 20:17:11 +01:00
|
|
|
Top = 246
|
2018-11-02 21:43:09 +01:00
|
|
|
Width = 121
|
|
|
|
Height = 34
|
|
|
|
Caption = 'RQL Query'
|
|
|
|
TabOrder = 7
|
|
|
|
OnClick = btnRQLClick
|
|
|
|
end
|
2019-02-21 20:17:11 +01:00
|
|
|
object btnTransientFields: TButton
|
|
|
|
Left = 8
|
|
|
|
Top = 47
|
|
|
|
Width = 121
|
|
|
|
Height = 33
|
|
|
|
Caption = 'CRUD Transient'
|
|
|
|
TabOrder = 8
|
|
|
|
OnClick = btnTransientFieldsClick
|
|
|
|
end
|
2020-01-04 12:53:53 +01:00
|
|
|
object Button1: TButton
|
|
|
|
Left = 152
|
|
|
|
Top = 335
|
|
|
|
Width = 75
|
|
|
|
Height = 25
|
|
|
|
Caption = 'Button1'
|
|
|
|
TabOrder = 9
|
|
|
|
OnClick = Button1Click
|
|
|
|
end
|
|
|
|
object btnNullables: TButton
|
|
|
|
Left = 8
|
|
|
|
Top = 326
|
|
|
|
Width = 121
|
|
|
|
Height = 34
|
|
|
|
Caption = 'Nullables'
|
|
|
|
TabOrder = 10
|
|
|
|
OnClick = btnNullablesClick
|
|
|
|
end
|
|
|
|
object btnNullTest: TButton
|
|
|
|
Left = 8
|
|
|
|
Top = 366
|
|
|
|
Width = 121
|
|
|
|
Height = 34
|
|
|
|
Caption = 'Nullables Test'
|
|
|
|
TabOrder = 11
|
|
|
|
OnClick = btnNullTestClick
|
|
|
|
end
|
2018-10-23 16:18:34 +02:00
|
|
|
object FDConnection1: TFDConnection
|
2019-06-24 20:59:33 +02:00
|
|
|
Left = 176
|
|
|
|
Top = 56
|
2018-10-23 16:18:34 +02:00
|
|
|
end
|
|
|
|
end
|