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

Text File | 1997-01-18 | 13.1 KB | 550 lines

object FBDemo07: TFBDemo07
  Left = 40
  Top = 427
  Width = 932
  Height = 468
  HorzScrollBar.Position = 89
  VertScrollBar.Position = 759
  Caption = 'FBDemo07'
  Font.Color = clWindowText
  Font.Height = -17
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 120
  TextHeight = 20
  object CBReport1: TCBReport
    Left = -81
    Top = -751
    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.Title = CBBand1
    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 CBBand1: TCBBand
      Left = 49
      Top = 49
      Width = 894
      Height = 1193
      Align = alTop
      Color = clWhite
      Frame.Color = clSilver
      Frame.Left = frSingleThin
      Frame.Right = frSingleThin
      Frame.Top = frSingleThin
      Frame.Bottom = frSingleThin
      ForceNewPage = False
      BandType = cbTitle
      object Label1: TLabel
        Left = 16
        Top = 8
        Width = 785
        Height = 43
        Caption = 'Miscellaneous Non-BDE Supported Components'
        Font.Color = clBlue
        Font.Height = -37
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 24
        Top = 56
        Width = 137
        Height = 43
        AutoSize = False
        Caption = 'TLabel'
        Font.Color = clFuchsia
        Font.Height = -37
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Shape1: TShape
        Left = 32
        Top = 368
        Width = 233
        Height = 73
        Brush.Color = clBlue
        Brush.Style = bsVertical
        Shape = stRoundRect
      end
      object Shape2: TShape
        Left = 280
        Top = 368
        Width = 233
        Height = 73
        Brush.Color = clRed
        Brush.Style = bsBDiagonal
        Shape = stRoundRect
      end
      object Shape3: TShape
        Left = 552
        Top = 368
        Width = 265
        Height = 73
        Brush.Color = 10485760
        Brush.Style = bsCross
        Shape = stEllipse
      end
      object Shape4: TShape
        Left = 24
        Top = 456
        Width = 265
        Height = 73
        Brush.Color = 4259584
        Brush.Style = bsCross
      end
      object Shape5: TShape
        Left = 312
        Top = 456
        Width = 105
        Height = 73
        Brush.Color = clBlue
        Brush.Style = bsDiagCross
        Shape = stRoundSquare
      end
      object Shape6: TShape
        Left = 424
        Top = 456
        Width = 105
        Height = 73
        Brush.Color = clFuchsia
        Brush.Style = bsDiagCross
        Shape = stCircle
      end
      object Image1: TImage
        Left = 544
        Top = 456
        Width = 65
        Height = 65
        Picture.Data = {<image000.bmp>}
      end
      object Bevel1: TBevel
        Left = 24
        Top = 552
        Width = 569
        Height = 73
        Shape = bsFrame
      end
      object Label4: TLabel
        Left = 176
        Top = 568
        Width = 273
        Height = 43
        AutoSize = False
        Caption = 'Inside the Bevel'
        Font.Color = clTeal
        Font.Height = -37
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Label5: TLabel
        Left = 24
        Top = 672
        Width = 674
        Height = 43
        Caption = 'Miscellaneous BDE Supported Components'
        Font.Color = clBlue
        Font.Height = -37
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object DBText1: TDBText
        Left = 112
        Top = 792
        Width = 177
        Height = 33
        DataField = 'Category'
        DataSource = DataSource1
        Font.Color = clMaroon
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 160
        Top = 64
        Width = 121
        Height = 35
        Font.Color = clRed
        Font.Height = -23
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = 'TEdit'
      end
      object Memo1: TMemo
        Left = 296
        Top = 64
        Width = 177
        Height = 65
        Font.Color = clNavy
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        Lines.Strings = (
          'TMemo'
          'Strings')
        ParentFont = False
        TabOrder = 1
      end
      object CheckBox1: TCheckBox
        Left = 24
        Top = 112
        Width = 97
        Height = 17
        Caption = 'TCheckBox'
        Font.Color = clRed
        Font.Height = -17
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
        TabOrder = 2
      end
      object RadioButton1: TRadioButton
        Left = 24
        Top = 136
        Width = 113
        Height = 17
        Caption = 'TRadioButton'
        Font.Color = clOlive
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object RadioButton2: TRadioButton
        Left = 24
        Top = 160
        Width = 113
        Height = 17
        Alignment = taLeftJustify
        Caption = 'TRadioButton'
        Font.Color = clOlive
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object CheckBox2: TCheckBox
        Left = 128
        Top = 112
        Width = 105
        Height = 17
        Alignment = taLeftJustify
        Caption = 'TCheckBox'
        Font.Color = clRed
        Font.Height = -17
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
        TabOrder = 5
      end
      object Panel1: TPanel
        Left = 32
        Top = 192
        Width = 569
        Height = 161
        Color = clRed
        TabOrder = 6
        object GroupBox1: TGroupBox
          Left = 24
          Top = 16
          Width = 273
          Height = 129
          Caption = 'GroupBox1'
          Font.Color = clWhite
          Font.Height = -20
          Font.Name = 'Times New Roman'
          Font.Style = [fsBold, fsItalic]
          ParentFont = False
          TabOrder = 0
          object CheckBox3: TCheckBox
            Left = 8
            Top = 32
            Width = 97
            Height = 17
            Caption = 'CheckBox3'
            TabOrder = 0
          end
          object CheckBox4: TCheckBox
            Left = 8
            Top = 64
            Width = 97
            Height = 17
            Caption = 'CheckBox4'
            TabOrder = 1
          end
          object CheckBox5: TCheckBox
            Left = 8
            Top = 96
            Width = 97
            Height = 17
            Caption = 'CheckBox5'
            TabOrder = 2
          end
          object RadioButton3: TRadioButton
            Left = 128
            Top = 32
            Width = 137
            Height = 17
            Caption = 'RadioButton3'
            Font.Color = clAqua
            Font.Height = -20
            Font.Name = 'Times New Roman'
            Font.Style = [fsBold, fsItalic]
            ParentFont = False
            TabOrder = 3
          end
          object RadioButton4: TRadioButton
            Left = 128
            Top = 64
            Width = 137
            Height = 17
            Caption = 'RadioButton4'
            Font.Color = clAqua
            Font.Height = -20
            Font.Name = 'Times New Roman'
            Font.Style = [fsBold, fsItalic]
            ParentFont = False
            TabOrder = 4
          end
          object RadioButton5: TRadioButton
            Left = 128
            Top = 96
            Width = 137
            Height = 17
            Caption = 'RadioButton5'
            Font.Color = clAqua
            Font.Height = -20
            Font.Name = 'Times New Roman'
            Font.Style = [fsBold, fsItalic]
            ParentFont = False
            TabOrder = 5
          end
        end
        object Panel2: TPanel
          Left = 312
          Top = 1
          Width = 256
          Height = 159
          Align = alRight
          Color = 8454143
          TabOrder = 1
          object RadioGroup1: TRadioGroup
            Left = 32
            Top = 16
            Width = 201
            Height = 129
            Caption = 'RadioGroup1'
            Font.Color = clBlack
            Font.Height = -17
            Font.Name = 'Arial'
            Font.Style = [fsBold, fsItalic]
            Items.Strings = (
              'Item1'
              'Item2'
              'Item3')
            ParentFont = False
            TabOrder = 0
          end
        end
      end
      object Memo2: TMemo
        Left = 504
        Top = 56
        Width = 105
        Height = 129
        Font.Color = clLime
        Font.Height = -30
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (
          'Some '
          'more'
          'Memo'
          'Lines'
          '')
        ParentFont = False
        TabOrder = 7
      end
      object ComboBox1: TComboBox
        Left = 296
        Top = 136
        Width = 177
        Height = 27
        Font.Color = clRed
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 19
        ParentFont = False
        TabOrder = 8
        Text = 'TComboBox'
      end
      object Panel3: TPanel
        Left = 624
        Top = 56
        Width = 201
        Height = 297
        Color = 16777088
        TabOrder = 9
        object Label3: TLabel
          Left = 24
          Top = 16
          Width = 129
          Height = 43
          AutoSize = False
          Caption = 'TLabel'
          Font.Color = clFuchsia
          Font.Height = -37
          Font.Name = 'Times New Roman'
          Font.Style = [fsBold, fsItalic]
          ParentFont = False
        end
        object ComboBox2: TComboBox
          Left = 16
          Top = 72
          Width = 177
          Height = 27
          Font.Color = clRed
          Font.Height = -17
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 19
          ParentFont = False
          TabOrder = 0
          Text = 'TComboBox'
        end
        object MaskEdit1: TMaskEdit
          Left = 16
          Top = 112
          Width = 121
          Height = 27
          Font.Color = clPurple
          Font.Height = -17
          Font.Name = 'Times New Roman'
          Font.Style = [fsItalic]
          MaxLength = 0
          ParentFont = False
          TabOrder = 1
          Text = 'MaskEdit1'
        end
      end
      object ScrollBox1: TScrollBox
        Left = 624
        Top = 456
        Width = 217
        Height = 169
        TabOrder = 10
        object Image2: TImage
          Left = 9
          Top = 89
          Width = 32
          Height = 32
          Picture.Data = {<image001.bmp>}
        end
        object Shape7: TShape
          Left = 17
          Top = 9
          Width = 176
          Height = 73
          Brush.Color = clRed
          Brush.Style = bsCross
          Shape = stEllipse
        end
        object Shape8: TShape
          Left = 97
          Top = 89
          Width = 105
          Height = 73
          Brush.Color = clFuchsia
          Brush.Style = bsDiagCross
          Shape = stCircle
        end
      end
      object Panel4: TPanel
        Left = 0
        Top = 648
        Width = 896
        Height = 17
        Color = 10485760
        TabOrder = 11
      end
      object EditCommon_Name: TDBEdit
        Left = 22
        Top = 724
        Width = 283
        Height = 41
        DataField = 'Common_Name'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        MaxLength = 30
        ParentFont = False
        TabOrder = 12
      end
      object DBMemo1: TDBMemo
        Left = 8
        Top = 905
        Width = 864
        Height = 216
        DataField = 'Notes'
        DataSource = DataSource1
        TabOrder = 13
      end
      object DBImage1: TDBImage
        Left = 471
        Top = 721
        Width = 401
        Height = 177
        DataField = 'Graphic'
        DataSource = DataSource1
        TabOrder = 14
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 809
    Top = 409
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'BIOLIFE.DB'
    Left = 849
    Top = 409
  end
end