TB2DsgnItemEditor.dfm 4.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181
  1. object TBItemEditForm: TTBItemEditForm
  2. Left = 200
  3. Top = 104
  4. BorderIcons = [biSystemMenu, biMinimize]
  5. ClientHeight = 247
  6. ClientWidth = 440
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'MS Sans Serif'
  12. Font.Style = []
  13. OldCreateOrder = True
  14. Position = poScreenCenter
  15. OnActivate = FormActivate
  16. OnClose = FormClose
  17. PixelsPerInch = 96
  18. TextHeight = 13
  19. object Splitter1: TSplitter
  20. Left = 129
  21. Top = 21
  22. Height = 226
  23. ResizeStyle = rsUpdate
  24. end
  25. object TreeView: TTreeView
  26. Left = 0
  27. Top = 21
  28. Width = 129
  29. Height = 226
  30. Align = alLeft
  31. HideSelection = False
  32. Indent = 19
  33. ReadOnly = True
  34. ShowRoot = False
  35. TabOrder = 2
  36. OnChange = TreeViewChange
  37. OnDragDrop = TreeViewDragDrop
  38. OnDragOver = TreeViewDragOver
  39. OnEnter = TreeViewEnter
  40. OnKeyDown = TreeViewKeyDown
  41. OnKeyPress = TreeViewKeyPress
  42. end
  43. object ListView: TListView
  44. Left = 132
  45. Top = 21
  46. Width = 308
  47. Height = 226
  48. Align = alClient
  49. Columns = <
  50. item
  51. Caption = 'Caption'
  52. Width = 160
  53. end
  54. item
  55. Caption = 'Type'
  56. Width = 120
  57. end>
  58. ColumnClick = False
  59. DragMode = dmAutomatic
  60. HideSelection = False
  61. MultiSelect = True
  62. ReadOnly = True
  63. RowSelect = True
  64. PopupMenu = TBPopupMenu1
  65. TabOrder = 1
  66. ViewStyle = vsReport
  67. OnChange = ListViewChange
  68. OnDblClick = ListViewDblClick
  69. OnEnter = ListViewEnter
  70. OnDragDrop = ListViewDragDrop
  71. OnDragOver = ListViewDragOver
  72. OnKeyDown = ListViewKeyDown
  73. OnKeyPress = ListViewKeyPress
  74. end
  75. object Toolbar: TTBToolbar
  76. Left = 0
  77. Top = 0
  78. Width = 440
  79. Height = 21
  80. Align = alTop
  81. Caption = 'Toolbar'
  82. DockPos = 0
  83. FullSize = True
  84. LinkSubitems = ToolbarItems
  85. ParentShowHint = False
  86. ShowHint = True
  87. TabOrder = 0
  88. end
  89. object TBPopupMenu1: TTBPopupMenu
  90. LinkSubitems = ToolbarItems
  91. Left = 256
  92. Top = 120
  93. end
  94. object TBItemContainer1: TTBItemContainer
  95. Left = 224
  96. Top = 120
  97. object ToolbarItems: TTBSubmenuItem
  98. object NewItemButton: TTBItem
  99. Caption = 'New &Item'
  100. Hint = 'New Item'
  101. ImageIndex = 0
  102. ShortCut = 45
  103. OnClick = NewItemButtonClick
  104. end
  105. object NewSubmenuButton: TTBItem
  106. Caption = 'New &Submenu'
  107. Hint = 'New Submenu'
  108. ImageIndex = 1
  109. ShortCut = 16429
  110. OnClick = NewSubmenuButtonClick
  111. end
  112. object NewSepButton: TTBItem
  113. Caption = 'New Se&parator'
  114. Hint = 'New Separator'
  115. ImageIndex = 2
  116. ShortCut = 189
  117. OnClick = NewSepButtonClick
  118. end
  119. object MoreMenu: TTBSubmenuItem
  120. Caption = '&More'
  121. Options = [tboDropdownArrow]
  122. end
  123. object TBSeparatorItem1: TTBSeparatorItem
  124. end
  125. object CutButton: TTBItem
  126. Caption = 'Cu&t'
  127. Enabled = False
  128. Hint = 'Cut'
  129. ImageIndex = 5
  130. OnClick = CutButtonClick
  131. end
  132. object CopyButton: TTBItem
  133. Caption = '&Copy'
  134. Enabled = False
  135. Hint = 'Copy'
  136. ImageIndex = 4
  137. OnClick = CopyButtonClick
  138. end
  139. object PasteButton: TTBItem
  140. Caption = '&Paste'
  141. Hint = 'Paste'
  142. ImageIndex = 6
  143. OnClick = PasteButtonClick
  144. end
  145. object DeleteButton: TTBItem
  146. Caption = '&Delete Item'
  147. Enabled = False
  148. Hint = 'Delete Item'
  149. ImageIndex = 3
  150. ShortCut = 46
  151. OnClick = DeleteButtonClick
  152. end
  153. object TBSeparatorItem2: TTBSeparatorItem
  154. end
  155. object MoveUpButton: TTBItem
  156. Caption = 'Move &Up'
  157. Hint = 'Move Up'
  158. ImageIndex = 7
  159. ShortCut = 32806
  160. OnClick = MoveUpButtonClick
  161. end
  162. object MoveDownButton: TTBItem
  163. Caption = 'Move D&own'
  164. Hint = 'Move Down'
  165. ImageIndex = 8
  166. ShortCut = 32808
  167. OnClick = MoveDownButtonClick
  168. end
  169. object TBSeparatorItem3: TTBSeparatorItem
  170. end
  171. object TBSubmenuItem1: TTBSubmenuItem
  172. Caption = '&Tools'
  173. Options = [tboDropdownArrow]
  174. object TConvertMenu: TTBItem
  175. Caption = '&Convert TMainMenu/TPopupMenu...'
  176. OnClick = TConvertMenuClick
  177. end
  178. end
  179. end
  180. end
  181. end