PC World Komputer 1997 May/Pcwk0597.iso/delphi/cbsuite.lzh/SU1SRC.ZIP/DEMO01.DFM/DEMO01.txt

Text File | 1997-01-18 | 8.9 KB | 390 lines

object FBDemo01: TFBDemo01
  Left = 328
  Top = 204
  Width = 617
  Height = 495
  ActiveControl = Panel1
  Caption = 'FBDemo01'
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 120
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 992
    Height = 50
    Align = alTop
    TabOrder = 0
    object DBNavigator: TDBNavigator
      Left = 10
      Top = 10
      Width = 281
      Height = 31
      DataSource = DataSource1
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
    end
  end
  object CBReport1: TCBReport
    Left = 0
    Top = 80
    Width = 992
    Height = 1403
    Font.Color = clWindowText
    Font.Height = 16
    Font.Name = 'Arial'
    Font.Style = []
    Color = 15794175
    ParentFont = False
    About = 'Version 5.32'
    AboutRegistered = 'TOM SNIDER'
    Bands.Master = Master
    Bands.Title = Title
    Bands.PageHeader = PageHeader
    Bands.PageFooter = PageFooter
    Viewer.BkColor = 11234567
    Viewer.Heading = 'BandIt Viewer'
    Viewer.ShowCancelDialog = True
    Viewer.MinimizeRunForm = False
    Viewer.ZoomPercentage = 100.000000000000000000
    Page.FrameStyle = frThin
    Page.MarginLeft = 0.400000000000000000
    Page.MarginTop = 0.400000000000000000
    Page.MarginRight = 0.400000000000000000
    Page.PaperSize = A4
    OutputTo = poViewer
    Orientation = Default
    Units = poInches
    Copies = 1
    LineSpacing = 2.500000000000000000
    RewindBeforePrint = True
    object PageHeader: TCBBand
      Left = 49
      Top = 49
      Width = 894
      Height = 88
      Align = alTop
      Color = clWhite
      Frame.Color = clBlack
      Frame.Left = frNone
      Frame.Right = frNone
      Frame.Top = frDoubleThickThin
      Frame.Bottom = frSingleThin
      ForceNewPage = False
      BandType = cbPageHeader
      object CB_Label2: TCB_Label
        Left = 364
        Top = 8
        Width = 166
        Height = 32
        Caption = 'Page Header'
        Font.Color = clBlue
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        About = 'Version 5.32'
        Style = stRaised
        ShadowOffset = 5
      end
    end
    object Title: TCBBand
      Left = 49
      Top = 137
      Width = 894
      Height = 41
      Align = alTop
      Color = clWhite
      Frame.Color = clBlack
      Frame.Left = frSingleThin
      Frame.Right = frSingleThin
      Frame.Top = frSingleThin
      Frame.Bottom = frSingleThin
      ForceNewPage = False
      BandType = cbTitle
      object CB_Label1: TCB_Label
        Left = 334
        Top = 8
        Width = 226
        Height = 32
        Caption = 'Fish Demo - Title'
        Font.Color = clRed
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        About = 'Version 5.32'
        Style = stRaised
        ShadowOffset = 5
      end
    end
    object Master: TCBBand
      Left = 49
      Top = 178
      Width = 894
      Height = 582
      Align = alTop
      Color = clWhite
      Frame.Color = clBlack
      Frame.Left = frSingleThin
      Frame.Right = frSingleThin
      Frame.Top = frSingleThin
      Frame.Bottom = frSingleThin
      ForceNewPage = False
      BandType = cbMaster
      DataSource = DataSource1
      object Label9: TLabel
        Left = 14
        Top = 42
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Species No'
      end
      object Label10: TLabel
        Left = 14
        Top = 68
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Category'
      end
      object Label11: TLabel
        Left = 14
        Top = 94
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Common_Name'
      end
      object Label12: TLabel
        Left = 14
        Top = 120
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Species Name'
      end
      object Label13: TLabel
        Left = 14
        Top = 146
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Length (cm)'
      end
      object Label15: TLabel
        Left = 14
        Top = 194
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Notes'
      end
      object Label16: TLabel
        Left = 14
        Top = 413
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Graphic'
      end
      object DBEdit1: TDBEdit
        Left = 130
        Top = 38
        Width = 91
        Height = 24
        DataField = 'Species No'
        DataSource = DataSource1
        MaxLength = 0
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 130
        Top = 64
        Width = 126
        Height = 24
        DataField = 'Category'
        DataSource = DataSource1
        MaxLength = 15
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 130
        Top = 90
        Width = 231
        Height = 24
        DataField = 'Common_Name'
        DataSource = DataSource1
        MaxLength = 30
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 130
        Top = 116
        Width = 301
        Height = 24
        DataField = 'Species Name'
        DataSource = DataSource1
        MaxLength = 40
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 130
        Top = 142
        Width = 91
        Height = 24
        DataField = 'Length (cm)'
        DataSource = DataSource1
        MaxLength = 0
        TabOrder = 4
      end
      object DBMemo1: TDBMemo
        Left = 130
        Top = 194
        Width = 567
        Height = 215
        DataField = 'Notes'
        DataSource = DataSource1
        TabOrder = 5
      end
      object DBImage1: TDBImage
        Left = 130
        Top = 413
        Width = 359
        Height = 156
        DataField = 'Graphic'
        DataSource = DataSource1
        TabOrder = 6
      end
    end
    object PageFooter: TCBBand
      Left = 49
      Top = 760
      Width = 894
      Height = 48
      Align = alTop
      Color = clWhite
      Frame.Color = clBlack
      Frame.Left = frSingleThin
      Frame.Right = frSingleThin
      Frame.Top = frSingleThin
      Frame.Bottom = frSingleThin
      ForceNewPage = False
      BandType = cbPageFooter
      object CB_Label3: TCB_Label
        Left = 367
        Top = 8
        Width = 159
        Height = 32
        Caption = 'Page Footer'
        Font.Color = clRed
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        About = 'Version 5.32'
        Style = stRaised
        ShadowOffset = 5
      end
      object Label1: TLabel
        Left = 815
        Top = 16
        Width = 34
        Height = 16
        Caption = 'Page '
      end
      object CBSystem1: TCBSystem
        Left = 8
        Top = 16
        Width = 100
        Height = 16
        ParentFont = False
        BorderStyle = bsNone
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        Color = clWhite
        Data = cbDate
        DisplayFormat = '#,##0.00'
        Text = '0.00'
        Alignment = taLeftJustify
      end
      object CBSystem2: TCBSystem
        Left = 847
        Top = 14
        Width = 36
        Height = 16
        ParentFont = False
        BorderStyle = bsNone
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        Color = clWhite
        Data = cbPageNumber
        DisplayFormat = '0'
        Text = '1'
        Alignment = taRightJustify
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 311
    Top = 5
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'BIOLIFE.DB'
    Left = 335
    Top = 5
    object Table1SpeciesNo: TFloatField
      FieldName = 'Species No'
    end
    object Table1Category: TStringField
      FieldName = 'Category'
      Size = 15
    end
    object Table1Common_Name: TStringField
      FieldName = 'Common_Name'
      Size = 30
    end
    object Table1SpeciesName: TStringField
      FieldName = 'Species Name'
      Size = 40
    end
    object Table1Lengthcm: TFloatField
      FieldName = 'Length (cm)'
    end
    object Table1Length_In: TFloatField
      FieldName = 'Length_In'
    end
    object Table1Notes: TMemoField
      FieldName = 'Notes'
      Size = 50
    end
    object Table1Graphic: TGraphicField
      FieldName = 'Graphic'
    end
  end
end