main.txt

fielder Working with the Fields Object

object Form1: TForm1
  Left = 200
  Top = 113
  BorderStyle = bsDialog
  Caption = 'Working with the Fields Object'
  ClientHeight = 220
  ClientWidth = 347
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object ListBox1: TListBox
    Left = 0
    Top = 33
    Width = 171
    Height = 187
    Align = alLeft
    ItemHeight = 13
    TabOrder = 0
  end
  object ListBox2: TListBox
    Left = 176
    Top = 33
    Width = 171
    Height = 187
    Align = alRight
    ItemHeight = 13
    TabOrder = 1
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 347
    Height = 33
    Align = alTop
    TabOrder = 2
    object bbCurRecord: TBitBtn
      Left = 202
      Top = 4
      Width = 112
      Height = 26
      Caption = 'Current Record'
      TabOrder = 0
      OnClick = bbCurRecordClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00559999999995
        5555557777777775F5555559999999505555555777777757FFF5555555555550
        0955555555555FF7775F55555555995501955555555577557F75555555555555
        01995555555555557F5755555555555501905555555555557F57555555555555
        0F905555555555557FF75555555555500005555555555557777555555555550F
        F05555555555557F57F5555555555008F05555555555F775F755555555570000
        05555555555775577555555555700007555555555F755F775555555570000755
        55555555775F77555555555700075555555555F75F7755555555570007555555
        5555577F775555555555000755555555555577775555555555550000}
      NumGlyphs = 2
    end
    object bbFields: TBitBtn
      Left = 33
      Top = 4
      Width = 112
      Height = 26
      Caption = 'Fields'
      TabOrder = 1
      OnClick = bbFieldsClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00559999999995
        5555557777777775F5555559999999505555555777777757FFF5555555555550
        0955555555555FF7775F55555555995501955555555577557F75555555555555
        01995555555555557F5755555555555501905555555555557F57555555555555
        0F905555555555557FF75555555555500005555555555557777555555555550F
        F05555555555557F57F5555555555008F05555555555F775F755555555570000
        05555555555775577555555555700007555555555F755F775555555570000755
        55555555775F77555555555700075555555555F75F7755555555570007555555
        5555577F775555555555000755555555555577775555555555550000}
      NumGlyphs = 2
    end
  end
  object tblCustomer: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'CUSTOMER.DB'
    Top = 8
  end
end