home *** CD-ROM | disk | FTP | other *** search
- object Form2: TForm2
- Left = 9
- Top = 114
- HorzScrollBar.Tracking = True
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- AutoScroll = False
- Caption = 'Wave file'
- ClientHeight = 293
- ClientWidth = 656
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsMDIChild
- Icon.Data = {<image000.ico>}
- OldCreateOrder = True
- Position = poDefault
- Visible = True
- OnActivate = FormActivate
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnDeactivate = FormDeactivate
- OnKeyPress = FormKeyPress
- OnMouseDown = FormMouseDown
- OnMouseMove = FormMouseMove
- OnPaint = FormPaint
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel2: TBevel
- Left = 10
- Top = 0
- Width = 1
- Height = 257
- Shape = bsLeftLine
- end
- object Shape1: TShape
- Left = 0
- Top = 0
- Width = 0
- Height = 257
- Brush.Color = clGray
- Pen.Mode = pmNot
- OnMouseDown = Shape1MouseDown
- OnMouseMove = Shape1MouseMove
- end
- object Bevel1: TBevel
- Left = 0
- Top = 136
- Width = 616
- Height = 2
- Shape = bsTopLine
- Style = bsRaised
- Visible = False
- end
- object LiniaPlay1: TShape
- Left = 16
- Top = 0
- Width = 1
- Height = 233
- Pen.Color = clRed
- Visible = False
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 273
- Width = 656
- Height = 20
- Panels = <
- item
- Alignment = taCenter
- Width = 150
- end
- item
- Alignment = taCenter
- Text = 'Samples:0'
- Width = 150
- end
- item
- Alignment = taCenter
- Text = 'Bits'
- Width = 60
- end
- item
- Alignment = taCenter
- Text = 'Samples/sec'
- Width = 100
- end
- item
- Alignment = taCenter
- Text = 'Mono'
- Width = 60
- end
- item
- Alignment = taCenter
- Text = 'Modified'
- Width = 50
- end>
- SimplePanel = False
- OnDblClick = StatusBar1DblClick
- OnMouseMove = StatusBar1MouseMove
- end
- object ScrollBar1: TScrollBar
- Left = 0
- Top = 246
- Width = 621
- Height = 12
- Cursor = crDrag
- DragCursor = crDefault
- LargeChange = 100
- PageSize = 0
- SmallChange = 10
- TabOrder = 1
- OnScroll = ScrollBar1Scroll
- end
- object ProgressBar1: TProgressBar
- Left = 0
- Top = 276
- Width = 150
- Height = 16
- Min = 0
- Max = 100
- TabOrder = 2
- Visible = False
- end
- object Panel1: TPanel
- Left = 0
- Top = 266
- Width = 656
- Height = 7
- Align = alBottom
- BevelOuter = bvLowered
- TabOrder = 3
- object PaintBox1: TImage
- Left = 1
- Top = 1
- Width = 654
- Height = 5
- Align = alClient
- Picture.Data = {<image001.bmp>}
- end
- object LiniaPlay2: TShape
- Left = 0
- Top = 3
- Width = 1
- Height = 5
- Pen.Color = clRed
- Visible = False
- end
- end
- object boto_selectall: TButton
- Left = 1
- Top = 276
- Width = 148
- Height = 16
- Caption = 'Select &All'
- TabOrder = 4
- Visible = False
- OnClick = StatusBar1DblClick
- end
- object TimerPlay: TTimer
- Enabled = False
- Interval = 1
- OnTimer = TimerPlayTimer
- Left = 576
- Top = 8
- end
- end
-