lazarus/designer/changeclassdialog.lfm
2008-04-01 01:47:32 +00:00

127 lines
2.8 KiB
Plaintext

object ChangeClassDlg: TChangeClassDlg
Left = 291
Height = 298
Top = 163
Width = 423
HorzScrollBar.Page = 422
VertScrollBar.Page = 297
ActiveControl = OldAncestorsListBox
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsToolWindow
Caption = 'ChangeClassDlg'
ClientHeight = 298
ClientWidth = 423
OnCreate = ChangeClassDlgCreate
LCLVersion = '0.9.25'
object OldGroupBox: TGroupBox
Left = 8
Height = 248
Top = 8
Width = 200
Caption = 'OldGroupBox'
ClientHeight = 230
ClientWidth = 196
TabOrder = 0
object OldClassLabel: TLabel
Left = 6
Height = 32
Top = 2
Width = 185
Caption = 'OldClassLabel'
ParentColor = False
end
object OldAncestorGroupBox: TGroupBox
Height = 192
Top = 38
Width = 196
Align = alBottom
Caption = 'OldAncestorGroupBox'
ClientHeight = 174
ClientWidth = 192
TabOrder = 0
object OldAncestorsListBox: TListBox
Height = 174
Width = 192
Align = alClient
ClickOnSelChange = False
TabOrder = 0
end
end
end
object NewGroupBox: TGroupBox
Left = 216
Height = 248
Top = 8
Width = 200
Caption = 'NewGroupBox'
ClientHeight = 230
ClientWidth = 196
TabOrder = 1
object NewClassComboBox: TComboBox
Left = 14
Height = 21
Top = 9
Width = 174
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
MaxLength = 0
OnEditingDone = NewClassComboBoxEditingDone
TabOrder = 0
Text = 'NewClassComboBox'
end
object NewAncestorGroupBox: TGroupBox
Height = 192
Top = 38
Width = 196
Align = alBottom
Caption = 'NewAncestorGroupBox'
ClientHeight = 174
ClientWidth = 192
TabOrder = 1
object NewAncestorsListBox: TListBox
Height = 174
Width = 192
Align = alClient
ClickOnSelChange = False
TabOrder = 0
end
end
end
object OkButton: TBitBtn
AnchorSideRight.Control = CancelButton
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 273
Height = 26
Top = 266
Width = 60
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = '&OK'
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
TabOrder = 2
end
object CancelButton: TBitBtn
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 339
Height = 26
Top = 266
Width = 78
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Cancel = True
Caption = 'Cancel'
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 3
end
end