home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Delphi.5 / Samples / sourceD5 / browutil.exe / BROWSER / MEDPLAY.DFM / MEDPLAY.txt < prev   
Encoding:
Text File  |  2000-01-02  |  2.5 KB  |  122 lines
  1. object FrmMediaPlayer: TFrmMediaPlayer
  2.   Left = 215
  3.   Top = 69
  4.   Width = 363
  5.   Height = 413
  6.   BorderIcons = [biSystemMenu]
  7.   Caption = 'Media Player'
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   FormStyle = fsStayOnTop
  15.   Icon.Data = {<image000.ico>}
  16.   OldCreateOrder = True
  17.   Position = poDefault
  18.   Visible = True
  19.   OnActivate = FormActivate
  20.   OnClose = FormClose
  21.   OnDestroy = FormDestroy
  22.   PixelsPerInch = 96
  23.   TextHeight = 13
  24.   object Panel2: TPanel
  25.     Left = 0
  26.     Top = 32
  27.     Width = 355
  28.     Height = 60
  29.     Align = alTop
  30.     BevelInner = bvLowered
  31.     TabOrder = 0
  32.     object MediaPlayer1: TMediaPlayer
  33.       Left = 0
  34.       Top = 0
  35.       Width = 352
  36.       Height = 30
  37.       TabOrder = 0
  38.       OnClick = MediaPlayer1Click
  39.       OnNotify = MediaPlayer1Notify
  40.     end
  41.     object TrackBar1: TTrackBar
  42.       Left = 0
  43.       Top = 32
  44.       Width = 352
  45.       Height = 25
  46.       Ctl3D = True
  47.       Max = 2000
  48.       Orientation = trHorizontal
  49.       ParentCtl3D = False
  50.       PageSize = 1
  51.       Frequency = 1
  52.       Position = 0
  53.       SelEnd = 0
  54.       SelStart = 0
  55.       TabOrder = 1
  56.       TickMarks = tmBottomRight
  57.       TickStyle = tsNone
  58.       OnChange = TrackBar1Change
  59.     end
  60.   end
  61.   object ListBox1: TListBox
  62.     Left = 0
  63.     Top = 92
  64.     Width = 355
  65.     Height = 294
  66.     Hint = 'Double Click To Play'
  67.     Align = alClient
  68.     ItemHeight = 13
  69.     MultiSelect = True
  70.     ParentShowHint = False
  71.     PopupMenu = PopupMenu1
  72.     ShowHint = True
  73.     TabOrder = 1
  74.     OnClick = ListBox1Click
  75.     OnDblClick = ListBox1DblClick
  76.     OnKeyDown = ListBox1KeyDown
  77.   end
  78.   object Panel1: TPanel
  79.     Left = 0
  80.     Top = 0
  81.     Width = 355
  82.     Height = 32
  83.     Align = alTop
  84.     BevelInner = bvLowered
  85.     TabOrder = 2
  86.     object CheckBox1: TCheckBox
  87.       Left = 8
  88.       Top = 8
  89.       Width = 81
  90.       Height = 17
  91.       Caption = 'Play Looped'
  92.       TabOrder = 0
  93.     end
  94.     object CheckBox2: TCheckBox
  95.       Left = 97
  96.       Top = 8
  97.       Width = 97
  98.       Height = 17
  99.       Caption = 'Display on form'
  100.       TabOrder = 1
  101.       OnClick = CheckBox2Click
  102.     end
  103.   end
  104.   object PopupMenu1: TPopupMenu
  105.     Left = 112
  106.     Top = 104
  107.     object InsertFile1: TMenuItem
  108.       Caption = 'Add File(s)'
  109.       OnClick = InsertFile1Click
  110.     end
  111.     object Remove1: TMenuItem
  112.       Caption = 'Remove File(s)'
  113.       OnClick = Remove1Click
  114.     end
  115.   end
  116.   object Timer1: TTimer
  117.     OnTimer = Timer1Timer
  118.     Left = 288
  119.     Top = 8
  120.   end
  121. end
  122.