home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / 9APLI / TIMBNT25.ZIP / INSTALL.EXE / BILLPOWR.EXE / 0 / RCDATA / TMONTHSCREEN / TMONTHSCREEN.txt
Text File  |  1998-04-14  |  53KB  |  1,684 lines
  1. object MonthScreen: TMonthScreen
  2.   Left = 0
  3.   Top = 138
  4.   AutoScroll = False
  5.   Caption = 'TickleX'
  6.   ClientHeight = 446
  7.   ClientWidth = 644
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'System'
  12.   Font.Pitch = fpFixed
  13.   Font.Style = []
  14.   Menu = MainMenu
  15.   Scaled = False
  16.   Visible = True
  17.   OnClose = FormClose
  18.   OnCreate = FormCreate
  19.   OnDblClick = MonthScreenDblClick
  20.   OnDestroy = FormDestroy
  21.   OnDragDrop = MonthScreenImageDragDrop
  22.   OnDragOver = MonthScreenImageDragOver
  23.   OnKeyDown = MonthScreenKeyDown
  24.   OnKeyPress = MonthScreenKeyPress
  25.   OnMouseDown = MonthScreenImageMouseDown
  26.   OnShow = FormShow
  27.   PixelsPerInch = 120
  28.   TextHeight = 20
  29.   object MonthScreenImage: TImage
  30.     Left = 0
  31.     Top = 0
  32.     Width = 644
  33.     Height = 446
  34.     Align = alClient
  35.     OnDblClick = MonthScreenDblClick
  36.     OnDragDrop = MonthScreenImageDragDrop
  37.     OnDragOver = MonthScreenImageDragOver
  38.     OnEndDrag = DailyListBoxEndDrag
  39.     OnMouseDown = MonthScreenImageMouseDown
  40.   end
  41.   object DailyImage: TImage
  42.     Left = 470
  43.     Top = 246
  44.     Width = 105
  45.     Height = 105
  46.   end
  47.   object SmallFontTest: TLabel
  48.     Left = 424
  49.     Top = 8
  50.     Width = 520
  51.     Height = 80
  52.     Caption = 'SmallFontTest'
  53.     Font.Charset = DEFAULT_CHARSET
  54.     Font.Color = clWindowText
  55.     Font.Height = -80
  56.     Font.Name = 'System'
  57.     Font.Pitch = fpFixed
  58.     Font.Style = []
  59.     ParentFont = False
  60.     Visible = False
  61.   end
  62.   object todayBtn: TSpeedButton
  63.     Left = 542
  64.     Top = 2
  65.     Width = 25
  66.     Height = 25
  67.     Caption = 'Today'
  68.     Font.Charset = DEFAULT_CHARSET
  69.     Font.Color = clWindowText
  70.     Font.Height = -11
  71.     Font.Name = 'Arial'
  72.     Font.Pitch = fpFixed
  73.     Font.Style = []
  74.     ParentFont = False
  75.     ParentShowHint = False
  76.     ShowHint = True
  77.     OnClick = todayBtnClick
  78.   end
  79.   object DailyListBox: TListBox
  80.     Left = 400
  81.     Top = 120
  82.     Width = 233
  83.     Height = 153
  84.     TabStop = False
  85.     BorderStyle = bsNone
  86.     Color = clWhite
  87.     Ctl3D = True
  88.     Font.Charset = DEFAULT_CHARSET
  89.     Font.Color = clWindowText
  90.     Font.Height = -11
  91.     Font.Name = 'Courier New'
  92.     Font.Pitch = fpFixed
  93.     Font.Style = []
  94.     ItemHeight = 14
  95.     MultiSelect = True
  96.     ParentCtl3D = False
  97.     ParentFont = False
  98.     Sorted = True
  99.     TabOrder = 0
  100.     Visible = False
  101.     OnDblClick = DailyListBoxDblClick
  102.     OnDragDrop = DailyListBoxDragDrop
  103.     OnDragOver = DailyListBoxDragOver
  104.     OnEndDrag = DailyListBoxEndDrag
  105.     OnKeyDown = MonthScreenKeyDown
  106.     OnKeyPress = MonthScreenKeyPress
  107.     OnMouseDown = MonthScreenImageMouseDown
  108.   end
  109.   object Dummy: TMemo
  110.     Left = 2
  111.     Top = 2
  112.     Width = 11
  113.     Height = 11
  114.     Font.Charset = DEFAULT_CHARSET
  115.     Font.Color = clBlack
  116.     Font.Height = -21
  117.     Font.Name = 'Wingdings'
  118.     Font.Pitch = fpFixed
  119.     Font.Style = []
  120.     Lines.Strings = (
  121.       '`'
  122.       '1'
  123.       '2'
  124.       '3'
  125.       '4'
  126.       '5'
  127.       '6'
  128.       '7'
  129.       '8'
  130.       '9'
  131.       '0'
  132.       '-'
  133.       '='
  134.       'q'
  135.       'w'
  136.       'e'
  137.       'r'
  138.       't'
  139.       'y'
  140.       'u'
  141.       'i'
  142.       'o'
  143.       'p'
  144.       '['
  145.       ']'
  146.       'a'
  147.       's'
  148.       'd'
  149.       'f'
  150.       'g'
  151.       'h'
  152.       'j'
  153.       'k'
  154.       'l'
  155.       ';'
  156.       #39
  157.       'z'
  158.       'x'
  159.       'c'
  160.       'v'
  161.       'b'
  162.       'n'
  163.       'm'
  164.       ','
  165.       '.'
  166.       '/'
  167.       '\'
  168.       ''
  169.       '~'
  170.       '!'
  171.       '@'
  172.       '#'
  173.       '$'
  174.       '%'
  175.       '^'
  176.       '&'
  177.       '*'
  178.       '('
  179.       ')'
  180.       '_'
  181.       '+'
  182.       'Q'
  183.       'W'
  184.       'E'
  185.       'R'
  186.       'T'
  187.       'Y'
  188.       'U'
  189.       'I'
  190.       'O'
  191.       'P'
  192.       '{'
  193.       '}'
  194.       'A'
  195.       'S'
  196.       'D'
  197.       'F'
  198.       'G'
  199.       'H'
  200.       'J'
  201.       'K'
  202.       'L'
  203.       ':'
  204.       '"'
  205.       'Z'
  206.       'X'
  207.       'C'
  208.       'V'
  209.       'B'
  210.       'N'
  211.       'M'
  212.       '<'
  213.       '>'
  214.       '?'
  215.       '|')
  216.     ParentFont = False
  217.     TabOrder = 1
  218.     OnDblClick = MonthScreenDblClick
  219.     OnDragDrop = MonthScreenImageDragDrop
  220.     OnDragOver = MonthScreenImageDragOver
  221.     OnEndDrag = DailyListBoxEndDrag
  222.     OnKeyDown = MonthScreenKeyDown
  223.     OnKeyPress = MonthScreenKeyPress
  224.     OnMouseDown = MonthScreenImageMouseDown
  225.   end
  226.   object UpBtn: TButton
  227.     Left = 262
  228.     Top = 48
  229.     Width = 22
  230.     Height = 22
  231.     Caption = ' Up '
  232.     Font.Charset = DEFAULT_CHARSET
  233.     Font.Color = clWindowText
  234.     Font.Height = -15
  235.     Font.Name = 'Terminal'
  236.     Font.Pitch = fpFixed
  237.     Font.Style = []
  238.     ParentFont = False
  239.     ParentShowHint = False
  240.     ShowHint = True
  241.     TabOrder = 2
  242.     TabStop = False
  243.     Visible = False
  244.     OnClick = UpDnBtnClick
  245.     OnKeyDown = MonthScreenKeyDown
  246.     OnKeyPress = MonthScreenKeyPress
  247.   end
  248.   object TimeBox: TEdit
  249.     Left = 576
  250.     Top = 4
  251.     Width = 60
  252.     Height = 22
  253.     TabStop = False
  254.     Enabled = False
  255.     Font.Charset = DEFAULT_CHARSET
  256.     Font.Color = clWindowText
  257.     Font.Height = -11
  258.     Font.Name = 'Arial'
  259.     Font.Pitch = fpFixed
  260.     Font.Style = []
  261.     ParentFont = False
  262.     ReadOnly = True
  263.     TabOrder = 3
  264.     Visible = False
  265.   end
  266.   object DateReport: TButton
  267.     Left = 80
  268.     Top = 150
  269.     Width = 131
  270.     Height = 23
  271.     Caption = 'DateReport'
  272.     Font.Charset = DEFAULT_CHARSET
  273.     Font.Color = clWindowText
  274.     Font.Height = -13
  275.     Font.Name = 'Arial'
  276.     Font.Pitch = fpFixed
  277.     Font.Style = []
  278.     ParentFont = False
  279.     TabOrder = 4
  280.     Visible = False
  281.   end
  282.   object GoToBtn: TButton
  283.     Left = 18
  284.     Top = 58
  285.     Width = 22
  286.     Height = 22
  287.     Caption = 'GoTo'
  288.     Font.Charset = DEFAULT_CHARSET
  289.     Font.Color = clWindowText
  290.     Font.Height = -13
  291.     Font.Name = 'Arial'
  292.     Font.Pitch = fpFixed
  293.     Font.Style = []
  294.     ParentFont = False
  295.     ParentShowHint = False
  296.     ShowHint = True
  297.     TabOrder = 5
  298.     TabStop = False
  299.     Visible = False
  300.     OnClick = ToolsDeleteClick
  301.     OnKeyDown = MonthScreenKeyDown
  302.     OnKeyPress = MonthScreenKeyPress
  303.   end
  304.   object DownBtn: TButton
  305.     Left = 262
  306.     Top = 416
  307.     Width = 22
  308.     Height = 22
  309.     Caption = 'Down'
  310.     Font.Charset = DEFAULT_CHARSET
  311.     Font.Color = clWindowText
  312.     Font.Height = -15
  313.     Font.Name = 'Terminal'
  314.     Font.Pitch = fpFixed
  315.     Font.Style = []
  316.     ParentFont = False
  317.     ParentShowHint = False
  318.     ShowHint = True
  319.     TabOrder = 6
  320.     TabStop = False
  321.     Visible = False
  322.     OnClick = UpDnBtnClick
  323.     OnKeyDown = MonthScreenKeyDown
  324.     OnKeyPress = MonthScreenKeyPress
  325.   end
  326.   object SpeedBtnBox: TPanel
  327.     Left = 32
  328.     Top = 358
  329.     Width = 613
  330.     Height = 25
  331.     BevelOuter = bvNone
  332.     BorderWidth = 1
  333.     TabOrder = 7
  334.     Visible = False
  335.     object DayBtn: TSpeedButton
  336.       Left = 10
  337.       Top = 0
  338.       Width = 23
  339.       Height = 23
  340.       Flat = True
  341.       Glyph.Data = {
  342.         72010000424D7201000000000000760000002800000015000000150000000100
  343.         040000000000FC00000000000000000000001000000000000000000000000000
  344.         80000080000000808000800000008000800080800000C0C0C000808080000000
  345.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  346.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000ECCC
  347.         CCCCCCCCCCCCCCCCE000ECFFFFFFFFFFFFFFFFFCE000ECFFFFFFFFFFFFFFFFFC
  348.         E000ECFFFFFFFFFFFFFFFFFCE000ECFFFFFFFFFFFFFFFFFCE000ECFFFFFFFFFF
  349.         FFFFFFFCE000ECFFFFFFFFFFFFFFFFFCE000ECFFFFFFFFFFFFFFFFFCE000ECFF
  350.         FFFFFFFFFFFFFFFCE000ECFFFFFFFFFFFFFFFFFCE000ECFFFFFFFFFFFFFFFFFC
  351.         E000ECFFFFFFFFFFFFFFFFFCE000ECCCCCCCCCCCCCCCCCCCE000ECEEEEEEEEEE
  352.         EEEEEEECE000ECEEEEEEEEEEEEEEEEECE000ECCCCCCCCCCCCCCCCCCCE000EEEE
  353.         EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  354.       ParentShowHint = False
  355.       ShowHint = True
  356.       Visible = False
  357.       OnClick = DayBtnClick
  358.     end
  359.     object NewBtn: TSpeedButton
  360.       Left = 34
  361.       Top = 0
  362.       Width = 23
  363.       Height = 23
  364.       Flat = True
  365.       Glyph.Data = {
  366.         72010000424D7201000000000000760000002800000015000000150000000100
  367.         040000000000FC00000000000000000000001000000000000000000000000000
  368.         80000080000000808000800000008000800080800000C0C0C000808080000000
  369.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  370.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEE0EEEEEEEEEEE000EEEE
  371.         EEEE000EEEEEEEEEE000EEEEEEEE000EEEEEEEEEE000EEEEEEEE070EEEEEEEEE
  372.         E000EEEEBEEB000BEEBBEEEEE000EEEEEBBB0B0BBBEEEEEEE000EEEEEBBB0F0B
  373.         BBEEEEEEE000EEEEBBB0F8F0BBBBEEEEE000EEEEBB0FB8BF0BBBEEEEE000EBBB
  374.         BB0BF8FB0BBBBBEEE000EEEEBB0FBFBF0BBBEEEEE000EEEEBBB0FBF0BBBBEEEE
  375.         E000EEEEEBBB000BBBEEEEEEE000EEEEEBBBBBBBBBEEEEEEE000EEEEEBBBBBBB
  376.         BBEEEEEEE000EEEEBEEBBBBBEEBBEEEEE000EEEEEEEEEBEEEEEEEEEEE000EEEE
  377.         EEEEEBEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  378.       ParentShowHint = False
  379.       ShowHint = True
  380.       Visible = False
  381.       OnClick = NewBtnClick
  382.     end
  383.     object HuntBtn: TSpeedButton
  384.       Left = 60
  385.       Top = 2
  386.       Width = 44
  387.       Height = 23
  388.       Flat = True
  389.       Glyph.Data = {
  390.         6E020000424D6E0200000000000076000000280000002A000000150000000100
  391.         040000000000F801000000000000000000001000000000000000000000000000
  392.         80000080000000808000800000008000800080800000C0C0C000808080000000
  393.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  394.         EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE000000EEEEEEEEEEEEEEEEEEEEEECCCCCC
  395.         CCCCCCCCCEEEEE000000EECCEEEEEEEEEE00EEEEECCCCCCCCCCCCCCCCCEEEE00
  396.         0000EECCEEEEEEEEEE00EEEEEC888888888888888CEEEE000000EECCCEEEEEEE
  397.         EEE00EEEECF8F8FF88F88F8F8CEEEE000000EECCCEEEEEEEEEE00EEEECF8F8FF
  398.         88F88F8F8CEEEE000000EEECCCEEEEEEEEE00EEEEC8F8F88FF8FF899FCEEEE00
  399.         0000EEECCCEEEEEEEEEE00EEECF8F8FF88F88F8F8CEEEE000000EEEECCCCCCCC
  400.         EEEE00EEECCCCCCCCCCCCCCCCCEEEE000000EEEECCCEEEEECEEEE00EEEEECFFF
  401.         FFFFFFCEEEEEEE000000EEEECCCEEEEEECEEE00EEEEECF0000F00FCEEEEEEE00
  402.         0000EEECEEEEEEEEEECEE00EEEEECF0000F00FCEEEEEEE000000EEECEEEEEEEE
  403.         EECEE00EEEEECFFFFFFFFFCEEEEEEE000000EEECEEEEEEEEEECEEE00EEEECF00
  404.         F00000CEEEEEEE000000EEECEEEEEFFFEECEEE00EEEECFFFF0FFFCEEEEEEEE00
  405.         0000EEECEEEEEFFFEECEEE00EEEECF00F0F0CEEEEEEEEE000000EEEECEEEEFFE
  406.         ECEEEEE00EEECFFFF0FCEEEEEEEEEE000000EEEEECEEEEEECEEEEEE00EEECCCC
  407.         C0CEEEEEEEEEEE000000EEEEEECCCCCCEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE00
  408.         0000EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE000000EEEEEEEEEEEE
  409.         EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE000000}
  410.       ParentShowHint = False
  411.       ShowHint = True
  412.       Visible = False
  413.       OnClick = HuntBtnClick
  414.     end
  415.     object EmpFreeTimeBtn: TSpeedButton
  416.       Left = 132
  417.       Top = 0
  418.       Width = 23
  419.       Height = 23
  420.       Flat = True
  421.       Glyph.Data = {
  422.         72010000424D7201000000000000760000002800000015000000150000000100
  423.         040000000000FC00000000000000000000001000000000000000000000000000
  424.         80000080000000808000800000008000800080800000C0C0C000808080000000
  425.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  426.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE
  427.         EEEEEEEEEEEEEEEEE000EEEEECCCCCCCCCCCEEEEE000EEEEECFCFCFCFCFCEEEE
  428.         E000EEEEECFCFCFCFCFCEEEEE000EEEEECFCFCFCFCFCEEEEE000EEEEECFCFCFC
  429.         FCFCEEEEE000EEEEECFCFCFCFCFCEEEEE000EEEEECFCFCFCFCFCEEEEE000EEEE
  430.         ECFCFCFCFCFCEEEEE000EEEEECFCFCFCFCFCEEEEE000EEEEECFCFCFCFCFCEEEE
  431.         E000EEEEECFCFCFCFCFCEEEEE000EEEEECFCFCFCFCFCEEEEE000EEEEECCCCCCC
  432.         CCCCEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE
  433.         EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  434.       ParentShowHint = False
  435.       ShowHint = True
  436.       Visible = False
  437.       OnClick = EmpFreeTimeBtnClick
  438.     end
  439.     object memoBtn: TSpeedButton
  440.       Left = 158
  441.       Top = 0
  442.       Width = 23
  443.       Height = 25
  444.       Flat = True
  445.       Font.Charset = DEFAULT_CHARSET
  446.       Font.Color = clWindowText
  447.       Font.Height = -15
  448.       Font.Name = 'Terminal'
  449.       Font.Pitch = fpFixed
  450.       Font.Style = []
  451.       Glyph.Data = {
  452.         72010000424D7201000000000000760000002800000015000000150000000100
  453.         040000000000FC00000000000000000000001000000000000000000000000000
  454.         80000080000000808000800000008000800080800000C0C0C000808080000000
  455.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  456.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE
  457.         EEEEEEEEEEEEEEEEE000EE5CCCCCCCCCEEEEEEEEE000EECFFFFFFFFFCEEEEEEE
  458.         E000EECFEEEEEECCCCCE00EEE000EECFFFFFF0BFBFB008EEE000EECF0EEEE000
  459.         FBFB08EEE000EECFF00F0FBFBFBF08EEE000EECFE0B00000FBFB08EEE000EECF
  460.         FF0FBFBFBFBF08EEE000EECFEEE0000000FB08EEE000EECFFFFF0B00BFB008EE
  461.         E000EECFEEEEE0B0000EEEEEE000EECFFFFFFF0B0EEEEEEEE000EECCFCFCFCFC
  462.         B0EEEEEEE000EEEC8C8C8C8CCB0EEEEEE000EEEC8C8C8C8CE090EEEEE000EEEC
  463.         ECECECEEEE0EEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  464.       ParentFont = False
  465.       ParentShowHint = False
  466.       ShowHint = True
  467.       Visible = False
  468.       OnClick = memobtnClick
  469.     end
  470.     object WeekBtn: TSpeedButton
  471.       Left = 182
  472.       Top = 0
  473.       Width = 23
  474.       Height = 23
  475.       Flat = True
  476.       Glyph.Data = {
  477.         72010000424D7201000000000000760000002800000015000000150000000100
  478.         040000000000FC00000000000000000000001000000000000000000000000000
  479.         80000080000000808000800000008000800080800000C0C0C000808080000000
  480.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  481.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000ECCC
  482.         CCCCCCCCCCCCCCCCE000ECEECEECEECEECEECEECE000ECEECEECEECEECEECEEC
  483.         E000ECEECEECEECEECEECEECE000ECEECEECEECEECEECEECE000ECEECEECEECE
  484.         ECEECEECE000ECEECEECEECEECEECEECE000ECEECEECEECEECEECEECE000ECEE
  485.         CEECEECEECEECEECE000ECEECEECEECEECEECEECE000ECEECEECEECEECEECEEC
  486.         E000ECEECEECEECEECEECEECE000ECCCCCCCCCCCCCCCCCCCE000ECEEEEEEEEEE
  487.         EEEEEEECE000ECEEEEEEEEEEEEEEEEECE000ECCCCCCCCCCCCCCCCCCCE000EEEE
  488.         EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  489.       ParentShowHint = False
  490.       ShowHint = True
  491.       Visible = False
  492.       OnClick = ViewWeekClick
  493.     end
  494.     object FullScrnClndrBtn: TSpeedButton
  495.       Left = 206
  496.       Top = 0
  497.       Width = 23
  498.       Height = 23
  499.       Flat = True
  500.       Glyph.Data = {
  501.         72010000424D7201000000000000760000002800000015000000150000000100
  502.         040000000000FC00000000000000000000001000000000000000000000000000
  503.         80000080000000808000800000008000800080800000C0C0C000808080000000
  504.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  505.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000ECCC
  506.         CCCCCCCCCCCCCCCCE000ECEECEECEECEECEECEECE000ECEECEECEECEECEECEEC
  507.         E000ECCCCCCCCCCCCCCCCCCCE000ECEECEECEECEECEECEECE000ECEECEECEECE
  508.         ECEECEECE000ECCCCCCCCCCCCCCCCCCCE000ECEECEECEECEECEECEECE000ECEE
  509.         CEECEECEECEECEECE000ECCCCCCCCCCCCCCCCCCCE000ECEECEECEECEECEECEEC
  510.         E000ECEECEECEECEECEECEECE000ECCCCCCCCCCCCCCCCCCCE000ECEEEEEEEEEE
  511.         EEEEEEECE000ECEEEEEEEEEEEEEEEEECE000ECCCCCCCCCCCCCCCCCCCE000EEEE
  512.         EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  513.       ParentShowHint = False
  514.       ShowHint = True
  515.       Visible = False
  516.       OnClick = MonthSelectClick
  517.     end
  518.     object SpltScrnClndrBtn: TSpeedButton
  519.       Left = 228
  520.       Top = 0
  521.       Width = 23
  522.       Height = 23
  523.       Flat = True
  524.       Glyph.Data = {
  525.         72010000424D7201000000000000760000002800000015000000150000000100
  526.         040000000000FC00000000000000000000001000000000000000000000000000
  527.         80000080000000808000800000008000800080800000C0C0C000808080000000
  528.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  529.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000ECCC
  530.         CCCCCCCCCCCCCCCCE000ECEECEECEECFFFFFFFFCE000ECEECEECEECFFFFFFFFC
  531.         E000ECCCCCCCCCCFFFFFFFFCE000ECEECEECEECFFFFFFFFCE000ECEECEECEECF
  532.         FFFFFFFCE000ECCCCCCCCCCFFFFFFFFCE000ECEECEECEECFFFFFFFFCE000ECEE
  533.         CEECEECFFFFFFFFCE000ECCCCCCCCCCFFFFFFFFCE000ECEECEECEECFFFFFFFFC
  534.         E000ECEECEECEECFFFFFFFFCE000ECCCCCCCCCCCCCCCCCCCE000ECEEEEEEEEEE
  535.         EEEEEEECE000ECEEEEEEEEEEEEEEEEECE000ECCCCCCCCCCCCCCCCCCCE000EEEE
  536.         EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  537.       ParentShowHint = False
  538.       ShowHint = True
  539.       Visible = False
  540.       OnClick = MonthSelectClick
  541.     end
  542.     object PhonBookClndrBtn: TSpeedButton
  543.       Left = 252
  544.       Top = 0
  545.       Width = 23
  546.       Height = 23
  547.       Flat = True
  548.       Glyph.Data = {
  549.         72010000424D7201000000000000760000002800000015000000150000000100
  550.         040000000000FC00000000000000000000001000000000000000000000000000
  551.         80000080000000808000800000008000800080800000C0C0C000808080000000
  552.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  553.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000ECCC
  554.         CCCCCCCCCCCCCCCCE000ECFFFFFFFFCFFFFFFFFCE000ECFFFFFFFFCFFFFFFFFC
  555.         E000ECCCCCCCCCCFFFFFFFFCE000ECEECEECEECFFFFFFFFCE000ECEECEECEECF
  556.         FFFFFFFCE000ECCCCCCCCCCFFFFFFFFCE000ECEECEECEECFFFFFFFFCE000ECEE
  557.         CEECEECFFFFFFFFCE000ECCCCCCCCCCFFFFFFFFCE000ECEECEECEECFFFFFFFFC
  558.         E000ECEECEECEECFFFFFFFFCE000ECCCCCCCCCCCCCCCCCCCE000ECEEEEEEEEEE
  559.         EEEEEEECE000ECEEEEEEEEEEEEEEEEECE000ECCCCCCCCCCCCCCCCCCCE000EEEE
  560.         EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  561.       ParentShowHint = False
  562.       ShowHint = True
  563.       Visible = False
  564.       OnClick = MonthSelectClick
  565.     end
  566.     object DetailBtn: TSpeedButton
  567.       Left = 274
  568.       Top = 0
  569.       Width = 23
  570.       Height = 23
  571.       Flat = True
  572.       Glyph.Data = {
  573.         72010000424D7201000000000000760000002800000015000000150000000100
  574.         040000000000FC00000000000000000000001000000000000000000000000000
  575.         80000080000000808000800000008000800080800000C0C0C000808080000000
  576.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  577.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE
  578.         EEEEEEEEEEEEEEEEE000EEEEECCCCCCCCCCCEEEEE000EEEEECFFFFFFFFFCEEEE
  579.         E000EEEEECCCCCCCCCCCEEEEE000EEEEECFFFFFFFFFCEEEEE000EEEEECCCCCCC
  580.         CCCCEEEEE000EEEEECFFFFFFFFFCEEEEE000EEEEECCCCCCCCCCCEEEEE000EEEE
  581.         ECFFFFFFFFFCEEEEE000EEEEECCCCCCCCCCCEEEEE000EEEEECFFFFFFFFFCEEEE
  582.         E000EEEEECCCCCCCCCCCEEEEE000EEEEECFFFFFFFFFCEEEEE000EEEEECCCCCCC
  583.         CCCCEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE
  584.         EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  585.       ParentShowHint = False
  586.       ShowHint = True
  587.       Visible = False
  588.       OnClick = EmpFreeTimeBtnClick
  589.     end
  590.     object ToDoBtn: TSpeedButton
  591.       Left = 322
  592.       Top = 0
  593.       Width = 23
  594.       Height = 23
  595.       Flat = True
  596.       Glyph.Data = {
  597.         72010000424D7201000000000000760000002800000015000000150000000100
  598.         040000000000FC00000000000000000000001000000000000000000000000000
  599.         80000080000000808000800000008000800080800000C0C0C000808080000000
  600.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  601.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE
  602.         EEEEEEEEEEEEEEEEE000EEEEEEEECFEEEEEEEEEEE000EEEEEEECCCFEEEEEEEEE
  603.         E000EEEEEECCCCFEEEEEEEEEE000EEEEEECCCCFEEEEEEEEEE000EEEEECCCCCCF
  604.         EEEEEEEEE000EEEECCCCCCCFEEEEEEEEE000EEECCCFEECCCFEEEEEEEE000ECCC
  605.         FEEEEECCFEEEEEEEE000EEEEEEEEEECCCFEEEEEEE000EEEEEEEEEEECCCFEEEEE
  606.         E000EEEEEEEEEEECCCFEEEEEE000EEEEEEEEEEEECCCFEEEEE000EEEEEEEEEEEE
  607.         ECCCFEEEE000EEEEEEEEEEEEEEECCFEEE000EEEEEEEEEEEEEEEEE66EE000EEEE
  608.         EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  609.       ParentShowHint = False
  610.       ShowHint = True
  611.       Visible = False
  612.       OnClick = ToDoBtnClick
  613.     end
  614.     object ScheduleBtn: TSpeedButton
  615.       Left = 346
  616.       Top = 0
  617.       Width = 23
  618.       Height = 23
  619.       Flat = True
  620.       Glyph.Data = {
  621.         72010000424D7201000000000000760000002800000015000000150000000100
  622.         040000000000FC00000000000000000000001000000000000000000000000000
  623.         80000080000000808000800000008000800080800000C0C0C000808080000000
  624.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  625.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEECCCCCEEEEEEEE000EEEE
  626.         EECC66666CCEEEEEE000EEEEEC666666666CEEEEE000EEEEC66677777666CEEE
  627.         E000EEEC6667677767666CEEE000EEEC6676777776766CEEE000EEC667677FFF
  628.         776766CEE000EEC66777F7F7F77766CEE000EEC66777FFFFF77766CEE000EEC6
  629.         6777F7F7F77766CEE000EEC667677FFF776766CEE000EEEC6676777776766CEE
  630.         E000EEEC6667677767666CEEE000EEEEC66677777666CEEEE000EEEEEC666666
  631.         666CEEEEE000EEEEEECC66666CCEEEEEE000EEEEEEEECCCCCEEEEEEEE000EEEE
  632.         EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  633.       ParentShowHint = False
  634.       ShowHint = True
  635.       Visible = False
  636.       OnClick = ScheduleBtnClick
  637.     end
  638.     object logBtn: TSpeedButton
  639.       Left = 370
  640.       Top = 0
  641.       Width = 23
  642.       Height = 23
  643.       Flat = True
  644.       Glyph.Data = {
  645.         72010000424D7201000000000000760000002800000015000000150000000100
  646.         040000000000FC00000000000000000000001000000000000000000000000000
  647.         80000080000000808000800000008000800080800000C0C0C000808080000000
  648.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  649.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEE00000EEEEEEEE000EEEE
  650.         EE000000000EEEEEE000EEEEE00088888000EEEEE000EEEE0088888888800EEE
  651.         E000EEE008888777888800EEE000EEE008887777788800EEE000EE0088877FFF
  652.         7788800EE000EE008877F8F8F778800EE000EE008877FFFFF778800EE000EE00
  653.         8877F8F8F778800EE000EE0088877FFF7788800EE000EEE008887777788800EE
  654.         E000EEE008888777888800EEE000EEEE0088888888800EEEE000EEEEE0008888
  655.         8000EEEEE000EEEEEE000000000EEEEEE000EEEEEEEE00000EEEEEEEE000EEEE
  656.         EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  657.       ParentShowHint = False
  658.       ShowHint = True
  659.       Visible = False
  660.       OnClick = logBtnClick
  661.     end
  662.     object GenLdgrBtn: TSpeedButton
  663.       Left = 396
  664.       Top = 0
  665.       Width = 23
  666.       Height = 23
  667.       Flat = True
  668.       Glyph.Data = {
  669.         72010000424D7201000000000000760000002800000015000000150000000100
  670.         040000000000FC00000000000000000000001000000000000000000000000000
  671.         80000080000000808000800000008000800080800000C0C0C000808080000000
  672.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  673.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEE99999EEEEEEEE000EEEE
  674.         EE999999999EEEEEE000EEEEE99988888999EEEEE000EEEE9988888888899EEE
  675.         E000EEE998888777888899EEE000EEE998887777788899EEE000EE9988877FFF
  676.         7788899EE000EE998877F8F8F778899EE000EE998877FFFFF778899EE000EE99
  677.         8877F8F8F778899EE000EE9988877FFF7788899EE000EEE998887777788899EE
  678.         E000EEE998888777888899EEE000EEEE9988888888899EEEE000EEEEE9998888
  679.         8999EEEEE000EEEEEE999999999EEEEEE000EEEEEEEE99999EEEEEEEE000EEEE
  680.         EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  681.       ParentShowHint = False
  682.       ShowHint = True
  683.       Visible = False
  684.       OnClick = GenLdgrBtnClick
  685.     end
  686.     object billBtn: TSpeedButton
  687.       Left = 300
  688.       Top = -2
  689.       Width = 23
  690.       Height = 27
  691.       Flat = True
  692.       Glyph.Data = {
  693.         72010000424D7201000000000000760000002800000015000000150000000100
  694.         040000000000FC00000000000000000000001000000000000000000000000000
  695.         80000080000000808000800000008000800080800000C0C0C000808080000000
  696.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  697.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EECCCCCCCCCCCCCCCCEEE000EECE
  698.         EEEEEEEEEEEEECEEE000EECEE0000000000EECEEE000EECEEEEEEEEEEEEEECEE
  699.         E000EECEE0000000000EECEEE000EECEEEEEEEEEEEEEECEEE000EECEE0000000
  700.         000EECEEE000EECEEEEEEEEEEEEEECEEE000EECEE0000000000EECEEE000EECE
  701.         EEEEEEEEEEEEECEEE000EECEEEEEEEEEEEEEECEEE000EECEE8888EEEEEEEECEE
  702.         E000EECEEEEEEEEEEEEEECEEE000EECEEEEEEEEEEEEEECEEE000EECEEEE00000
  703.         0EEEECEEE000EECEEEEEEEEEEEEEECEEE000EECCCCCCCCCCCCCCCCEEE000EEEE
  704.         EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  705.       ParentShowHint = False
  706.       ShowHint = True
  707.       Visible = False
  708.       OnClick = billBtnClick
  709.     end
  710.     object ProjBtn: TSpeedButton
  711.       Left = 104
  712.       Top = 0
  713.       Width = 23
  714.       Height = 23
  715.       Flat = True
  716.       Glyph.Data = {
  717.         72010000424D7201000000000000760000002800000015000000150000000100
  718.         040000000000FC00000000000000000000001000000000000000000000000000
  719.         80000080000000808000800000008000800080800000C0C0C000808080000000
  720.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  721.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EE00
  722.         0000000000000EEEE000000B77B77BB7BB7BB0EEE0000FF0BBFFB77B77B77B0E
  723.         E0000FF0BB7BFF7B77B77B00E0000FBF00B77BB7BF7BB7BB00000BFF00B77BB7
  724.         BF7BB7BB00000FFBFF0000000000000000000BBBFFFBBFFBFFB0EEEEE0000BFF
  725.         BBFFFFFBFFB0EEEEE0000FFBFFBFFBBFBBF0EEEEE0000BBFFFFBBFFBFFB0EEEE
  726.         E0000BBFBBFBBFFBFF00EEEEE000E00BFFBFF000000EEEEEE000EE0BFFBFF0EE
  727.         EEEEEEEEE000EE00000000EEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE
  728.         EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  729.       ParentShowHint = False
  730.       ShowHint = True
  731.       Visible = False
  732.       OnClick = ProjBtnClick
  733.     end
  734.     object dialBtn: TSpeedButton
  735.       Left = 506
  736.       Top = 0
  737.       Width = 23
  738.       Height = 23
  739.       Flat = True
  740.       Glyph.Data = {
  741.         5A010000424D5A01000000000000760000002800000013000000130000000100
  742.         040000000000E400000000000000000000001000000000000000000000000000
  743.         80000080000000808000800000008000800080800000C0C0C000808080000000
  744.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  745.         EEEEEEE00000EEEEEEEEEEEEEEEEEEE00000EECCCCCCCCCCCCCCCEE00000EECC
  746.         CCCCCCCCCCCCCEE00000EECEEEEEEEEEEEEECEE00000EECEEEEEEEEEEEEECEE0
  747.         0000EECEE700707707EECEE00000EECCEEEEEEEEEEECCEE00000EEEECE770700
  748.         7ECEEEE00000CCCCECEEEEEEECECCCC00000CCCCECEEEEEEECECCCC00000CEEE
  749.         ECCCCCCCCCEEEEC00000CEEEECEEEEEEECEEEEC00000ECEEECEEEEEEECEEECE0
  750.         0000ECEEEEEEEEEEEEEEECE00000EECCCCCCCCCCCCCCCEE00000EEEECCCCCCCC
  751.         CCCEEEE00000EEEEEEEEEEEEEEEEEEE00000EEEEEEEEEEEEEEEEEEE00000}
  752.       ParentShowHint = False
  753.       ShowHint = True
  754.       Visible = False
  755.       OnClick = dialBtnClick
  756.     end
  757.     object MsgBtn: TSpeedButton
  758.       Left = 534
  759.       Top = 0
  760.       Width = 25
  761.       Height = 25
  762.       Flat = True
  763.       Glyph.Data = {
  764.         5A010000424D5A01000000000000760000002800000013000000130000000100
  765.         040000000000E400000000000000000000001000000000000000000000000000
  766.         80000080000000808000800000008000800080800000C0C0C000808080000000
  767.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  768.         EEEEEEE00000EEEEEEEEEEEEEEEEEEE00000CCCCCCCCCCCCCCCCCCC00000C8FF
  769.         FFFFFFFFFFFFF8C00000CF888FFFFFFFFF888FC00000CFFFF88FFFFF88FFFFC0
  770.         0000CFFFFFFCCCCCFFFFFFC00000CFFFFFF8CCC8FFFFFFC00000CFFFF88FFFFF
  771.         88FFFFC00000CF888FFFFFFFF8888FC00000CC88FFFFFFFFFFF8CCC00000C877
  772.         7777777777777CC00000ECC77777777777788CE00000EEEC77877777877CEEE0
  773.         0000EEEECC7788877CCEEEE00000EEEEEECC777CCEEEEEE00000EEEEEEEECCCE
  774.         EEEEEEE00000EEEEEEEEEEEEEEEEEEE00000EEEEEEEEEEEEEEEEEEE00000}
  775.       ParentShowHint = False
  776.       ShowHint = True
  777.       OnClick = MsgBtnClick
  778.     end
  779.     object InOutBtn: TSpeedButton
  780.       Left = 562
  781.       Top = 0
  782.       Width = 25
  783.       Height = 25
  784.       Flat = True
  785.       Glyph.Data = {
  786.         5A010000424D5A01000000000000760000002800000013000000130000000100
  787.         040000000000E400000000000000000000001000000000000000000000000000
  788.         80000080000000808000800000008000800080800000C0C0C000808080000000
  789.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEECCCCCCCCC
  790.         CCCEEEE00000EEEC7777777777CEEEE00000EEEC7777777777CEEEE00000EEEC
  791.         7777777777CEEEE00000EEEC7777777777CEEEE00000EEEC7777777777CEEEE0
  792.         0000EEEC7777777777CEEEE00000EEEC7777777777CEEEE00000EEEC77777777
  793.         C7CEEEE00000EEEC77777777C7CEEEE00000EEEC7777777777CEEEE00000EEEC
  794.         7777777777CEEEE00000EEEC77FFFFFF77CEEEE00000EEEC77FFFFFF77CEEEE0
  795.         0000EEEC77FFFFFF77CEEEE00000EEEC7777777777CEEEE00000EEEC77777777
  796.         77CEEEE00000EEEC7777777777CEEEE00000EEECCCCCCCCCCCCEEEE00000}
  797.       ParentShowHint = False
  798.       ShowHint = True
  799.       OnClick = MsgBtnClick
  800.     end
  801.     object WatchBtn: TSpeedButton
  802.       Left = 478
  803.       Top = 0
  804.       Width = 25
  805.       Height = 25
  806.       Flat = True
  807.       Glyph.Data = {
  808.         66010000424D6601000000000000760000002800000013000000140000000100
  809.         040000000000F000000000000000000000001000000000000000000000000000
  810.         80000080000000808000800000008000800080800000C0C0C000808080000000
  811.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  812.         EEEEEEE00000EEEEEEECCCCCEEEEEEE00000EEEEECCCCCCCCCEEEEE00000EEEE
  813.         CCCEEEEECCCEEEE00000EEECCEEEEEEEEECCEEE00000EECCEEEEEEEEEEECCEE0
  814.         0000EECCEEEEEEEEEEECCEE00000ECCEEEEEEEEEEEEECCE00000ECCEEEEEEEEE
  815.         EEEECCE00000ECCEEEEEE0EEEEEECCE00000ECCEEEEEE0EEEEEECCE00000ECCE
  816.         EEEEE0EEEEEECCE00000EECCEEEEE0EEEEECCEE00000EECCEEEEE0EEEEECCEE0
  817.         0000EEECCEEEE0EEEECCEEE00000EEEECCCEEEEECCCEEEE00000EEECCCCCCCCC
  818.         CCCCEEE00000EEECCEECCCCCEECCEEE00000EEEEEEEECCCEEEEEEEE00000EEEE
  819.         EEEECCCEEEEEEEE00000}
  820.       ParentShowHint = False
  821.       ShowHint = True
  822.       OnClick = WatchBtnClick
  823.       OnMouseDown = MonthScreenImageMouseDown
  824.     end
  825.     object CalcBtn: TSpeedButton
  826.       Left = 588
  827.       Top = 0
  828.       Width = 25
  829.       Height = 25
  830.       Flat = True
  831.       Glyph.Data = {
  832.         66010000424D6601000000000000760000002800000014000000140000000100
  833.         040000000000F000000000000000000000001000000000000000000000000000
  834.         80000080000000808000800000008000800080800000C0C0C000808080000000
  835.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  836.         EEEEEEEE0000EEEEEEEEEEEEEEEEEEEE0000EEECCCCCCCCCCCCCCCEE0000EEEC
  837.         EEEEEEEEEEEEECEE0000EEECEECEECEEEEECECEE0000EEECCCCCCCCCCCCCCCEE
  838.         0000EEECEECEECEEEEECECEE0000EEECCEEEEEECECEEECEE0000EEECCCCCCCCC
  839.         CCCCCCEE0000EEECCEEEEEECECEEECEE0000EEECEECEECEEEEECECEE0000EEEC
  840.         CCCCCCCCCCCCCCEE0000EEECEECEECEEEEECECEE0000EEECECEECEECEEEEECEE
  841.         0000EEECCCCCCCCCCCCCCCEE0000EEECECEECEECEEEEECEE0000EEECEEEEEEEE
  842.         EEEEECEE0000EEECEEEEEEEEEEEEECEE0000EEECCCCCCCCCCCCCCCEE0000EEEE
  843.         EEEEEEEEEEEEEEEE0000}
  844.       ParentShowHint = False
  845.       ShowHint = True
  846.       OnClick = CalcBtnClick
  847.     end
  848.     object OldBtn: TBitBtn
  849.       Left = 418
  850.       Top = 0
  851.       Width = 23
  852.       Height = 23
  853.       ParentShowHint = False
  854.       ShowHint = True
  855.       TabOrder = 0
  856.       Visible = False
  857.       OnClick = oldBtnClick
  858.       OnDragDrop = oldBtnDragDrop
  859.       OnDragOver = oldBtnDragOver
  860.       OnEndDrag = DailyListBoxEndDrag
  861.       OnKeyDown = MonthScreenKeyDown
  862.       OnKeyPress = MonthScreenKeyPress
  863.       Glyph.Data = {
  864.         72010000424D7201000000000000760000002800000015000000150000000100
  865.         040000000000FC00000000000000000000001000000000000000000000000000
  866.         80000080000000808000800000008000800080800000C0C0C000808080000000
  867.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  868.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEE0EEEEEEEEEEE000EEEE
  869.         EEEE000EEEEEEEEEE000EEEEEEEE000EEEEEEEEEE000EEEEEEEE070EEEEEEEEE
  870.         E000EEEEEEEE000EEEEEEEEEE000EEEEEEEE000EEEEEEEEEE000EEEEEEE80708
  871.         EEEEEEEEE000EEEEEE8070F08EEEEEEEE000EEEEE807F07F08EEEEEEE000EEEE
  872.         E807F0F708EEEEEEE000EEEEE80F7F7F08EEEEEEE000EEEEEE80F7708EEEEEEE
  873.         E000EEEEEEE80008EEEEEEEEE000EEEEEEEE888EEEEEEEEEE000EEEEEEEEEEEE
  874.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE
  875.         EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  876.     end
  877.     object delBtn: TBitBtn
  878.       Left = 448
  879.       Top = 0
  880.       Width = 23
  881.       Height = 23
  882.       ParentShowHint = False
  883.       ShowHint = True
  884.       TabOrder = 1
  885.       Visible = False
  886.       OnClick = delBtnClick
  887.       OnDragDrop = delBtnDragDrop
  888.       OnDragOver = delBtnDragOver
  889.       OnEndDrag = DailyListBoxEndDrag
  890.       OnKeyDown = MonthScreenKeyDown
  891.       OnKeyPress = MonthScreenKeyPress
  892.       Glyph.Data = {
  893.         72010000424D7201000000000000760000002800000015000000150000000100
  894.         040000000000FC00000000000000000000001000000000000000000000000000
  895.         80000080000000808000800000008000800080800000C0C0C000808080000000
  896.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
  897.         EEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000EEEE
  898.         EECCCCCCCCCEEEEEE000EEEEEECF888888CEEEEEE000EEEEEECFC7C7C8CEEEEE
  899.         E000EEEEEECFC7C8C8CEEEEEE000EEEEEECFC7C7C8CEEEEEE000EEEEEECFC7C8
  900.         C8CEEEEEE000EEEEEECFC7C7C8CEEEEEE000EEEECECFC7C8C8CECEEEE000EEEE
  901.         ECCFC7C7C8CCEEEEE000EEEEEECFC7C8C8CEEEEEE000EEEEEEC8C8C8C8CEEEEE
  902.         E000EEEEECCCCCCCCCCCEEEEE000EEEEECF77788888CEEEEE000EEEEECCCCCCC
  903.         CCCCEEEEE000EEEEEEEEC888CEEEEEEEE000EEEEEEEECCCCCEEEEEEEE000EEEE
  904.         EEEEEEEEEEEEEEEEE000EEEEEEEEEEEEEEEEEEEEE000}
  905.     end
  906.   end
  907.   object Font1Dummy: TMemo
  908.     Left = 5
  909.     Top = 70
  910.     Width = 8
  911.     Height = 9
  912.     Font.Charset = DEFAULT_CHARSET
  913.     Font.Color = clWindowText
  914.     Font.Height = -9
  915.     Font.Name = 'Arial'
  916.     Font.Pitch = fpVariable
  917.     Font.Style = []
  918.     Lines.Strings = (
  919.       'A'
  920.       'B'
  921.       'C'
  922.       'D'
  923.       'E'
  924.       'F'
  925.       'G'
  926.       'H'
  927.       ' '
  928.       'b '
  929.       'c '
  930.       'f '
  931.       'h')
  932.     ParentFont = False
  933.     TabOrder = 8
  934.     OnDblClick = MonthScreenDblClick
  935.     OnDragDrop = MonthScreenImageDragDrop
  936.     OnDragOver = MonthScreenImageDragOver
  937.     OnEndDrag = DailyListBoxEndDrag
  938.     OnKeyDown = MonthScreenKeyDown
  939.     OnKeyPress = MonthScreenKeyPress
  940.     OnMouseDown = MonthScreenImageMouseDown
  941.   end
  942.   object DateBox: TMaskEdit
  943.     Left = 576
  944.     Top = 20
  945.     Width = 60
  946.     Height = 28
  947.     ParentShowHint = False
  948.     ShowHint = True
  949.     TabOrder = 9
  950.     Visible = False
  951.   end
  952.   object PhoneListBox: TGroupBox
  953.     Left = 238
  954.     Top = 212
  955.     Width = 151
  956.     Height = 77
  957.     HelpContext = 201
  958.     Caption = 'PhoneListBox'
  959.     Font.Charset = DEFAULT_CHARSET
  960.     Font.Color = clWindowText
  961.     Font.Height = -13
  962.     Font.Name = 'Arial'
  963.     Font.Pitch = fpFixed
  964.     Font.Style = [fsBold]
  965.     ParentFont = False
  966.     ParentShowHint = False
  967.     ShowHint = False
  968.     TabOrder = 11
  969.     OnEnter = PhoneListBoxEnter
  970.     OnExit = PhoneListExit
  971.     object PhoneList: TListBox
  972.       Left = 10
  973.       Top = 18
  974.       Width = 53
  975.       Height = 51
  976.       HelpContext = 201
  977.       Font.Charset = DEFAULT_CHARSET
  978.       Font.Color = clWindowText
  979.       Font.Height = -13
  980.       Font.Name = 'Courier New'
  981.       Font.Pitch = fpFixed
  982.       Font.Style = []
  983.       ItemHeight = 16
  984.       MultiSelect = True
  985.       ParentColor = True
  986.       ParentFont = False
  987.       ParentShowHint = False
  988.       ShowHint = False
  989.       Sorted = True
  990.       TabOrder = 1
  991.       OnClick = PhoneListClick
  992.       OnDblClick = phoneListDblClick
  993.       OnEnter = PhoneListEnter
  994.       OnKeyDown = MonthScreenKeyDown
  995.       OnKeyPress = MonthScreenKeyPress
  996.       OnMouseDown = MonthScreenImageMouseDown
  997.     end
  998.     object PhoneListMemo: TListBox
  999.       Left = 76
  1000.       Top = 18
  1001.       Width = 69
  1002.       Height = 55
  1003.       HelpContext = 201
  1004.       Font.Charset = DEFAULT_CHARSET
  1005.       Font.Color = clWindowText
  1006.       Font.Height = -13
  1007.       Font.Name = 'Courier New'
  1008.       Font.Pitch = fpFixed
  1009.       Font.Style = []
  1010.       ItemHeight = 16
  1011.       ParentColor = True
  1012.       ParentFont = False
  1013.       ParentShowHint = False
  1014.       ShowHint = False
  1015.       TabOrder = 2
  1016.       OnDblClick = PhoneListMemoDblClick
  1017.       OnKeyDown = MonthScreenKeyDown
  1018.       OnMouseDown = MonthScreenImageMouseDown
  1019.     end
  1020.     object PhoneListKey: TEdit
  1021.       Left = 84
  1022.       Top = 1
  1023.       Width = 65
  1024.       Height = 20
  1025.       HelpContext = 201
  1026.       Font.Charset = DEFAULT_CHARSET
  1027.       Font.Color = clWindowText
  1028.       Font.Height = -13
  1029.       Font.Name = 'Terminal'
  1030.       Font.Pitch = fpFixed
  1031.       Font.Style = []
  1032.       ParentFont = False
  1033.       ParentShowHint = False
  1034.       ShowHint = True
  1035.       TabOrder = 0
  1036.       OnExit = PhoneListKeyExit
  1037.       OnKeyPress = PhoneListKeyKeyPress
  1038.     end
  1039.   end
  1040.   object memoBox: TGroupBox
  1041.     Left = 32
  1042.     Top = 212
  1043.     Width = 197
  1044.     Height = 75
  1045.     Caption = 'memoBox'
  1046.     Color = clWhite
  1047.     Font.Charset = DEFAULT_CHARSET
  1048.     Font.Color = clBlack
  1049.     Font.Height = -13
  1050.     Font.Name = 'Arial'
  1051.     Font.Pitch = fpFixed
  1052.     Font.Style = [fsBold]
  1053.     ParentColor = False
  1054.     ParentFont = False
  1055.     TabOrder = 10
  1056.     Visible = False
  1057.     object memoUpDnBtn: TButton
  1058.       Left = 90
  1059.       Top = 0
  1060.       Width = 17
  1061.       Height = 17
  1062.       Caption = 'Up'
  1063.       Font.Charset = DEFAULT_CHARSET
  1064.       Font.Color = clWindowText
  1065.       Font.Height = -11
  1066.       Font.Name = 'Terminal'
  1067.       Font.Pitch = fpFixed
  1068.       Font.Style = []
  1069.       ParentFont = False
  1070.       TabOrder = 0
  1071.       TabStop = False
  1072.       OnClick = MemoDblClick
  1073.     end
  1074.     object Memo: TMemo
  1075.       Left = 2
  1076.       Top = 18
  1077.       Width = 193
  1078.       Height = 55
  1079.       Align = alClient
  1080.       Font.Charset = DEFAULT_CHARSET
  1081.       Font.Color = clBlack
  1082.       Font.Height = -15
  1083.       Font.Name = 'Arial'
  1084.       Font.Pitch = fpFixed
  1085.       Font.Style = []
  1086.       Lines.Strings = (
  1087.         'Memo')
  1088.       ParentColor = True
  1089.       ParentFont = False
  1090.       ScrollBars = ssVertical
  1091.       TabOrder = 1
  1092.       OnDblClick = MemoDblClick
  1093.       OnEnter = MemoEnter
  1094.       OnExit = memoExit
  1095.       OnKeyDown = MonthScreenKeyDown
  1096.     end
  1097.   end
  1098.   object LetterListBox: TGroupBox
  1099.     Left = 304
  1100.     Top = 28
  1101.     Width = 91
  1102.     Height = 79
  1103.     Caption = 'LetterListBox'
  1104.     Font.Charset = DEFAULT_CHARSET
  1105.     Font.Color = clWindowText
  1106.     Font.Height = -13
  1107.     Font.Name = 'Arial'
  1108.     Font.Pitch = fpFixed
  1109.     Font.Style = [fsBold]
  1110.     ParentFont = False
  1111.     TabOrder = 12
  1112.     object LetterList: TFileListBox
  1113.       Left = 6
  1114.       Top = 24
  1115.       Width = 77
  1116.       Height = 45
  1117.       Font.Charset = DEFAULT_CHARSET
  1118.       Font.Color = clWindowText
  1119.       Font.Height = -13
  1120.       Font.Name = 'Courier New'
  1121.       Font.Pitch = fpFixed
  1122.       Font.Style = []
  1123.       ItemHeight = 16
  1124.       ParentColor = True
  1125.       ParentFont = False
  1126.       TabOrder = 0
  1127.       OnDblClick = LetterListDblClick
  1128.       OnExit = LetterListExit
  1129.       OnKeyDown = MonthScreenKeyDown
  1130.     end
  1131.   end
  1132.   object MainMenu: TMainMenu
  1133.     Left = 172
  1134.     Top = 52
  1135.     object MainMenuFile: TMenuItem
  1136.       Caption = '&File'
  1137.       HelpContext = 202
  1138.       object FileMake: TMenuItem
  1139.         Caption = '&Make New Event'
  1140.         HelpContext = 202
  1141.         OnClick = FileMakeEditClick
  1142.       end
  1143.       object FileEdit: TMenuItem
  1144.         Caption = '&Edit Old Event'
  1145.         HelpContext = 204
  1146.         OnClick = FileMakeEditClick
  1147.       end
  1148.       object FileClone: TMenuItem
  1149.         Caption = '&Clone an Event'
  1150.         HelpContext = 206
  1151.         OnClick = FileMakeEditClick
  1152.       end
  1153.       object FilePlan: TMenuItem
  1154.         Caption = '&Plan'
  1155.         HelpContext = 210
  1156.         OnClick = EditPlanClick
  1157.       end
  1158.       object FileTemplate: TMenuItem
  1159.         Caption = '&Template'
  1160.         HelpContext = 208
  1161.         OnClick = EditTemplateClick
  1162.       end
  1163.       object FileMacro: TMenuItem
  1164.         Caption = '&AutoExecute Macro'
  1165.         Visible = False
  1166.       end
  1167.       object FileIncExp: TMenuItem
  1168.         Caption = '&Income/Expense Categories'
  1169.         Visible = False
  1170.       end
  1171.       object FileZip: TMenuItem
  1172.         Caption = '&Zip Schedule to Log'
  1173.         HelpContext = 212
  1174.         OnClick = FileMakeEditClick
  1175.       end
  1176.       object FileArchive: TMenuItem
  1177.         Caption = '&Archive Calendar'
  1178.         HelpContext = 214
  1179.         OnClick = ToolsDeleteClick
  1180.       end
  1181.       object N2: TMenuItem
  1182.         Caption = '-'
  1183.       end
  1184.       object FileDelete: TMenuItem
  1185.         Caption = '&Omit Tagged Events'
  1186.         HelpContext = 216
  1187.         OnClick = ToolsDeleteClick
  1188.       end
  1189.       object FileIndex: TMenuItem
  1190.         Caption = 'Re&index Data Files'
  1191.         HelpContext = 218
  1192.         OnClick = ToolsDeleteClick
  1193.       end
  1194.       object FileBuild: TMenuItem
  1195.         Caption = 'Re&build Data Files'
  1196.         HelpContext = 220
  1197.         OnClick = ToolsDeleteClick
  1198.       end
  1199.       object FileCopyMain: TMenuItem
  1200.         Caption = 'Copy Main Database'
  1201.         Enabled = False
  1202.         Visible = False
  1203.         OnClick = FileCopyMainClick
  1204.       end
  1205.       object N13: TMenuItem
  1206.         Caption = '-'
  1207.       end
  1208.       object FilePrint: TMenuItem
  1209.         Caption = '&Print'
  1210.         HelpContext = 227
  1211.         OnClick = FilePrintClick
  1212.       end
  1213.       object FilePrintHalfYear: TMenuItem
  1214.         Caption = 'Print Half Year'
  1215.         HelpContext = 227
  1216.         OnClick = FilePrintYearClick
  1217.       end
  1218.       object FilePrintYear: TMenuItem
  1219.         Caption = 'Print Year'
  1220.         HelpContext = 227
  1221.         OnClick = FilePrintYearClick
  1222.       end
  1223.       object FileOtherReports: TMenuItem
  1224.         Caption = 'Numerous Other Reports'
  1225.         OnClick = HuntBtnClick
  1226.       end
  1227.       object PrintCheck: TMenuItem
  1228.         Caption = 'Print &Checks'
  1229.         HelpContext = 225
  1230.         OnClick = FileMakeEditClick
  1231.       end
  1232.       object FilePrinterSetup: TMenuItem
  1233.         Caption = '&Printer Setup'
  1234.         OnClick = FilePrinterSetupClick
  1235.       end
  1236.       object N12: TMenuItem
  1237.         Caption = '-'
  1238.       end
  1239.       object MainMenuExit: TMenuItem
  1240.         Caption = 'E&xit'
  1241.         OnClick = MainMenuExitClick
  1242.       end
  1243.     end
  1244.     object MainMenuEdit: TMenuItem
  1245.       Caption = '&Edit'
  1246.       HelpContext = 230
  1247.       object EditOldEvent: TMenuItem
  1248.         Caption = 'Old &Event'
  1249.         HelpContext = 230
  1250.         OnClick = FileMakeEditClick
  1251.       end
  1252.       object EditRecurs: TMenuItem
  1253.         Caption = '&Recurring Events'
  1254.         HelpContext = 232
  1255.         OnClick = EditRecursClick
  1256.       end
  1257.       object EditPrjct: TMenuItem
  1258.         Caption = '&Project'
  1259.         HelpContext = 286
  1260.         OnClick = PrjctEditClick
  1261.       end
  1262.       object EditPlan: TMenuItem
  1263.         Caption = 'Pla&n'
  1264.         HelpContext = 210
  1265.         OnClick = EditPlanClick
  1266.       end
  1267.       object EditTemplate: TMenuItem
  1268.         Caption = '&Template'
  1269.         HelpContext = 208
  1270.         OnClick = EditTemplateClick
  1271.       end
  1272.       object EditIncExpCat: TMenuItem
  1273.         Caption = '&Income/Expense Categories'
  1274.         HelpContext = 233
  1275.         OnClick = EditIncExpCatClick
  1276.       end
  1277.       object EditAccounts: TMenuItem
  1278.         Caption = '&Accounts'
  1279.         HelpContext = 235
  1280.         OnClick = EditAccountsClick
  1281.       end
  1282.       object EditBillFormat: TMenuItem
  1283.         Caption = '&Bill Format'
  1284.         HelpContext = 680
  1285.         OnClick = AccessEditor
  1286.       end
  1287.       object EditLetter: TMenuItem
  1288.         Caption = 'Project Report For&m'
  1289.         HelpContext = 680
  1290.         OnClick = AccessEditor
  1291.       end
  1292.       object EditCalForm: TMenuItem
  1293.         Caption = 'Calendar Report'
  1294.         HelpContext = 680
  1295.         OnClick = AccessEditor
  1296.       end
  1297.       object EditLogForm: TMenuItem
  1298.         Caption = 'Log Report'
  1299.         HelpContext = 680
  1300.         OnClick = AccessEditor
  1301.       end
  1302.       object EditCheck: TMenuItem
  1303.         Caption = 'C&heck Format'
  1304.         OnClick = AccessEditor
  1305.       end
  1306.       object EditMacro: TMenuItem
  1307.         Caption = '&AutoExecute Macro'
  1308.         Visible = False
  1309.       end
  1310.       object EditConfig: TMenuItem
  1311.         Caption = '&Configuration'
  1312.         HelpContext = 234
  1313.         OnClick = EditConfigurationClick
  1314.       end
  1315.       object N4: TMenuItem
  1316.         Caption = '-'
  1317.       end
  1318.       object EditDeleteTag: TMenuItem
  1319.         Caption = '&Tag Event for Deletion'
  1320.         HelpContext = 236
  1321.         OnClick = FileMakeEditClick
  1322.       end
  1323.       object N3: TMenuItem
  1324.         Caption = '-'
  1325.       end
  1326.       object EditFindWord: TMenuItem
  1327.         Caption = '&Find Word'
  1328.         OnClick = EditFindWordClick
  1329.       end
  1330.       object EditCut: TMenuItem
  1331.         Caption = 'Cu&t'
  1332.         OnClick = EditCutClick
  1333.       end
  1334.       object EditCopy: TMenuItem
  1335.         Caption = ' &Copy to Clipboard'
  1336.         OnClick = EditCopyClick
  1337.       end
  1338.       object EditPaste: TMenuItem
  1339.         Caption = '&Paste'
  1340.         OnClick = EditPasteClick
  1341.       end
  1342.       object EditMoveEvents: TMenuItem
  1343.         Caption = 'Move Events'
  1344.         OnClick = EditMoveEventsClick
  1345.       end
  1346.     end
  1347.     object MainMenuSearch: TMenuItem
  1348.       Caption = '&Search'
  1349.       HelpContext = 250
  1350.       object SearchReport: TMenuItem
  1351.         Caption = '&Report'
  1352.         HelpContext = 250
  1353.         OnClick = SearchReportClick
  1354.       end
  1355.       object N1: TMenuItem
  1356.         Caption = '-'
  1357.       end
  1358.       object SearchQuick: TMenuItem
  1359.         Caption = 'Locate a Word Quickly'
  1360.         HelpContext = 252
  1361.         OnClick = SearchReportClick
  1362.       end
  1363.       object SearchGoTo: TMenuItem
  1364.         Caption = '&Go To Date'
  1365.         HelpContext = 254
  1366.         OnClick = ToolsDeleteClick
  1367.       end
  1368.       object SearchFreeTime: TMenuItem
  1369.         Caption = 'Find Free Time'
  1370.         HelpContext = 256
  1371.         OnClick = FileMakeEditClick
  1372.       end
  1373.       object N11: TMenuItem
  1374.         Caption = '-'
  1375.       end
  1376.       object SearchAdd: TMenuItem
  1377.         Caption = '&Add Days'
  1378.         HelpContext = 258
  1379.         OnClick = ToolsDeleteClick
  1380.       end
  1381.       object SearchSubtract: TMenuItem
  1382.         Caption = '&Subtract Days'
  1383.         HelpContext = 260
  1384.         OnClick = ToolsDeleteClick
  1385.       end
  1386.     end
  1387.     object MenuSchedLog: TMenuItem
  1388.       Caption = '&Log'
  1389.       HelpContext = 280
  1390.       object FileSwitch: TMenuItem
  1391.         Caption = '&Switch to'
  1392.         HelpContext = 280
  1393.         OnClick = FileSwitchClick
  1394.       end
  1395.     end
  1396.     object MainMenuView: TMenuItem
  1397.       Caption = '&View'
  1398.       HelpContext = 270
  1399.       object ViewDay: TMenuItem
  1400.         Caption = '&Day/Month'
  1401.         HelpContext = 270
  1402.         OnClick = FileMakeEditClick
  1403.       end
  1404.       object AltMonthView: TMenuItem
  1405.         Caption = '&Alternate Month View'
  1406.         HelpContext = 271
  1407.         OnClick = AltMonthViewClick
  1408.       end
  1409.       object ViewWeek: TMenuItem
  1410.         Caption = '&Week'
  1411.         OnClick = ViewWeekClick
  1412.       end
  1413.       object ViewJobs: TMenuItem
  1414.         Caption = '&Six-Month'
  1415.         Visible = False
  1416.         OnClick = FileMakeEditClick
  1417.       end
  1418.       object ViewToDo: TMenuItem
  1419.         Caption = '&ToDo'#39's'
  1420.         HelpContext = 272
  1421.         OnClick = FileMakeEditClick
  1422.       end
  1423.       object N5: TMenuItem
  1424.         Caption = '-'
  1425.         Visible = False
  1426.       end
  1427.       object ViewReport: TMenuItem
  1428.         Caption = '&Report'
  1429.         Visible = False
  1430.         OnClick = SearchReportClick
  1431.       end
  1432.       object N7: TMenuItem
  1433.         Caption = '-'
  1434.         Visible = False
  1435.       end
  1436.       object ViewWorldTimes: TMenuItem
  1437.         Caption = '&World Times'
  1438.         HelpContext = 274
  1439.         OnClick = ViewWorldTimesClick
  1440.       end
  1441.       object ViewMiscel: TMenuItem
  1442.         Caption = '&Miscellaneous Info'
  1443.         Visible = False
  1444.       end
  1445.       object ViewStopwatch: TMenuItem
  1446.         Caption = '&Stopwatch'
  1447.         Visible = False
  1448.       end
  1449.       object N6: TMenuItem
  1450.         Caption = '-'
  1451.       end
  1452.       object ViewEmp: TMenuItem
  1453.         Caption = '&One Employee/Project'
  1454.         HelpContext = 276
  1455.         OnClick = ViewEmpClick
  1456.       end
  1457.     end
  1458.     object MainMenuProj: TMenuItem
  1459.       Caption = '&Project'
  1460.       HelpContext = 284
  1461.       object PrjctMake: TMenuItem
  1462.         Caption = '&Make'
  1463.         HelpContext = 284
  1464.         OnClick = PrjctEditClick
  1465.       end
  1466.       object PrjctEdit: TMenuItem
  1467.         Caption = '&Edit'
  1468.         HelpContext = 286
  1469.         OnClick = PrjctEditClick
  1470.       end
  1471.       object PrjctHunt: TMenuItem
  1472.         Caption = '&Report / Bill'
  1473.         HelpContext = 287
  1474.         OnClick = PrjctHuntClick
  1475.       end
  1476.       object PrjctTag: TMenuItem
  1477.         Caption = '&Tag for Omission'
  1478.         HelpContext = 288
  1479.         OnClick = PrjctEditClick
  1480.       end
  1481.       object PrjctSwitch: TMenuItem
  1482.         Caption = 'Switch to Project Module'
  1483.         OnClick = MainMenuProjClick
  1484.       end
  1485.     end
  1486.     object MenuGenLedger: TMenuItem
  1487.       Caption = 'GenLedger'
  1488.       object GenLedgSwitch: TMenuItem
  1489.         Caption = '&SwitchTo'
  1490.         OnClick = FileSwitchClick
  1491.       end
  1492.     end
  1493.     object MainMenuInterOffice: TMenuItem
  1494.       Caption = '&InterOffice'
  1495.       object DataNotebook: TMenuItem
  1496.         Caption = '&Notebook'
  1497.         HelpContext = 291
  1498.         Visible = False
  1499.         OnClick = DataNotebookClick
  1500.       end
  1501.       object DataPhonebook: TMenuItem
  1502.         Caption = '&Phonebook'
  1503.         HelpContext = 289
  1504.         OnClick = DatabaseClick
  1505.       end
  1506.       object DataPayees: TMenuItem
  1507.         Caption = 'Payees'
  1508.         HelpContext = 290
  1509.         OnClick = DatabaseClick
  1510.       end
  1511.       object InterOfficeSend: TMenuItem
  1512.         Caption = '&Send Mail'
  1513.         HelpContext = 291
  1514.         Visible = False
  1515.         OnClick = MsgBtnClick
  1516.       end
  1517.       object InterOfficeLocate: TMenuItem
  1518.         Caption = '&Locate Person'
  1519.         HelpContext = 278
  1520.         Visible = False
  1521.         OnClick = MsgBtnClick
  1522.       end
  1523.       object InterOfficeTextDB: TMenuItem
  1524.         Caption = '&Text Database'
  1525.         Visible = False
  1526.         OnClick = AccessEditor
  1527.       end
  1528.     end
  1529.     object MainMenuTools: TMenuItem
  1530.       Caption = '&Tools'
  1531.       HelpContext = 292
  1532.       object toolsCalc: TMenuItem
  1533.         Caption = 'Tabulator'
  1534.         HelpContext = 295
  1535.         OnClick = CalcBtnClick
  1536.       end
  1537.       object ToolsDateCalc: TMenuItem
  1538.         Caption = '&Date Calculator'
  1539.         HelpContext = 292
  1540.         OnClick = ToolsDeleteClick
  1541.       end
  1542.       object ToolsMacro: TMenuItem
  1543.         Caption = 'Autoexecute &Macro'
  1544.         Visible = False
  1545.       end
  1546.       object ToolsResched: TMenuItem
  1547.         Caption = '&Re-Schedule Multiple Events'
  1548.         Visible = False
  1549.       end
  1550.       object ToolsZip: TMenuItem
  1551.         Caption = '&Zip Schedule to Log'
  1552.         Visible = False
  1553.         OnClick = FileMakeEditClick
  1554.       end
  1555.       object N10: TMenuItem
  1556.         Caption = '-'
  1557.       end
  1558.       object ToolChangePW: TMenuItem
  1559.         Caption = 'Change &Password'
  1560.         HelpContext = 296
  1561.         OnClick = ToolChangePWClick
  1562.       end
  1563.       object ToolsColors: TMenuItem
  1564.         Caption = 'Change Colors'
  1565.         HelpContext = 238
  1566.         OnClick = ToolsColorsClick
  1567.       end
  1568.       object ToolsTimeZoneChange: TMenuItem
  1569.         Caption = 'Change Time Zone'
  1570.         OnClick = ViewWorldTimesClick
  1571.       end
  1572.       object DialParamChange: TMenuItem
  1573.         Caption = 'Change Dialing Parameters'
  1574.         HelpContext = 297
  1575.         OnClick = DialParamChangeClick
  1576.       end
  1577.       object ToolEditConfig: TMenuItem
  1578.         Caption = 'Edit &Configuration'
  1579.         HelpContext = 294
  1580.         OnClick = EditConfigurationClick
  1581.       end
  1582.       object N8: TMenuItem
  1583.         Caption = '-'
  1584.       end
  1585.       object ToolOptions: TMenuItem
  1586.         Caption = '&Options'
  1587.         HelpContext = 298
  1588.         object ToolOptionsBatchEntry: TMenuItem
  1589.           Caption = 'Batch Entry Mode'
  1590.           HelpContext = 298
  1591.           OnClick = ToolOptionsSwitch
  1592.         end
  1593.         object ToolOptionsBatchHunt: TMenuItem
  1594.           Caption = 'Batch Hunt Mode'
  1595.           HelpContext = 298
  1596.           OnClick = ToolOptionsSwitch
  1597.         end
  1598.       end
  1599.       object N9: TMenuItem
  1600.         Caption = '-'
  1601.       end
  1602.       object toolsWindowLocation: TMenuItem
  1603.         Caption = 'Default Window Location'
  1604.         OnClick = toolsWindowLocationClick
  1605.       end
  1606.     end
  1607.     object MainMenuHelp: TMenuItem
  1608.       Caption = '&Help'
  1609.       object HelpQuickHelp: TMenuItem
  1610.         Caption = '&Quick Help'
  1611.         ShortCut = 112
  1612.         OnClick = HelpQuickHelpClick
  1613.       end
  1614.       object HelpTutorial: TMenuItem
  1615.         Caption = 'Tutorial'
  1616.         OnClick = HelpTutorialClick
  1617.       end
  1618.       object HelpManual: TMenuItem
  1619.         Caption = '&Print Manual'
  1620.         Visible = False
  1621.       end
  1622.       object HelpAbout: TMenuItem
  1623.         Caption = '&About'
  1624.         OnClick = HelpAboutClick
  1625.       end
  1626.     end
  1627.     object Suspns: TMenuItem
  1628.       Caption = 'S&uspenses'
  1629.       HelpContext = 299
  1630.       Visible = False
  1631.       object Suspns1: TMenuItem
  1632.         Caption = 'Suspense1'
  1633.         OnClick = SuspenseClick
  1634.       end
  1635.       object Suspns2: TMenuItem
  1636.         Caption = 'Suspense2'
  1637.         OnClick = SuspenseClick
  1638.       end
  1639.       object Suspns3: TMenuItem
  1640.         Caption = 'Suspense3'
  1641.         OnClick = SuspenseClick
  1642.       end
  1643.       object suspns4: TMenuItem
  1644.         Caption = 'Suspense4'
  1645.         OnClick = SuspenseClick
  1646.       end
  1647.       object suspns5: TMenuItem
  1648.         Caption = 'Suspense5'
  1649.         OnClick = SuspenseClick
  1650.       end
  1651.       object suspns6: TMenuItem
  1652.         Caption = 'Suspense6'
  1653.         OnClick = SuspenseClick
  1654.       end
  1655.       object suspns7: TMenuItem
  1656.         Caption = 'Suspense7'
  1657.         OnClick = SuspenseClick
  1658.       end
  1659.       object suspns8: TMenuItem
  1660.         Caption = 'Suspense8'
  1661.         OnClick = SuspenseClick
  1662.       end
  1663.       object suspns9: TMenuItem
  1664.         Caption = 'Suspense9'
  1665.         OnClick = SuspenseClick
  1666.       end
  1667.     end
  1668.   end
  1669.   object Timer1: TTimer
  1670.     OnTimer = Timer1Timer
  1671.     Left = 198
  1672.     Top = 44
  1673.   end
  1674.   object PrinterSetupDialog1: TPrinterSetupDialog
  1675.     Left = 228
  1676.     Top = 48
  1677.   end
  1678.   object OpenDialog1: TOpenDialog
  1679.     Options = [ofHideReadOnly, ofNoChangeDir, ofCreatePrompt]
  1680.     Left = 204
  1681.     Top = 78
  1682.   end
  1683. end
  1684.