home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 9 / Chip_Hitware_Vol_09.iso / chiphit9 / freizeit / 95heart / hsmart95.exe / 0 / RCDATA / TFORM1 / TFORM1.txt < prev   
Encoding:
Text File  |  1996-06-20  |  44.9 KB  |  1,474 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 124
  4.   HelpContext = 1
  5.   AutoScroll = False
  6.   Caption = 'Heart Smart'
  7.   ClientHeight = 414
  8.   ClientWidth = 633
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   Icon.Data = {<image000.ico>}
  14.   Menu = MainMenu1
  15.   Position = poScreenCenter
  16.   OnActivate = FormActivate
  17.   OnClose = FormClose
  18.   OnCreate = FormCreate
  19.   PixelsPerInch = 96
  20.   TextHeight = 16
  21.   object Label1: TLabel
  22.     Left = 5
  23.     Top = -1
  24.     Width = 72
  25.     Height = 16
  26.     Caption = 'Food Items'
  27.   end
  28.   object Label19: TLabel
  29.     Left = 8
  30.     Top = 341
  31.     Width = 29
  32.     Height = 14
  33.     Caption = 'Carbo'
  34.     Font.Color = clWindowText
  35.     Font.Height = -11
  36.     Font.Name = 'Arial'
  37.     Font.Style = []
  38.     ParentFont = False
  39.   end
  40.   object Label20: TLabel
  41.     Left = 43
  42.     Top = 341
  43.     Width = 33
  44.     Height = 14
  45.     Caption = 'Protein'
  46.     Font.Color = clWindowText
  47.     Font.Height = -11
  48.     Font.Name = 'Arial'
  49.     Font.Style = []
  50.     ParentFont = False
  51.   end
  52.   object Label21: TLabel
  53.     Left = 85
  54.     Top = 341
  55.     Width = 15
  56.     Height = 14
  57.     Caption = 'Fat'
  58.     Font.Color = clWindowText
  59.     Font.Height = -11
  60.     Font.Name = 'Arial'
  61.     Font.Style = []
  62.     ParentFont = False
  63.   end
  64.   object Image1: TImage
  65.     Left = 271
  66.     Top = 357
  67.     Width = 50
  68.     Height = 50
  69.     Hint = 'Trash Can'
  70.     DragMode = dmAutomatic
  71.     ParentShowHint = False
  72.     Picture.Data = {<image001.bmp>}
  73.     ShowHint = True
  74.     OnDragDrop = Image1DragDrop
  75.     OnDragOver = Image1DragOver
  76.     OnEndDrag = Image1EndDrag
  77.   end
  78.   object Image2: TImage
  79.     Left = 271
  80.     Top = 357
  81.     Width = 50
  82.     Height = 50
  83.     DragMode = dmAutomatic
  84.     Picture.Data = {<image002.bmp>}
  85.     Visible = False
  86.     OnDragDrop = Image1DragDrop
  87.     OnDragOver = Image1DragOver
  88.     OnEndDrag = Image1EndDrag
  89.   end
  90.   object Panel2: TPanel
  91.     Left = 2
  92.     Top = 231
  93.     Width = 236
  94.     Height = 177
  95.     TabOrder = 8
  96.     object Label6: TLabel
  97.       Left = 137
  98.       Top = 108
  99.       Width = 70
  100.       Height = 16
  101.       Caption = '# Servings'
  102.     end
  103.     object Label23: TLabel
  104.       Left = 14
  105.       Top = 81
  106.       Width = 29
  107.       Height = 14
  108.       Caption = 'Carbo'
  109.       Font.Color = clWindowText
  110.       Font.Height = -11
  111.       Font.Name = 'Arial'
  112.       Font.Style = []
  113.       ParentFont = False
  114.     end
  115.     object Label24: TLabel
  116.       Left = 45
  117.       Top = 81
  118.       Width = 33
  119.       Height = 14
  120.       Caption = 'Protein'
  121.       Font.Color = clWindowText
  122.       Font.Height = -11
  123.       Font.Name = 'Arial'
  124.       Font.Style = []
  125.       ParentFont = False
  126.     end
  127.     object Label25: TLabel
  128.       Left = 84
  129.       Top = 81
  130.       Width = 15
  131.       Height = 14
  132.       Caption = 'Fat'
  133.       Font.Color = clWindowText
  134.       Font.Height = -11
  135.       Font.Name = 'Arial'
  136.       Font.Style = []
  137.       ParentFont = False
  138.     end
  139.   end
  140.   object TabbedNotebook1: TTabbedNotebook
  141.     Left = 248
  142.     Top = -1
  143.     Width = 382
  144.     Height = 230
  145.     TabsPerRow = 4
  146.     TabFont.Color = clBtnText
  147.     TabFont.Height = -11
  148.     TabFont.Name = 'Arial'
  149.     TabFont.Style = []
  150.     TabOrder = 1
  151.     TabStop = False
  152.     OnChange = TabbedNotebook1Change
  153.     object TTabPage
  154.       Left = 4
  155.       Top = 27
  156.       Caption = 'Sunday'
  157.     end
  158.     object TTabPage
  159.       Left = 4
  160.       Top = 27
  161.       Caption = 'Monday'
  162.     end
  163.     object TTabPage
  164.       Left = 4
  165.       Top = 27
  166.       Caption = 'Tuesday'
  167.     end
  168.     object TTabPage
  169.       Left = 4
  170.       Top = 27
  171.       Caption = 'Wednesday'
  172.     end
  173.     object TTabPage
  174.       Left = 4
  175.       Top = 27
  176.       Caption = 'Thursday'
  177.     end
  178.     object TTabPage
  179.       Left = 4
  180.       Top = 27
  181.       Caption = 'Friday'
  182.     end
  183.     object TTabPage
  184.       Left = 4
  185.       Top = 27
  186.       Caption = 'Saturday'
  187.     end
  188.   end
  189.   object ListBox1: TListBox
  190.     Left = 9
  191.     Top = 19
  192.     Width = 217
  193.     Height = 210
  194.     DragMode = dmAutomatic
  195.     ExtendedSelect = False
  196.     Font.Color = clWindowText
  197.     Font.Height = -11
  198.     Font.Name = 'Arial'
  199.     Font.Style = [fsBold]
  200.     ItemHeight = 14
  201.     ParentFont = False
  202.     Sorted = True
  203.     TabOrder = 0
  204.     OnClick = ListBox1Click
  205.     OnDblClick = Modify1Click
  206.     OnEndDrag = ListBox1EndDrag
  207.     OnKeyPress = ListBox1KeyPress
  208.   end
  209.   object Panel1: TPanel
  210.     Left = 8
  211.     Top = 326
  212.     Width = 105
  213.     Height = 73
  214.     TabOrder = 5
  215.     object Shape1: TShape
  216.       Left = 8
  217.       Top = 41
  218.       Width = 25
  219.       Height = 31
  220.       Brush.Color = clYellow
  221.       DragMode = dmAutomatic
  222.     end
  223.     object Shape2: TShape
  224.       Left = 41
  225.       Top = 16
  226.       Width = 25
  227.       Height = 56
  228.       Brush.Color = clFuchsia
  229.     end
  230.     object Shape3: TShape
  231.       Left = 73
  232.       Top = 57
  233.       Width = 25
  234.       Height = 15
  235.       Brush.Color = clAqua
  236.     end
  237.     object Label16: TLabel
  238.       Left = 12
  239.       Top = 1
  240.       Width = 16
  241.       Height = 14
  242.       Alignment = taCenter
  243.       Caption = '0%'
  244.       Font.Color = clWindowText
  245.       Font.Height = -11
  246.       Font.Name = 'Arial'
  247.       Font.Style = []
  248.       ParentFont = False
  249.     end
  250.     object Label17: TLabel
  251.       Left = 45
  252.       Top = 1
  253.       Width = 16
  254.       Height = 14
  255.       Alignment = taCenter
  256.       Caption = '0%'
  257.       Font.Color = clWindowText
  258.       Font.Height = -11
  259.       Font.Name = 'Arial'
  260.       Font.Style = []
  261.       ParentFont = False
  262.     end
  263.     object Label18: TLabel
  264.       Left = 76
  265.       Top = 1
  266.       Width = 16
  267.       Height = 14
  268.       Alignment = taCenter
  269.       Caption = '0%'
  270.       Font.Color = clWindowText
  271.       Font.Height = -11
  272.       Font.Name = 'Arial'
  273.       Font.Style = []
  274.       ParentFont = False
  275.     end
  276.   end
  277.   object Edit14: TEdit
  278.     Left = 155
  279.     Top = 363
  280.     Width = 37
  281.     Height = 24
  282.     AutoSize = False
  283.     Font.Color = clWindowText
  284.     Font.Height = -13
  285.     Font.Name = 'Arial'
  286.     Font.Style = [fsBold]
  287.     MaxLength = 3
  288.     ParentFont = False
  289.     TabOrder = 2
  290.     Text = '1'
  291.   end
  292.   object TabSet1: TTabSet
  293.     Left = 256
  294.     Top = 199
  295.     Width = 249
  296.     Height = 21
  297.     DitherBackground = False
  298.     Font.Color = clWindowText
  299.     Font.Height = -11
  300.     Font.Name = 'MS Sans Serif'
  301.     Font.Style = []
  302.     Tabs.Strings = (
  303.       'Breakfast'
  304.       'Lunch'
  305.       'Dinner'
  306.       'Snack')
  307.     TabIndex = 0
  308.     OnChange = TabSet1Change
  309.   end
  310.   object TabListBox1: Ttablistbox
  311.     Left = 256
  312.     Top = 32
  313.     Width = 350
  314.     Height = 169
  315.     DragMode = dmAutomatic
  316.     ExtendedSelect = False
  317.     Font.Color = clWindowText
  318.     Font.Height = -11
  319.     Font.Name = 'Arial'
  320.     Font.Style = [fsBold]
  321.     ItemHeight = 14
  322.     ParentFont = False
  323.     TabOrder = 3
  324.     OnDragDrop = ListBox2DragDrop
  325.     OnDragOver = ListBox2DragOver
  326.     OnEndDrag = TabListBox1EndDrag
  327.     TabStops = 0
  328.   end
  329.   object panel3: TPanel
  330.     Left = 8
  331.     Top = 237
  332.     Width = 223
  333.     Height = 72
  334.     TabOrder = 10
  335.     object Label2: TLabel
  336.       Left = 6
  337.       Top = 6
  338.       Width = 47
  339.       Height = 15
  340.       Caption = 'Calories'
  341.       Font.Color = clWindowText
  342.       Font.Height = -12
  343.       Font.Name = 'Arial'
  344.       Font.Style = [fsBold]
  345.       ParentFont = False
  346.     end
  347.     object Label3: TLabel
  348.       Left = 6
  349.       Top = 24
  350.       Width = 34
  351.       Height = 15
  352.       Caption = 'Carbo'
  353.       Font.Color = clWindowText
  354.       Font.Height = -12
  355.       Font.Name = 'Arial'
  356.       Font.Style = [fsBold]
  357.       ParentFont = False
  358.     end
  359.     object Label4: TLabel
  360.       Left = 6
  361.       Top = 44
  362.       Width = 41
  363.       Height = 15
  364.       Caption = 'Protein'
  365.       Font.Color = clWindowText
  366.       Font.Height = -12
  367.       Font.Name = 'Arial'
  368.       Font.Style = [fsBold]
  369.       ParentFont = False
  370.     end
  371.     object Label5: TLabel
  372.       Left = 107
  373.       Top = 6
  374.       Width = 17
  375.       Height = 15
  376.       Caption = 'Fat'
  377.       Font.Color = clWindowText
  378.       Font.Height = -12
  379.       Font.Name = 'Arial'
  380.       Font.Style = [fsBold]
  381.       ParentFont = False
  382.     end
  383.     object fical: TLabel
  384.       Left = 79
  385.       Top = 6
  386.       Width = 24
  387.       Height = 15
  388.       Alignment = taRightJustify
  389.       Caption = 'XXX'
  390.       Color = clBtnFace
  391.       Font.Color = clBlue
  392.       Font.Height = -12
  393.       Font.Name = 'Arial'
  394.       Font.Style = [fsBold]
  395.       ParentColor = False
  396.       ParentFont = False
  397.     end
  398.     object ficarbo: TLabel
  399.       Left = 79
  400.       Top = 24
  401.       Width = 24
  402.       Height = 15
  403.       Alignment = taRightJustify
  404.       Caption = 'XXX'
  405.       Color = clBtnFace
  406.       Font.Color = clBlue
  407.       Font.Height = -12
  408.       Font.Name = 'Arial'
  409.       Font.Style = [fsBold]
  410.       ParentColor = False
  411.       ParentFont = False
  412.     end
  413.     object fipro: TLabel
  414.       Left = 79
  415.       Top = 44
  416.       Width = 24
  417.       Height = 15
  418.       Alignment = taRightJustify
  419.       Caption = 'XXX'
  420.       Color = clBtnFace
  421.       Font.Color = clBlue
  422.       Font.Height = -12
  423.       Font.Name = 'Arial'
  424.       Font.Style = [fsBold]
  425.       ParentColor = False
  426.       ParentFont = False
  427.     end
  428.     object Label13: TLabel
  429.       Left = 107
  430.       Top = 24
  431.       Width = 43
  432.       Height = 15
  433.       Caption = 'Sodium'
  434.       Font.Color = clWindowText
  435.       Font.Height = -12
  436.       Font.Name = 'Arial'
  437.       Font.Style = [fsBold]
  438.       ParentFont = False
  439.     end
  440.     object Label14: TLabel
  441.       Left = 107
  442.       Top = 44
  443.       Width = 25
  444.       Height = 15
  445.       Caption = 'Chol'
  446.       Font.Color = clWindowText
  447.       Font.Height = -12
  448.       Font.Name = 'Arial'
  449.       Font.Style = [fsBold]
  450.       ParentFont = False
  451.     end
  452.     object fifat: TLabel
  453.       Left = 187
  454.       Top = 7
  455.       Width = 24
  456.       Height = 15
  457.       Alignment = taRightJustify
  458.       Caption = 'XXX'
  459.       Color = clBtnFace
  460.       Font.Color = clBlue
  461.       Font.Height = -12
  462.       Font.Name = 'Arial'
  463.       Font.Style = [fsBold]
  464.       ParentColor = False
  465.       ParentFont = False
  466.     end
  467.     object fina: TLabel
  468.       Left = 187
  469.       Top = 25
  470.       Width = 24
  471.       Height = 15
  472.       Alignment = taRightJustify
  473.       Caption = 'XXX'
  474.       Color = clBtnFace
  475.       Font.Color = clBlue
  476.       Font.Height = -12
  477.       Font.Name = 'Arial'
  478.       Font.Style = [fsBold]
  479.       ParentColor = False
  480.       ParentFont = False
  481.     end
  482.     object fichol: TLabel
  483.       Left = 187
  484.       Top = 45
  485.       Width = 24
  486.       Height = 15
  487.       Alignment = taRightJustify
  488.       Caption = 'XXX'
  489.       Color = clBtnFace
  490.       Font.Color = clBlue
  491.       Font.Height = -12
  492.       Font.Name = 'Arial'
  493.       Font.Style = [fsBold]
  494.       ParentColor = False
  495.       ParentFont = False
  496.     end
  497.   end
  498.   object TabSet2: TTabSet
  499.     Left = 251
  500.     Top = 327
  501.     Width = 185
  502.     Height = 21
  503.     Font.Color = clWindowText
  504.     Font.Height = -11
  505.     Font.Name = 'MS Sans Serif'
  506.     Font.Style = []
  507.     Tabs.Strings = (
  508.       'Meal'
  509.       'Day'
  510.       'Week'
  511.       'Avg. Day')
  512.     TabIndex = 0
  513.     OnChange = TabSet2Change
  514.   end
  515.   object groupbox2: TPanel
  516.     Left = 344
  517.     Top = 345
  518.     Width = 260
  519.     Height = 68
  520.     ParentShowHint = False
  521.     ShowHint = True
  522.     TabOrder = 4
  523.     object SpeedButton1: TSpeedButton
  524.       Left = 194
  525.       Top = 2
  526.       Width = 32
  527.       Height = 32
  528.       Hint = 'Clear Menu'
  529.       Glyph.Data = {
  530.         78010000424D7801000000000000760000002800000020000000100000000100
  531.         04000000000000000000120B0000120B00000000000000000000000000000000
  532.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  533.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
  534.         555557777F777555F55500000000555055557777777755F75555005500055055
  535.         555577F5777F57555555005550055555555577FF577F5FF55555500550050055
  536.         5555577FF77577FF555555005050110555555577F757777FF555555505099910
  537.         555555FF75777777FF555005550999910555577F5F77777775F5500505509990
  538.         3055577F75F77777575F55005055090B030555775755777575755555555550B0
  539.         B03055555F555757575755550555550B0B335555755555757555555555555550
  540.         BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
  541.         50BB555555555555575F555555555555550B55555555555555750000}
  542.       NumGlyphs = 2
  543.       ParentShowHint = False
  544.       ShowHint = True
  545.       OnClick = ClearMenu1Click
  546.     end
  547.     object SpeedButton3: TSpeedButton
  548.       Left = 226
  549.       Top = 2
  550.       Width = 32
  551.       Height = 32
  552.       Hint = 'Food Item Planner'
  553.       Glyph.Data = {
  554.         78010000424D7801000000000000760000002800000020000000100000000100
  555.         04000000000000000000120B0000120B00000000000000000000000000000000
  556.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  557.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  558.         55555FF555FFFFFFF5FF0075500000005000775F57777777F7770B0550CC0090
  559.         50E07F7F57FF77F7F7F70B055000000050E07F75F7777777F7F70B7750CC0090
  560.         50E075F7F7F577F7F7F777B050CC009050E057F7F7F577F7F7F750B050CC0090
  561.         50E057F757F577F7F7F750B770CC009050E0575F77F577F7F7F7577B00CC0090
  562.         50E0557F77F577F7F7F7550B30CC00905000557F57FF77F7F777550B30000090
  563.         50E05575F77777F7F7F7557000CC00905000555777FF77F7F777555550000090
  564.         55555555577777F7F5555555555550005555555555555777F555555555555090
  565.         55555555555557F7F555555555555000555555555555577755550000}
  566.       NumGlyphs = 2
  567.       ParentShowHint = False
  568.       ShowHint = True
  569.       OnClick = FoodItemPlanner1Click
  570.     end
  571.     object SpeedButton4: TSpeedButton
  572.       Left = 258
  573.       Top = 1
  574.       Width = 32
  575.       Height = 32
  576.     end
  577.     object SpeedButton5: TSpeedButton
  578.       Left = 194
  579.       Top = 33
  580.       Width = 32
  581.       Height = 32
  582.       Hint = 'Order Form'
  583.       Glyph.Data = {
  584.         78010000424D7801000000000000760000002800000020000000100000000100
  585.         04000000000000000000120B0000120B00000000000000000000000000000000
  586.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  587.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555775777777
  588.         57705557757777775FF7555555555555000755555555555F777F555555555550
  589.         87075555555555F7577F5555555555088805555555555F755F75555555555033
  590.         805555555555F755F75555555555033B05555555555F755F75555555555033B0
  591.         5555555555F755F75555555555033B05555555555F755F75555555555033B055
  592.         55555555F755F75555555555033B05555555555F755F75555555555033B05555
  593.         555555F75FF75555555555030B05555555555F7F7F75555555555000B0555555
  594.         5555F777F7555555555501900555555555557777755555555555099055555555
  595.         55557777555555555555500555555555555557755555555555550000}
  596.       NumGlyphs = 2
  597.       ParentShowHint = False
  598.       ShowHint = True
  599.       OnClick = SpeedButton5Click
  600.     end
  601.     object SpeedButton6: TSpeedButton
  602.       Left = 226
  603.       Top = 33
  604.       Width = 32
  605.       Height = 32
  606.       Hint = 'Register'
  607.       Glyph.Data = {
  608.         78010000424D7801000000000000760000002800000020000000100000000100
  609.         04000000000000000000120B0000120B00000000000000000000000000000000
  610.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  611.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  612.         555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
  613.         055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
  614.         005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
  615.         B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
  616.         305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
  617.         305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
  618.         30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
  619.         3055577777555557F7F5550005555559995555777555555777550000}
  620.       NumGlyphs = 2
  621.       ParentShowHint = False
  622.       ShowHint = True
  623.       OnClick = Register1Click
  624.     end
  625.     object SpeedButton7: TSpeedButton
  626.       Left = 2
  627.       Top = 33
  628.       Width = 32
  629.       Height = 32
  630.       Hint = 'Print Menu'
  631.       Glyph.Data = {
  632.         90010000424D9001000000000000760000002800000020000000100000000100
  633.         0400000000000001000000000000000000000000000000000000000000000000
  634.         80000080000000808000800000008000800080800000C0C0C000808080000000
  635.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  636.         00033FFFFFFFFFFFFFFF0777777777777770888888888888888F077777777777
  637.         7770888888888888888F0000000000000000FFFFFFFFFFFFFFFF0F7F7F7F7F7F
  638.         7F70888888888888888F07F7F7F7F7F7F9F0888888888888888F0F7F7F7F7F7F
  639.         7F708888888888888F8F0000000000000000888888888888888F3330BBBBBBBB
  640.         03333338F3FFFF3F8F333330B0000B0B03333338F88883838F333330BBBBBBBB
  641.         03333338F3FF3FFF8F333330B00B000003333338F883888883333330BBBB0FF0
  642.         33333338F3FF8F3833333330B07B0F0333333338F8838F8333333330BBBB0033
  643.         33333338FFFF8833333333300000033333333338888883333333000000000000
  644.         0000000000000000000000000000000000000000}
  645.       NumGlyphs = 2
  646.       ParentShowHint = False
  647.       ShowHint = True
  648.       OnClick = PrintMenu1Click
  649.     end
  650.     object SpeedButton8: TSpeedButton
  651.       Left = 34
  652.       Top = 33
  653.       Width = 32
  654.       Height = 32
  655.       Hint = 'Print Shopping List'
  656.       Glyph.Data = {
  657.         90010000424D9001000000000000760000002800000020000000100000000100
  658.         0400000000000001000000000000000000000000000000000000000000000000
  659.         80000080000000808000800000008000800080800000C0C0C000808080000000
  660.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  661.         00033FFFFFFFFFFFFFFF0777777777777770888888888888888F077777777777
  662.         7770888888888888888F0000000000000000FFFFFFFFFFFFFFFF0F7F7F7F7F7F
  663.         7F70888888888888888F07F7F7F7F7F7F9F0888888888888888F0F7F7F7F7F7F
  664.         7F708888888888888F8F0000000000000000888888888888888F3330DDDDDDDD
  665.         03333338F3FFFF3F8F333330D0000D0D03333338F88883838F333330DDDDDDDD
  666.         03333338F3FF3FFF8F333330D00D000003333338F883888883333330DDDD0FF0
  667.         33333338F3FF8F3833333330D07D0F0333333338F8838F8333333330DDDD0033
  668.         33333338FFFF8833333333300000033333333338888883333333000000000000
  669.         0000000000000000000000000000000000000000}
  670.       NumGlyphs = 2
  671.       ParentShowHint = False
  672.       ShowHint = True
  673.       OnClick = PrintShopingList1Click
  674.     end
  675.     object SpeedButton9: TSpeedButton
  676.       Left = 66
  677.       Top = 33
  678.       Width = 32
  679.       Height = 32
  680.       Hint = 'Compare'
  681.       Glyph.Data = {
  682.         78010000424D7801000000000000760000002800000020000000100000000100
  683.         04000000000000000000120B0000120B00000000000000000000000000000000
  684.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  685.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300030003
  686.         0003333377737773777333333333333333333FFFFFFFFFFFFFFF770000000000
  687.         0000777777777777777733039993BBB3CCC3337F737F737F737F37039993BBB3
  688.         CCC3377F737F737F737F33039993BBB3CCC33F7F737F737F737F77079997BBB7
  689.         CCC77777737773777377330399930003CCC3337F737F7773737F370399933333
  690.         CCC3377F737F3333737F330399933333CCC33F7F737FFFFF737F770700077777
  691.         CCC77777777777777377330333333333CCC3337F33333333737F370333333333
  692.         0003377F33333333777333033333333333333F7FFFFFFFFFFFFF770777777777
  693.         77777777777777777777333333333333333333333333333333330000}
  694.       NumGlyphs = 2
  695.       ParentShowHint = False
  696.       ShowHint = True
  697.       OnClick = Compare1Click
  698.     end
  699.     object SpeedButton10: TSpeedButton
  700.       Left = 98
  701.       Top = 33
  702.       Width = 32
  703.       Height = 32
  704.       Hint = 'Weight'
  705.       Glyph.Data = {
  706.         78010000424D7801000000000000760000002800000020000000100000000100
  707.         04000000000000000000120B0000120B00000000000000000000000000000000
  708.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  709.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337333733373
  710.         3373337F3F7F3F7F3F7F33737373737373733F7F7F7F7F7F7F7F770000000000
  711.         000077777777777777773303333333333333337FF333333F33333709333333C3
  712.         333337773F3FF373F333330393993C3C33333F7F7F77F7F7FFFF77079797977C
  713.         77777777777777777777330339339333C333337FF73373F37F33370C333C3933
  714.         933337773F3737F37FF33303C3C33939C9333F7F7F7FF7F777FF7707C7C77797
  715.         7C97777777777777777733033C3333333C33337F37F33333373F37033C333333
  716.         33C3377F37333333337333033333333333333F7FFFFFFFFFFFFF770777777777
  717.         77777777777777777777333333333333333333333333333333330000}
  718.       NumGlyphs = 2
  719.       ParentShowHint = False
  720.       ShowHint = True
  721.       OnClick = EnterData1Click
  722.     end
  723.     object SpeedButton11: TSpeedButton
  724.       Left = 130
  725.       Top = 33
  726.       Width = 32
  727.       Height = 32
  728.       Hint = 'Add Food Item'
  729.       Glyph.Data = {
  730.         50020000424D500200000000000076000000280000001C0000001C0000000100
  731.         040000000000C001000000000000000000000000000000000000000000000000
  732.         80000080000000808000800000008000800080800000C0C0C000808080000000
  733.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  734.         7777777777777777000077777777777777777777777777770000777777777777
  735.         77777777777777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFFFFFFFF
  736.         FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFFFFFFFF
  737.         FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777F0F000000
  738.         000FFFFFFF7777770000777F00FFFFFFFFFFFFFFFF7777770000777FFFFFFFFF
  739.         FFFFFFFF997777770000777FFFFFF000000FFFFF997777770000777F00000FFF
  740.         FFFFFFFF997777770000777FFFFFFFFFFFFFFFFF997777770000777FFFFFF000
  741.         000FF999999997770000777F00000FFFFFFFF999999997770000777FFFFFFFFF
  742.         FFFFFFFF997777770000777FFFFFFFFFFFFFFFFF997777770000777FFF000000
  743.         0FFFFFFF997777770000777F00FFFFFFF000FFFF997777770000777FFFFFFFFF
  744.         FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFFFFFFFF
  745.         FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777777777777
  746.         7777777777777777000077777777777777777777777777770000777777777777
  747.         7777777777777777000077777777777777777777777777770000000000000000
  748.         0000000000000000000000000000000000000000}
  749.       ParentShowHint = False
  750.       ShowHint = True
  751.       OnClick = Add1Click
  752.     end
  753.     object SpeedButton12: TSpeedButton
  754.       Left = 162
  755.       Top = 33
  756.       Width = 32
  757.       Height = 32
  758.       Hint = 'Delete Food Item'
  759.       Glyph.Data = {
  760.         50020000424D500200000000000076000000280000001C0000001C0000000100
  761.         040000000000C001000000000000000000000000000000000000000000000000
  762.         80000080000000808000800000008000800080800000C0C0C000808080000000
  763.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  764.         7777777777777777000077777777777777777777777777770000777777777777
  765.         77777777777777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFFFFFFFF
  766.         FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFFFFFFFF
  767.         FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777F0F000000
  768.         000FFFFFFF7777770000777F00FFFFFFFFFFFFFFFF7777770000777FFFFFFFFF
  769.         FFFFFFFFFF7777770000777FFFFFF000000FFFFFFF7777770000777F00000FFF
  770.         FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFFFFF000
  771.         000FF999999997770000777F00000FFFFFFFF999999997770000777FFFFFFFFF
  772.         FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFF000000
  773.         0FFFFFFFFF7777770000777F00FFFFFFF000FFFFFF7777770000777FFFFFFFFF
  774.         FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFFFFFFFF
  775.         FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777777777777
  776.         7777777777777777000077777777777777777777777777770000777777777777
  777.         7777777777777777000077777777777777777777777777770000000000000000
  778.         0000000000000000000000000000000000000000}
  779.       ParentShowHint = False
  780.       ShowHint = True
  781.       OnClick = Delete1Click
  782.     end
  783.     object SpeedButton13: TSpeedButton
  784.       Left = 162
  785.       Top = 2
  786.       Width = 32
  787.       Height = 32
  788.       Hint = 'Load Menu'
  789.       Glyph.Data = {
  790.         90010000424D9001000000000000760000002800000020000000100000000100
  791.         0400000000000001000000000000000000000000000000000000000000000000
  792.         80000080000000808000800000008000800080800000C0C0C000808080000000
  793.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300787000333
  794.         3333333333333333333330078700033333333333333333333333300000000333
  795.         333333333333333333333000000000000000333333333333333330FFFFFF0F8F
  796.         FFF0333333333333333330FFFFFF0FF8F8F0333333333333333330CCCCCC080F
  797.         0FF03333333333333333333930F9FF08FFF03333333333333333333930F99FF0
  798.         0FF033333333333333333339999999FF78F0333333333333333333399999999F
  799.         8FF03333333333333333333399999987F0003333333333333333333330F99F8F
  800.         00333333333333333333333330F9F8FF03333333333333333333333330000000
  801.         3333333333333333333333333333333333333333333333333333000000000000
  802.         0000000000000000000000000000000000000000}
  803.       NumGlyphs = 2
  804.       ParentShowHint = False
  805.       ShowHint = True
  806.       OnClick = loadmealClick
  807.     end
  808.     object SpeedButton2: TSpeedButton
  809.       Left = 2
  810.       Top = 2
  811.       Width = 32
  812.       Height = 32
  813.       Hint = 'Exit Program'
  814.       Glyph.Data = {
  815.         78010000424D7801000000000000760000002800000020000000100000000100
  816.         04000000000000000000120B0000120B00000000000000000000000000000000
  817.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  818.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
  819.         03333377777777777F333301111111110333337F333333337F33330111111111
  820.         0333337F333333337F333301111111110333337F333333337F33330111111111
  821.         0333337F333333337F333301111111110333337F333333337F33330111111111
  822.         0333337F3333333F7F333301111111B10333337F333333737F33330111111111
  823.         0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
  824.         0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
  825.         0333337F377777337F333301111111110333337F333333337F33330111111111
  826.         0333337FFFFFFFFF7F33330000000000033333777777777773330000}
  827.       NumGlyphs = 2
  828.       OnClick = closeClick
  829.     end
  830.     object SpeedButton14: TSpeedButton
  831.       Left = 34
  832.       Top = 2
  833.       Width = 32
  834.       Height = 32
  835.       Hint = 'Copy Meal'
  836.       Glyph.Data = {
  837.         9E050000424D9E05000000000000360400002800000014000000120000000100
  838.         0800000000000000000000000000000000000000000000000000000000000000
  839.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8
  840.         A400000000000000000000000000000000000000000000000000000000000000
  841.         0000000000000000000000000000000000000000000000000000000000000000
  842.         0000000000000000000000000000000000000000000000000000000000000000
  843.         0000000000000000000000000000000000000000000000000000000000000000
  844.         0000000000000000000000000000000000000000000000000000000000000000
  845.         0000000000000000000000000000000000000000000000000000000000000000
  846.         0000000000000000000000000000000000000000000000000000000000000000
  847.         0000000000000000000000000000000000000000000000000000000000000000
  848.         0000000000000000000000000000000000000000000000000000000000000000
  849.         0000000000000000000000000000000000000000000000000000000000000000
  850.         0000000000000000000000000000000000000000000000000000000000000000
  851.         0000000000000000000000000000000000000000000000000000000000000000
  852.         0000000000000000000000000000000000000000000000000000000000000000
  853.         0000000000000000000000000000000000000000000000000000000000000000
  854.         0000000000000000000000000000000000000000000000000000000000000000
  855.         0000000000000000000000000000000000000000000000000000000000000000
  856.         0000000000000000000000000000000000000000000000000000000000000000
  857.         0000000000000000000000000000000000000000000000000000000000000000
  858.         0000000000000000000000000000000000000000000000000000000000000000
  859.         0000000000000000000000000000000000000000000000000000000000000000
  860.         0000000000000000000000000000000000000000000000000000000000000000
  861.         0000000000000000000000000000000000000000000000000000000000000000
  862.         0000000000000000000000000000000000000000000000000000000000000000
  863.         0000000000000000000000000000000000000000000000000000000000000000
  864.         0000000000000000000000000000000000000000000000000000000000000000
  865.         0000000000000000000000000000000000000000000000000000000000000000
  866.         0000000000000000000000000000000000000000000000000000000000000000
  867.         0000000000000000000000000000000000000000000000000000000000000000
  868.         0000000000000000000000000000000000000000000000000000000000000000
  869.         000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
  870.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707
  871.         0707070707070707070707070707070707070000070707070707070707070700
  872.         000707070700FF000707070707070707070700FF0007070700FFFF0007070707
  873.         070707070700FFFB00070700FFFFFF00070707070707070700FFFBFF00070700
  874.         FF00FF00070707070707070700FB00FB0007070000FFFF000707070700070707
  875.         0000FBFF00070700FFFFFF00070707070000070700FBFFFB000707000000FF00
  876.         0700000000000007000000FF00070700FFFFFF00070000000000000700FBFFFB
  877.         000707000000FF000707070700000707000000FF00070700FFFFFF0007070707
  878.         0007070700FBFFFB0007070000FFFF0007070707070707070000FBFF00070700
  879.         FF04FF00070707070707070700FF00FB0007070700FFFF000707070707070707
  880.         0700FBFF000707070700FF000707070707070707070700FB0007070707070000
  881.         0707070707070707070707000007070707070707070707070707070707070707
  882.         0707}
  883.       OnClick = copymealClick
  884.     end
  885.     object SpeedButton15: TSpeedButton
  886.       Left = 66
  887.       Top = 2
  888.       Width = 32
  889.       Height = 32
  890.       Hint = 'Paste Meal'
  891.       Glyph.Data = {
  892.         C6050000424DC605000000000000360400002800000014000000140000000100
  893.         0800000000000000000000000000000000000000000000000000000000000000
  894.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8
  895.         A400000000000000000000000000000000000000000000000000000000000000
  896.         0000000000000000000000000000000000000000000000000000000000000000
  897.         0000000000000000000000000000000000000000000000000000000000000000
  898.         0000000000000000000000000000000000000000000000000000000000000000
  899.         0000000000000000000000000000000000000000000000000000000000000000
  900.         0000000000000000000000000000000000000000000000000000000000000000
  901.         0000000000000000000000000000000000000000000000000000000000000000
  902.         0000000000000000000000000000000000000000000000000000000000000000
  903.         0000000000000000000000000000000000000000000000000000000000000000
  904.         0000000000000000000000000000000000000000000000000000000000000000
  905.         0000000000000000000000000000000000000000000000000000000000000000
  906.         0000000000000000000000000000000000000000000000000000000000000000
  907.         0000000000000000000000000000000000000000000000000000000000000000
  908.         0000000000000000000000000000000000000000000000000000000000000000
  909.         0000000000000000000000000000000000000000000000000000000000000000
  910.         0000000000000000000000000000000000000000000000000000000000000000
  911.         0000000000000000000000000000000000000000000000000000000000000000
  912.         0000000000000000000000000000000000000000000000000000000000000000
  913.         0000000000000000000000000000000000000000000000000000000000000000
  914.         0000000000000000000000000000000000000000000000000000000000000000
  915.         0000000000000000000000000000000000000000000000000000000000000000
  916.         0000000000000000000000000000000000000000000000000000000000000000
  917.         0000000000000000000000000000000000000000000000000000000000000000
  918.         0000000000000000000000000000000000000000000000000000000000000000
  919.         0000000000000000000000000000000000000000000000000000000000000000
  920.         0000000000000000000000000000000000000000000000000000000000000000
  921.         0000000000000000000000000000000000000000000000000000000000000000
  922.         0000000000000000000000000000000000000000000000000000000000000000
  923.         0000000000000000000000000000000000000000000000000000000000000000
  924.         000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
  925.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707
  926.         0707070707070707070707070707070707070707070707070700000000000000
  927.         0007070707070707070707070700FBFFFBFFFBFF000707070000000000000000
  928.         0000FFFBFFFBFFFB0007070007FF07FF07FF07FF0700FBFFFBFFFBFF00070700
  929.         FF07FF07FF07FF07FF00FFFBFFFBFFFB0007070007FF07FF07FF07FF0700FBFF
  930.         FBFFFBFF00070700FF07FF07FF07FF07FF00FFFBFFFBFFFB0007070007FF07FF
  931.         000000000700FBFFFBFFFBFF00070700FF07FF07FF000000FF00FFFBFFFB0000
  932.         0007070007FF07FF000000000700FBFFFBFF000007070700FF07FF000000FF00
  933.         FF000000000000070707070007FF000000FF07FF07FF00070707070707070700
  934.         FF07FF00FF07FF07FF070007070707070707070007FF07FF07FF07FF07FF0007
  935.         0707070707070700FF07000000000000FF0700070707070707070707000000FC
  936.         FEFCFE00000007070707070707070707070700FEFCFEFC000707070707070707
  937.         0707070707070700000000070707070707070707070707070707070707070707
  938.         07070707070707070707}
  939.       OnClick = pastemealClick
  940.     end
  941.     object SpeedButton16: TSpeedButton
  942.       Left = 98
  943.       Top = 2
  944.       Width = 32
  945.       Height = 32
  946.       Hint = 'Clear Meal'
  947.       Glyph.Data = {
  948.         90010000424D9001000000000000760000002800000020000000100000000100
  949.         0400000000000001000000000000000000000000000000000000000000000000
  950.         80000080000000808000800000008000800080800000C0C0C000808080000000
  951.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF005FFFFFFFFF00
  952.         0F5558888F888555F5550FFFFFFFFFFFFF558888888855F855550FFFFFFFFFFF
  953.         FF5588F5888F585555550FFFFFFFFFFFFF5588FF588F5FF555555F0000FF00FF
  954.         FF55588FF88588FF55555FFFFFF0110FFF555588F858888FF5555FF0FF099910
  955.         FF5555FF85888888FF555F0FFF0999910F55588F5F88888885F55FF00FF09990
  956.         3055588F85F88888585F50FFFFFF090B03055588585588858585500F0F0FF0B0
  957.         B03055555F55585858585FFFFFFFFF0B0B3355558555558585555000F0F0FFF0
  958.         BBB35555F55555585F555FFFFFFFFFFF0BBB55585555555585F5555555555555
  959.         50BB555555555555585F555555555555550B5555555555555585000000000000
  960.         0000000000000000000000000000000000000000}
  961.       NumGlyphs = 2
  962.       OnClick = Clear1Click
  963.     end
  964.     object SpeedButton17: TSpeedButton
  965.       Left = 130
  966.       Top = 2
  967.       Width = 32
  968.       Height = 32
  969.       Hint = 'Save Menu'
  970.       Glyph.Data = {
  971.         76010000424D7601000000000000760000002800000020000000100000000100
  972.         04000000000000010000130B0000130B00000000000000000000000000000000
  973.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  974.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
  975.         7700333333337777777733333333008088003333333377F73377333333330088
  976.         88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
  977.         000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
  978.         FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
  979.         99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
  980.         99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
  981.         99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
  982.         93337FFFF7737777733300000033333333337777773333333333}
  983.       NumGlyphs = 2
  984.       OnClick = SavemenuClick
  985.     end
  986.   end
  987.   object GroupBox1: TGroupBox
  988.     Left = 250
  989.     Top = 228
  990.     Width = 352
  991.     Height = 101
  992.     Caption = 'Menu Values'
  993.     TabOrder = 6
  994.     object Label7: TLabel
  995.       Left = 7
  996.       Top = 23
  997.       Width = 47
  998.       Height = 15
  999.       Caption = 'Calories'
  1000.       Font.Color = clWindowText
  1001.       Font.Height = -12
  1002.       Font.Name = 'Arial'
  1003.       Font.Style = [fsBold]
  1004.       ParentFont = False
  1005.     end
  1006.     object Label8: TLabel
  1007.       Left = 6
  1008.       Top = 43
  1009.       Width = 34
  1010.       Height = 15
  1011.       Caption = 'Carbo'
  1012.       Font.Color = clWindowText
  1013.       Font.Height = -12
  1014.       Font.Name = 'Arial'
  1015.       Font.Style = [fsBold]
  1016.       ParentFont = False
  1017.     end
  1018.     object Label9: TLabel
  1019.       Left = 7
  1020.       Top = 62
  1021.       Width = 41
  1022.       Height = 15
  1023.       Caption = 'Protein'
  1024.       Font.Color = clWindowText
  1025.       Font.Height = -12
  1026.       Font.Name = 'Arial'
  1027.       Font.Style = [fsBold]
  1028.       ParentFont = False
  1029.     end
  1030.     object mvcal: TLabel
  1031.       Left = 73
  1032.       Top = 22
  1033.       Width = 24
  1034.       Height = 15
  1035.       Alignment = taRightJustify
  1036.       Caption = 'XXX'
  1037.       Font.Color = clBlue
  1038.       Font.Height = -12
  1039.       Font.Name = 'Arial'
  1040.       Font.Style = [fsBold]
  1041.       ParentFont = False
  1042.     end
  1043.     object mvcarbo: TLabel
  1044.       Left = 73
  1045.       Top = 43
  1046.       Width = 24
  1047.       Height = 15
  1048.       Alignment = taRightJustify
  1049.       Caption = 'XXX'
  1050.       Font.Color = clBlue
  1051.       Font.Height = -12
  1052.       Font.Name = 'Arial'
  1053.       Font.Style = [fsBold]
  1054.       ParentFont = False
  1055.     end
  1056.     object mvpro: TLabel
  1057.       Left = 73
  1058.       Top = 61
  1059.       Width = 24
  1060.       Height = 15
  1061.       Alignment = taRightJustify
  1062.       Caption = 'XXX'
  1063.       Font.Color = clBlue
  1064.       Font.Height = -12
  1065.       Font.Name = 'Arial'
  1066.       Font.Style = [fsBold]
  1067.       ParentFont = False
  1068.     end
  1069.     object Label15: TLabel
  1070.       Left = 104
  1071.       Top = 43
  1072.       Width = 43
  1073.       Height = 15
  1074.       Caption = 'Sodium'
  1075.       Font.Color = clWindowText
  1076.       Font.Height = -12
  1077.       Font.Name = 'Arial'
  1078.       Font.Style = [fsBold]
  1079.       ParentFont = False
  1080.     end
  1081.     object Label22: TLabel
  1082.       Left = 104
  1083.       Top = 62
  1084.       Width = 25
  1085.       Height = 15
  1086.       Caption = 'Chol'
  1087.       Font.Color = clWindowText
  1088.       Font.Height = -12
  1089.       Font.Name = 'Arial'
  1090.       Font.Style = [fsBold]
  1091.       ParentFont = False
  1092.     end
  1093.     object mvfat: TLabel
  1094.       Left = 196
  1095.       Top = 21
  1096.       Width = 24
  1097.       Height = 15
  1098.       Alignment = taRightJustify
  1099.       Caption = 'XXX'
  1100.       Font.Color = clBlue
  1101.       Font.Height = -12
  1102.       Font.Name = 'Arial'
  1103.       Font.Style = [fsBold]
  1104.       ParentFont = False
  1105.     end
  1106.     object mvna: TLabel
  1107.       Left = 196
  1108.       Top = 42
  1109.       Width = 24
  1110.       Height = 15
  1111.       Alignment = taRightJustify
  1112.       Caption = 'XXX'
  1113.       Font.Color = clBlue
  1114.       Font.Height = -12
  1115.       Font.Name = 'Arial'
  1116.       Font.Style = [fsBold]
  1117.       ParentFont = False
  1118.     end
  1119.     object mvchol: TLabel
  1120.       Left = 196
  1121.       Top = 60
  1122.       Width = 24
  1123.       Height = 15
  1124.       Alignment = taRightJustify
  1125.       Caption = 'XXX'
  1126.       Font.Color = clBlue
  1127.       Font.Height = -12
  1128.       Font.Name = 'Arial'
  1129.       Font.Style = [fsBold]
  1130.       ParentFont = False
  1131.     end
  1132.     object Label26: TLabel
  1133.       Left = 104
  1134.       Top = 23
  1135.       Width = 17
  1136.       Height = 15
  1137.       Caption = 'Fat'
  1138.       Font.Color = clWindowText
  1139.       Font.Height = -12
  1140.       Font.Name = 'Arial'
  1141.       Font.Style = [fsBold]
  1142.       ParentFont = False
  1143.     end
  1144.     object Label27: TLabel
  1145.       Left = 272
  1146.       Top = 10
  1147.       Width = 33
  1148.       Height = 14
  1149.       Caption = 'Protein'
  1150.       Font.Color = clWindowText
  1151.       Font.Height = -11
  1152.       Font.Name = 'Arial'
  1153.       Font.Style = []
  1154.       ParentFont = False
  1155.     end
  1156.     object Label28: TLabel
  1157.       Left = 237
  1158.       Top = 10
  1159.       Width = 29
  1160.       Height = 14
  1161.       Caption = 'Carbo'
  1162.       Font.Color = clWindowText
  1163.       Font.Height = -11
  1164.       Font.Name = 'Arial'
  1165.       Font.Style = []
  1166.       ParentFont = False
  1167.     end
  1168.     object Label29: TLabel
  1169.       Left = 315
  1170.       Top = 10
  1171.       Width = 15
  1172.       Height = 14
  1173.       Caption = 'Fat'
  1174.       Font.Color = clWindowText
  1175.       Font.Height = -11
  1176.       Font.Name = 'Arial'
  1177.       Font.Style = []
  1178.       ParentFont = False
  1179.     end
  1180.     object TPanel
  1181.       Left = 233
  1182.       Top = 23
  1183.       Width = 105
  1184.       Height = 70
  1185.       TabOrder = 0
  1186.       object Shape4: TShape
  1187.         Left = 8
  1188.         Top = 40
  1189.         Width = 25
  1190.         Height = 30
  1191.         Brush.Color = clYellow
  1192.       end
  1193.       object Shape5: TShape
  1194.         Left = 40
  1195.         Top = 40
  1196.         Width = 25
  1197.         Height = 30
  1198.         Brush.Color = clFuchsia
  1199.       end
  1200.       object Shape6: TShape
  1201.         Left = 73
  1202.         Top = 40
  1203.         Width = 25
  1204.         Height = 30
  1205.         Brush.Color = clAqua
  1206.       end
  1207.       object Label10: TLabel
  1208.         Left = 11
  1209.         Top = 1
  1210.         Width = 16
  1211.         Height = 14
  1212.         Alignment = taCenter
  1213.         Caption = '0%'
  1214.         Font.Color = clWindowText
  1215.         Font.Height = -11
  1216.         Font.Name = 'Arial'
  1217.         Font.Style = []
  1218.         ParentFont = False
  1219.       end
  1220.       object Label11: TLabel
  1221.         Left = 46
  1222.         Top = 1
  1223.         Width = 16
  1224.         Height = 14
  1225.         Alignment = taCenter
  1226.         Caption = '0%'
  1227.         Font.Color = clWindowText
  1228.         Font.Height = -11
  1229.         Font.Name = 'Arial'
  1230.         Font.Style = []
  1231.         ParentFont = False
  1232.       end
  1233.       object Label12: TLabel
  1234.         Left = 80
  1235.         Top = 1
  1236.         Width = 16
  1237.         Height = 14
  1238.         Alignment = taCenter
  1239.         Caption = '0%'
  1240.         Font.Color = clWindowText
  1241.         Font.Height = -11
  1242.         Font.Name = 'Arial'
  1243.         Font.Style = []
  1244.         ParentFont = False
  1245.       end
  1246.     end
  1247.   end
  1248.   object MainMenu1: TMainMenu
  1249.     Left = 15
  1250.     Top = 20
  1251.     object Main1: TMenuItem
  1252.       Caption = '&Main'
  1253.       ShortCut = 0
  1254.       object MergeOldCALORIEDBT1: TMenuItem
  1255.         Caption = '&Merge Old CALORIE.DBT'
  1256.         ShortCut = 0
  1257.         OnClick = MergeOldCALORIEDBT1Click
  1258.       end
  1259.       object MergeOtherFOODITEMDBT1: TMenuItem
  1260.         Caption = 'Mer&ge Other FOODITEM.DBT'
  1261.         ShortCut = 0
  1262.         OnClick = MergeOtherFOODITEMDBT1Click
  1263.       end
  1264.       object N8: TMenuItem
  1265.         Caption = '-'
  1266.         ShortCut = 0
  1267.       end
  1268.       object OrderForm1: TMenuItem
  1269.         Caption = '&Order Form'
  1270.         ShortCut = 0
  1271.         OnClick = OrderForm1Click
  1272.       end
  1273.       object Register1: TMenuItem
  1274.         Caption = '&Register'
  1275.         ShortCut = 0
  1276.         OnClick = Register1Click
  1277.       end
  1278.       object N7: TMenuItem
  1279.         Caption = '-'
  1280.         ShortCut = 0
  1281.       end
  1282.       object Exit1: TMenuItem
  1283.         Caption = 'E&xit'
  1284.         ShortCut = 0
  1285.         OnClick = Exit1Click
  1286.       end
  1287.     end
  1288.     object FoodItem1: TMenuItem
  1289.       Caption = '&Food Item'
  1290.       ShortCut = 0
  1291.       object Add1: TMenuItem
  1292.         Caption = '&Add Food Item'
  1293.         ShortCut = 0
  1294.         OnClick = Add1Click
  1295.       end
  1296.       object Modify1: TMenuItem
  1297.         Caption = '&Modify Food Item'
  1298.         ShortCut = 0
  1299.         OnClick = Modify1Click
  1300.       end
  1301.       object Delete1: TMenuItem
  1302.         Caption = '&Delete Food Item'
  1303.         ShortCut = 0
  1304.         OnClick = Delete1Click
  1305.       end
  1306.       object N1: TMenuItem
  1307.         Caption = '-'
  1308.         ShortCut = 0
  1309.       end
  1310.       object FoodItemPlanner1: TMenuItem
  1311.         Caption = 'Food Item Planner'
  1312.         ShortCut = 0
  1313.         OnClick = FoodItemPlanner1Click
  1314.       end
  1315.     end
  1316.     object Menu1: TMenuItem
  1317.       Caption = '&Menu'
  1318.       ShortCut = 0
  1319.       object Load1: TMenuItem
  1320.         Caption = '&Load'
  1321.         ShortCut = 0
  1322.         OnClick = loadmealClick
  1323.       end
  1324.       object SaveAs1: TMenuItem
  1325.         Caption = 'Save &As'
  1326.         ShortCut = 0
  1327.         OnClick = SavemenuClick
  1328.       end
  1329.       object Clear1: TMenuItem
  1330.         Caption = '&Clear Meal'
  1331.         ShortCut = 0
  1332.         OnClick = Clear1Click
  1333.       end
  1334.       object CopyMeal1: TMenuItem
  1335.         Caption = 'Copy &Meal'
  1336.         ShortCut = 0
  1337.         OnClick = copymealClick
  1338.       end
  1339.       object PasteMeal1: TMenuItem
  1340.         Caption = '&Paste Meal'
  1341.         ShortCut = 0
  1342.         OnClick = pastemealClick
  1343.       end
  1344.       object N4: TMenuItem
  1345.         Caption = '-'
  1346.         ShortCut = 0
  1347.       end
  1348.       object ClearMenu1: TMenuItem
  1349.         Caption = 'Clear Men&u'
  1350.         ShortCut = 0
  1351.         OnClick = ClearMenu1Click
  1352.       end
  1353.     end
  1354.     object Print1: TMenuItem
  1355.       Caption = '&Print'
  1356.       ShortCut = 0
  1357.       object PrintPreview1: TMenuItem
  1358.         Caption = 'Menu Print Pre&view'
  1359.         ShortCut = 0
  1360.         OnClick = PrintPreview1Click
  1361.       end
  1362.       object ShoppingListPreview1: TMenuItem
  1363.         Caption = 'S&hopping List Preview'
  1364.         ShortCut = 0
  1365.         OnClick = ShoppingListPreview1Click
  1366.       end
  1367.       object N5: TMenuItem
  1368.         Caption = '-'
  1369.         ShortCut = 0
  1370.       end
  1371.       object PrintShopingList1: TMenuItem
  1372.         Caption = 'Print &Shopping List'
  1373.         ShortCut = 0
  1374.         OnClick = PrintShopingList1Click
  1375.       end
  1376.       object PrintMenu1: TMenuItem
  1377.         Caption = '&Print Menu'
  1378.         ShortCut = 0
  1379.         OnClick = PrintMenu1Click
  1380.       end
  1381.       object PrintWeightGraph1: TMenuItem
  1382.         Caption = 'Print &Weight Graph'
  1383.         ShortCut = 0
  1384.         OnClick = PrintWeightGraph1Click
  1385.       end
  1386.       object N6: TMenuItem
  1387.         Caption = '-'
  1388.         ShortCut = 0
  1389.       end
  1390.       object PrintSetup1: TMenuItem
  1391.         Caption = 'P&rint Setup'
  1392.         ShortCut = 0
  1393.         OnClick = PrintSetup1Click
  1394.       end
  1395.     end
  1396.     object Compare1: TMenuItem
  1397.       Caption = '&Compare'
  1398.       ShortCut = 0
  1399.       OnClick = Compare1Click
  1400.     end
  1401.     object Weight1: TMenuItem
  1402.       Caption = '&Weight'
  1403.       ShortCut = 0
  1404.       OnClick = EnterData1Click
  1405.     end
  1406.     object Help1: TMenuItem
  1407.       Caption = '&Help'
  1408.       ShortCut = 0
  1409.       object General1: TMenuItem
  1410.         Caption = '&General'
  1411.         ShortCut = 0
  1412.         OnClick = General1Click
  1413.       end
  1414.       object LowCalorie1: TMenuItem
  1415.         Caption = '&Low Calorie'
  1416.         ShortCut = 0
  1417.         OnClick = LowCalorie1Click
  1418.       end
  1419.       object Diabetic1: TMenuItem
  1420.         Caption = '&Diabetic'
  1421.         ShortCut = 0
  1422.         OnClick = Diabetic1Click
  1423.       end
  1424.       object LowSodium1: TMenuItem
  1425.         Caption = 'Low &Sodium'
  1426.         ShortCut = 0
  1427.         OnClick = LowSodium1Click
  1428.       end
  1429.       object LowCholesterol1: TMenuItem
  1430.         Caption = 'Low &Cholesterol'
  1431.         ShortCut = 0
  1432.         OnClick = LowCholesterol1Click
  1433.       end
  1434.       object FDAGuidelines1: TMenuItem
  1435.         Caption = '&RDA Guidelines'
  1436.         ShortCut = 0
  1437.         OnClick = FDAGuidelines1Click
  1438.       end
  1439.       object N2: TMenuItem
  1440.         Caption = '-'
  1441.         ShortCut = 0
  1442.       end
  1443.       object Tutor1: TMenuItem
  1444.         Caption = 'Tutor'
  1445.         ShortCut = 0
  1446.         OnClick = Tutor1Click
  1447.       end
  1448.       object N3: TMenuItem
  1449.         Caption = '-'
  1450.         ShortCut = 0
  1451.       end
  1452.       object About1: TMenuItem
  1453.         Caption = '&About'
  1454.         ShortCut = 0
  1455.         OnClick = About1Click
  1456.       end
  1457.     end
  1458.   end
  1459.   object SaveDialog1: TSaveDialog
  1460.     FileEditStyle = fsEdit
  1461.     Left = 43
  1462.     Top = 20
  1463.   end
  1464.   object OpenDialog1: TOpenDialog
  1465.     FileEditStyle = fsEdit
  1466.     Left = 73
  1467.     Top = 20
  1468.   end
  1469.   object PrinterSetupDialog1: TPrinterSetupDialog
  1470.     Left = 101
  1471.     Top = 20
  1472.   end
  1473. end
  1474.