home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / fishfact.pak / FFACTWIN.DFM / FFACTWIN.txt
Encoding:
Text File  |  1995-08-24  |  4.2 KB  |  197 lines
  1. object Form1: TForm1
  2.   Left = 127
  3.   Top = 92
  4.   AutoScroll = False
  5.   ActiveControl = DBImage1
  6.   BorderIcons = [biSystemMenu, biMinimize]
  7.   BorderStyle = bsSingle
  8.   Caption = 'FISH FACTS'
  9.   ClientHeight = 297
  10.   ClientWidth = 500
  11.   Font.Color = clBlack
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object Panel1: TPanel
  18.     Left = 6
  19.     Top = 8
  20.     Width = 259
  21.     Height = 217
  22.     Hint = 'Scroll grid below to see other fish'
  23.     ParentShowHint = False
  24.     ShowHint = True
  25.     TabOrder = 0
  26.     object DBLabel1: TDBText
  27.       Left = 4
  28.       Top = 183
  29.       Width = 249
  30.       Height = 24
  31.       DataField = 'Common_Name'
  32.       DataSource = DataSource1
  33.       Font.Color = clRed
  34.       Font.Height = -19
  35.       Font.Name = 'MS Serif'
  36.       Font.Style = [fsBold, fsItalic]
  37.       ParentFont = False
  38.     end
  39.     object DBImage1: TDBImage
  40.       Left = 5
  41.       Top = 8
  42.       Width = 248
  43.       Height = 168
  44.       Hint = 'Scroll grid below to see other fish'
  45.       DataField = 'Graphic'
  46.       DataSource = DataSource1
  47.       TabOrder = 0
  48.     end
  49.   end
  50.   object Panel2: TPanel
  51.     Left = 275
  52.     Top = 8
  53.     Width = 223
  54.     Height = 22
  55.     TabOrder = 1
  56.     object Label1: TLabel
  57.       Left = 7
  58.       Top = 4
  59.       Width = 56
  60.       Height = 13
  61.       Caption = 'About the'
  62.       Font.Color = clBlue
  63.       Font.Height = -11
  64.       Font.Name = 'MS Sans Serif'
  65.       Font.Style = [fsBold]
  66.       ParentFont = False
  67.     end
  68.     object DBLabel2: TDBText
  69.       Left = 67
  70.       Top = 4
  71.       Width = 99
  72.       Height = 13
  73.       DataField = 'Common_Name'
  74.       DataSource = DataSource1
  75.       Font.Color = clBlue
  76.       Font.Height = -11
  77.       Font.Name = 'MS Sans Serif'
  78.       Font.Style = [fsBold]
  79.       ParentFont = False
  80.     end
  81.   end
  82.   object Panel3: TPanel
  83.     Left = 276
  84.     Top = 32
  85.     Width = 223
  86.     Height = 193
  87.     BevelOuter = bvLowered
  88.     TabOrder = 2
  89.     object DBMemo1: TDBMemo
  90.       Left = 3
  91.       Top = 2
  92.       Width = 217
  93.       Height = 183
  94.       BorderStyle = bsNone
  95.       Color = clSilver
  96.       Ctl3D = False
  97.       DataField = 'Notes'
  98.       DataSource = DataSource1
  99.       Font.Color = clBlack
  100.       Font.Height = -11
  101.       Font.Name = 'MS Sans Serif'
  102.       Font.Style = []
  103.       ParentCtl3D = False
  104.       ParentFont = False
  105.       ScrollBars = ssVertical
  106.       TabOrder = 0
  107.     end
  108.   end
  109.   object Panel4: TPanel
  110.     Left = 0
  111.     Top = 225
  112.     Width = 500
  113.     Height = 72
  114.     Align = alBottom
  115.     BevelInner = bvRaised
  116.     BorderStyle = bsSingle
  117.     ParentShowHint = False
  118.     ShowHint = True
  119.     TabOrder = 3
  120.     object DBGrid1: TDBGrid
  121.       Left = 12
  122.       Top = 8
  123.       Width = 386
  124.       Height = 53
  125.       Hint = 'Scroll up/down to see other fish!'
  126.       DataSource = DataSource1
  127.       Font.Color = clWindowText
  128.       Font.Height = -11
  129.       Font.Name = 'MS Sans Serif'
  130.       Font.Style = []
  131.       ParentFont = False
  132.       TabOrder = 0
  133.       TitleFont.Color = clBlack
  134.       TitleFont.Height = -11
  135.       TitleFont.Name = 'MS Sans Serif'
  136.       TitleFont.Style = []
  137.     end
  138.     object BitBtn1: TBitBtn
  139.       Left = 424
  140.       Top = 20
  141.       Width = 57
  142.       Height = 29
  143.       Hint = 'Close Fish Facts'
  144.       Caption = 'E&xit'
  145.       TabOrder = 1
  146.       Kind = bkClose
  147.     end
  148.   end
  149.   object DataSource1: TDataSource
  150.     DataSet = Table1
  151.     Left = 19
  152.     Top = 193
  153.   end
  154.   object Table1: TTable
  155.     Active = True
  156.     DatabaseName = 'DBDEMOS'
  157.     ReadOnly = True
  158.     TableName = 'BIOLIFE'
  159.     Left = 221
  160.     Top = 193
  161.     object Table1Category: TStringField
  162.       DisplayWidth = 15
  163.       FieldName = 'Category'
  164.       Size = 15
  165.     end
  166.     object Table1SpeciesName: TStringField
  167.       DisplayWidth = 20
  168.       FieldName = 'Species Name'
  169.       Size = 40
  170.     end
  171.     object Table1Lengthcm: TFloatField
  172.       DisplayWidth = 11
  173.       FieldName = 'Length (cm)'
  174.     end
  175.     object Table1Length_In: TFloatField
  176.       DisplayWidth = 10
  177.       FieldName = 'Length_In'
  178.       DisplayFormat = '0.00'
  179.     end
  180.     object Table1Common_Name: TStringField
  181.       DisplayWidth = 30
  182.       FieldName = 'Common_Name'
  183.       Visible = False
  184.       Size = 30
  185.     end
  186.     object Table1Notes: TMemoField
  187.       FieldName = 'Notes'
  188.       Size = 50
  189.     end
  190.     object Table1Graphic: TBlobField
  191.       FieldName = 'Graphic'
  192.       ReadOnly = True
  193.       Visible = False
  194.     end
  195.   end
  196. end
  197.