185 lines
4.3 KiB
Plaintext
185 lines
4.3 KiB
Plaintext
object TBItemEditForm: TTBItemEditForm
|
|
Left = 200
|
|
Top = 104
|
|
AutoScroll = False
|
|
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 = 19
|
|
Width = 3
|
|
Height = 228
|
|
Cursor = crHSplit
|
|
ResizeStyle = rsUpdate
|
|
end
|
|
object TreeView: TTreeView
|
|
Left = 0
|
|
Top = 19
|
|
Width = 129
|
|
Height = 228
|
|
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 = 19
|
|
Width = 308
|
|
Height = 228
|
|
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 = 19
|
|
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
|