home *** CD-ROM | disk | FTP | other *** search
- object frmImageRpt: TfrmImageRpt
- Left = 192
- Top = 107
- Width = 696
- Height = 480
- Caption = 'frmImageRpt'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Scaled = False
- PixelsPerInch = 96
- TextHeight = 13
- object QuickRep1: TQuickRep
- Left = 24
- Top = 0
- Width = 816
- Height = 1056
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- DataSet = tbBio
- Description.Strings = (
- 'List report with images')
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- Functions.Strings = (
- 'PAGENUMBER'
- 'COLUMNNUMBER'
- 'REPORTTITLE')
- Functions.DATA = (
- '0'
- '0'
- #39#39)
- 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)
- PrinterSettings.Copies = 1
- PrinterSettings.Duplex = False
- PrinterSettings.FirstPage = 0
- PrinterSettings.LastPage = 0
- PrinterSettings.OutputBin = Auto
- PrintIfEmpty = True
- ReportTitle = 'Image Report'
- SnapToGrid = True
- Units = Inches
- Zoom = 100
- object DetailBand1: TQRBand
- Left = 48
- Top = 88
- Width = 720
- Height = 113
- 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 = (
- 298.979166666666700000
- 1905.000000000000000000)
- BandType = rbDetail
- object QRDBText1: TQRDBText
- Left = 0
- Top = 0
- Width = 94
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 0.000000000000000000
- 0.000000000000000000
- 248.708333333333400000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- DataSet = tbBio
- DataField = 'Common_Name'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBImage1: TQRDBImage
- Left = 216
- Top = 0
- Width = 105
- Height = 105
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 277.812500000000000000
- 571.500000000000000000
- 0.000000000000000000
- 277.812500000000000000)
- DataField = 'Graphic'
- DataSet = tbBio
- Stretch = True
- end
- end
- object ColumnHeaderBand1: TQRBand
- Left = 48
- Top = 48
- Width = 720
- Height = 40
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = True
- Frame.DrawLeft = False
- Frame.DrawRight = False
- AlignToBottom = False
- Color = clWhite
- ForceNewColumn = False
- ForceNewPage = False
- Size.Values = (
- 105.833333333333300000
- 1905.000000000000000000)
- BandType = rbColumnHeader
- object QRLabel1: TQRLabel
- Left = 0
- Top = 16
- Width = 91
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 0.000000000000000000
- 42.333333333333340000
- 240.770833333333400000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = 'Common Name'
- Color = clWhite
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRLabel2: TQRLabel
- Left = 216
- Top = 16
- Width = 36
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 571.500000000000000000
- 42.333333333333340000
- 95.250000000000000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = 'Image'
- Color = clWhite
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- end
- end
- object tbBio: TTable
- Active = True
- DatabaseName = 'DBDEMOS'
- TableName = 'BIOLIFE.DB'
- Left = 8
- Top = 16
- object tbBioSpeciesNo: TFloatField
- FieldName = 'Species No'
- end
- object tbBioCategory: TStringField
- FieldName = 'Category'
- Size = 15
- end
- object tbBioCommon_Name: TStringField
- FieldName = 'Common_Name'
- Size = 30
- end
- object tbBioSpeciesName: TStringField
- FieldName = 'Species Name'
- Size = 40
- end
- object tbBioLengthcm: TFloatField
- FieldName = 'Length (cm)'
- end
- object tbBioLength_In: TFloatField
- FieldName = 'Length_In'
- end
- object tbBioNotes: TMemoField
- FieldName = 'Notes'
- BlobType = ftMemo
- Size = 50
- end
- object tbBioGraphic: TGraphicField
- FieldName = 'Graphic'
- BlobType = ftGraphic
- end
- end
- end
-