home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Shareware 1997 December
/
PCShareware-12-97.iso.bin
/
programy
/
recipe
/
_setup.1
/
recipe.exe
/
0
/
RCDATA
/
TQRINGREDIENT
/
TQRINGREDIENT.txt
Wrap
Text File
|
1997-10-09
|
11KB
|
442 lines
object qrIngredient: TqrIngredient
Left = 0
Top = 0
Width = 816
Height = 1056
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
DataSet = QueryIngredient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Options = [FirstPageHeader, LastPageFooter]
Page.Columns = 1
Page.Orientation = poPortrait
Page.PaperSize = Letter
Page.Values = (
127.000000000000000000
2794.000000000000000000
127.000000000000000000
2159.000000000000000000
127.000000000000000000
127.000000000000000000
0.000000000000000000)
PrintIfEmpty = True
PrinterSettings.Copies = 1
PrinterSettings.Duplex = False
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.OutputBin = First
SnapToGrid = True
Units = Inches
Zoom = 100
object QRBand1: TQRBand
Left = 48
Top = 48
Width = 720
Height = 83
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
219.604166666666700000
1905.000000000000000000)
BandType = rbTitle
object QRShape1: TQRShape
Left = 30
Top = 76
Width = 331
Height = 5
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
13.229166666666670000
79.375000000000000000
201.083333333333300000
875.770833333333300000)
Shape = qrsHorLine
end
object QRLabel1: TQRLabel
Left = 16
Top = 12
Width = 130
Height = 23
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
60.854166666666670000
42.333333333333340000
31.750000000000000000
343.958333333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Shopping List'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = -19
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 14
end
object QRLabel2: TQRLabel
Left = 32
Top = 58
Width = 57
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
84.666666666666670000
153.458333333333300000
150.812500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Ingredient'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel3: TQRLabel
Left = 109
Top = 58
Width = 46
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
288.395833333333300000
153.458333333333300000
121.708333333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Amount'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel4: TQRLabel
Left = 177
Top = 58
Width = 80
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
468.312500000000000000
153.458333333333300000
211.666666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Measurement'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel5: TQRLabel
Left = 280
Top = 58
Width = 66
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
740.833333333333300000
153.458333333333300000
174.625000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Description'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
end
object QRBand2: TQRBand
Left = 48
Top = 148
Width = 720
Height = 20
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
52.916666666666670000
1905.000000000000000000)
BandType = rbDetail
object QRDBText6: TQRDBText
Left = 109
Top = 2
Width = 43
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
288.395833333333300000
5.291666666666667000
113.770833333333300000)
Alignment = taCenter
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = QueryIngredient
DataField = 'Amount'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object QRDBText7: TQRDBText
Left = 177
Top = 2
Width = 77
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333340000
468.312500000000000000
5.291666666666667000
203.729166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = QueryIngredient
DataField = 'Measurement'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object QRDBText8: TQRDBText
Left = 280
Top = 2
Width = 64
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333340000
740.833333333333300000
5.291666666666667000
169.333333333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = QueryIngredient
DataField = 'Description'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
end
object QRGroup1: TQRGroup
Left = 48
Top = 131
Width = 720
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
44.979166666666670000
1905.000000000000000000)
Expression = 'QueryIngredient.Ingredient_ID'
Master = Owner
object QRDBText1: TQRDBText
Left = 32
Top = 0
Width = 57
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
84.666666666666670000
0.000000000000000000
150.812500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = QueryIngredient
DataField = 'Ingredient'
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
end
object QueryDate: TQuery
DatabaseName = 'Evalc'
Left = 12
Top = 6
end
object QueryIngredient: TQuery
Active = True
DatabaseName = 'Evalc'
SQL.Strings = (
'SELECT RI.Amount, RI.Measurement, RI.Description, RI.Ingredient_' +
'ID'
'FROM "Rec_ingr.DB" RI'
'Where (RI.Recipe_ID = '#39'6'#39') or (RI.Recipe_ID = '#39'15'#39') '
' ORDER BY RI.Ingredient_ID')
Left = 116
Top = 4
object QueryIngredientIngredient: TStringField
FieldName = 'Ingredient'
LookupDataSet = dmMain1.tblIngredientLookup
LookupKeyFields = 'Ingredient_ID'
LookupResultField = 'Ingredient'
KeyFields = 'Ingredient_ID'
Lookup = True
end
object QueryIngredientAmount: TStringField
FieldName = 'Amount'
Origin = '"Rec_ingr.DB".Amount'
Size = 10
end
object QueryIngredientMeasurement: TStringField
FieldName = 'Measurement'
Origin = '"Rec_ingr.DB".Measurement'
Size = 10
end
object QueryIngredientDescription: TStringField
FieldName = 'Description'
Origin = '"Rec_ingr.DB".Description'
end
object QueryIngredientIngredient_ID: TStringField
FieldName = 'Ingredient_ID'
Origin = '"Rec_ingr.DB".Ingredient_ID'
Size = 13
end
end
end