paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-30 21:23:39 +02:00
Code Issues Packages Projects Releases Wiki Activity
dedb2622b3
lazarus/components/ideintf/newfield.lfm

437 lines
11 KiB
Plaintext
Raw Blame History

object NewFieldFrm: TNewFieldFrm
Left = 447
Height = 493
Top = 271
Width = 600
HorzScrollBar.Page = 261
VertScrollBar.Page = 375
AutoSize = True
Caption = 'Dialog'
ClientHeight = 493
ClientWidth = 600
Constraints.MinWidth = 600
DesignTimePPI = 120
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
object ButtonPanel1: TButtonPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = GroupBox2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 30
Top = 457
Width = 588
Align = alNone
Anchors = [akTop, akLeft, akRight]
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 0
ShowButtons = [pbOK, pbCancel]
ShowBevel = False
end
object RadioGroup1: TRadioGroup
AnchorSideRight.Side = asrBottom
Left = 6
Height = 73
Top = 6
Width = 588
Align = alTop
AutoFill = True
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.InnerBorder = 6
Caption = 'Field Type'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3
ClientHeight = 48
ClientWidth = 584
Columns = 3
ItemIndex = 0
Items.Strings = (
'&Data'
'&Calculated'
'&Lookup'
)
OnClick = RadioGroup1Click
ParentFont = False
TabOrder = 1
end
object NoteLbl: TLabel
AnchorSideLeft.Control = RadioGroup1
AnchorSideTop.Control = RadioGroup1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = RadioGroup1
AnchorSideRight.Side = asrBottom
Left = 6
Height = 20
Top = 85
Width = 588
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = 'NoteLbl'
ParentFont = False
Visible = False
WordWrap = True
end
object GroupBox1: TGroupBox
AnchorSideLeft.Control = RadioGroup1
AnchorSideTop.Control = NoteLbl
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = RadioGroup1
AnchorSideRight.Side = asrBottom
Left = 6
Height = 167
Top = 111
Width = 588
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.InnerBorder = 6
Caption = 'Field properties'
ClientHeight = 142
ClientWidth = 584
ParentFont = False
TabOrder = 2
object Label1: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideBottom.Control = EditName
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 20
Top = 8
Width = 43
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = '&Name:'
FocusControl = EditName
ParentFont = False
end
object Label2: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideBottom.Control = SelectType
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 20
Top = 76
Width = 34
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = '&Type:'
FocusControl = SelectType
ParentFont = False
end
object Label3: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideBottom.Control = EditSize
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 20
Top = 110
Width = 30
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = '&Size:'
FocusControl = EditSize
ParentFont = False
end
object EditName: TEdit
AnchorSideLeft.Control = Label8
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox1
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 293
Height = 28
Top = 0
Width = 285
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6
OnChange = EditNameChange
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object SelectType: TComboBox
AnchorSideLeft.Control = Label8
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = EditCompName
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 293
Height = 28
Top = 68
Width = 285
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
ItemHeight = 20
Items.Strings = (
'String'
'Integer'
'SmallInt'
'Word'
'Float'
'Currency'
'Boolean'
'Date'
'Time'
'DateTime'
'Blob'
'Memo'
'Graphic'
'LargeInt'
)
OnChange = SelectTypeChange
ParentFont = False
Style = csDropDownList
TabOrder = 2
end
object EditSize: TEdit
AnchorSideLeft.Control = Label8
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SelectType
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 293
Height = 28
Top = 102
Width = 285
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Color = clBtnFace
Enabled = False
ParentFont = False
TabOrder = 3
end
object Label7: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideBottom.Control = EditCompName
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 20
Top = 42
Width = 125
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = 'Co&mponent Name:'
FocusControl = EditCompName
ParentFont = False
end
object EditCompName: TEdit
AnchorSideLeft.Control = Label8
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = EditName
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 293
Height = 28
Top = 34
Width = 285
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
OnChange = EditCompNameChange
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object Label8: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = GroupBox1
Left = 292
Height = 1
Top = 0
Width = 1
ParentFont = False
end
end
object GroupBox2: TGroupBox
AnchorSideLeft.Control = RadioGroup1
AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = RadioGroup1
AnchorSideRight.Side = asrBottom
Left = 6
Height = 167
Top = 284
Width = 588
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.InnerBorder = 6
Caption = 'Lookup definition'
ClientHeight = 142
ClientWidth = 584
ParentFont = False
TabOrder = 3
object Label4: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideBottom.Control = SelectKeyFields
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 20
Top = 8
Width = 64
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = '&Key fields'
FocusControl = SelectKeyFields
ParentFont = False
end
object Label5: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideBottom.Control = SelectLookupKeys
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 20
Top = 76
Width = 81
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = 'L&ookup keys'
FocusControl = SelectLookupKeys
ParentFont = False
end
object Label6: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideBottom.Control = SelectResultField
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 20
Top = 110
Width = 82
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = '&Result Fields'
FocusControl = SelectResultField
ParentFont = False
end
object Label10: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideBottom.Control = DataSetsCombo
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 20
Top = 42
Width = 51
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = 'Dataset'
ParentFont = False
end
object SelectKeyFields: TComboBox
AnchorSideLeft.Control = Label9
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox2
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 293
Height = 28
Top = 0
Width = 285
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6
ItemHeight = 20
OnChange = SelectKeyFieldsChange
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object SelectLookupKeys: TComboBox
AnchorSideLeft.Control = DataSetsCombo
AnchorSideTop.Control = DataSetsCombo
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 293
Height = 28
Top = 68
Width = 285
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Enabled = False
ItemHeight = 20
OnChange = SelectLookupKeysChange
ParentFont = False
TabOrder = 2
end
object SelectResultField: TComboBox
AnchorSideLeft.Control = Label9
AnchorSideTop.Control = SelectLookupKeys
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 292
Height = 28
Top = 102
Width = 286
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Enabled = False
ItemHeight = 20
OnChange = SelectResultFieldChange
ParentFont = False
TabOrder = 3
end
object DataSetsCombo: TComboBox
AnchorSideLeft.Control = Label9
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SelectKeyFields
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 293
Height = 28
Top = 34
Width = 285
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
ItemHeight = 20
OnChange = DataSetsComboChange
ParentFont = False
ParentShowHint = False
ShowHint = True
Style = csDropDownList
TabOrder = 1
end
object Label9: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = GroupBox2
Left = 292
Height = 1
Top = 0
Width = 1
ParentFont = False
end
end
end
Reference in New Issue View Git Blame Copy Permalink