| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181 |
- object TBItemEditForm: TTBItemEditForm
- Left = 200
- Top = 104
- BorderIcons = [biSystemMenu, biMinimize]
- ClientHeight = 247
- ClientWidth = 440
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- OnActivate = FormActivate
- OnClose = FormClose
- PixelsPerInch = 96
- TextHeight = 13
- object Splitter1: TSplitter
- Left = 129
- Top = 21
- Height = 226
- ResizeStyle = rsUpdate
- end
- object TreeView: TTreeView
- Left = 0
- Top = 21
- Width = 129
- Height = 226
- Align = alLeft
- HideSelection = False
- Indent = 19
- ReadOnly = True
- ShowRoot = False
- TabOrder = 2
- OnChange = TreeViewChange
- OnDragDrop = TreeViewDragDrop
- OnDragOver = TreeViewDragOver
- OnEnter = TreeViewEnter
- OnKeyDown = TreeViewKeyDown
- OnKeyPress = TreeViewKeyPress
- end
- object ListView: TListView
- Left = 132
- Top = 21
- Width = 308
- Height = 226
- Align = alClient
- Columns = <
- item
- Caption = 'Caption'
- Width = 160
- end
- item
- Caption = 'Type'
- Width = 120
- end>
- ColumnClick = False
- DragMode = dmAutomatic
- HideSelection = False
- MultiSelect = True
- ReadOnly = True
- RowSelect = True
- PopupMenu = TBPopupMenu1
- TabOrder = 1
- ViewStyle = vsReport
- OnChange = ListViewChange
- OnDblClick = ListViewDblClick
- OnEnter = ListViewEnter
- OnDragDrop = ListViewDragDrop
- OnDragOver = ListViewDragOver
- OnKeyDown = ListViewKeyDown
- OnKeyPress = ListViewKeyPress
- end
- object Toolbar: TTBToolbar
- Left = 0
- Top = 0
- Width = 440
- Height = 21
- Align = alTop
- Caption = 'Toolbar'
- DockPos = 0
- FullSize = True
- LinkSubitems = ToolbarItems
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object TBPopupMenu1: TTBPopupMenu
- LinkSubitems = ToolbarItems
- Left = 256
- Top = 120
- end
- object TBItemContainer1: TTBItemContainer
- Left = 224
- Top = 120
- object ToolbarItems: TTBSubmenuItem
- object NewItemButton: TTBItem
- Caption = 'New &Item'
- Hint = 'New Item'
- ImageIndex = 0
- ShortCut = 45
- OnClick = NewItemButtonClick
- end
- object NewSubmenuButton: TTBItem
- Caption = 'New &Submenu'
- Hint = 'New Submenu'
- ImageIndex = 1
- ShortCut = 16429
- OnClick = NewSubmenuButtonClick
- end
- object NewSepButton: TTBItem
- Caption = 'New Se¶tor'
- Hint = 'New Separator'
- ImageIndex = 2
- ShortCut = 189
- OnClick = NewSepButtonClick
- end
- object MoreMenu: TTBSubmenuItem
- Caption = '&More'
- Options = [tboDropdownArrow]
- end
- object TBSeparatorItem1: TTBSeparatorItem
- end
- object CutButton: TTBItem
- Caption = 'Cu&t'
- Enabled = False
- Hint = 'Cut'
- ImageIndex = 5
- OnClick = CutButtonClick
- end
- object CopyButton: TTBItem
- Caption = '&Copy'
- Enabled = False
- Hint = 'Copy'
- ImageIndex = 4
- OnClick = CopyButtonClick
- end
- object PasteButton: TTBItem
- Caption = '&Paste'
- Hint = 'Paste'
- ImageIndex = 6
- OnClick = PasteButtonClick
- end
- object DeleteButton: TTBItem
- Caption = '&Delete Item'
- Enabled = False
- Hint = 'Delete Item'
- ImageIndex = 3
- ShortCut = 46
- OnClick = DeleteButtonClick
- end
- object TBSeparatorItem2: TTBSeparatorItem
- end
- object MoveUpButton: TTBItem
- Caption = 'Move &Up'
- Hint = 'Move Up'
- ImageIndex = 7
- ShortCut = 32806
- OnClick = MoveUpButtonClick
- end
- object MoveDownButton: TTBItem
- Caption = 'Move D&own'
- Hint = 'Move Down'
- ImageIndex = 8
- ShortCut = 32808
- OnClick = MoveDownButtonClick
- end
- object TBSeparatorItem3: TTBSeparatorItem
- end
- object TBSubmenuItem1: TTBSubmenuItem
- Caption = '&Tools'
- Options = [tboDropdownArrow]
- object TConvertMenu: TTBItem
- Caption = '&Convert TMainMenu/TPopupMenu...'
- OnClick = TConvertMenuClick
- end
- end
- end
- end
- end
|