home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 June B / Pcwk6b98.iso / Mpeg3 / Mp3playr / mp3playr.exe / 0 / RCDATA / TTRAYFORM / TTRAYFORM.txt < prev   
Encoding:
Text File  |  1998-03-30  |  1.6 KB  |  73 lines
  1. object TrayForm: TTrayForm
  2.   Left = 697
  3.   Top = 106
  4.   Width = 214
  5.   Height = 97
  6.   Caption = 'Mp3Player'
  7.   Font.Color = clWindowText
  8.   Font.Height = -14
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   OnCreate = FormCreate
  12.   PixelsPerInch = 120
  13.   TextHeight = 16
  14.   object PopupMenu1: TPopupMenu
  15.     Alignment = paRight
  16.     Left = 88
  17.     Top = 16
  18.     object ShowPlayer: TMenuItem
  19.       Caption = '&Player'
  20.       Hint = 'Show Player window'
  21.       ShortCut = 0
  22.       OnClick = ShowPlayerClick
  23.     end
  24.     object ShowList: TMenuItem
  25.       Caption = 'Play &List'
  26.       Hint = 'Show PlayList window'
  27.       ShortCut = 0
  28.       OnClick = ShowListClick
  29.     end
  30.     object ShowOptions: TMenuItem
  31.       Caption = '&Options'
  32.       ShortCut = 0
  33.       OnClick = ShowOptionsClick
  34.     end
  35.     object MenuLine2: TMenuItem
  36.       Caption = '-'
  37.       ShortCut = 0
  38.     end
  39.     object MenuHelp: TMenuItem
  40.       Caption = '&Help'
  41.       Hint = 'Read help file'
  42.       ShortCut = 0
  43.       OnClick = MenuHelpClick
  44.     end
  45.     object About: TMenuItem
  46.       Caption = '&About'
  47.       Hint = 'About Mp3Player'
  48.       ShortCut = 0
  49.       OnClick = AboutClick
  50.     end
  51.     object MenuLine: TMenuItem
  52.       Caption = '-'
  53.       ShortCut = 0
  54.     end
  55.     object CloseProgram: TMenuItem
  56.       Caption = '&Exit'
  57.       Hint = 'Exit Mp3Player'
  58.       ShortCut = 0
  59.       OnClick = CloseProgramClick
  60.     end
  61.   end
  62.   object TrayIcon1: TTrayIcon
  63.     Active = True
  64.     ShowDesigning = False
  65.     Icon.Data = {<image000.ico>}
  66.     ToolTip = 'Mp3Player by Paul P.M. Beuger'
  67.     OnClick = TrayIcon1Click
  68.     PopupMenu = PopupMenu1
  69.     Left = 24
  70.     Top = 16
  71.   end
  72. end
  73.