home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 November / CDVD1105.ISO / Software / Freeware / programare / bass / Delphi / custloop / Unit1.dfm < prev    next >
Encoding:
Text File  |  2005-09-15  |  1.2 KB  |  50 lines
  1. object Form1: TForm1
  2.   Left = 192
  3.   Top = 103
  4.   BorderStyle = bsDialog
  5.   Caption = 
  6.     'BASS custom looping example (left-click to set loop start, right' +
  7.     '-click to set end)'
  8.   ClientHeight = 200
  9.   ClientWidth = 253
  10.   Color = clBtnFace
  11.   Font.Charset = DEFAULT_CHARSET
  12.   Font.Color = clWindowText
  13.   Font.Height = -11
  14.   Font.Name = 'MS Sans Serif'
  15.   Font.Style = []
  16.   OldCreateOrder = False
  17.   OnCloseQuery = FormCloseQuery
  18.   OnCreate = FormCreate
  19.   OnKeyDown = FormKeyDown
  20.   OnMouseDown = FormMouseDown
  21.   OnMouseMove = FormMouseMove
  22.   OnMouseUp = FormMouseUp
  23.   PixelsPerInch = 96
  24.   TextHeight = 13
  25.   object PB: TPaintBox
  26.     Left = 0
  27.     Top = 0
  28.     Width = 253
  29.     Height = 200
  30.     Align = alClient
  31.     OnMouseDown = FormMouseDown
  32.     OnMouseMove = FormMouseMove
  33.     OnMouseUp = FormMouseUp
  34.     OnPaint = PBPaint
  35.   end
  36.   object OpenDialog1: TOpenDialog
  37.     Filter = 
  38.       'Playable files|*.mp3;*.mp2;*.mp1;*.ogg;*.wav;*.aif;*.mo3;*.it;*.xm;*.s3m;*.mtm;*.mod;*.umx|All files (*.*)|*.*'
  39.     Title = 'Select a file to play'
  40.     Left = 8
  41.     Top = 8
  42.   end
  43.   object Timer1: TTimer
  44.     Enabled = False
  45.     OnTimer = Timer1Timer
  46.     Left = 48
  47.     Top = 8
  48.   end
  49. end
  50.