PC World Komputer 1998 June/Pcwk6b98.iso/Mpeg3/Mp3playr/mp3playr.exe/0/RCDATA/TPLAYFORM/TPLAYFORM.txt

Text File | 1998-03-30 | 8KB | 310 lines

object PlayForm: TPlayForm
  Left = 83
  Top = 108
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'MP3Player V0.2'
  ClientHeight = 151
  ClientWidth = 219
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object Stop: TSpeedButton
    Left = 31
    Top = 1
    Width = 25
    Height = 25
    Hint = 'Stop'
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000074120000741200001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33339999999999999993900000000000009390F777777777709390F333333333
      709390F333333333709390F330000033709390F330000033709390F330000033
      709390F330000033709390F330000033709390F333333333709390F333333333
      709390FFFFFFFFFFF09390000000000000939999999999999993}
    ParentShowHint = False
    ShowHint = True
    OnClick = StopClick
  end
  object Play: TSpeedButton
    Left = 55
    Top = 1
    Width = 25
    Height = 25
    Hint = 'Play'
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000130B0000130B00001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333EEEEEEEEEEEEEEE3E0000000000000E3E0F77777777770E3E0F333333333
      70E3E0F33303333370E3E0F33300333370E3E0F33300033370E3E0F333000033
      70E3E0F33300033370E3E0F33300333370E3E0F33303333370E3E0F333333333
      70E3E0FFFFFFFFFFF0E3E0000000000000E3EEEEEEEEEEEEEEE3}
    ParentShowHint = False
    ShowHint = True
    OnClick = PlayClick
    OnMouseDown = PlayMouseDown
  end
  object Pause: TSpeedButton
    Left = 79
    Top = 1
    Width = 25
    Height = 25
    Hint = 'Pause'
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000130B0000130B00001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333EEEEEEEEEEEEEEE3E0000000000000E3E0F77777777770E3E0F333333333
      70E3E0F33333333370E3E0F33003003370E3E0F33003003370E3E0F330030033
      70E3E0F33003003370E3E0F33003003370E3E0F33333333370E3E0F333333333
      70E3E0FFFFFFFFFFF0E3E0000000000000E3EEEEEEEEEEEEEEE3}
    ParentShowHint = False
    ShowHint = True
    OnClick = PauseClick
  end
  object FastForward: TSpeedButton
    Left = 106
    Top = 1
    Width = 25
    Height = 25
    Hint = 'Forward'
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000130B0000130B00001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333EEEEEEEEEEEEEEE3E0000000000000E3E0F77777777770E3E0F333333333
      70E3E0F33333333370E3E0F33003033370E3E0F33003003370E3E0F330030003
      70E3E0F33003003370E3E0F33003033370E3E0F33333333370E3E0F333333333
      70E3E0FFFFFFFFFFF0E3E0000000000000E3EEEEEEEEEEEEEEE3}
    ParentShowHint = False
    ShowHint = True
    OnClick = FastForwardClick
  end
  object Reverse: TSpeedButton
    Left = 2
    Top = 1
    Width = 25
    Height = 25
    Hint = 'Reverse'
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000130B0000130B00001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333EEEEEEEEEEEEEEE3E0000000000000E3E0F77777777770E3E0F333333333
      70E3E0F33333333370E3E0F33303003370E3E0F33003003370E3E0F300030033
      70E3E0F33003003370E3E0F33303003370E3E0F33333333370E3E0F333333333
      70E3E0FFFFFFFFFFF0E3E0000000000000E3EEEEEEEEEEEEEEE3}
    ParentShowHint = False
    ShowHint = True
    OnClick = ReverseClick
  end
  object FileOpen: TSpeedButton
    Left = 133
    Top = 0
    Width = 25
    Height = 25
    Hint = 'Open file'
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000074120000741200000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333EEEEEEEEEEEEEEE3E0000000000000E3E0F77777777770E3E0F333333333
      70E3E0F33333333370E3E0F33000003370E3E0F33000003370E3E0F333333333
      70E3E0F33000003370E3E0F33300033370E3E0F33330333370E3E0F333333333
      70E3E0FFFFFFFFFFF0E3E0000000000000E3EEEEEEEEEEEEEEE3}
    ParentShowHint = False
    ShowHint = True
    OnClick = FileOpenClick
    OnMouseDown = FileOpenMouseDown
  end
  object EjectPic: TImage
    Left = 88
    Top = 88
    Width = 16
    Height = 16
    AutoSize = True
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object FfwPic: TImage
    Left = 72
    Top = 88
    Width = 16
    Height = 16
    AutoSize = True
    Picture.Data = {<image002.bmp>}
    Visible = False
  end
  object PausePic: TImage
    Left = 56
    Top = 88
    Width = 16
    Height = 16
    AutoSize = True
    Picture.Data = {<image003.bmp>}
    Visible = False
  end
  object PauseRedPic: TImage
    Left = 56
    Top = 104
    Width = 16
    Height = 16
    AutoSize = True
    Picture.Data = {<image004.bmp>}
    Visible = False
  end
  object PlayPic: TImage
    Left = 40
    Top = 88
    Width = 16
    Height = 16
    AutoSize = True
    Picture.Data = {<image005.bmp>}
    Visible = False
  end
  object PlayRedPic: TImage
    Left = 40
    Top = 104
    Width = 16
    Height = 16
    AutoSize = True
    Picture.Data = {<image006.bmp>}
    Visible = False
  end
  object RewPic: TImage
    Left = 8
    Top = 88
    Width = 16
    Height = 16
    AutoSize = True
    Picture.Data = {<image007.bmp>}
    Visible = False
  end
  object StopPic: TImage
    Left = 24
    Top = 88
    Width = 16
    Height = 16
    AutoSize = True
    Picture.Data = {<image008.bmp>}
    Visible = False
  end
  object StopRedPic: TImage
    Left = 24
    Top = 104
    Width = 16
    Height = 16
    AutoSize = True
    Picture.Data = {<image009.bmp>}
    Visible = False
  end
  object PlayYelPic: TImage
    Left = 99
    Top = 104
    Width = 16
    Height = 16
    AutoSize = True
    Picture.Data = {<image010.bmp>}
    Visible = False
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 130
    Width = 219
    Height = 21
    Hint = 'File information'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <>
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
    SizeGrip = False
  end
  object Command: TEdit
    Left = 111
    Top = 66
    Width = 74
    Height = 24
    TabOrder = 0
    Text = 'Command'
    Visible = False
    OnChange = CommandChange
  end
  object TrackBar: TTrackBar
    Left = 0
    Top = 31
    Width = 65
    Height = 22
    Hint = 'Track Position'
    Orientation = trHorizontal
    ParentShowHint = False
    Frequency = 1
    Position = 0
    SelEnd = 0
    SelStart = 0
    ShowHint = True
    TabOrder = 1
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    OnChange = TrackBarChange
  end
  object Volume: TTrackBar
    Left = 64
    Top = 31
    Width = 65
    Height = 22
    Hint = 'Volume'
    Max = 100
    Orientation = trHorizontal
    ParentShowHint = False
    Frequency = 10
    Position = 0
    SelEnd = 0
    SelStart = 0
    ShowHint = True
    TabOrder = 3
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    OnChange = VolumeChange
  end
  object DdeClientConv1: TDdeClientConv
    Left = 7
    Top = 56
  end
  object DdeTopic: TDdeServerConv
    Left = 75
    Top = 58
  end
  object DdeItem: TDdeServerItem
    ServerConv = DdeTopic
    OnChange = DdeItemChange
    Left = 43
    Top = 58
  end
  object TrayIcon1: TTrayIcon
    Active = False
    ShowDesigning = False
    ToolTip = 'Mp3Player by Paul P.M. Beuger'
    Left = 137
    Top = 29
  end
end