Freelog 2/Freelog002.iso/Logs/Divers/MTray/Mtray.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1999-01-22 | 7KB | 293 lines

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 = {<image000.ico>}
    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 = '[e-mail]'
    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