Delphi 4 Bible/Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso/source/FISHY/MAIN.dfm/MAIN.txt

Text File | 1998-02-16 | 3KB | 153 lines

object MainForm: TMainForm
  Left = 192
  Top = 101
  Width = 447
  Height = 253
  ActiveControl = Panel1
  Caption = 'Fishy Database'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 439
    Height = 41
    Align = alTop
    TabOrder = 0
    object DBNavigator: TDBNavigator
      Left = 8
      Top = 8
      Width = 240
      Height = 25
      DataSource = DataSource1
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
    end
    object BitBtn1: TBitBtn
      Left = 336
      Top = 8
      Width = 89
      Height = 25
      TabOrder = 1
      Kind = bkClose
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 439
    Height = 185
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    TabOrder = 1
    object ScrollBox: TScrollBox
      Left = 6
      Top = 6
      Width = 427
      Height = 173
      HorzScrollBar.Margin = 6
      HorzScrollBar.Range = 224
      VertScrollBar.Margin = 6
      VertScrollBar.Range = 46
      Align = alClient
      AutoScroll = False
      BorderStyle = bsNone
      TabOrder = 0
      object DBImage1: TDBImage
        Left = 224
        Top = 8
        Width = 200
        Height = 160
        DataField = 'BMP'
        DataSource = DataSource1
        TabOrder = 0
        OnDblClick = DBImage1DblClick
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 8
        Width = 209
        Height = 161
        DataSource = DataSource1
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 375
    Top = 165
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    FieldDefs = <
      item
        Name = 'NAME'
        DataType = ftString
        Precision = 0
        Required = False
        Size = 10
      end
      item
        Name = 'SIZE'
        DataType = ftSmallint
        Precision = 0
        Required = False
        Size = 0
      end
      item
        Name = 'WEIGHT'
        DataType = ftSmallint
        Precision = 0
        Required = False
        Size = 0
      end
      item
        Name = 'AREA'
        DataType = ftString
        Precision = 0
        Required = False
        Size = 20
      end
      item
        Name = 'BMP'
        DataType = ftTypedBinary
        Precision = 0
        Required = False
        Size = 1
      end>
    StoreDefs = True
    TableName = 'animals.dbf'
    Left = 316
    Top = 165
    object Table1NAME: TStringField
      FieldName = 'NAME'
      Size = 10
    end
    object Table1AREA: TStringField
      FieldName = 'AREA'
    end
    object Table1BMP: TBlobField
      FieldName = 'BMP'
      BlobType = ftBlob
      Size = 1
    end
  end
end