Стартовый пул
This commit is contained in:
@@ -0,0 +1,302 @@
|
||||
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
|
||||
Reference in New Issue
Block a user