mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-07 09:17:19 +01:00
146 lines
3.3 KiB
Plaintext
146 lines
3.3 KiB
Plaintext
object ChangeClassDlg: TChangeClassDlg
|
|
Left = 291
|
|
Height = 350
|
|
Top = 163
|
|
Width = 470
|
|
ActiveControl = OldAncestorsListBox
|
|
BorderIcons = [biSystemMenu, biMinimize]
|
|
BorderStyle = bsToolWindow
|
|
Caption = 'ChangeClassDlg'
|
|
ClientHeight = 350
|
|
ClientWidth = 470
|
|
OnCreate = ChangeClassDlgCreate
|
|
ParentFont = False
|
|
LCLVersion = '0.9.25'
|
|
object OldGroupBox: TGroupBox
|
|
Left = 6
|
|
Height = 300
|
|
Top = 6
|
|
Width = 228
|
|
Align = alClient
|
|
BorderSpacing.Around = 6
|
|
Caption = 'OldGroupBox'
|
|
ClientHeight = 282
|
|
ClientWidth = 224
|
|
TabOrder = 0
|
|
object OldClassLabel: TLabel
|
|
Left = 6
|
|
Height = 14
|
|
Top = 2
|
|
Width = 67
|
|
Caption = 'OldClassLabel'
|
|
ParentColor = False
|
|
end
|
|
object OldAncestorGroupBox: TGroupBox
|
|
AnchorSideTop.Control = OldClassLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Height = 260
|
|
Top = 22
|
|
Width = 224
|
|
Align = alBottom
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Top = 6
|
|
Caption = 'OldAncestorGroupBox'
|
|
ClientHeight = 242
|
|
ClientWidth = 220
|
|
TabOrder = 0
|
|
object OldAncestorsListBox: TListBox
|
|
Height = 242
|
|
Width = 220
|
|
Align = alClient
|
|
ClickOnSelChange = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object NewGroupBox: TGroupBox
|
|
Left = 240
|
|
Height = 300
|
|
Top = 6
|
|
Width = 224
|
|
Align = alRight
|
|
BorderSpacing.Around = 6
|
|
Caption = 'NewGroupBox'
|
|
ClientHeight = 282
|
|
ClientWidth = 220
|
|
TabOrder = 1
|
|
object NewClassComboBox: TComboBox
|
|
Left = 6
|
|
Height = 21
|
|
Top = 6
|
|
Width = 208
|
|
Align = alTop
|
|
AutoComplete = True
|
|
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
|
|
BorderSpacing.Around = 6
|
|
ItemHeight = 13
|
|
MaxLength = -1
|
|
OnEditingDone = NewClassComboBoxEditingDone
|
|
TabOrder = 0
|
|
Text = 'NewClassComboBox'
|
|
end
|
|
object NewAncestorGroupBox: TGroupBox
|
|
Height = 249
|
|
Top = 33
|
|
Width = 220
|
|
Align = alClient
|
|
Caption = 'NewAncestorGroupBox'
|
|
ClientHeight = 231
|
|
ClientWidth = 216
|
|
TabOrder = 1
|
|
object NewAncestorsListBox: TListBox
|
|
Height = 231
|
|
Width = 216
|
|
Align = alClient
|
|
ClickOnSelChange = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object BtnPanel: TPanel
|
|
Height = 38
|
|
Top = 312
|
|
Width = 470
|
|
Align = alBottom
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
ClientHeight = 38
|
|
ClientWidth = 470
|
|
TabOrder = 2
|
|
object CancelButton: TBitBtn
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 389
|
|
Height = 26
|
|
Top = 6
|
|
Width = 75
|
|
Align = alRight
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
Constraints.MinWidth = 75
|
|
Kind = bkCancel
|
|
ModalResult = 2
|
|
NumGlyphs = 0
|
|
TabOrder = 0
|
|
end
|
|
object OkButton: TBitBtn
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 308
|
|
Height = 26
|
|
Top = 6
|
|
Width = 75
|
|
Align = alRight
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = '&OK'
|
|
Constraints.MinWidth = 75
|
|
Kind = bkOK
|
|
ModalResult = 1
|
|
NumGlyphs = 0
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|