xue@0: object EventBox: TEventBox
xue@0:   Left = 963
xue@0:   Top = 83
xue@0:   Caption = 'EventBox'
xue@0:   ClientHeight = 511
xue@0:   ClientWidth = 160
xue@0:   Color = clBtnFace
xue@0:   Font.Charset = DEFAULT_CHARSET
xue@0:   Font.Color = clWindowText
xue@0:   Font.Height = -11
xue@0:   Font.Name = 'MS Sans Serif'
xue@0:   Font.Style = []
xue@0:   FormStyle = fsStayOnTop
xue@0:   OldCreateOrder = False
xue@0:   OnClick = FormClick
xue@0:   DesignSize = (
xue@0:     160
xue@0:     511)
xue@0:   PixelsPerInch = 96
xue@0:   TextHeight = 13
xue@0:   object SpeedButton1: TSpeedButton
xue@0:     Left = 0
xue@0:     Top = 455
xue@0:     Width = 81
xue@0:     Height = 25
xue@0:     Anchors = [akLeft, akBottom]
xue@0:     Caption = 'Save'
xue@0:     Flat = True
xue@0:     OnClick = Save
xue@0:     ExplicitTop = 418
xue@0:   end
xue@0:   object SpeedButton2: TSpeedButton
xue@0:     Left = 80
xue@0:     Top = 455
xue@0:     Width = 81
xue@0:     Height = 25
xue@0:     Anchors = [akLeft, akBottom]
xue@0:     Caption = 'Load'
xue@0:     Flat = True
xue@0:     OnClick = Load
xue@0:     ExplicitTop = 418
xue@0:   end
xue@0:   object ListBox1: TListBox
xue@0:     Left = 0
xue@0:     Top = 0
xue@0:     Width = 161
xue@0:     Height = 449
xue@0:     Anchors = [akLeft, akTop, akBottom]
xue@0:     ItemHeight = 13
xue@0:     PopupMenu = PopupMenu1
xue@0:     TabOrder = 0
xue@0:     OnDblClick = ListBox1DblClick
xue@0:     OnKeyUp = ListBox1KeyUp
xue@0:     OnMouseDown = ListBox1MouseDown
xue@0:   end
xue@0:   object CheckBox1: TCheckBox
xue@0:     Left = 32
xue@0:     Top = 486
xue@0:     Width = 97
xue@0:     Height = 17
xue@0:     Anchors = [akLeft, akBottom]
xue@0:     Caption = 'Locate event'
xue@0:     TabOrder = 1
xue@0:   end
xue@0:   object PopupMenu1: TPopupMenu
xue@0:     OnPopup = PopupMenu1Popup
xue@0:     Left = 32
xue@0:     Top = 80
xue@0:     object Vibratowizard1: TMenuItem
xue@0:       Caption = 'Vibrato...'
xue@0:       OnClick = Vibratowizard1Click
xue@0:     end
xue@0:     object Sourcefilter1: TMenuItem
xue@0:       Caption = 'Source-filter...'
xue@0:       OnClick = Sourcefilter1Click
xue@0:     end
xue@0:     object Cut1: TMenuItem
xue@0:       Caption = 'Cut'
xue@0:       OnClick = Cut1Click
xue@0:     end
xue@0:     object Extract1: TMenuItem
xue@0:       Caption = 'Extract'
xue@0:       OnClick = Extract1Click
xue@0:     end
xue@0:   end
xue@0: end