PC World Komputer 1997 May/Pcwk0597.iso/borland/cb/setup/cbuilder/data.z/FFACTWIN.DFM/FFACTWIN.txt

Text File | 1997-02-28 | 6KB | 250 lines

object Form1: TForm1
  Left = 189
  Top = 115
  ActiveControl = DBImage1
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'FISH FACTS'
  ClientHeight = 297
  ClientWidth = 500
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 6
    Top = 8
    Width = 259
    Height = 217
    Hint = 'Scroll grid below to see other fish'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object DBLabel1: TDBText
      Left = 4
      Top = 183
      Width = 249
      Height = 24
      DataField = 'Common_Name'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = 'MS Serif'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object DBImage1: TDBImage
      Left = 5
      Top = 8
      Width = 248
      Height = 168
      Hint = 'Scroll grid below to see other fish'
      DataField = 'Graphic'
      DataSource = DataSource1
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 275
    Top = 8
    Width = 223
    Height = 22
    TabOrder = 1
    object Label1: TLabel
      Left = 7
      Top = 4
      Width = 56
      Height = 13
      Caption = 'About the'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBLabel2: TDBText
      Left = 67
      Top = 4
      Width = 142
      Height = 13
      DataField = 'Common_Name'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Panel3: TPanel
    Left = 276
    Top = 32
    Width = 223
    Height = 193
    BevelOuter = bvLowered
    TabOrder = 2
    object DBMemo1: TDBMemo
      Left = 3
      Top = 2
      Width = 217
      Height = 183
      BorderStyle = bsNone
      Color = clSilver
      Ctl3D = False
      DataField = 'Notes'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 225
    Width = 500
    Height = 72
    Align = alBottom
    BevelInner = bvRaised
    BorderStyle = bsSingle
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 12
      Top = 8
      Width = 386
      Height = 53
      Hint = 'Scroll up/down to see other fish!'
      Columns = <
        item
          FieldName = 'Category'
        end
        item
          FieldName = 'Species Name'
        end
        item
          FieldName = 'Length (cm)'
        end
        item
          FieldName = 'Length_In'
        end>
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object ExitButton: TBitBtn
      Left = 412
      Top = 36
      Width = 75
      Height = 25
      Hint = 'Close Fish Facts'
      Caption = 'E&xit'
      TabOrder = 1
      Kind = bkClose
    end
    object SaveButton: TBitBtn
      Left = 412
      Top = 8
      Width = 75
      Height = 25
      Hint = 'Save Fish Facts'
      Caption = '&Save'
      TabOrder = 2
      OnClick = SaveClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555FFFFFFFFFF5555550000000000555557777777777F5555550FFFFFFFF
        0555557F5FFFF557F5555550F0000FFF0555557F77775557F5555550FFFFFFFF
        0555557F5FFFFFF7F5555550F000000F0555557F77777757F5555550FFFFFFFF
        0555557F5FFFFFF7F5555550F000000F0555557F77777757F5555550FFFFFFFF
        0555557F5FFF5557F5555550F000FFFF0555557F77755FF7F5555550FFFFF000
        0555557F5FF5777755555550F00FF0F05555557F77557F7555555550FFFFF005
        5555557FFFFF7755555555500000005555555577777775555555555555555555
        55555555555555555555555555555555555555555555555555550000}
      NumGlyphs = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 179
    Top = 193
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'BCDEMOS'
    ReadOnly = True
    TableName = 'BIOLIFE'
    Left = 237
    Top = 193
    object Table1Category: TStringField
      DisplayWidth = 15
      FieldName = 'Category'
      Size = 15
    end
    object Table1SpeciesName: TStringField
      DisplayWidth = 20
      FieldName = 'Species Name'
      Size = 40
    end
    object Table1Lengthcm: TFloatField
      DisplayWidth = 11
      FieldName = 'Length (cm)'
    end
    object Table1Length_In: TFloatField
      DisplayWidth = 10
      FieldName = 'Length_In'
      DisplayFormat = '0.00'
    end
    object Table1Common_Name: TStringField
      DisplayWidth = 30
      FieldName = 'Common_Name'
      Visible = False
      Size = 30
    end
    object Table1Notes: TMemoField
      FieldName = 'Notes'
      BlobType = ftMemo
      Size = 50
    end
    object Table1Graphic: TBlobField
      FieldName = 'Graphic'
      ReadOnly = True
      Visible = False
      BlobType = ftBlob
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.txt'
    FileEditStyle = fsEdit
    FileName = 'fish.txt'
    Filter = 'Text file (*.txt)|*.txt'
    Left = 208
    Top = 193
  end
end