paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-05 13:32:42 +02:00
Code Issues Packages Projects Releases Wiki Activity
fa075e2a66
lazarus/components/ideintf/newfield.lfm
jesus f414bde383 IDE, fix form size for NewField dialog, from Aleksey Lagunov, issue #35249 
git-svn-id: trunk@60733 -
2019-03-20 06:11:22 +00:00

399 lines
10 KiB
Plaintext
Raw Blame History

object NewFieldFrm: TNewFieldFrm
Left = 447
Height = 461
Top = 271
Width = 510
HorzScrollBar.Page = 261
VertScrollBar.Page = 375
Caption = 'Dialog'
ClientHeight = 461
ClientWidth = 510
OnClose = FormClose
OnCreate = FormCreate
ParentFont = True
Position = poScreenCenter
LCLVersion = '2.1.0.0'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 42
Top = 413
Width = 498
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]
end
object RadioGroup1: TRadioGroup
Left = 0
Height = 55
Top = 0
Width = 510
Align = alTop
AutoFill = True
AutoSize = True
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 = 35
ClientWidth = 508
Columns = 3
ItemIndex = 0
Items.Strings = (
'&Data'
'&Calculated'
'&Lookup'
)
OnClick = RadioGroup1Click
TabOrder = 1
end
object NoteLbl: TLabel
Left = 0
Height = 19
Top = 55
Width = 510
Align = alTop
Caption = 'NoteLbl'
ParentColor = False
Visible = False
WordWrap = True
end
object GroupBox1: TGroupBox
AnchorSideRight.Side = asrBottom
Left = 0
Height = 170
Top = 248
Width = 510
Align = alTop
AutoSize = True
Caption = 'Field properties'
ClientHeight = 150
ClientWidth = 508
TabOrder = 2
object Label1: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideBottom.Control = EditName
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 19
Top = 18
Width = 44
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = '&Name:'
FocusControl = EditName
ParentColor = False
end
object Label2: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideBottom.Control = SelectType
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 19
Top = 88
Width = 36
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = '&Type:'
FocusControl = SelectType
ParentColor = False
end
object Label3: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideRight.Control = Label8
AnchorSideBottom.Control = EditSize
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 19
Top = 125
Width = 32
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = '&Size:'
FocusControl = EditSize
ParentColor = False
end
object EditName: TEdit
AnchorSideLeft.Control = Label8
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox1
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 255
Height = 31
Top = 6
Width = 247
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
OnChange = EditNameChange
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 = 255
Height = 27
Top = 80
Width = 247
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
ItemHeight = 0
Items.Strings = (
'String'
'Integer'
'SmallInt'
'Word'
'Float'
'Currency'
'Boolean'
'Date'
'Time'
'DateTime'
'Blob'
'Memo'
'Graphic'
'LargeInt'
)
OnChange = SelectTypeChange
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 = 255
Height = 31
Top = 113
Width = 247
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Color = clBtnFace
Enabled = False
TabOrder = 3
end
object Label7: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideBottom.Control = EditCompName
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 19
Top = 55
Width = 123
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = 'Co&mponent Name:'
FocusControl = EditCompName
ParentColor = False
end
object EditCompName: TEdit
AnchorSideLeft.Control = Label8
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = EditName
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 255
Height = 31
Top = 43
Width = 247
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
OnChange = EditCompNameChange
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object Label8: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = GroupBox1
Left = 254
Height = 1
Top = 0
Width = 1
ParentColor = False
end
end
object GroupBox2: TGroupBox
Left = 0
Height = 174
Top = 74
Width = 510
Align = alTop
AutoSize = True
Caption = 'Lookup definition'
ClientHeight = 154
ClientWidth = 508
TabOrder = 3
object Label4: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideBottom.Control = SelectKeyFields
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 19
Top = 18
Width = 63
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = '&Key fields'
FocusControl = SelectKeyFields
ParentColor = False
end
object Label5: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideBottom.Control = SelectLookupKeys
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 19
Top = 92
Width = 79
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = 'L&ookup keys'
FocusControl = SelectLookupKeys
ParentColor = False
end
object Label6: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideBottom.Control = SelectResultField
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 19
Top = 129
Width = 84
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = '&Result Fields'
FocusControl = SelectResultField
ParentColor = False
end
object Label10: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideBottom.Control = DataSetsCombo
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 19
Top = 55
Width = 52
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = 'Dataset'
ParentColor = False
end
object SelectKeyFields: TComboBox
AnchorSideLeft.Control = Label9
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox2
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 255
Height = 31
Top = 6
Width = 247
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
ItemHeight = 0
OnChange = SelectKeyFieldsChange
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 = 255
Height = 31
Top = 80
Width = 247
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Enabled = False
ItemHeight = 0
OnChange = SelectLookupKeysChange
TabOrder = 2
end
object SelectResultField: TComboBox
AnchorSideLeft.Control = Label9
AnchorSideTop.Control = SelectLookupKeys
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 254
Height = 31
Top = 117
Width = 248
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Enabled = False
ItemHeight = 0
OnChange = SelectResultFieldChange
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 = 255
Height = 31
Top = 43
Width = 247
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
ItemHeight = 0
OnChange = DataSetsComboChange
ParentShowHint = False
ShowHint = True
Style = csDropDownList
TabOrder = 1
end
object Label9: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = GroupBox2
Left = 254
Height = 1
Top = 0
Width = 1
ParentColor = False
end
end
end
Reference in New Issue View Git Blame Copy Permalink