object MonthScreen: TMonthScreen Left = 0 Top = 44 Width = 644 Height = 484 Caption = 'TickleX' Font.Color = clWindowText Font.Height = -11 Font.Name = 'System' Font.Pitch = fpFixed Font.Style = [] Menu = MainMenu Visible = True OnCreate = FormCreate OnDblClick = MonthScreenDblClick OnDestroy = FormDestroy OnDragDrop = MonthScreenImageDragDrop OnDragOver = MonthScreenImageDragOver OnKeyDown = MonthScreenKeyDown OnKeyPress = MonthScreenKeyPress OnMouseDown = MonthScreenImageMouseDown OnShow = FormShow PixelsPerInch = 96 TextHeight = 15 object MonthScreenImage: TImage Left = 0 Top = 0 Width = 636 Height = 438 Align = alClient OnDblClick = MonthScreenDblClick OnDragDrop = MonthScreenImageDragDrop OnDragOver = MonthScreenImageDragOver OnEndDrag = DailyListBoxEndDrag OnMouseDown = MonthScreenImageMouseDown end object WorkTimerLabel: TLabel Left = 266 Top = 16 Width = 141 Height = 15 Alignment = taCenter AutoSize = False Caption = 'Timer is Running' end object DailyImage: TImage Left = 470 Top = 246 Width = 105 Height = 105 end object DailyListBox: TListBox Left = 400 Top = 120 Width = 233 Height = 153 TabStop = False BorderStyle = bsNone Color = clWhite Ctl3D = True Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Pitch = fpFixed Font.Style = [] ItemHeight = 14 MultiSelect = True ParentCtl3D = False ParentFont = False Sorted = True TabOrder = 0 Visible = False OnDblClick = DailyListBoxDblClick OnDragDrop = DailyListBoxDragDrop OnDragOver = DailyListBoxDragOver OnEndDrag = DailyListBoxEndDrag OnKeyDown = MonthScreenKeyDown OnKeyPress = MonthScreenKeyPress OnMouseDown = MonthScreenImageMouseDown end object Dummy: TMemo Left = 2 Top = 2 Width = 11 Height = 11 Font.Color = clBlack Font.Height = -21 Font.Name = 'Wingdings' Font.Pitch = fpFixed Font.Style = [] Lines.Strings = ( '`' '1' '2' '3' '4' '5' '6' '7' '8' '9' '0' '-' '=' 'q' 'w' 'e' 'r' 't' 'y' 'u' 'i' 'o' 'p' '[' ']' 'a' 's' 'd' 'f' 'g' 'h' 'j' 'k' 'l' ';' #39 'z' 'x' 'c' 'v' 'b' 'n' 'm' ',' '.' '/' '\' '' '~' '!' '@' '#' '$' '%' '^' '&' '*' '(' ')' '_' '+' 'Q' 'W' 'E' 'R' 'T' 'Y' 'U' 'I' 'O' 'P' '{' '}' 'A' 'S' 'D' 'F' 'G' 'H' 'J' 'K' 'L' ':' '"' 'Z' 'X' 'C' 'V' 'B' 'N' 'M' '<' '>' '?' '|') ParentFont = False TabOrder = 1 OnDblClick = MonthScreenDblClick OnDragDrop = MonthScreenImageDragDrop OnDragOver = MonthScreenImageDragOver OnEndDrag = DailyListBoxEndDrag OnKeyDown = MonthScreenKeyDown OnKeyPress = MonthScreenKeyPress OnMouseDown = MonthScreenImageMouseDown end object UpBtn: TButton Left = 262 Top = 48 Width = 22 Height = 22 Caption = ' Up ' Font.Color = clWindowText Font.Height = -15 Font.Name = 'Terminal' Font.Pitch = fpFixed Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 TabStop = False Visible = False OnClick = UpDnBtnClick OnKeyDown = MonthScreenKeyDown OnKeyPress = MonthScreenKeyPress end object TimeBox: TEdit Left = 576 Top = 4 Width = 60 Height = 23 TabStop = False Enabled = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'System' Font.Pitch = fpFixed Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 3 Visible = False end object DateReport: TButton Left = 80 Top = 150 Width = 131 Height = 23 Caption = 'DateReport' TabOrder = 4 Visible = False end object GoToBtn: TButton Left = 18 Top = 56 Width = 22 Height = 22 Caption = 'GoTo' Font.Color = clWindowText Font.Height = -15 Font.Name = 'System' Font.Pitch = fpFixed Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 5 TabStop = False Visible = False OnClick = ToolsDeleteClick OnKeyDown = MonthScreenKeyDown OnKeyPress = MonthScreenKeyPress end object DownBtn: TButton Left = 262 Top = 416 Width = 22 Height = 22 Caption = 'Down' Font.Color = clWindowText Font.Height = -15 Font.Name = 'Terminal' Font.Pitch = fpFixed Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 6 TabStop = False Visible = False OnClick = UpDnBtnClick OnKeyDown = MonthScreenKeyDown OnKeyPress = MonthScreenKeyPress end object SpeedBtnBox: TPanel Left = 30 Top = 356 Width = 475 Height = 25 BevelOuter = bvNone BorderWidth = 1 TabOrder = 7 Visible = False object DayBtn: TSpeedButton Left = 10 Top = 0 Width = 23 Height = 23 Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000ECCC CCCCCCCCCCCCCCCCE000ECFFFFFFFFFFFFFFFFFCE000ECFFFFFFFFFFFFFFFFFC E000ECFFFFFFFFFFFFFFFFFCE000ECFFFFFFFFFFFFFFFFFCE000ECFFFFFFFFFF FFFFFFFCE000ECFFFFFFFFFFFFFFFFFCE000ECFFFFFFFFFFFFFFFFFCE000ECFF FFFFFFFFFFFFFFFCE000ECFFFFFFFFFFFFFFFFFCE000ECFFFFFFFFFFFFFFFFFC E000ECFFFFFFFFFFFFFFFFFCE000ECCCCCCCCCCCCCCCCCCCE000ECEEEEEEEEEE EEEEEEECE000ECEEEEEEEEEEEEEEEEECE000ECCCCCCCCCCCCCCCCCCCE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} ParentShowHint = False ShowHint = True Visible = False OnClick = DayBtnClick end object NewBtn: TSpeedButton Left = 34 Top = 0 Width = 23 Height = 23 Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEE0EEEEEEEEEEE000EEEE EEEE000EEEEEEEEEE000EEEEEEEE000EEEEEEEEEE000EEEEEEEE070EEEEEEEEE E000EEEEBEEB000BEEBBEEEEE000EEEEEBBB0B0BBBEEEEEEE000EEEEEBBB0F0B BBEEEEEEE000EEEEBBB0F8F0BBBBEEEEE000EEEEBB0FB8BF0BBBEEEEE000EBBB BB0BF8FB0BBBBBEEE000EEEEBB0FBFBF0BBBEEEEE000EEEEBBB0FBF0BBBBEEEE E000EEEEEBBB000BBBEEEEEEE000EEEEEBBBBBBBBBEEEEEEE000EEEEEBBBBBBB BBEEEEEEE000EEEEBEEBBBBBEEBBEEEEE000EEEEEEEEEBEEEEEEEEEEE000EEEE EEEEEBEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} ParentShowHint = False ShowHint = True Visible = False OnClick = NewBtnClick end object HuntBtn: TSpeedButton Left = 58 Top = 2 Width = 44 Height = 23 Glyph.Data = { 88020000424D880200000000000076000000280000002A000000150000000100 040000000000F801000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE000000EEEEEEEEEEEEEEEEEEEEEECCCCCC CCCCCCCCCEEEEE000000EECCEEEEEEEEEE00EEEEECCCCCCCCCCCCCCCCCEEEE00 0000EECCEEEEEEEEEE00EEEEEC888888888888888CEEEE000000EECCCEEEEEEE EEE00EEEECF8F8FF88F88F8F8CEEEE000000EECCCEEEEEEEEEE00EEEECF8F8FF 88F88F8F8CEEEE000000EEECCCEEEEEEEEE00EEEEC8F8F88FF8FF899FCEEEE00 0000EEECCCEEEEEEEEEE00EEECF8F8FF88F88F8F8CEEEE000000EEEECCCCCCCC EEEE00EEECCCCCCCCCCCCCCCCCEEEE000000EEEECCCEEEEECEEEE00EEEEECFFF FFFFFFCEEEEEEE000000EEEECCCEEEEEECEEE00EEEEECF0000F00FCEEEEEEE00 0000EEECEEEEEEEEEECEE00EEEEECF0000F00FCEEEEEEE000000EEECEEEEEEEE EECEE00EEEEECFFFFFFFFFCEEEEEEE000000EEECEEEEEEEEEECEEE00EEEECF00 F00000CEEEEEEE000000EEECEEEEEFFFEECEEE00EEEECFFFF0FFFCEEEEEEEE00 0000EEECEEEEEFFFEECEEE00EEEECF00F0F0CEEEEEEEEE000000EEEECEEEEFFE ECEEEEE00EEECFFFF0FCEEEEEEEEEE000000EEEEECEEEEEECEEEEEE00EEECCCC C0CEEEEEEEEEEE000000EEEEEECCCCCCEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE00 0000EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE000000EEEEEEEEEEEE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE0000000000000000000000000000000000 000000000000000000000000} ParentShowHint = False ShowHint = True Visible = False OnClick = HuntBtnClick end object EmpFreeTimeBtn: TSpeedButton Left = 132 Top = 0 Width = 23 Height = 23 Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE EEEEEEEEEEEEEEEEE000EEEEECCCCCCCCCCCEEEEE000EEEEECFCFCFCFCFCEEEE E000EEEEECFCFCFCFCFCEEEEE000EEEEECFCFCFCFCFCEEEEE000EEEEECFCFCFC FCFCEEEEE000EEEEECFCFCFCFCFCEEEEE000EEEEECFCFCFCFCFCEEEEE000EEEE ECFCFCFCFCFCEEEEE000EEEEECFCFCFCFCFCEEEEE000EEEEECFCFCFCFCFCEEEE E000EEEEECFCFCFCFCFCEEEEE000EEEEECFCFCFCFCFCEEEEE000EEEEECCCCCCC CCCCEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} ParentShowHint = False ShowHint = True Visible = False OnClick = EmpFreeTimeBtnClick end object memoBtn: TSpeedButton Left = 158 Top = 0 Width = 23 Height = 25 Font.Color = clWindowText Font.Height = -15 Font.Name = 'Terminal' Font.Pitch = fpFixed Font.Style = [] Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE EEEEEEEEEEEEEEEEE000EE5CCCCCCCCCEEEEEEEEE000EECFFFFFFFFFCEEEEEEE E000EECFEEEEEECCCCCE00EEE000EECFFFFFF0BFBFB008EEE000EECF0EEEE000 FBFB08EEE000EECFF00F0FBFBFBF08EEE000EECFE0B00000FBFB08EEE000EECF FF0FBFBFBFBF08EEE000EECFEEE0000000FB08EEE000EECFFFFF0B00BFB008EE E000EECFEEEEE0B0000EEEEEE000EECFFFFFFF0B0EEEEEEEE000EECCFCFCFCFC B0EEEEEEE000EEEC8C8C8C8CCB0EEEEEE000EEEC8C8C8C8CE090EEEEE000EEEC ECECECEEEE0EEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} ParentFont = False ParentShowHint = False ShowHint = True Visible = False OnClick = memobtnClick end object WeekBtn: TSpeedButton Left = 182 Top = 0 Width = 23 Height = 23 Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000ECCC CCCCCCCCCCCCCCCCE000ECEECEECEECEECEECEECE000ECEECEECEECEECEECEEC E000ECEECEECEECEECEECEECE000ECEECEECEECEECEECEECE000ECEECEECEECE ECEECEECE000ECEECEECEECEECEECEECE000ECEECEECEECEECEECEECE000ECEE CEECEECEECEECEECE000ECEECEECEECEECEECEECE000ECEECEECEECEECEECEEC E000ECEECEECEECEECEECEECE000ECCCCCCCCCCCCCCCCCCCE000ECEEEEEEEEEE EEEEEEECE000ECEEEEEEEEEEEEEEEEECE000ECCCCCCCCCCCCCCCCCCCE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} ParentShowHint = False ShowHint = True Visible = False OnClick = ViewWeekClick end object FullScrnClndrBtn: TSpeedButton Left = 206 Top = 0 Width = 23 Height = 23 Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000ECCC CCCCCCCCCCCCCCCCE000ECEECEECEECEECEECEECE000ECEECEECEECEECEECEEC E000ECCCCCCCCCCCCCCCCCCCE000ECEECEECEECEECEECEECE000ECEECEECEECE ECEECEECE000ECCCCCCCCCCCCCCCCCCCE000ECEECEECEECEECEECEECE000ECEE CEECEECEECEECEECE000ECCCCCCCCCCCCCCCCCCCE000ECEECEECEECEECEECEEC E000ECEECEECEECEECEECEECE000ECCCCCCCCCCCCCCCCCCCE000ECEEEEEEEEEE EEEEEEECE000ECEEEEEEEEEEEEEEEEECE000ECCCCCCCCCCCCCCCCCCCE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} ParentShowHint = False ShowHint = True Visible = False OnClick = MonthSelectClick end object SpltScrnClndrBtn: TSpeedButton Left = 228 Top = 0 Width = 23 Height = 23 Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000ECCC CCCCCCCCCCCCCCCCE000ECEECEECEECFFFFFFFFCE000ECEECEECEECFFFFFFFFC E000ECCCCCCCCCCFFFFFFFFCE000ECEECEECEECFFFFFFFFCE000ECEECEECEECF FFFFFFFCE000ECCCCCCCCCCFFFFFFFFCE000ECEECEECEECFFFFFFFFCE000ECEE CEECEECFFFFFFFFCE000ECCCCCCCCCCFFFFFFFFCE000ECEECEECEECFFFFFFFFC E000ECEECEECEECFFFFFFFFCE000ECCCCCCCCCCCCCCCCCCCE000ECEEEEEEEEEE EEEEEEECE000ECEEEEEEEEEEEEEEEEECE000ECCCCCCCCCCCCCCCCCCCE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} ParentShowHint = False ShowHint = True Visible = False OnClick = MonthSelectClick end object PhonBookClndrBtn: TSpeedButton Left = 252 Top = 0 Width = 23 Height = 23 Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000ECCC CCCCCCCCCCCCCCCCE000ECFFFFFFFFCFFFFFFFFCE000ECFFFFFFFFCFFFFFFFFC E000ECCCCCCCCCCFFFFFFFFCE000ECEECEECEECFFFFFFFFCE000ECEECEECEECF FFFFFFFCE000ECCCCCCCCCCFFFFFFFFCE000ECEECEECEECFFFFFFFFCE000ECEE CEECEECFFFFFFFFCE000ECCCCCCCCCCFFFFFFFFCE000ECEECEECEECFFFFFFFFC E000ECEECEECEECFFFFFFFFCE000ECCCCCCCCCCCCCCCCCCCE000ECEEEEEEEEEE EEEEEEECE000ECEEEEEEEEEEEEEEEEECE000ECCCCCCCCCCCCCCCCCCCE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} ParentShowHint = False ShowHint = True Visible = False OnClick = MonthSelectClick end object DetailBtn: TSpeedButton Left = 274 Top = 0 Width = 23 Height = 23 Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE EEEEEEEEEEEEEEEEE000EEEEECCCCCCCCCCCEEEEE000EEEEECFFFFFFFFFCEEEE E000EEEEECCCCCCCCCCCEEEEE000EEEEECFFFFFFFFFCEEEEE000EEEEECCCCCCC CCCCEEEEE000EEEEECFFFFFFFFFCEEEEE000EEEEECCCCCCCCCCCEEEEE000EEEE ECFFFFFFFFFCEEEEE000EEEEECCCCCCCCCCCEEEEE000EEEEECFFFFFFFFFCEEEE E000EEEEECCCCCCCCCCCEEEEE000EEEEECFFFFFFFFFCEEEEE000EEEEECCCCCCC CCCCEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} ParentShowHint = False ShowHint = True Visible = False OnClick = EmpFreeTimeBtnClick end object ToDoBtn: TSpeedButton Left = 322 Top = 0 Width = 23 Height = 23 Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEECFEEEEEEEEEEE000EEEEEEECCCFEEEEEEEEE E000EEEEEECCCCFEEEEEEEEEE000EEEEEECCCCFEEEEEEEEEE000EEEEECCCCCCF EEEEEEEEE000EEEECCCCCCCFEEEEEEEEE000EEECCCFEECCCFEEEEEEEE000ECCC FEEEEECCFEEEEEEEE000EEEEEEEEEECCCFEEEEEEE000EEEEEEEEEEECCCFEEEEE E000EEEEEEEEEEECCCFEEEEEE000EEEEEEEEEEEECCCFEEEEE000EEEEEEEEEEEE ECCCFEEEE000EEEEEEEEEEEEEEECCFEEE000EEEEEEEEEEEEEEEEE66EE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} ParentShowHint = False ShowHint = True Visible = False OnClick = ToDoBtnClick end object ScheduleBtn: TSpeedButton Left = 346 Top = 0 Width = 23 Height = 23 Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEE00000EEEEEEEE000EEEE EE000000000EEEEEE000EEEEE00088888000EEEEE000EEEE0088888888800EEE E000EEE008888777888800EEE000EEE008887777788800EEE000EE0088877FFF 7788800EE000EE008877F8F8F778800EE000EE008877FFFFF778800EE000EE00 8877F8F8F778800EE000EE0088877FFF7788800EE000EEE008887777788800EE E000EEE008888777888800EEE000EEEE0088888888800EEEE000EEEEE0008888 8000EEEEE000EEEEEE000000000EEEEEE000EEEEEEEE00000EEEEEEEE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} ParentShowHint = False ShowHint = True Visible = False OnClick = ScheduleBtnClick end object logBtn: TSpeedButton Left = 370 Top = 0 Width = 23 Height = 23 Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEECCCCCEEEEEEEE000EEEE EECC66666CCEEEEEE000EEEEEC666666666CEEEEE000EEEEC66677777666CEEE E000EEEC6667677767666CEEE000EEEC6676777776766CEEE000EEC667677FFF 776766CEE000EEC66777F7F7F77766CEE000EEC66777FFFFF77766CEE000EEC6 6777F7F7F77766CEE000EEC667677FFF776766CEE000EEEC6676777776766CEE E000EEEC6667677767666CEEE000EEEEC66677777666CEEEE000EEEEEC666666 666CEEEEE000EEEEEECC66666CCEEEEEE000EEEEEEEECCCCCEEEEEEEE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} ParentShowHint = False ShowHint = True Visible = False OnClick = logBtnClick end object GenLdgrBtn: TSpeedButton Left = 394 Top = 0 Width = 23 Height = 23 Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEE99999EEEEEEEE000EEEE EE999999999EEEEEE000EEEEE99988888999EEEEE000EEEE9988888888899EEE E000EEE998888777888899EEE000EEE998887777788899EEE000EE9988877FFF 7788899EE000EE998877F8F8F778899EE000EE998877FFFFF778899EE000EE99 8877F8F8F778899EE000EE9988877FFF7788899EE000EEE998887777788899EE E000EEE998888777888899EEE000EEEE9988888888899EEEE000EEEEE9998888 8999EEEEE000EEEEEE999999999EEEEEE000EEEEEEEE99999EEEEEEEE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} ParentShowHint = False ShowHint = True Visible = False OnClick = GenLdgrBtnClick end object billBtn: TSpeedButton Left = 300 Top = 2 Width = 23 Height = 23 Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EECCCCCCCCCCCCCCCCEEE000EECE EEEEEEEEEEEEECEEE000EECEE0000000000EECEEE000EECEEEEEEEEEEEEEECEE E000EECEE0000000000EECEEE000EECEEEEEEEEEEEEEECEEE000EECEE0000000 000EECEEE000EECEEEEEEEEEEEEEECEEE000EECEE0000000000EECEEE000EECE EEEEEEEEEEEEECEEE000EECEEEEEEEEEEEEEECEEE000EECEE8888EEEEEEEECEE E000EECEEEEEEEEEEEEEECEEE000EECEEEEEEEEEEEEEECEEE000EECEEEE00000 0EEEECEEE000EECEEEEEEEEEEEEEECEEE000EECCCCCCCCCCCCCCCCEEE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} ParentShowHint = False ShowHint = True Visible = False OnClick = billBtnClick end object ProjBtn: TSpeedButton Left = 104 Top = 0 Width = 23 Height = 23 Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EE00 0000000000000EEEE000000B77B77BB7BB7BB0EEE0000FF0BBFFB77B77B77B0E E0000FF0BB7BFF7B77B77B00E0000FBF00B77BB7BF7BB7BB00000BFF00B77BB7 BF7BB7BB00000FFBFF0000000000000000000BBBFFFBBFFBFFB0EEEEE0000BFF BBFFFFFBFFB0EEEEE0000FFBFFBFFBBFBBF0EEEEE0000BBFFFFBBFFBFFB0EEEE E0000BBFBBFBBFFBFF00EEEEE000E00BFFBFF000000EEEEEE000EE0BFFBFF0EE EEEEEEEEE000EE00000000EEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} ParentShowHint = False ShowHint = True Visible = False OnClick = ProjBtnClick end object OldBtn: TBitBtn Left = 418 Top = 0 Width = 23 Height = 23 ParentShowHint = False ShowHint = True TabOrder = 0 Visible = False OnClick = oldBtnClick OnDragDrop = oldBtnDragDrop OnDragOver = oldBtnDragOver OnEndDrag = DailyListBoxEndDrag OnKeyDown = MonthScreenKeyDown OnKeyPress = MonthScreenKeyPress Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEE0EEEEEEEEEEE000EEEE EEEE000EEEEEEEEEE000EEEEEEEE000EEEEEEEEEE000EEEEEEEE070EEEEEEEEE E000EEEEEEEE000EEEEEEEEEE000EEEEEEEE000EEEEEEEEEE000EEEEEEE80708 EEEEEEEEE000EEEEEE8070F08EEEEEEEE000EEEEE807F07F08EEEEEEE000EEEE E807F0F708EEEEEEE000EEEEE80F7F7F08EEEEEEE000EEEEEE80F7708EEEEEEE E000EEEEEEE80008EEEEEEEEE000EEEEEEEE888EEEEEEEEEE000EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} end object delBtn: TBitBtn Left = 444 Top = 0 Width = 23 Height = 23 ParentShowHint = False ShowHint = True TabOrder = 1 Visible = False OnClick = delBtnClick OnDragDrop = delBtnDragDrop OnDragOver = delBtnDragOver OnEndDrag = DailyListBoxEndDrag OnKeyDown = MonthScreenKeyDown OnKeyPress = MonthScreenKeyPress Glyph.Data = { 8C010000424D8C01000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE EECCCCCCCCCEEEEEE000EEEEEECF888888CEEEEEE000EEEEEECFC7C7C8CEEEEE E000EEEEEECFC7C8C8CEEEEEE000EEEEEECFC7C7C8CEEEEEE000EEEEEECFC7C8 C8CEEEEEE000EEEEEECFC7C7C8CEEEEEE000EEEECECFC7C8C8CECEEEE000EEEE ECCFC7C7C8CCEEEEE000EEEEEECFC7C8C8CEEEEEE000EEEEEEC8C8C8C8CEEEEE E000EEEEECCCCCCCCCCCEEEEE000EEEEECF77788888CEEEEE000EEEEECCCCCCC CCCCEEEEE000EEEEEEEEC888CEEEEEEEE000EEEEEEEECCCCCEEEEEEEE000EEEE EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE00000000000000000000000 00000000000000000000000000000000} end end object Font1Dummy: TMemo Left = 5 Top = 70 Width = 8 Height = 9 Font.Color = clWindowText Font.Height = -9 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [] Lines.Strings = ( 'A' 'B' 'C' 'D' 'E' 'F' 'G' 'H' ' ' 'b ' 'c ' 'f ' 'h') ParentFont = False TabOrder = 8 OnDblClick = MonthScreenDblClick OnDragDrop = MonthScreenImageDragDrop OnDragOver = MonthScreenImageDragOver OnEndDrag = DailyListBoxEndDrag OnKeyDown = MonthScreenKeyDown OnKeyPress = MonthScreenKeyPress OnMouseDown = MonthScreenImageMouseDown end object DateBox: TMaskEdit Left = 576 Top = 20 Width = 60 Height = 23 MaxLength = 0 TabOrder = 9 Visible = False end object PhoneListBox: TGroupBox Left = 236 Top = 212 Width = 151 Height = 77 HelpContext = 201 Caption = 'PhoneListBox' ParentShowHint = False ShowHint = False TabOrder = 11 OnDblClick = PhoneListBoxDblClick object PhoneList: TListBox Left = 6 Top = 18 Width = 53 Height = 51 HelpContext = 201 ItemHeight = 15 MultiSelect = True ParentShowHint = False ShowHint = False Sorted = True TabOrder = 1 OnClick = PhoneListClick OnDblClick = phoneListDblClick OnExit = PhoneListExit OnKeyDown = MonthScreenKeyDown OnKeyPress = MonthScreenKeyPress OnMouseDown = MonthScreenImageMouseDown end object PhoneListMemo: TListBox Left = 72 Top = 16 Width = 69 Height = 55 HelpContext = 201 Font.Color = clWindowText Font.Height = -11 Font.Name = 'System' Font.Pitch = fpFixed Font.Style = [] ItemHeight = 15 ParentFont = False ParentShowHint = False ShowHint = False TabOrder = 2 end object PhoneListKey: TEdit Left = 84 Top = 1 Width = 65 Height = 20 HelpContext = 201 Font.Color = clWindowText Font.Height = -13 Font.Name = 'Terminal' Font.Pitch = fpFixed Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnExit = PhoneListKeyExit OnKeyPress = PhoneListKeyKeyPress end end object memoBox: TGroupBox Left = 32 Top = 212 Width = 197 Height = 75 Caption = 'memoBox' Color = clWhite Font.Color = clBlack Font.Height = -11 Font.Name = 'System' Font.Pitch = fpFixed Font.Style = [] ParentColor = False ParentFont = False TabOrder = 10 Visible = False object memoUpDnBtn: TButton Left = 90 Top = 0 Width = 17 Height = 17 Caption = 'Up' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Terminal' Font.Pitch = fpFixed Font.Style = [] ParentFont = False TabOrder = 0 TabStop = False OnClick = MemoDblClick end object Memo: TMemo Left = 2 Top = 17 Width = 193 Height = 56 Align = alClient Color = clLime Font.Color = clBlack Font.Height = -9 Font.Name = 'System' Font.Pitch = fpFixed Font.Style = [] Lines.Strings = ( 'Memo') ParentFont = False ScrollBars = ssVertical TabOrder = 1 OnDblClick = MemoDblClick OnEnter = MemoEnter OnExit = memoExit OnKeyDown = MonthScreenKeyDown end end object MainMenu: TMainMenu Left = 148 Top = 48 object MainMenuFile: TMenuItem Caption = '&File' HelpContext = 202 ShortCut = 0 object FileMake: TMenuItem Caption = '&Make New Event' HelpContext = 202 ShortCut = 0 OnClick = FileMakeEditClick end object FileEdit: TMenuItem Caption = '&Edit Old Event' HelpContext = 204 ShortCut = 0 OnClick = FileMakeEditClick end object FileClone: TMenuItem Caption = '&Clone an Event' HelpContext = 206 ShortCut = 0 OnClick = FileMakeEditClick end object FilePlan: TMenuItem Caption = '&Plan' HelpContext = 210 ShortCut = 0 OnClick = EditPlanClick end object FileTemplate: TMenuItem Caption = '&Template' HelpContext = 208 ShortCut = 0 OnClick = EditTemplateClick end object FileMacro: TMenuItem Caption = '&AutoExecute Macro' ShortCut = 0 Visible = False end object FileIncExp: TMenuItem Caption = '&Income/Expense Categories' ShortCut = 0 Visible = False end object FileZip: TMenuItem Caption = '&Zip Schedule to Log' HelpContext = 212 ShortCut = 0 OnClick = FileMakeEditClick end object FileArchive: TMenuItem Caption = '&Archive Calendar' HelpContext = 214 ShortCut = 0 OnClick = ToolsDeleteClick end object N2: TMenuItem Caption = '-' ShortCut = 0 end object FileDelete: TMenuItem Caption = '&Omit Tagged Events' HelpContext = 216 ShortCut = 0 OnClick = ToolsDeleteClick end object FileIndex: TMenuItem Caption = 'Re&index Data Files' HelpContext = 218 ShortCut = 0 OnClick = ToolsDeleteClick end object FileBuild: TMenuItem Caption = 'Re&build Data Files' HelpContext = 220 ShortCut = 0 OnClick = ToolsDeleteClick end object N13: TMenuItem Caption = '-' ShortCut = 0 end object FilePrint: TMenuItem Caption = '&Print' HelpContext = 227 ShortCut = 0 OnClick = FilePrintClick end object FilePrintHalfYear: TMenuItem Caption = 'Print Half Year' HelpContext = 227 ShortCut = 0 OnClick = FilePrintYearClick end object FilePrintYear: TMenuItem Caption = 'Print Year' HelpContext = 227 ShortCut = 0 OnClick = FilePrintYearClick end object PrintCheck: TMenuItem Caption = 'Print &Checks' HelpContext = 225 ShortCut = 0 OnClick = FileMakeEditClick end object FilePrinterSetup: TMenuItem Caption = '&Printer Setup' ShortCut = 0 OnClick = FilePrinterSetupClick end object N12: TMenuItem Caption = '-' ShortCut = 0 end object MainMenuExit: TMenuItem Caption = 'E&xit' ShortCut = 0 OnClick = MainMenuExitClick end end object MainMenuEdit: TMenuItem Caption = '&Edit' HelpContext = 230 ShortCut = 0 object EditOldEvent: TMenuItem Caption = 'Old &Event' HelpContext = 230 ShortCut = 0 OnClick = FileMakeEditClick end object EditRecurs: TMenuItem Caption = '&Recurring Events' HelpContext = 232 ShortCut = 0 OnClick = EditRecursClick end object EditPrjct: TMenuItem Caption = '&Project' HelpContext = 286 ShortCut = 0 OnClick = PrjctEditClick end object EditPlan: TMenuItem Caption = 'Pla&n' HelpContext = 210 ShortCut = 0 OnClick = EditPlanClick end object EditTemplate: TMenuItem Caption = '&Template' HelpContext = 208 ShortCut = 0 OnClick = EditTemplateClick end object EditIncExpCat: TMenuItem Caption = '&Income/Expense Categories' HelpContext = 233 ShortCut = 0 OnClick = EditIncExpCatClick end object EditAccounts: TMenuItem Caption = '&Accounts' HelpContext = 235 ShortCut = 0 OnClick = EditAccountsClick end object EditBillFormat: TMenuItem Caption = '&Bill Format' HelpContext = 680 ShortCut = 0 OnClick = AccessEditor end object EditLetter: TMenuItem Caption = 'Project Report For&m' HelpContext = 680 ShortCut = 0 OnClick = AccessEditor end object EditCalForm: TMenuItem Caption = 'Calendar Report' HelpContext = 680 ShortCut = 0 OnClick = AccessEditor end object EditLogForm: TMenuItem Caption = 'Log Report' HelpContext = 680 ShortCut = 0 OnClick = AccessEditor end object EditCheck: TMenuItem Caption = 'C&heck Format' ShortCut = 0 OnClick = AccessEditor end object EditMacro: TMenuItem Caption = '&AutoExecute Macro' ShortCut = 0 Visible = False end object EditConfig: TMenuItem Caption = '&Configuration' HelpContext = 234 ShortCut = 0 OnClick = EditConfigurationClick end object N4: TMenuItem Caption = '-' ShortCut = 0 end object EditDeleteTag: TMenuItem Caption = '&Tag Event for Deletion' HelpContext = 236 ShortCut = 0 OnClick = FileMakeEditClick end object N3: TMenuItem Caption = '-' ShortCut = 0 end object EditFindWord: TMenuItem Caption = '&Find Word' ShortCut = 0 OnClick = EditFindWordClick end object EditCut: TMenuItem Caption = 'Cu&t' ShortCut = 0 OnClick = EditCutClick end object EditCopy: TMenuItem Caption = 'C&opy to Clipboard' ShortCut = 0 OnClick = EditCopyClick end object EditPaste: TMenuItem Caption = '&Paste' ShortCut = 0 OnClick = EditPasteClick end object EditMoveEvents: TMenuItem Caption = 'Move Events' ShortCut = 0 OnClick = EditMoveEventsClick end end object MainMenuSearch: TMenuItem Caption = '&Search' HelpContext = 250 ShortCut = 0 object SearchReport: TMenuItem Caption = '&Report' HelpContext = 250 ShortCut = 0 OnClick = SearchReportClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object SearchQuick: TMenuItem Caption = 'Locate a Word Quickly' HelpContext = 252 ShortCut = 0 OnClick = SearchReportClick end object SearchGoTo: TMenuItem Caption = '&Go To Date' HelpContext = 254 ShortCut = 0 OnClick = ToolsDeleteClick end object SearchFreeTime: TMenuItem Caption = 'Find Free Time' HelpContext = 256 ShortCut = 0 OnClick = FileMakeEditClick end object N11: TMenuItem Caption = '-' ShortCut = 0 end object SearchAdd: TMenuItem Caption = '&Add Days' HelpContext = 258 ShortCut = 0 OnClick = ToolsDeleteClick end object SearchSubtract: TMenuItem Caption = '&Subtract Days' HelpContext = 260 ShortCut = 0 OnClick = ToolsDeleteClick end end object MenuSchedLog: TMenuItem Caption = '&Log' HelpContext = 280 ShortCut = 0 object FileSwitch: TMenuItem Caption = '&Switch to' HelpContext = 280 ShortCut = 0 OnClick = FileSwitchClick end end object MainMenuView: TMenuItem Caption = '&View' HelpContext = 270 ShortCut = 0 object ViewDay: TMenuItem Caption = '&Day/Month' HelpContext = 270 ShortCut = 0 OnClick = FileMakeEditClick end object AltMonthView: TMenuItem Caption = '&Alternate Month View' HelpContext = 271 ShortCut = 0 OnClick = AltMonthViewClick end object ViewWeek: TMenuItem Caption = '&Week' ShortCut = 0 OnClick = ViewWeekClick end object ViewSixMonth: TMenuItem Caption = '&Six-Month' ShortCut = 0 Visible = False end object ViewToDo: TMenuItem Caption = '&ToDo'#39's' HelpContext = 272 ShortCut = 0 OnClick = FileMakeEditClick end object N5: TMenuItem Caption = '-' ShortCut = 0 Visible = False end object ViewReport: TMenuItem Caption = '&Report' ShortCut = 0 Visible = False OnClick = SearchReportClick end object N7: TMenuItem Caption = '-' ShortCut = 0 Visible = False end object ViewWorldTimes: TMenuItem Caption = '&World Times' HelpContext = 274 ShortCut = 0 OnClick = ViewWorldTimesClick end object ViewMiscel: TMenuItem Caption = '&Miscellaneous Info' ShortCut = 0 Visible = False end object ViewStopwatch: TMenuItem Caption = '&Stopwatch' ShortCut = 0 Visible = False end object N6: TMenuItem Caption = '-' ShortCut = 0 end object ViewEmp: TMenuItem Caption = '&One Employee/Project' HelpContext = 276 ShortCut = 0 OnClick = ViewEmpClick end end object MainMenuProj: TMenuItem Caption = '&Project' HelpContext = 284 ShortCut = 0 object PrjctMake: TMenuItem Caption = '&Make' HelpContext = 284 ShortCut = 0 OnClick = PrjctEditClick end object PrjctEdit: TMenuItem Caption = '&Edit' HelpContext = 286 ShortCut = 0 OnClick = PrjctEditClick end object PrjctHunt: TMenuItem Caption = '&Report / Bill' HelpContext = 287 ShortCut = 0 OnClick = PrjctHuntClick end object PrjctTag: TMenuItem Caption = '&Tag for Omission' HelpContext = 288 ShortCut = 0 OnClick = PrjctEditClick end end object MenuGenLedger: TMenuItem Caption = 'GenLedger' ShortCut = 0 object GenLedgSwitch: TMenuItem Caption = '&SwitchTo' ShortCut = 0 OnClick = FileSwitchClick end end object MainMenuInterOffice: TMenuItem Caption = '&InterOffice' ShortCut = 0 object DataNotebook: TMenuItem Caption = '&Notebook' HelpContext = 291 ShortCut = 0 Visible = False OnClick = DataNotebookClick end object DataPhonebook: TMenuItem Caption = '&Phonebook' HelpContext = 289 ShortCut = 0 OnClick = DatabaseClick end object DataPayees: TMenuItem Caption = 'Payees' HelpContext = 290 ShortCut = 0 OnClick = DatabaseClick end object InterOfficeSend: TMenuItem Caption = '&Send Mail' ShortCut = 0 Visible = False end object InterOfficeLocate: TMenuItem Caption = '&Locate Person' ShortCut = 0 Visible = False end end object MainMenuTools: TMenuItem Caption = '&Tools' HelpContext = 292 ShortCut = 0 object ToolsCalc: TMenuItem Caption = '&Date Calculator' HelpContext = 292 ShortCut = 0 OnClick = ToolsDeleteClick end object ToolsMacro: TMenuItem Caption = 'Autoexecute &Macro' ShortCut = 0 Visible = False end object ToolsResched: TMenuItem Caption = '&Re-Schedule Multiple Events' ShortCut = 0 Visible = False end object ToolsZip: TMenuItem Caption = '&Zip Schedule to Log' ShortCut = 0 Visible = False OnClick = FileMakeEditClick end object ToolChangePW: TMenuItem Caption = 'Change &Password' HelpContext = 296 ShortCut = 0 OnClick = ToolChangePWClick end object ToolsColors: TMenuItem Caption = 'Change Colors' HelpContext = 238 ShortCut = 0 OnClick = ToolsColorsClick end object ToolsTimeZoneChange: TMenuItem Caption = 'Change Time Zone' ShortCut = 0 OnClick = ViewWorldTimesClick end object ToolEditConfig: TMenuItem Caption = 'Edit &Configuration' HelpContext = 294 ShortCut = 0 OnClick = EditConfigurationClick end object N8: TMenuItem Caption = '-' ShortCut = 0 end object ToolOptions: TMenuItem Caption = '&Options' HelpContext = 298 ShortCut = 0 object ToolOptionsBatchEntry: TMenuItem Caption = 'Batch Entry Mode' HelpContext = 298 ShortCut = 0 OnClick = ToolOptionsSwitch end object ToolOptionsBatchHunt: TMenuItem Caption = 'Batch Hunt Mode' HelpContext = 298 ShortCut = 0 OnClick = ToolOptionsSwitch end end end object MainMenuHelp: TMenuItem Caption = '&Help' ShortCut = 0 object HelpQuickHelp: TMenuItem Caption = '&Quick Help' ShortCut = 112 OnClick = HelpQuickHelpClick end object HelpManual: TMenuItem Caption = '&Print Manual' ShortCut = 0 Visible = False end object HelpAbout: TMenuItem Caption = '&About' ShortCut = 0 OnClick = HelpAboutClick end end end object Timer1: TTimer OnTimer = Timer1Timer Left = 198 Top = 44 end object PrinterSetupDialog1: TPrinterSetupDialog Left = 228 Top = 48 end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Options = [ofHideReadOnly, ofNoChangeDir, ofCreatePrompt] Left = 204 Top = 78 end end