PageRenderTime 19ms CodeModel.GetById 13ms app.highlight 3ms RepoModel.GetById 1ms app.codeStats 0ms

/designer/changeclassdialog.lfm

http://github.com/graemeg/lazarus
Unknown | 132 lines | 132 code | 0 blank | 0 comment | 0 complexity | b3580a780deb98154fa97bf2da2dec6c MD5 | raw file
  1object ChangeClassDlg: TChangeClassDlg
  2  Left = 291
  3  Height = 350
  4  Top = 163
  5  Width = 470
  6  ActiveControl = NewClassComboBox
  7  BorderIcons = [biSystemMenu, biMinimize]
  8  Caption = 'ChangeClassDlg'
  9  ClientHeight = 350
 10  ClientWidth = 470
 11  OnCreate = ChangeClassDlgCreate
 12  Position = poScreenCenter
 13  LCLVersion = '1.5'
 14  object OldGroupBox: TGroupBox
 15    Left = 6
 16    Height = 304
 17    Top = 6
 18    Width = 228
 19    Align = alClient
 20    BorderSpacing.Around = 6
 21    Caption = 'OldGroupBox'
 22    ClientHeight = 287
 23    ClientWidth = 224
 24    TabOrder = 0
 25    object OldClassLabel: TLabel
 26      AnchorSideLeft.Control = OldGroupBox
 27      AnchorSideTop.Control = OldGroupBox
 28      Left = 6
 29      Height = 15
 30      Top = 6
 31      Width = 83
 32      BorderSpacing.Around = 6
 33      Caption = 'OldClassLabel'
 34      Font.Style = [fsBold]
 35      ParentColor = False
 36      ParentFont = False
 37    end
 38    object OldAncestorsListBox: TListBox
 39      AnchorSideLeft.Control = OldGroupBox
 40      AnchorSideTop.Control = OldClassLabel
 41      AnchorSideTop.Side = asrBottom
 42      AnchorSideRight.Control = OldGroupBox
 43      AnchorSideRight.Side = asrBottom
 44      AnchorSideBottom.Control = OldGroupBox
 45      AnchorSideBottom.Side = asrBottom
 46      Left = 6
 47      Height = 254
 48      Top = 27
 49      Width = 212
 50      Anchors = [akTop, akLeft, akRight, akBottom]
 51      BorderSpacing.Around = 6
 52      ClickOnSelChange = False
 53      ItemHeight = 0
 54      ScrollWidth = 210
 55      TabOrder = 0
 56      TopIndex = -1
 57    end
 58  end
 59  object NewGroupBox: TGroupBox
 60    Left = 240
 61    Height = 304
 62    Top = 6
 63    Width = 224
 64    Align = alRight
 65    BorderSpacing.Around = 6
 66    Caption = 'NewGroupBox'
 67    ClientHeight = 287
 68    ClientWidth = 220
 69    TabOrder = 1
 70    object NewClassComboBox: TComboBox
 71      AnchorSideLeft.Control = NewGroupBox
 72      AnchorSideTop.Control = NewGroupBox
 73      AnchorSideRight.Control = NewGroupBox
 74      AnchorSideRight.Side = asrBottom
 75      Left = 6
 76      Height = 27
 77      Top = 2
 78      Width = 208
 79      Anchors = [akTop, akLeft, akRight]
 80      AutoComplete = True
 81      AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
 82      BorderSpacing.Left = 6
 83      BorderSpacing.Top = 2
 84      BorderSpacing.Right = 6
 85      ItemHeight = 0
 86      OnEditingDone = NewClassComboBoxEditingDone
 87      OnKeyUp = NewClassComboBoxKeyUp
 88      TabOrder = 0
 89      Text = 'NewClassComboBox'
 90    end
 91    object NewAncestorsListBox: TListBox
 92      AnchorSideLeft.Control = NewGroupBox
 93      AnchorSideTop.Control = NewClassComboBox
 94      AnchorSideTop.Side = asrBottom
 95      AnchorSideRight.Control = NewGroupBox
 96      AnchorSideRight.Side = asrBottom
 97      AnchorSideBottom.Control = NewGroupBox
 98      AnchorSideBottom.Side = asrBottom
 99      Left = 6
100      Height = 249
101      Top = 32
102      Width = 208
103      Anchors = [akTop, akLeft, akRight, akBottom]
104      BorderSpacing.Left = 6
105      BorderSpacing.Top = 3
106      BorderSpacing.Right = 6
107      BorderSpacing.Bottom = 6
108      ClickOnSelChange = False
109      ItemHeight = 0
110      ScrollWidth = 206
111      TabOrder = 1
112      TopIndex = -1
113    end
114  end
115  object BtnPanel: TButtonPanel
116    Left = 6
117    Height = 28
118    Top = 316
119    Width = 458
120    OKButton.Name = 'OKButton'
121    OKButton.DefaultCaption = True
122    HelpButton.Name = 'HelpButton'
123    HelpButton.DefaultCaption = True
124    CloseButton.Name = 'CloseButton'
125    CloseButton.DefaultCaption = True
126    CancelButton.Name = 'CancelButton'
127    CancelButton.DefaultCaption = True
128    TabOrder = 2
129    ShowButtons = [pbOK, pbCancel]
130    ShowBevel = False
131  end
132end