home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 June B / Pcwk6b98.iso / Mpeg3 / Mp3playr / mp3playr.exe / 0 / RCDATA / TPLAYFORM / TPLAYFORM.txt < prev   
Encoding:
Text File  |  1998-03-30  |  8.2 KB  |  310 lines
  1. object PlayForm: TPlayForm
  2.   Left = 83
  3.   Top = 108
  4.   BorderIcons = [biSystemMenu]
  5.   BorderStyle = bsSingle
  6.   Caption = 'MP3Player V0.2'
  7.   ClientHeight = 151
  8.   ClientWidth = 219
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Icon.Data = {<image000.ico>}
  14.   OnCloseQuery = FormCloseQuery
  15.   OnCreate = FormCreate
  16.   PixelsPerInch = 120
  17.   TextHeight = 16
  18.   object Stop: TSpeedButton
  19.     Left = 31
  20.     Top = 1
  21.     Width = 25
  22.     Height = 25
  23.     Hint = 'Stop'
  24.     Glyph.Data = {
  25.       F6000000424DF600000000000000760000002800000010000000100000000100
  26.       0400000000008000000074120000741200001000000010000000000000000000
  27.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  28.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  29.       33339999999999999993900000000000009390F777777777709390F333333333
  30.       709390F333333333709390F330000033709390F330000033709390F330000033
  31.       709390F330000033709390F330000033709390F333333333709390F333333333
  32.       709390FFFFFFFFFFF09390000000000000939999999999999993}
  33.     ParentShowHint = False
  34.     ShowHint = True
  35.     OnClick = StopClick
  36.   end
  37.   object Play: TSpeedButton
  38.     Left = 55
  39.     Top = 1
  40.     Width = 25
  41.     Height = 25
  42.     Hint = 'Play'
  43.     Glyph.Data = {
  44.       F6000000424DF600000000000000760000002800000010000000100000000100
  45.       04000000000080000000130B0000130B00001000000010000000000000000000
  46.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  47.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  48.       3333EEEEEEEEEEEEEEE3E0000000000000E3E0F77777777770E3E0F333333333
  49.       70E3E0F33303333370E3E0F33300333370E3E0F33300033370E3E0F333000033
  50.       70E3E0F33300033370E3E0F33300333370E3E0F33303333370E3E0F333333333
  51.       70E3E0FFFFFFFFFFF0E3E0000000000000E3EEEEEEEEEEEEEEE3}
  52.     ParentShowHint = False
  53.     ShowHint = True
  54.     OnClick = PlayClick
  55.     OnMouseDown = PlayMouseDown
  56.   end
  57.   object Pause: TSpeedButton
  58.     Left = 79
  59.     Top = 1
  60.     Width = 25
  61.     Height = 25
  62.     Hint = 'Pause'
  63.     Glyph.Data = {
  64.       F6000000424DF600000000000000760000002800000010000000100000000100
  65.       04000000000080000000130B0000130B00001000000010000000000000000000
  66.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  67.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  68.       3333EEEEEEEEEEEEEEE3E0000000000000E3E0F77777777770E3E0F333333333
  69.       70E3E0F33333333370E3E0F33003003370E3E0F33003003370E3E0F330030033
  70.       70E3E0F33003003370E3E0F33003003370E3E0F33333333370E3E0F333333333
  71.       70E3E0FFFFFFFFFFF0E3E0000000000000E3EEEEEEEEEEEEEEE3}
  72.     ParentShowHint = False
  73.     ShowHint = True
  74.     OnClick = PauseClick
  75.   end
  76.   object FastForward: TSpeedButton
  77.     Left = 106
  78.     Top = 1
  79.     Width = 25
  80.     Height = 25
  81.     Hint = 'Forward'
  82.     Glyph.Data = {
  83.       F6000000424DF600000000000000760000002800000010000000100000000100
  84.       04000000000080000000130B0000130B00001000000010000000000000000000
  85.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  86.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  87.       3333EEEEEEEEEEEEEEE3E0000000000000E3E0F77777777770E3E0F333333333
  88.       70E3E0F33333333370E3E0F33003033370E3E0F33003003370E3E0F330030003
  89.       70E3E0F33003003370E3E0F33003033370E3E0F33333333370E3E0F333333333
  90.       70E3E0FFFFFFFFFFF0E3E0000000000000E3EEEEEEEEEEEEEEE3}
  91.     ParentShowHint = False
  92.     ShowHint = True
  93.     OnClick = FastForwardClick
  94.   end
  95.   object Reverse: TSpeedButton
  96.     Left = 2
  97.     Top = 1
  98.     Width = 25
  99.     Height = 25
  100.     Hint = 'Reverse'
  101.     Glyph.Data = {
  102.       F6000000424DF600000000000000760000002800000010000000100000000100
  103.       04000000000080000000130B0000130B00001000000010000000000000000000
  104.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  105.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  106.       3333EEEEEEEEEEEEEEE3E0000000000000E3E0F77777777770E3E0F333333333
  107.       70E3E0F33333333370E3E0F33303003370E3E0F33003003370E3E0F300030033
  108.       70E3E0F33003003370E3E0F33303003370E3E0F33333333370E3E0F333333333
  109.       70E3E0FFFFFFFFFFF0E3E0000000000000E3EEEEEEEEEEEEEEE3}
  110.     ParentShowHint = False
  111.     ShowHint = True
  112.     OnClick = ReverseClick
  113.   end
  114.   object FileOpen: TSpeedButton
  115.     Left = 133
  116.     Top = 0
  117.     Width = 25
  118.     Height = 25
  119.     Hint = 'Open file'
  120.     Glyph.Data = {
  121.       F6000000424DF600000000000000760000002800000010000000100000000100
  122.       0400000000008000000074120000741200000000000000000000000000000000
  123.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  124.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  125.       3333EEEEEEEEEEEEEEE3E0000000000000E3E0F77777777770E3E0F333333333
  126.       70E3E0F33333333370E3E0F33000003370E3E0F33000003370E3E0F333333333
  127.       70E3E0F33000003370E3E0F33300033370E3E0F33330333370E3E0F333333333
  128.       70E3E0FFFFFFFFFFF0E3E0000000000000E3EEEEEEEEEEEEEEE3}
  129.     ParentShowHint = False
  130.     ShowHint = True
  131.     OnClick = FileOpenClick
  132.     OnMouseDown = FileOpenMouseDown
  133.   end
  134.   object EjectPic: TImage
  135.     Left = 88
  136.     Top = 88
  137.     Width = 16
  138.     Height = 16
  139.     AutoSize = True
  140.     Picture.Data = {<image001.bmp>}
  141.     Visible = False
  142.   end
  143.   object FfwPic: TImage
  144.     Left = 72
  145.     Top = 88
  146.     Width = 16
  147.     Height = 16
  148.     AutoSize = True
  149.     Picture.Data = {<image002.bmp>}
  150.     Visible = False
  151.   end
  152.   object PausePic: TImage
  153.     Left = 56
  154.     Top = 88
  155.     Width = 16
  156.     Height = 16
  157.     AutoSize = True
  158.     Picture.Data = {<image003.bmp>}
  159.     Visible = False
  160.   end
  161.   object PauseRedPic: TImage
  162.     Left = 56
  163.     Top = 104
  164.     Width = 16
  165.     Height = 16
  166.     AutoSize = True
  167.     Picture.Data = {<image004.bmp>}
  168.     Visible = False
  169.   end
  170.   object PlayPic: TImage
  171.     Left = 40
  172.     Top = 88
  173.     Width = 16
  174.     Height = 16
  175.     AutoSize = True
  176.     Picture.Data = {<image005.bmp>}
  177.     Visible = False
  178.   end
  179.   object PlayRedPic: TImage
  180.     Left = 40
  181.     Top = 104
  182.     Width = 16
  183.     Height = 16
  184.     AutoSize = True
  185.     Picture.Data = {<image006.bmp>}
  186.     Visible = False
  187.   end
  188.   object RewPic: TImage
  189.     Left = 8
  190.     Top = 88
  191.     Width = 16
  192.     Height = 16
  193.     AutoSize = True
  194.     Picture.Data = {<image007.bmp>}
  195.     Visible = False
  196.   end
  197.   object StopPic: TImage
  198.     Left = 24
  199.     Top = 88
  200.     Width = 16
  201.     Height = 16
  202.     AutoSize = True
  203.     Picture.Data = {<image008.bmp>}
  204.     Visible = False
  205.   end
  206.   object StopRedPic: TImage
  207.     Left = 24
  208.     Top = 104
  209.     Width = 16
  210.     Height = 16
  211.     AutoSize = True
  212.     Picture.Data = {<image009.bmp>}
  213.     Visible = False
  214.   end
  215.   object PlayYelPic: TImage
  216.     Left = 99
  217.     Top = 104
  218.     Width = 16
  219.     Height = 16
  220.     AutoSize = True
  221.     Picture.Data = {<image010.bmp>}
  222.     Visible = False
  223.   end
  224.   object StatusBar: TStatusBar
  225.     Left = 0
  226.     Top = 130
  227.     Width = 219
  228.     Height = 21
  229.     Hint = 'File information'
  230.     Font.Color = clBlack
  231.     Font.Height = -13
  232.     Font.Name = 'MS Sans Serif'
  233.     Font.Style = []
  234.     Panels = <>
  235.     ParentFont = False
  236.     ParentShowHint = False
  237.     ShowHint = True
  238.     SimplePanel = True
  239.     SizeGrip = False
  240.   end
  241.   object Command: TEdit
  242.     Left = 111
  243.     Top = 66
  244.     Width = 74
  245.     Height = 24
  246.     TabOrder = 0
  247.     Text = 'Command'
  248.     Visible = False
  249.     OnChange = CommandChange
  250.   end
  251.   object TrackBar: TTrackBar
  252.     Left = 0
  253.     Top = 31
  254.     Width = 65
  255.     Height = 22
  256.     Hint = 'Track Position'
  257.     Orientation = trHorizontal
  258.     ParentShowHint = False
  259.     Frequency = 1
  260.     Position = 0
  261.     SelEnd = 0
  262.     SelStart = 0
  263.     ShowHint = True
  264.     TabOrder = 1
  265.     TickMarks = tmBottomRight
  266.     TickStyle = tsAuto
  267.     OnChange = TrackBarChange
  268.   end
  269.   object Volume: TTrackBar
  270.     Left = 64
  271.     Top = 31
  272.     Width = 65
  273.     Height = 22
  274.     Hint = 'Volume'
  275.     Max = 100
  276.     Orientation = trHorizontal
  277.     ParentShowHint = False
  278.     Frequency = 10
  279.     Position = 0
  280.     SelEnd = 0
  281.     SelStart = 0
  282.     ShowHint = True
  283.     TabOrder = 3
  284.     TickMarks = tmBottomRight
  285.     TickStyle = tsAuto
  286.     OnChange = VolumeChange
  287.   end
  288.   object DdeClientConv1: TDdeClientConv
  289.     Left = 7
  290.     Top = 56
  291.   end
  292.   object DdeTopic: TDdeServerConv
  293.     Left = 75
  294.     Top = 58
  295.   end
  296.   object DdeItem: TDdeServerItem
  297.     ServerConv = DdeTopic
  298.     OnChange = DdeItemChange
  299.     Left = 43
  300.     Top = 58
  301.   end
  302.   object TrayIcon1: TTrayIcon
  303.     Active = False
  304.     ShowDesigning = False
  305.     ToolTip = 'Mp3Player by Paul P.M. Beuger'
  306.     Left = 137
  307.     Top = 29
  308.   end
  309. end
  310.