object Form1: TForm1 Left = 48 Top = 365 BorderIcons = [] BorderStyle = bsNone Caption = 'Form1' ClientHeight = 146 ClientWidth = 106 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 15 Top = 56 Width = 77 Height = 13 Alignment = taCenter Caption = 'Still 365 days' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 27 Top = 72 Width = 50 Height = 13 Alignment = taCenter Caption = '24 hours' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 24 Top = 88 Width = 66 Height = 13 Alignment = taCenter Caption = '60 minuters' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 20 Top = 104 Width = 66 Height = 13 Alignment = taCenter Caption = '60 seconds' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 17 Top = 120 Width = 72 Height = 13 Alignment = taCenter Caption = 'to year 2000' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 20 Top = 16 Width = 66 Height = 13 Alignment = taCenter Caption = '3.04.59 PM' Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 25 Top = 32 Width = 55 Height = 13 Alignment = taCenter Caption = '29/10/99' Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object HideTimer: TSaveEdit Left = 88 Top = 120 Width = 17 Height = 21 TabOrder = 0 Text = '5000' Visible = False Options.RegKey = '\Software\Utilmind\Millennium Tray' Options.RegSubKey = 'HideTimer' Options.IniFile = 'My.ini' Options.IniSection = 'MyKey' Options.UseRegistry = True end object Edit1: TEdit Left = 72 Top = 40 Width = 25 Height = 21 TabOrder = 1 Text = '01' Visible = False OnChange = Edit1Change end object enablesound: TSaveCheckBox Left = 0 Top = 0 Width = 97 Height = 17 Caption = 'enablesound' TabOrder = 2 Visible = False Options.RegKey = '\Software\Utilmind\Millennium Tray' Options.RegSubKey = 'Sound' Options.IniFile = 'My.ini' Options.IniSection = 'MyKey' Options.UseRegistry = True end object WavePath: TSaveEdit Left = 64 Top = 88 Width = 121 Height = 21 TabOrder = 3 Visible = False Options.RegKey = '\Software\Utilmind\Millennium Tray' Options.RegSubKey = 'Sound' Options.IniFile = 'My.ini' Options.IniSection = 'MyKey' Options.UseRegistry = True end object RxTrayIcon1: TRxTrayIcon Icon.Data = {} PopupMenu = RxPopupMenu1 Top = 56 end object RxPopupMenu1: TRxPopupMenu LeftMargin = 20 Style = msBtnLowered OnDrawMargin = RxPopupMenu1DrawMargin Top = 48 object Autorun: TMenuItem Caption = 'Autorun enabled' OnClick = AutorunClick end object Options1: TMenuItem Caption = 'Options' object HideAfter1: TMenuItem Caption = 'Hide After' object N5sec1: TMenuItem Caption = '5 sec' OnClick = N5sec1Click end object N10sec1: TMenuItem Caption = '10 sec' OnClick = N10sec1Click end end object PlaySound1: TMenuItem Caption = 'Play Sound Every Hour' object SoundEnabled1: TMenuItem Caption = 'Enabled' OnClick = SoundEnabled1Click end object ChooseSound1: TMenuItem Caption = 'Choose Sound' OnClick = ChooseSound1Click end end object Play1: TMenuItem Caption = 'Test Sound' OnClick = Play1Click end end object N2: TMenuItem Caption = '-' end object Show1: TMenuItem Caption = 'Show Time' Default = True OnClick = Show1Click end object Hide1: TMenuItem Caption = 'Hide' OnClick = Hide1Click end object N1: TMenuItem Caption = '-' end object About1: TMenuItem Caption = 'About Millennium Tray' OnClick = About1Click end object Close1: TMenuItem Caption = 'Close' OnClick = Close1Click end end object RxTimerList1: TRxTimerList Active = True Top = 80 object ShowTimer: TRxTimerEvent Enabled = False Interval = 5000 OnTimer = ShowTimerTimer end object NormalTimer: TRxTimerEvent OnTimer = NormalTimerTimer end end object AppEvents1: TAppEvents ShowMainForm = False OnMinimize = AppEvents1Minimize OnRestore = AppEvents1Restore Top = 96 end object KTop1: TKTop Top = 120 end object About: TJFCAboutDialog Author = 'Utilmind SH' Copyright = 'Copyright � 1998' Email = 'utilmind@goplay.com' LangType = ltEnglish Options = [opShowAuthor, opShowBuildNumber, opShowEmail, opShowOSInformations, opShowText, opShowURL] Text = 'Visit Utilmind SH website for more freeware!!!' URL = 'http://www.angelfire.com/yt/utilmind/index.html' Version = 'Version 1.1.1' Left = 32 Top = 112 end object RegistryEnhanced1: TRegistryEnhanced Key = '\SOFTWARE\Microsoft\Windows\CurrentVersion\Run' LangType = ltEnglish Left = 40 Top = 120 end object WavSound1: TWave WhereWave = wwInFile ResourceType = 'WAVE' Options = [woNoDefault] Top = 32 end object OpenDialog1: TOpenDialog DefaultExt = '*.wav' Filter = '*.wav' InitialDir = 'c:\' Title = 'Change wave file' OnSelectionChange = OpenDialog1SelectionChange Top = 32 end object tvAPIThing1: TtvAPIThing Left = 8 Top = 16 end end