110 lines
2.2 KiB
Plaintext
110 lines
2.2 KiB
Plaintext
object Form1: TForm1
|
|
Left = 192
|
|
Top = 124
|
|
Width = 754
|
|
Height = 419
|
|
Caption = 'Form1'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnShow = chkFromSQLClick
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object dbgrdData: TDBGrid
|
|
Left = 0
|
|
Top = 41
|
|
Width = 738
|
|
Height = 340
|
|
Align = alClient
|
|
DataSource = ds1
|
|
TabOrder = 0
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'Tahoma'
|
|
TitleFont.Style = []
|
|
end
|
|
object pnl1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 738
|
|
Height = 41
|
|
Align = alTop
|
|
TabOrder = 1
|
|
object lblTiming: TLabel
|
|
Left = 456
|
|
Top = 13
|
|
Width = 241
|
|
Height = 13
|
|
AutoSize = False
|
|
end
|
|
object lblFrom: TLabel
|
|
Left = 40
|
|
Top = 12
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'From:'
|
|
end
|
|
object chkViaTClientDataSet: TCheckBox
|
|
Left = 216
|
|
Top = 12
|
|
Width = 137
|
|
Height = 17
|
|
Caption = 'Via TClientDataSet'
|
|
TabOrder = 0
|
|
OnClick = chkFromSQLClick
|
|
end
|
|
object cbbDataSource: TComboBox
|
|
Left = 72
|
|
Top = 10
|
|
Width = 129
|
|
Height = 21
|
|
Style = csDropDownList
|
|
DropDownCount = 10
|
|
ItemHeight = 13
|
|
ItemIndex = 0
|
|
TabOrder = 1
|
|
Text = 'JSON direct'
|
|
OnChange = chkFromSQLClick
|
|
Items.Strings = (
|
|
'JSON direct'
|
|
'JSON TDocVariant'
|
|
'SQLite3 direct'
|
|
'SQLite3 proxy direct'
|
|
'SQLite3 proxy compressed'
|
|
'SQLite3 HTTP WinHTTP'
|
|
'SQLite3 HTTP WinINet'
|
|
'SQLite3 HTTP Sockets'
|
|
'SQLite3 SQL TDataSet')
|
|
end
|
|
object btnRefresh: TButton
|
|
Left = 360
|
|
Top = 8
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Refresh'
|
|
TabOrder = 2
|
|
OnClick = chkFromSQLClick
|
|
end
|
|
object btnApply: TButton
|
|
Left = 648
|
|
Top = 8
|
|
Width = 81
|
|
Height = 25
|
|
Caption = 'Apply Updates'
|
|
TabOrder = 3
|
|
OnClick = btnApplyClick
|
|
end
|
|
end
|
|
object ds1: TDataSource
|
|
Left = 96
|
|
Top = 72
|
|
end
|
|
end
|