Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/delphi/ruzne/auto32d3.exe/rar/AUTO32D3/DEMOS/DELPHI3.0/DBGRIDAD/MAIN.DFM/MAIN.txt

Text File | 1997-04-20 | 4KB | 187 lines

object MainForm: TMainForm
  Left = 136
  Top = 84
  Width = 571
  Height = 372
  Caption = 'The example of using AutoOptions property of the AutoDBGrid'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 288
    Width = 563
    Height = 57
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 175
      Top = 33
      Width = 204
      Height = 13
      Caption = 'Change the row heights. Now you can do it'
    end
    object CheckBox1: TCheckBox
      Left = 8
      Top = 31
      Width = 73
      Height = 17
      Caption = 'View Memo'
      State = cbChecked
      TabOrder = 0
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 88
      Top = 32
      Width = 81
      Height = 17
      Caption = 'View Image'
      State = cbChecked
      TabOrder = 1
      OnClick = CheckBox2Click
    end
    object Button1: TButton
      Left = 392
      Top = 29
      Width = 75
      Height = 25
      Caption = 'About'
      TabOrder = 2
      OnClick = Button1Click
    end
    object BitBtn1: TBitBtn
      Left = 480
      Top = 30
      Width = 75
      Height = 25
      TabOrder = 3
      Kind = bkClose
    end
    object DBNavigator1: TDBNavigator
      Left = 8
      Top = 0
      Width = 240
      Height = 25
      DataSource = DataSource1
      TabOrder = 4
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 563
    Height = 288
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    BorderWidth = 4
    Caption = 'Panel2'
    TabOrder = 1
    object AutoDBGrid1: TAutoDBGrid
      Left = 5
      Top = 5
      Width = 553
      Height = 278
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      AutoOptions = [adgViewImage, adgViewMemo]
      AutoFilter.AssignEmpty = False
      AutoRowHeight = 77
      CurrentSortColumn = 1
      FindFormFont.Charset = DEFAULT_CHARSET
      FindFormFont.Color = clWindowText
      FindFormFont.Height = -11
      FindFormFont.Name = 'MS Sans Serif'
      FindFormFont.Style = []
      Columns = <
        item
          FieldName = 'Species No'
          Title.Caption = '+Species No'
        end
        item
          FieldName = 'Category'
          Width = 56
        end
        item
          FieldName = 'Common_Name'
          Width = 93
        end
        item
          FieldName = 'Species Name'
          Width = 84
        end
        item
          FieldName = 'Graphic'
          Width = 122
        end
        item
          FieldName = 'Notes'
          Width = 171
        end
        item
          FieldName = 'Length (cm)'
        end
        item
          FieldName = 'Length_In'
          Width = 54
        end>
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'BIOLIFE.DB'
    Left = 24
    Top = 80
    object Table1SpeciesNo: TFloatField
      FieldName = 'Species No'
    end
    object Table1Category: TStringField
      FieldName = 'Category'
      Size = 15
    end
    object Table1Common_Name: TStringField
      FieldName = 'Common_Name'
      Size = 30
    end
    object Table1SpeciesName: TStringField
      FieldName = 'Species Name'
      Size = 40
    end
    object Table1Lengthcm: TFloatField
      FieldName = 'Length (cm)'
      DisplayFormat = '#####,###'
    end
    object Table1Length_In: TFloatField
      FieldName = 'Length_In'
      DisplayFormat = '## ###,##'
    end
    object Table1Notes: TMemoField
      FieldName = 'Notes'
      BlobType = ftMemo
      Size = 50
    end
    object Table1Graphic: TGraphicField
      FieldName = 'Graphic'
      BlobType = ftGraphic
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 32
    Top = 120
  end
end