home *** CD-ROM | disk | FTP | other *** search
- object ArrangerFrame: TArrangerFrame
- Left = 0
- Top = 0
- Width = 417
- Height = 256
- AutoScroll = False
- TabOrder = 0
- object FromBar: TListView
- Left = 3
- Top = 19
- Width = 199
- Height = 205
- Anchors = [akLeft, akTop, akBottom]
- Columns = <
- item
- Caption = 'Available tool bar buttons:'
- Width = 195
- end>
- ColumnClick = False
- DragMode = dmAutomatic
- HideSelection = False
- MultiSelect = True
- ReadOnly = True
- RowSelect = True
- ShowColumnHeaders = False
- SmallImages = MainForm.ImageList
- SortType = stData
- TabOrder = 1
- ViewStyle = vsSmallIcon
- OnCompare = FromBarCompare
- OnDragDrop = FromBarDragDrop
- OnDragOver = FromBarDragOver
- end
- object MainAvailableLabel: TStaticText
- Left = 3
- Top = 0
- Width = 126
- Height = 17
- Caption = 'Available tool bar buttons:'
- TabOrder = 0
- end
- object ToBar: TListView
- Left = 213
- Top = 19
- Width = 199
- Height = 205
- Anchors = [akTop, akRight, akBottom]
- Columns = <
- item
- Caption = 'Current tool bar buttons:'
- Width = 195
- end>
- ColumnClick = False
- DragMode = dmAutomatic
- HideSelection = False
- MultiSelect = True
- ReadOnly = True
- RowSelect = True
- ShowColumnHeaders = False
- SmallImages = MainForm.ImageList
- SortType = stData
- TabOrder = 3
- ViewStyle = vsSmallIcon
- OnCompare = ToBarCompare
- OnDragDrop = ToBarDragDrop
- OnDragOver = ToBarDragOver
- end
- object MainCurrentLabel: TStaticText
- Left = 213
- Top = 0
- Width = 117
- Height = 17
- Caption = 'Current tool bar buttons:'
- TabOrder = 2
- end
- object AddButton: TButton
- Left = 128
- Top = 229
- Width = 75
- Height = 25
- Action = AddAction
- TabOrder = 4
- end
- object RemoveButton: TButton
- Left = 214
- Top = 229
- Width = 75
- Height = 25
- Action = RemoveAction
- TabOrder = 5
- end
- object ButtonActions: TActionList
- Left = 18
- Top = 226
- object AddAction: TAction
- Caption = 'Add >>'
- OnExecute = AddExecute
- OnUpdate = AddUpdate
- end
- object RemoveAction: TAction
- Caption = '<< Remove'
- OnExecute = RemoveExecute
- OnUpdate = RemoveUpdate
- end
- end
- end
-