home *** CD-ROM | disk | FTP | other *** search
- object Form3: TForm3
- Left = 283
- Top = 223
- HelpContext = 10
- AutoScroll = False
- Caption = 'Food Item Planner'
- ClientHeight = 229
- ClientWidth = 461
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- FormStyle = fsStayOnTop
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 16
- object Label1: TLabel
- Left = 18
- Top = 5
- Width = 229
- Height = 16
- Caption = 'Move recipe ingredients to list box:'
- end
- object Label2: TLabel
- Left = 272
- Top = 181
- Width = 133
- Height = 16
- Caption = 'Number of Servings:'
- end
- object Label3: TLabel
- Left = 272
- Top = 36
- Width = 47
- Height = 15
- Caption = 'Calories'
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label4: TLabel
- Left = 272
- Top = 59
- Width = 34
- Height = 15
- Caption = 'Carbo'
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label5: TLabel
- Left = 272
- Top = 82
- Width = 41
- Height = 15
- Caption = 'Protein'
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object fipro: TLabel
- Left = 335
- Top = 82
- Width = 24
- Height = 15
- Alignment = taRightJustify
- Caption = 'XXX'
- Color = clBtnFace
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object ficarbo: TLabel
- Left = 335
- Top = 59
- Width = 24
- Height = 15
- Alignment = taRightJustify
- Caption = 'XXX'
- Color = clBtnFace
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object fical: TLabel
- Left = 335
- Top = 36
- Width = 24
- Height = 15
- Alignment = taRightJustify
- Caption = 'XXX'
- Color = clBtnFace
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object Label6: TLabel
- Left = 272
- Top = 106
- Width = 17
- Height = 15
- Caption = 'Fat'
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label13: TLabel
- Left = 272
- Top = 129
- Width = 43
- Height = 15
- Caption = 'Sodium'
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label14: TLabel
- Left = 272
- Top = 152
- Width = 25
- Height = 15
- Caption = 'Chol'
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object fichol: TLabel
- Left = 337
- Top = 152
- Width = 24
- Height = 15
- Alignment = taRightJustify
- Caption = 'XXX'
- Color = clBtnFace
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object fina: TLabel
- Left = 337
- Top = 129
- Width = 24
- Height = 15
- Alignment = taRightJustify
- Caption = 'XXX'
- Color = clBtnFace
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object fifat: TLabel
- Left = 336
- Top = 106
- Width = 24
- Height = 15
- Alignment = taRightJustify
- Caption = 'XXX'
- Color = clBtnFace
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object Edit1: TEdit
- Left = 410
- Top = 178
- Width = 44
- Height = 24
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- Text = '1.0'
- end
- object BitBtn1: TBitBtn
- Left = 368
- Top = 18
- Width = 89
- Height = 33
- Caption = 'Clear'
- ModalResult = 3
- TabOrder = 1
- OnClick = BitBtn1Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
- 555557777F777555F55500000000555055557777777755F75555005500055055
- 555577F5777F57555555005550055555555577FF577F5FF55555500550050055
- 5555577FF77577FF555555005050110555555577F757777FF555555505099910
- 555555FF75777777FF555005550999910555577F5F77777775F5500505509990
- 3055577F75F77777575F55005055090B030555775755777575755555555550B0
- B03055555F555757575755550555550B0B335555755555757555555555555550
- BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
- 50BB555555555555575F555555555555550B55555555555555750000}
- NumGlyphs = 2
- Style = bsWin31
- end
- object BitBtn2: TBitBtn
- Left = 368
- Top = 100
- Width = 89
- Height = 33
- TabOrder = 2
- OnClick = BitBtn2Click
- Kind = bkOK
- Style = bsWin31
- end
- object BitBtn3: TBitBtn
- Left = 368
- Top = 59
- Width = 89
- Height = 33
- Caption = 'Add'
- TabOrder = 3
- OnClick = BitBtn3Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
- 1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559
- 1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559
- 193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011
- 11155557F755F777777555000755033305555577755F75F77F55555555503335
- 0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555
- 05555757F75F75557F5505000333555505557F777FF755557F55000000355557
- 07557777777F55557F5555000005555707555577777FF5557F55553000075557
- 0755557F7777FFF57555553350000055555555775777775555550000}
- NumGlyphs = 2
- Style = bsWin31
- end
- object TabListBox1: Ttablistbox
- Left = 7
- Top = 23
- Width = 255
- Height = 199
- DragMode = dmAutomatic
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ItemHeight = 14
- ParentFont = False
- TabOrder = 4
- OnDragDrop = ListBox1DragDrop
- OnDragOver = ListBox1DragOver
- OnEndDrag = TabListBox1EndDrag
- TabStops = 0
- end
- end
-