home *** CD-ROM | disk | FTP | other *** search
- object ArrangerFrame: TArrangerFrame
- Left = 0
- Top = 0
- Width = 448
- Height = 256
- TabOrder = 0
- TabStop = True
- DesignSize = (
- 448
- 256)
- object FromBar: TListView
- Left = 3
- Top = 19
- Width = 215
- Height = 205
- Anchors = [akLeft, akTop, akBottom]
- Columns = <
- item
- Caption = 'Available tool bar buttons:'
- Width = 202
- end>
- ColumnClick = False
- DragMode = dmAutomatic
- HideSelection = False
- MultiSelect = True
- ReadOnly = True
- RowSelect = True
- ShowColumnHeaders = False
- SmallImages = MainForm.ImageList
- SortType = stData
- TabOrder = 1
- ViewStyle = vsReport
- OnCompare = FromBarCompare
- OnDragDrop = FromBarDragDrop
- OnDragOver = FromBarDragOver
- end
- object MainAvailableLabel: TStaticText
- Left = 3
- Top = 0
- Width = 131
- Height = 17
- Caption = 'Available tool bar buttons:'
- TabOrder = 0
- end
- object ToBar: TListView
- Left = 228
- Top = 19
- Width = 215
- Height = 205
- Anchors = [akTop, akRight, akBottom]
- Columns = <
- item
- Caption = 'Current tool bar buttons:'
- Width = 202
- end>
- ColumnClick = False
- DragMode = dmAutomatic
- HideSelection = False
- MultiSelect = True
- ReadOnly = True
- RowSelect = True
- ShowColumnHeaders = False
- SmallImages = MainForm.ImageList
- SortType = stData
- TabOrder = 3
- ViewStyle = vsReport
- OnCompare = ToBarCompare
- OnDragDrop = ToBarDragDrop
- OnDragOver = ToBarDragOver
- end
- object MainCurrentLabel: TStaticText
- Left = 228
- Top = 0
- Width = 125
- Height = 17
- Anchors = [akTop, akRight]
- Caption = 'Current tool bar buttons:'
- TabOrder = 2
- end
- object AddButton: TButton
- Left = 144
- Top = 229
- Width = 75
- Height = 25
- Action = AddAction
- TabOrder = 4
- end
- object RemoveButton: TButton
- Left = 229
- Top = 229
- Width = 75
- Height = 25
- Action = RemoveAction
- Anchors = [akTop, akRight]
- 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
-