object TrayForm: TTrayForm Left = 697 Top = 106 Width = 214 Height = 97 Caption = 'Mp3Player' Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object PopupMenu1: TPopupMenu Alignment = paRight Left = 88 Top = 16 object ShowPlayer: TMenuItem Caption = '&Player' Hint = 'Show Player window' ShortCut = 0 OnClick = ShowPlayerClick end object ShowList: TMenuItem Caption = 'Play &List' Hint = 'Show PlayList window' ShortCut = 0 OnClick = ShowListClick end object ShowOptions: TMenuItem Caption = '&Options' ShortCut = 0 OnClick = ShowOptionsClick end object MenuLine2: TMenuItem Caption = '-' ShortCut = 0 end object MenuHelp: TMenuItem Caption = '&Help' Hint = 'Read help file' ShortCut = 0 OnClick = MenuHelpClick end object About: TMenuItem Caption = '&About' Hint = 'About Mp3Player' ShortCut = 0 OnClick = AboutClick end object MenuLine: TMenuItem Caption = '-' ShortCut = 0 end object CloseProgram: TMenuItem Caption = '&Exit' Hint = 'Exit Mp3Player' ShortCut = 0 OnClick = CloseProgramClick end end object TrayIcon1: TTrayIcon Active = True ShowDesigning = False Icon.Data = {} ToolTip = 'Mp3Player by Paul P.M. Beuger' OnClick = TrayIcon1Click PopupMenu = PopupMenu1 Left = 24 Top = 16 end end