301 lines
7.4 KiB
Plaintext
301 lines
7.4 KiB
Plaintext
object Form1: TForm1
|
|
Left = 534
|
|
Height = 368
|
|
Top = 234
|
|
Width = 498
|
|
ActiveControl = RxDBLookupCombo1
|
|
Caption = 'RxDBLookupCombo test'
|
|
ClientHeight = 368
|
|
ClientWidth = 498
|
|
OnCreate = FormCreate
|
|
LCLVersion = '1.9.0.0'
|
|
object Label1: TLabel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = GroupBox1
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 15
|
|
Top = 102
|
|
Width = 67
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Select item...'
|
|
ParentColor = False
|
|
end
|
|
object Label2: TLabel
|
|
AnchorSideLeft.Control = Button1
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Button1
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 103
|
|
Height = 15
|
|
Top = 161
|
|
Width = 34
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Label2'
|
|
ParentColor = False
|
|
end
|
|
object RxDBLookupCombo1: TRxDBLookupCombo
|
|
AnchorSideLeft.Control = Label1
|
|
AnchorSideTop.Control = Label1
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 12
|
|
Height = 27
|
|
Top = 123
|
|
Width = 480
|
|
AutoSize = True
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Around = 6
|
|
ButtonOnlyWhenFocused = False
|
|
ButtonWidth = 15
|
|
Color = clWindow
|
|
DataField = 'ID'
|
|
DataSource = dsData1
|
|
PopUpFormOptions.Columns = <>
|
|
Flat = False
|
|
Glyph.Data = {
|
|
72000000424D7200000000000000360000002800000005000000030000000100
|
|
2000000000003C00000064000000640000000000000000000000000000000000
|
|
0000000000FF000000000000000000000000000000FF000000FF000000FF0000
|
|
0000000000FF000000FF000000FF000000FF000000FF
|
|
}
|
|
NumGlyphs = 1
|
|
ParentColor = False
|
|
ReadOnly = False
|
|
TabOrder = 0
|
|
TabStop = True
|
|
DisplayAllFields = True
|
|
LookupDisplay = 'ID;Price;Caption'
|
|
LookupDisplayIndex = 2
|
|
LookupField = 'ID'
|
|
LookupSource = dsLookUpData
|
|
end
|
|
object Button1: TButton
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = RxDBLookupCombo1
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 25
|
|
Top = 156
|
|
Width = 91
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Test caption'
|
|
OnClick = Button1Click
|
|
TabOrder = 1
|
|
end
|
|
object Button2: TButton
|
|
AnchorSideTop.Control = Button1
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 428
|
|
Height = 25
|
|
Top = 187
|
|
Width = 64
|
|
Anchors = [akTop, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Set text'
|
|
OnClick = Button2Click
|
|
TabOrder = 2
|
|
end
|
|
object Edit1: TEdit
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Button1
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Button2
|
|
Left = 6
|
|
Height = 23
|
|
Top = 187
|
|
Width = 416
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Around = 6
|
|
TabOrder = 3
|
|
Text = 'Edit1'
|
|
end
|
|
object DBGrid1: TDBGrid
|
|
AnchorSideTop.Control = Edit1
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 0
|
|
Height = 152
|
|
Top = 216
|
|
Width = 498
|
|
Align = alBottom
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Color = clWindow
|
|
Columns = <>
|
|
DataSource = dsLookUpData
|
|
TabOrder = 4
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 6
|
|
Height = 90
|
|
Top = 6
|
|
Width = 486
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'RxDBLookupCombo visual options'
|
|
ClientHeight = 70
|
|
ClientWidth = 482
|
|
TabOrder = 5
|
|
object CheckBox1: TCheckBox
|
|
AnchorSideLeft.Control = GroupBox1
|
|
AnchorSideTop.Control = GroupBox1
|
|
Left = 6
|
|
Height = 19
|
|
Top = 6
|
|
Width = 39
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Flat'
|
|
OnChange = CheckBox1Change
|
|
TabOrder = 0
|
|
end
|
|
object RadioGroup1: TRadioGroup
|
|
AnchorSideLeft.Control = CheckBox1
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = GroupBox1
|
|
Left = 51
|
|
Height = 58
|
|
Top = 6
|
|
Width = 81
|
|
AutoFill = True
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Border style'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 1
|
|
ClientHeight = 38
|
|
ClientWidth = 77
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'bsNone'
|
|
'bsSingle'
|
|
)
|
|
OnClick = CheckBox1Change
|
|
TabOrder = 1
|
|
end
|
|
object RadioGroup2: TRadioGroup
|
|
AnchorSideLeft.Control = GroupBox1
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = GroupBox1
|
|
Left = 176
|
|
Height = 58
|
|
Top = 6
|
|
Width = 131
|
|
AutoFill = True
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Style'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 1
|
|
ClientHeight = 38
|
|
ClientWidth = 127
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'rxcsDropDown'
|
|
'rxcsDropDownList'
|
|
)
|
|
OnClick = CheckBox1Change
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object rxData1: TRxMemoryData
|
|
FieldDefs = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = ftInteger
|
|
end>
|
|
PacketRecords = 0
|
|
Left = 320
|
|
Top = 8
|
|
object rxData1ID: TLongintField
|
|
DisplayWidth = 10
|
|
FieldKind = fkData
|
|
FieldName = 'ID'
|
|
Index = 0
|
|
LookupCache = False
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
|
ReadOnly = False
|
|
Required = False
|
|
end
|
|
end
|
|
object rxLookUpData: TRxMemoryData
|
|
FieldDefs = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = ftInteger
|
|
end
|
|
item
|
|
Name = 'Caption'
|
|
DataType = ftString
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'Price'
|
|
DataType = ftCurrency
|
|
end>
|
|
PacketRecords = 0
|
|
Left = 232
|
|
Top = 128
|
|
object rxLookUpDataID: TLongintField
|
|
DisplayWidth = 10
|
|
FieldKind = fkData
|
|
FieldName = 'ID'
|
|
Index = 0
|
|
LookupCache = False
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
|
ReadOnly = False
|
|
Required = False
|
|
end
|
|
object rxLookUpDataCaption: TStringField
|
|
DisplayWidth = 100
|
|
FieldKind = fkData
|
|
FieldName = 'Caption'
|
|
Index = 1
|
|
LookupCache = False
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
|
ReadOnly = False
|
|
Required = False
|
|
Size = 100
|
|
end
|
|
object rxLookUpDataPrice: TCurrencyField
|
|
DisplayWidth = 10
|
|
FieldKind = fkData
|
|
FieldName = 'Price'
|
|
Index = 2
|
|
LookupCache = False
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
|
ReadOnly = False
|
|
Required = False
|
|
Precision = 2
|
|
end
|
|
end
|
|
object dsData1: TDataSource
|
|
DataSet = rxData1
|
|
Left = 288
|
|
Top = 8
|
|
end
|
|
object dsLookUpData: TDataSource
|
|
DataSet = rxLookUpData
|
|
Left = 200
|
|
Top = 128
|
|
end
|
|
end
|