home *** CD-ROM | disk | FTP | other *** search
- object WaveView: TWaveView
- Left = 436
- Top = 372
- ClientHeight = 174
- ClientWidth = 343
- Color = clNone
- Constraints.MinHeight = 130
- ParentFont = True
- FormStyle = fsMDIChild
- OldCreateOrder = False
- Position = poDefault
- PrintScale = poNone
- Scaled = False
- Visible = True
- OnActivate = FormActivate
- OnCloseQuery = FormCloseQuery
- OnKeyDown = FormKeyDown
- OnKeyPress = FormKeyPress
- OnMouseWheel = OnWheel
- OnResize = OnResize
- OnShow = OnShow
- PixelsPerInch = 96
- TextHeight = 13
- object VBar: TScrollBar
- Left = 326
- Top = 0
- Width = 17
- Height = 158
- Align = alRight
- Kind = sbVertical
- Max = 16384
- PageSize = 0
- TabOrder = 0
- TabStop = False
- Visible = False
- OnScroll = VScroll
- end
- object HBar: TScrollBar
- Left = 0
- Top = 158
- Width = 343
- Height = 16
- Align = alBottom
- Max = 16384
- PageSize = 0
- TabOrder = 1
- TabStop = False
- OnScroll = HScroll
- end
- object MenuWave: TPopupMenu
- Left = 50
- Top = 112
- object Setstartmarker: TMenuItem
- Caption = 'Set &Start Marker'
- Hint = 'Moves the start marker to the right-click mouse position'
- OnClick = SetstartmarkerClick
- end
- object Setfinishmarker: TMenuItem
- Caption = 'Set &Finish Marker'
- Hint = 'Moves the finish marker to the right-click mouse position'
- OnClick = SetfinishmarkerClick
- end
- object Playfromhere: TMenuItem
- Caption = 'Play From Here'
- Hint = 'Starts playback from the right-click mouse position'
- OnClick = PlayfromhereClick
- end
- object SelectAll: TMenuItem
- Action = MainForm.EditSelectAll
- end
- object ViewAll: TMenuItem
- Action = MainForm.ViewViewAll
- end
- object ViewSelection: TMenuItem
- Action = MainForm.ViewViewSelection
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Undo: TMenuItem
- Action = MainForm.EditUndo
- end
- object Copy: TMenuItem
- Action = MainForm.EditCopy
- end
- object Channel: TMenuItem
- Action = MainForm.EditChannel
- end
- end
- object MenuWaveRange: TPopupMenu
- Left = 130
- Top = 112
- object RangeSelect: TMenuItem
- Caption = '&Select'
- Hint = 'Selects the range'
- OnClick = SelectRangeClick
- end
- object RangeZoom: TMenuItem
- Caption = '&Zoom'
- Hint = 'Zooms in on the range'
- OnClick = ZoomRangeClick
- end
- object RangePlay: TMenuItem
- Caption = 'Play'
- Hint = 'Plays the range'
- OnClick = PlayRangeClick
- end
- object RangeCopy: TMenuItem
- Caption = 'Copy'
- Hint = 'Copies the range'
- Visible = False
- OnClick = CopyRangeClick
- end
- end
- object MenuCue: TPopupMenu
- OnPopup = MenuCuePopup
- Left = 196
- Top = 112
- object MenuCuePlay: TMenuItem
- Caption = 'Play From Cue'
- Hint = 'Starts playback at cue point'
- OnClick = MenuCuePlayClick
- end
- object MenuCueMoveStart: TMenuItem
- Caption = 'Set Start Marker'
- Hint = 'Moves start marker to cue point'
- OnClick = MenuCueMoveStartClick
- end
- object MenuCueMoveFinish: TMenuItem
- Caption = 'Set Finish Marker'
- Hint = 'Moves finish marker to cue point'
- OnClick = MenuCueMoveFinishClick
- end
- object MenuCueMoveToStart: TMenuItem
- Caption = 'Move Cue To Start'
- Hint = 'Moves cue point to start marker'
- OnClick = MenuCueMoveToStartClick
- end
- object MenuCueMoveToFinish: TMenuItem
- Caption = 'Move Cue To Finish'
- Hint = 'Moves cue point to finish marker'
- OnClick = MenuCueMoveToFinishClick
- end
- object MenuMoveCueToPlayback: TMenuItem
- Caption = 'Move Cue To Playback'
- Hint = 'Moves cue point to playback position'
- OnClick = MenuCueMoveToPlaybackClick
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object MenuCueNew: TMenuItem
- Caption = 'New Cue...'
- Hint = 'Creates a new cue point'
- OnClick = MenuCueNewClick
- end
- object MenuCueEdit: TMenuItem
- Caption = 'Edit Cue...'
- Hint = 'Edits this cue point'
- OnClick = MenuCueEditClick
- end
- object MenuCueDelete: TMenuItem
- Caption = 'Delete Cue'
- Hint = 'Deletes this cue point'
- OnClick = MenuCueDeleteClick
- end
- end
- end
-