/designer/changeclassdialog.lfm

http://github.com/graemeg/lazarus · Unknown · 132 lines · 132 code · 0 blank · 0 comment · 0 complexity · b3580a780deb98154fa97bf2da2dec6c MD5 · raw file

  1. object 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
  132. end