home *** CD-ROM | disk | FTP | other *** search
- object MainForm: TMainForm
- Left = 286
- Top = 132
- Width = 429
- Height = 310
- Caption = 'Event List'
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- KeyPreview = True
- ShowHint = True
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 15
- object MainPanel: TPanel
- Left = 0
- Top = 241
- Width = 421
- Height = 42
- Align = alBottom
- Locked = True
- TabOrder = 1
- object SearchLabel: TLabel
- Left = 152
- Top = 4
- Width = 44
- Height = 15
- Caption = 'Search:'
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object DateTimePanel: TPanel
- Left = 267
- Top = 1
- Width = 153
- Height = 40
- Align = alRight
- BevelOuter = bvLowered
- BevelWidth = 2
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- end
- object SearchEdit: TEdit
- Left = 200
- Top = 2
- Width = 60
- Height = 21
- Hint = 'Type here for super-fast searches'
- AutoSize = False
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnChange = SearchEditChange
- end
- object SearchButton: TButton
- Left = 152
- Top = 24
- Width = 107
- Height = 18
- Hint = 'Finds next occurence of search text'
- Caption = 'Next'
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- TabOrder = 1
- OnClick = SearchButtonClick
- end
- object OKBitBtn: TBitBtn
- Left = 2
- Top = 2
- Width = 67
- Height = 40
- TabOrder = 2
- OnClick = OKBitBtnClick
- Kind = bkOK
- end
- object CancelBitBtn: TBitBtn
- Left = 74
- Top = 2
- Width = 73
- Height = 40
- TabOrder = 4
- OnClick = CancelBitBtnClick
- Kind = bkCancel
- end
- end
- object SavedListBox: TListBox
- Left = 312
- Top = 6
- Width = 101
- Height = 67
- TabStop = False
- ExtendedSelect = False
- ItemHeight = 15
- ParentShowHint = False
- ShowHint = False
- TabOrder = 2
- Visible = False
- end
- object EventsListBox: TListBox
- Left = 0
- Top = 0
- Width = 421
- Height = 241
- Hint = 'Right-click for menu, double-click to edit'
- Align = alClient
- Color = clMenu
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- PopupMenu = RClickPopupMenu
- Sorted = True
- Style = lbOwnerDrawFixed
- TabOrder = 0
- OnDblClick = EventsListBoxDblClick
- OnDrawItem = EventsListBoxDrawItem
- end
- object WavMediaPlayer: TMediaPlayer
- Left = 10
- Top = 44
- Width = 253
- Height = 30
- Enabled = False
- EnabledButtons = [btPlay]
- AutoEnable = False
- DeviceType = dtWaveAudio
- Visible = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 3
- end
- object CurrDateTime: TTimer
- Interval = 100
- OnTimer = CurrDateTimeTimer
- Left = 12
- Top = 8
- end
- object SystemTray: TTrayIcon
- Active = False
- Hint = 'SkedEzy Pro'
- Icon.Data = {<image000.ico>}
- PopupMenu = TrayPopupMenu
- SeparateIcon = False
- Left = 84
- Top = 8
- end
- object TrayPopupMenu: TPopupMenu
- Left = 123
- Top = 8
- object TrayRegister: TMenuItem
- Caption = 'REGISTER'
- ShortCut = 0
- OnClick = RegisterClick
- end
- object TrayReadMe: TMenuItem
- Caption = 'Read Me 1st'
- ShortCut = 0
- OnClick = ReadMeClick
- end
- object TrayScheduleMessage: TMenuItem
- Caption = 'Schedule Message'
- ShortCut = 0
- OnClick = ScheduleMessageClick
- end
- object TrayScheduleFile: TMenuItem
- Caption = 'Schedule File'
- ShortCut = 0
- OnClick = ScheduleFileClick
- end
- object TrayEventList: TMenuItem
- Break = mbBreak
- Caption = 'List/Edit/Delete Events'
- ShortCut = 0
- OnClick = EventListClick
- end
- object TrayPrintEvents: TMenuItem
- Caption = 'Print Events'
- ShortCut = 0
- OnClick = PrintEventsClick
- end
- object TrayOptions: TMenuItem
- Caption = 'Options'
- ShortCut = 0
- OnClick = OptionsClick
- end
- object TrayHelp: TMenuItem
- Break = mbBreak
- Caption = 'Help'
- ShortCut = 0
- OnClick = HelpClick
- end
- object TrayAbout: TMenuItem
- Caption = 'About'
- ShortCut = 0
- OnClick = AboutClick
- end
- object TrayExit: TMenuItem
- Break = mbBreak
- Caption = 'Exit'
- ShortCut = 0
- OnClick = ExitClick
- end
- end
- object RClickPopupMenu: TPopupMenu
- Alignment = paCenter
- Left = 160
- Top = 8
- object RClickEditEvent: TMenuItem
- Caption = 'Edit Event'
- ShortCut = 16453
- OnClick = RClickEditEventClick
- end
- object RClickDeleteEvent: TMenuItem
- Caption = 'Delete Event'
- ShortCut = 46
- OnClick = RClickDeleteEventClick
- end
- end
- end
-