home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / blobs / blobstuf / main.txt < prev   
Text File  |  1995-03-20  |  2KB  |  119 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 99
  4.   AutoScroll = False
  5.   Caption = 'Form1'
  6.   ClientHeight = 358
  7.   ClientWidth = 539
  8.   Font.Color = clWindowText
  9.   Font.Height = -16
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 120
  13.   TextHeight = 20
  14.   object Label1: TLabel
  15.     Left = 16
  16.     Top = 0
  17.     Width = 106
  18.     Height = 20
  19.     Caption = 'DB Blob Field'
  20.   end
  21.   object Label2: TLabel
  22.     Left = 344
  23.     Top = 0
  24.     Width = 115
  25.     Height = 20
  26.     Caption = 'Regular Memo'
  27.   end
  28.   object DBGrid1: TDBGrid
  29.     Left = 0
  30.     Top = 161
  31.     Width = 539
  32.     Height = 197
  33.     Align = alBottom
  34.     DataSource = DataSource1
  35.     TabOrder = 0
  36.     TitleFont.Color = clWindowText
  37.     TitleFont.Height = -16
  38.     TitleFont.Name = 'System'
  39.     TitleFont.Style = []
  40.   end
  41.   object DBMemo1: TDBMemo
  42.     Left = 13
  43.     Top = 24
  44.     Width = 180
  45.     Height = 129
  46.     DataField = 'Notes'
  47.     DataSource = DataSource1
  48.     TabOrder = 1
  49.   end
  50.   object Save: TButton
  51.     Left = 202
  52.     Top = 46
  53.     Width = 129
  54.     Height = 41
  55.     Caption = 'Save'
  56.     TabOrder = 2
  57.     OnClick = SaveClick
  58.   end
  59.   object ReadStream: TButton
  60.     Left = 202
  61.     Top = 104
  62.     Width = 129
  63.     Height = 41
  64.     Caption = 'ReadStream'
  65.     Enabled = False
  66.     TabOrder = 3
  67.     OnClick = ReadStreamClick
  68.   end
  69.   object Memo1: TMemo
  70.     Left = 344
  71.     Top = 24
  72.     Width = 185
  73.     Height = 129
  74.     Lines.Strings = (
  75.       'Memo1')
  76.     TabOrder = 4
  77.   end
  78.   object Table1: TTable
  79.     Active = True
  80.     DatabaseName = 'DBDEMOS'
  81.     TableName = 'BIOLIFE.DB'
  82.     Left = 224
  83.     Top = 8
  84.     object Table1SpeciesNo: TFloatField
  85.       FieldName = 'Species No'
  86.     end
  87.     object Table1Category: TStringField
  88.       FieldName = 'Category'
  89.       Size = 15
  90.     end
  91.     object Table1Common_Name: TStringField
  92.       FieldName = 'Common_Name'
  93.       Size = 30
  94.     end
  95.     object Table1SpeciesName: TStringField
  96.       FieldName = 'Species Name'
  97.       Size = 40
  98.     end
  99.     object Table1Lengthcm: TFloatField
  100.       FieldName = 'Length (cm)'
  101.     end
  102.     object Table1Length_In: TFloatField
  103.       FieldName = 'Length_In'
  104.     end
  105.     object Table1Notes: TMemoField
  106.       FieldName = 'Notes'
  107.       Size = 50
  108.     end
  109.     object Table1Graphic: TGraphicField
  110.       FieldName = 'Graphic'
  111.     end
  112.   end
  113.   object DataSource1: TDataSource
  114.     DataSet = Table1
  115.     Left = 272
  116.     Top = 8
  117.   end
  118. end
  119.