object ChangeClassDlg: TChangeClassDlg Left = 291 Height = 350 Top = 163 Width = 470 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsToolWindow Caption = 'ChangeClassDlg' ClientHeight = 350 ClientWidth = 470 OnCreate = ChangeClassDlgCreate LCLVersion = '0.9.29' object OldGroupBox: TGroupBox Left = 6 Height = 306 Top = 6 Width = 228 Align = alClient BorderSpacing.Around = 6 Caption = 'OldGroupBox' ClientHeight = 288 ClientWidth = 224 TabOrder = 0 object OldClassLabel: TLabel AnchorSideLeft.Control = OldGroupBox AnchorSideTop.Control = OldGroupBox Left = 6 Height = 14 Top = 9 Width = 78 BorderSpacing.Top = 3 BorderSpacing.Bottom = 4 BorderSpacing.Around = 6 Caption = 'OldClassLabel' Font.Style = [fsBold] ParentColor = False ParentFont = False end object OldAncestorsListBox: TListBox AnchorSideLeft.Control = OldGroupBox AnchorSideTop.Control = OldClassLabel AnchorSideTop.Side = asrBottom AnchorSideRight.Control = OldGroupBox AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = OldGroupBox AnchorSideBottom.Side = asrBottom Left = 6 Height = 249 Top = 33 Width = 212 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 6 ClickOnSelChange = False ItemHeight = 0 TabOrder = 0 end end object NewGroupBox: TGroupBox Left = 240 Height = 306 Top = 6 Width = 224 Align = alRight BorderSpacing.Around = 6 Caption = 'NewGroupBox' ClientHeight = 288 ClientWidth = 220 TabOrder = 1 object NewClassComboBox: TComboBox AnchorSideLeft.Control = NewGroupBox AnchorSideTop.Control = NewGroupBox AnchorSideRight.Control = NewGroupBox AnchorSideRight.Side = asrBottom Left = 6 Height = 21 Top = 6 Width = 208 Anchors = [akTop, akLeft, akRight] AutoComplete = True AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] BorderSpacing.Around = 6 ItemHeight = 13 OnEditingDone = NewClassComboBoxEditingDone OnKeyUp = NewClassComboBoxKeyUp TabOrder = 0 Text = 'NewClassComboBox' end object NewAncestorsListBox: TListBox AnchorSideLeft.Control = NewGroupBox AnchorSideTop.Control = NewClassComboBox AnchorSideTop.Side = asrBottom AnchorSideRight.Control = NewGroupBox AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = NewGroupBox AnchorSideBottom.Side = asrBottom Left = 6 Height = 249 Top = 33 Width = 208 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 6 ClickOnSelChange = False ItemHeight = 0 TabOrder = 1 end end object BtnPanel: TButtonPanel Left = 6 Height = 26 Top = 318 Width = 458 TabOrder = 2 ShowButtons = [pbOK, pbCancel] ShowBevel = False end end