DOS/V Power Report 1996 August/VPR9608A.BIN/del20try/install/data.z/FFACTWIN.DFM/FFACTWIN.txt

Text File | 1996-05-08 | 4KB | 190 lines

object Form1: TForm1
  Left = 193
  Top = 114
  ActiveControl = DBImage1
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'FISH FACTS'
  ClientHeight = 279
  ClientWidth = 496
  Font.Color = clBlack
  Font.Height = -12
  Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
  Font.Style = []
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 2
    Top = 7
    Width = 264
    Height = 202
    Hint = 'Scroll grid below to see other fish'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object DBLabel1: TDBText
      Left = 3
      Top = 174
      Width = 254
      Height = 20
      DataField = 'Common_Name'
      DataSource = DataSource1
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object DBImage1: TDBImage
      Left = 4
      Top = 7
      Width = 256
      Height = 162
      Hint = 'Scroll grid below to see other fish'
      DataField = 'Graphic'
      DataSource = DataSource1
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 269
    Top = 7
    Width = 220
    Height = 19
    TabOrder = 1
    object Label1: TLabel
      Left = 6
      Top = 3
      Width = 60
      Height = 12
      Caption = 'About the'
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBLabel2: TDBText
      Left = 70
      Top = 3
      Width = 147
      Height = 11
      DataField = 'Common_Name'
      DataSource = DataSource1
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Panel3: TPanel
    Left = 270
    Top = 27
    Width = 222
    Height = 182
    BevelOuter = bvLowered
    TabOrder = 2
    object DBMemo1: TDBMemo
      Left = 2
      Top = 2
      Width = 216
      Height = 176
      BorderStyle = bsNone
      Color = clSilver
      Ctl3D = False
      DataField = 'Notes'
      DataSource = DataSource1
      ParentCtl3D = False
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 214
    Width = 496
    Height = 65
    Align = alBottom
    BevelInner = bvRaised
    BorderStyle = bsSingle
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 4
      Top = 3
      Width = 413
      Height = 54
      Hint = 'Scroll up/down to see other fish!'
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Color = clBlack
      TitleFont.Height = -12
      TitleFont.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      TitleFont.Style = []
    end
    object BitBtn1: TBitBtn
      Left = 434
      Top = 18
      Width = 49
      Height = 24
      Hint = 'Close Fish Facts'
      Caption = 'E&xit'
      TabOrder = 1
      Kind = bkClose
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 19
    Top = 193
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    ReadOnly = True
    TableName = 'BIOLIFE'
    Left = 221
    Top = 193
    object Table1Category: TStringField
      DisplayWidth = 19
      FieldName = 'Category'
      Size = 16
    end
    object Table1SpeciesName: TStringField
      DisplayWidth = 30
      FieldName = 'Species Name'
      Size = 40
    end
    object Table1Lengthcm: TFloatField
      DisplayWidth = 13
      FieldName = 'Length (cm)'
    end
    object Table1Length_In: TFloatField
      DisplayWidth = 12
      FieldName = 'Length_In'
      DisplayFormat = '0.00'
    end
    object Table1Common_Name: TStringField
      DisplayWidth = 30
      FieldName = 'Common_Name'
      Visible = False
      Size = 30
    end
    object Table1Notes: TMemoField
      DisplayWidth = 12
      FieldName = 'Notes'
      BlobType = ftMemo
      Size = 50
    end
    object Table1Graphic: TBlobField
      FieldName = 'Graphic'
      ReadOnly = True
      Visible = False
      BlobType = ftBlob
    end
  end
end