303 lines
7.6 KiB
Plaintext
303 lines
7.6 KiB
Plaintext
object Form1: TForm1
|
|
Left = 502
|
|
Height = 397
|
|
Top = 390
|
|
Width = 590
|
|
Caption = 'Form1'
|
|
ClientHeight = 397
|
|
ClientWidth = 590
|
|
OnCreate = FormCreate
|
|
LCLVersion = '1.9.0.0'
|
|
object PageControl1: TPageControl
|
|
Left = 0
|
|
Height = 397
|
|
Top = 0
|
|
Width = 590
|
|
ActivePage = TabSheet3
|
|
Align = alClient
|
|
TabIndex = 2
|
|
TabOrder = 0
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'RxDBDateEdit demo'
|
|
ClientHeight = 366
|
|
ClientWidth = 580
|
|
object Label1: TLabel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
Left = 6
|
|
Height = 17
|
|
Top = 6
|
|
Width = 38
|
|
Caption = 'Label1'
|
|
ParentColor = False
|
|
end
|
|
object RxDBDateEdit1: TRxDBDateEdit
|
|
AnchorSideLeft.Control = Label1
|
|
AnchorSideTop.Control = Label1
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 12
|
|
Height = 34
|
|
Top = 32
|
|
Width = 151
|
|
BorderSpacing.Around = 6
|
|
ButtonWidth = 23
|
|
Enabled = False
|
|
MaxLength = 10
|
|
PasswordChar = #0
|
|
PopupColor = clWindow
|
|
TabOrder = 0
|
|
Text = 't1. . '
|
|
DataField = 'DOC_DATE'
|
|
DataSource = dsData
|
|
end
|
|
object Label2: TLabel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = RxDBDateEdit1
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 17
|
|
Top = 75
|
|
Width = 77
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Currency edit'
|
|
ParentColor = False
|
|
end
|
|
object CurrencyEdit1: TCurrencyEdit
|
|
AnchorSideLeft.Control = Label2
|
|
AnchorSideTop.Control = Label2
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 12
|
|
Height = 34
|
|
Top = 101
|
|
Width = 148
|
|
Alignment = taCenter
|
|
BorderSpacing.Around = 6
|
|
TabOrder = 1
|
|
end
|
|
object RxDateEdit1: TRxDateEdit
|
|
Left = 12
|
|
Height = 34
|
|
Top = 160
|
|
Width = 80
|
|
ButtonWidth = 23
|
|
MaxLength = 10
|
|
PasswordChar = #0
|
|
PopupColor = clWindow
|
|
TabOrder = 2
|
|
Text = ' . . '
|
|
end
|
|
object Button1: TButton
|
|
Left = 248
|
|
Height = 33
|
|
Top = 80
|
|
Width = 69
|
|
AutoSize = True
|
|
Caption = 'Invalidate'
|
|
OnClick = Button1Click
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object TabSheet2: TTabSheet
|
|
Caption = 'RxDateRangeEdit demo'
|
|
ClientHeight = 366
|
|
ClientWidth = 580
|
|
object CheckBox1: TCheckBox
|
|
AnchorSideLeft.Control = TabSheet2
|
|
AnchorSideTop.Control = TabSheet2
|
|
Left = 6
|
|
Height = 23
|
|
Top = 6
|
|
Width = 84
|
|
BorderSpacing.Around = 6
|
|
Caption = 'reoMonth'
|
|
Checked = True
|
|
OnChange = CheckBox1Change
|
|
State = cbChecked
|
|
TabOrder = 0
|
|
end
|
|
object RxDateRangeEdit1: TRxDateRangeEdit
|
|
AnchorSideLeft.Control = TabSheet2
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = CheckBox3
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 159
|
|
Height = 34
|
|
Top = 93
|
|
Width = 262
|
|
BorderSpacing.Around = 6
|
|
Month = 5
|
|
TabOrder = 1
|
|
Year = 2017
|
|
OnChange = RxDateRangeEdit1Change
|
|
end
|
|
object CheckBox2: TCheckBox
|
|
AnchorSideLeft.Control = TabSheet2
|
|
AnchorSideTop.Control = CheckBox1
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 23
|
|
Top = 35
|
|
Width = 91
|
|
BorderSpacing.Around = 6
|
|
Caption = 'reoQuarter'
|
|
Checked = True
|
|
OnChange = CheckBox1Change
|
|
State = cbChecked
|
|
TabOrder = 2
|
|
end
|
|
object CheckBox3: TCheckBox
|
|
AnchorSideLeft.Control = TabSheet2
|
|
AnchorSideTop.Control = CheckBox2
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 23
|
|
Top = 64
|
|
Width = 95
|
|
BorderSpacing.Around = 6
|
|
Caption = 'reoHalfYear'
|
|
Checked = True
|
|
OnChange = CheckBox1Change
|
|
State = cbChecked
|
|
TabOrder = 3
|
|
end
|
|
object Label3: TLabel
|
|
AnchorSideLeft.Control = TabSheet2
|
|
AnchorSideTop.Control = RxDateRangeEdit1
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 17
|
|
Top = 133
|
|
Width = 87
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Start of period'
|
|
ParentColor = False
|
|
end
|
|
object Edit1: TEdit
|
|
AnchorSideLeft.Control = Label3
|
|
AnchorSideTop.Control = Label3
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Label5
|
|
Left = 12
|
|
Height = 34
|
|
Top = 156
|
|
Width = 272
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Around = 6
|
|
ReadOnly = True
|
|
TabOrder = 4
|
|
Text = 'Edit1'
|
|
end
|
|
object Label4: TLabel
|
|
AnchorSideLeft.Control = Label5
|
|
AnchorSideTop.Control = RxDateRangeEdit1
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 296
|
|
Height = 17
|
|
Top = 133
|
|
Width = 79
|
|
BorderSpacing.Around = 6
|
|
Caption = 'End of period'
|
|
ParentColor = False
|
|
end
|
|
object Edit2: TEdit
|
|
AnchorSideLeft.Control = Label4
|
|
AnchorSideTop.Control = Label4
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = TabSheet2
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 302
|
|
Height = 34
|
|
Top = 156
|
|
Width = 272
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Around = 6
|
|
ReadOnly = True
|
|
TabOrder = 5
|
|
Text = 'Edit2'
|
|
end
|
|
object Label5: TLabel
|
|
AnchorSideLeft.Control = TabSheet2
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = TabSheet2
|
|
Left = 290
|
|
Height = 1
|
|
Top = 0
|
|
Width = 1
|
|
ParentColor = False
|
|
end
|
|
end
|
|
object TabSheet3: TTabSheet
|
|
Caption = 'RxTimeEdit demo'
|
|
ClientHeight = 366
|
|
ClientWidth = 580
|
|
object Label6: TLabel
|
|
AnchorSideLeft.Control = TabSheet3
|
|
AnchorSideTop.Control = TabSheet3
|
|
Left = 6
|
|
Height = 17
|
|
Top = 6
|
|
Width = 65
|
|
BorderSpacing.Around = 6
|
|
Caption = 'RxTimeEdit'
|
|
ParentColor = False
|
|
end
|
|
object CheckBox4: TCheckBox
|
|
AnchorSideLeft.Control = RxTimeEdit1
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = RxTimeEdit1
|
|
Left = 154
|
|
Height = 23
|
|
Top = 35
|
|
Width = 104
|
|
BorderSpacing.Left = 32
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Show second'
|
|
Checked = True
|
|
OnChange = CheckBox4Change
|
|
State = cbChecked
|
|
TabOrder = 0
|
|
end
|
|
object RxTimeEdit1: TRxTimeEdit
|
|
AnchorSideLeft.Control = Label6
|
|
AnchorSideTop.Control = Label6
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 12
|
|
Height = 34
|
|
Top = 29
|
|
Width = 104
|
|
ShowSecond = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
CharCase = ecNormal
|
|
MaxLength = 8
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|
|
object dsData: TDataSource
|
|
DataSet = rxData
|
|
Left = 264
|
|
Top = 21
|
|
end
|
|
object rxData: TRxMemoryData
|
|
FieldDefs = <
|
|
item
|
|
Name = 'DOC_DATE'
|
|
DataType = ftDate
|
|
end>
|
|
PacketRecords = 0
|
|
Left = 304
|
|
Top = 21
|
|
object rxDataDOC_DATE: TDateField
|
|
DisplayWidth = 10
|
|
FieldKind = fkData
|
|
FieldName = 'DOC_DATE'
|
|
Index = 0
|
|
LookupCache = False
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
|
ReadOnly = False
|
|
Required = False
|
|
end
|
|
end
|
|
end
|