lazarus/components/codetools/ide/addassignmethoddlg.lfm
mattias bc19f550d3 cody: added dialog to add a Assign method
git-svn-id: trunk@30521 -
2011-05-01 19:24:09 +00:00

268 lines
6.8 KiB
Plaintext

object AddAssignMethodDialog: TAddAssignMethodDialog
Left = 173
Height = 484
Top = 217
Width = 569
Caption = 'AddAssignMethodDialog'
ClientHeight = 484
ClientWidth = 569
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '0.9.31'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 30
Top = 448
Width = 557
OKButton.Name = 'OKButton'
OKButton.Caption = '&OK'
HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Help'
CloseButton.Name = 'CloseButton'
CloseButton.Caption = '&Close'
CancelButton.Name = 'CancelButton'
CancelButton.Caption = 'Cancel'
TabOrder = 0
ShowButtons = [pbOK, pbCancel]
end
object MembersGroupBox: TGroupBox
AnchorSideTop.Control = InheritedGroupBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 184
Top = 258
Width = 557
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'MembersGroupBox'
ClientHeight = 162
ClientWidth = 549
TabOrder = 1
object MembersTreeView: TCodyTreeView
Left = 0
Height = 162
Top = 0
Width = 549
Align = alClient
DefaultItemHeight = 18
Images = ImageList1
TabOrder = 0
OnMouseDown = MembersTreeViewMouseDown
end
end
object InheritedGroupBox: TGroupBox
Left = 6
Height = 128
Top = 124
Width = 557
Align = alTop
AutoSize = True
BorderSpacing.Around = 6
Caption = 'InheritedGroupBox'
ClientHeight = 106
ClientWidth = 549
TabOrder = 2
object InheritedLabel: TLabel
AnchorSideLeft.Control = InheritedGroupBox
AnchorSideTop.Control = InheritedEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17
Top = 9
Width = 91
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'InheritedLabel'
ParentColor = False
end
object InheritedEdit: TEdit
AnchorSideLeft.Control = InheritedLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = InheritedGroupBox
AnchorSideRight.Control = InheritedGroupBox
AnchorSideRight.Side = asrBottom
Left = 103
Height = 22
Top = 6
Width = 440
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
TabOrder = 0
Text = 'InheritedEdit'
end
object InhOverrideCheckBox: TCheckBox
AnchorSideLeft.Control = InheritedLabel
AnchorSideTop.Control = InheritedEdit
AnchorSideTop.Side = asrBottom
Left = 12
Height = 18
Top = 34
Width = 156
BorderSpacing.Around = 6
Caption = 'InhOverrideCheckBox'
TabOrder = 1
end
object InhCallCheckBox: TCheckBox
AnchorSideLeft.Control = InheritedLabel
AnchorSideTop.Control = InhOverrideCheckBox
AnchorSideTop.Side = asrBottom
Left = 12
Height = 18
Top = 58
Width = 126
BorderSpacing.Around = 6
Caption = 'InhCallCheckBox'
TabOrder = 2
end
object InhCallOnlyInElseCheckBox: TCheckBox
AnchorSideLeft.Control = InheritedLabel
AnchorSideTop.Control = InhCallCheckBox
AnchorSideTop.Side = asrBottom
Left = 12
Height = 18
Top = 82
Width = 191
BorderSpacing.Around = 6
Caption = 'InhCallOnlyInElseCheckBox'
TabOrder = 3
end
end
object DeclGroupBox: TGroupBox
Left = 6
Height = 112
Top = 6
Width = 557
Align = alTop
AutoSize = True
BorderSpacing.Around = 6
Caption = 'DeclGroupBox'
ClientHeight = 90
ClientWidth = 549
TabOrder = 3
object ParamTypeLabel: TLabel
AnchorSideLeft.Control = ProcNameLabel
AnchorSideTop.Control = ParamTypeEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17
Top = 65
Width = 104
Caption = 'ParamTypeLabel'
ParentColor = False
end
object ParamTypeEdit: TEdit
AnchorSideLeft.Control = ParamTypeLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ParamNameEdit
AnchorSideTop.Side = asrBottom
Left = 116
Height = 22
Top = 62
Width = 141
BorderSpacing.Around = 6
TabOrder = 0
Text = 'ParamTypeEdit'
end
object ParamNameEdit: TEdit
AnchorSideLeft.Control = ParamNameLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ProcNameEdit
AnchorSideTop.Side = asrBottom
Left = 121
Height = 22
Top = 34
Width = 136
BorderSpacing.Around = 6
OnChange = ParamNameEditChange
TabOrder = 1
Text = 'ParamNameEdit'
end
object ParamNameLabel: TLabel
AnchorSideLeft.Control = ProcNameLabel
AnchorSideTop.Control = ParamNameEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17
Top = 37
Width = 109
Caption = 'ParamNameLabel'
ParentColor = False
end
object ProcNameEdit: TEdit
AnchorSideLeft.Control = ProcNameLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DeclGroupBox
Left = 110
Height = 22
Top = 6
Width = 147
BorderSpacing.Around = 6
OnChange = ProcNameEditChange
TabOrder = 2
Text = 'ProcNameEdit'
end
object ProcNameLabel: TLabel
AnchorSideLeft.Control = DeclGroupBox
AnchorSideTop.Control = ProcNameEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17
Top = 9
Width = 98
BorderSpacing.Left = 6
Caption = 'ProcNameLabel'
ParentColor = False
end
object ProcNameErrorLabel: TLabel
AnchorSideLeft.Control = ProcNameEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ProcNameEdit
AnchorSideTop.Side = asrCenter
Left = 263
Height = 17
Top = 9
Width = 129
Caption = 'ProcNameErrorLabel'
Font.Color = clRed
ParentColor = False
ParentFont = False
end
object ParamNameErrorLabel: TLabel
AnchorSideLeft.Control = ParamNameEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ParamNameEdit
AnchorSideTop.Side = asrCenter
Left = 263
Height = 17
Top = 37
Width = 140
Caption = 'ParamNameErrorLabel'
Font.Color = clRed
ParentColor = False
ParentFont = False
end
object ParamTypeErrorLabel: TLabel
AnchorSideLeft.Control = ParamTypeEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ParamTypeEdit
AnchorSideTop.Side = asrCenter
Left = 263
Height = 17
Top = 65
Width = 135
Caption = 'ParamTypeErrorLabel'
Font.Color = clRed
ParentColor = False
ParentFont = False
end
end
object ImageList1: TImageList
left = 306
top = 288
end
end