home *** CD-ROM | disk | FTP | other *** search
- inherited CueForm: TCueForm
- Caption = 'Cue Points'
- ClientHeight = 249
- ClientWidth = 376
- PixelsPerInch = 96
- TextHeight = 13
- object CueListLabel: TStaticText [0]
- Left = 8
- Top = 5
- Width = 47
- Height = 17
- Caption = '&Cue list:'
- FocusControl = List
- TabOrder = 10
- end
- inherited ButtonCancel: TButton [1]
- Left = 294
- Top = 74
- Anchors = [akTop, akRight]
- TabOrder = 5
- Visible = False
- end
- inherited ButtonOk: TButton [2]
- Left = 294
- Top = 10
- Anchors = [akTop, akRight]
- Caption = 'Close'
- TabOrder = 4
- end
- inherited ButtonHelp: THelpButton
- Left = 294
- Top = 42
- Anchors = [akTop, akRight]
- TabOrder = 6
- HelpKey = 'tool_cuepoints'
- end
- object List: TListView
- Left = 8
- Top = 22
- Width = 275
- Height = 191
- Columns = <
- item
- Caption = 'Position'
- Width = 100
- end
- item
- AutoSize = True
- Caption = 'Name'
- end>
- HideSelection = False
- ReadOnly = True
- RowSelect = True
- PopupMenu = ListMenu
- SortType = stText
- TabOrder = 0
- ViewStyle = vsReport
- OnColumnClick = ListColumnClick
- OnCompare = ListCompare
- OnDblClick = ListDblClick
- end
- object NewButton: TButton
- Left = 21
- Top = 220
- Width = 75
- Height = 25
- Action = New
- Anchors = [akLeft, akBottom]
- Caption = '&New...'
- TabOrder = 1
- end
- object EditButton: TButton
- Left = 106
- Top = 220
- Width = 75
- Height = 25
- Action = Edit
- Anchors = [akLeft, akBottom]
- Caption = '&Edit...'
- TabOrder = 2
- end
- object DeleteButton: TButton
- Left = 191
- Top = 220
- Width = 75
- Height = 25
- Action = Delete
- Anchors = [akLeft, akBottom]
- Caption = '&Delete'
- TabOrder = 3
- end
- object SplitButton: TButton
- Left = 293
- Top = 144
- Width = 75
- Height = 25
- Action = Split
- Anchors = [akTop, akRight]
- TabOrder = 7
- end
- object SilenceButton: TButton
- Left = 293
- Top = 176
- Width = 75
- Height = 25
- Action = Auto
- Anchors = [akTop, akRight]
- TabOrder = 8
- end
- object CopyButton: TButton
- Left = 294
- Top = 112
- Width = 75
- Height = 25
- Action = Copy
- TabOrder = 9
- end
- object ActionList: TActionList
- Left = 296
- Top = 213
- object New: TAction
- Caption = 'New...'
- OnExecute = NewExecute
- end
- object Edit: TAction
- Caption = 'Edit...'
- OnExecute = EditExecute
- OnUpdate = CueSelectedEnable
- end
- object Delete: TAction
- Caption = 'Delete'
- OnExecute = DeleteExecute
- OnUpdate = CueSelectedEnable
- end
- object Split: TAction
- Caption = 'Split File...'
- OnExecute = SplitExecute
- OnUpdate = CueExistsEnable
- end
- object Auto: TAction
- Caption = 'Auto Cue...'
- OnExecute = AutoExecute
- end
- object SetStart: TAction
- Caption = 'Set Start Marker'
- OnExecute = SetStartExecute
- OnUpdate = CueBeforeFinishEnable
- end
- object SetFinish: TAction
- Caption = 'Set Finish Marker'
- OnExecute = SetFinishExecute
- OnUpdate = CueBeforeStartEnable
- end
- object MoveToStart: TAction
- Caption = 'Move To Start Marker'
- OnExecute = MoveToStartExecute
- OnUpdate = CueSelectedEnable
- end
- object MoveToFinish: TAction
- Caption = 'Move To Finish Marker'
- OnExecute = MoveToFinishExecute
- OnUpdate = CueSelectedEnable
- end
- object Copy: TAction
- Caption = 'Copy All'
- OnExecute = CopyExecute
- OnUpdate = CueExistsEnable
- end
- end
- object ListMenu: TPopupMenu
- Left = 330
- Top = 213
- object Delete1: TMenuItem
- Action = Edit
- end
- object Delete2: TMenuItem
- Action = Delete
- end
- object SetFinishMarker1: TMenuItem
- Action = SetStart
- end
- object SetFinishMarker2: TMenuItem
- Action = SetFinish
- end
- object MoveToFinishMarker1: TMenuItem
- Action = MoveToStart
- end
- object MoveToFinishMarker2: TMenuItem
- Action = MoveToFinish
- end
- end
- end
-