object GeoDatabase: TGeoDatabase Left = 234 Top = 288 Width = 491 Height = 322 Caption = 'GeoDatabase:' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OnActivate = FormActivate OnCreate = FormCreate OnHide = FormHide OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 483 Height = 49 Align = alTop TabOrder = 0 object Bevel1: TBevel Left = 232 Top = 8 Width = 169 Height = 37 Style = bsRaised end object RG: TRadioGroup Left = 5 Top = 2 Width = 220 Height = 44 Caption = ' View data ' Columns = 3 ItemIndex = 0 Items.Strings = ( 'record' 'full table') TabOrder = 0 OnClick = RGClick end object Print: TBitBtn Left = 240 Top = 14 Width = 75 Height = 25 Caption = 'Print table' TabOrder = 1 OnClick = PrintClick end object Panel2: TPanel Left = 146 Top = 14 Width = 73 Height = 25 Caption = 'Panel2' TabOrder = 2 object SBDef: TSpeedButton Left = 0 Top = 0 Width = 73 Height = 25 Hint = 'Table: setting ' Caption = 'set table' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC C8807FF7777777777FF700000000000000007777777777777777333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SBDefClick end end object BAction: TBitBtn Left = 320 Top = 14 Width = 75 Height = 25 Hint = 'Define dbf access' Caption = 'dblClick - def' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = BActionClick end end object SG: TStringGrid Left = 0 Top = 49 Width = 483 Height = 246 Align = alClient ColCount = 2 DefaultColWidth = 60 DefaultRowHeight = 20 Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect] ParentFont = False TabOrder = 1 OnDblClick = SGDblClick OnMouseDown = SGMouseDown ColWidths = ( 60 165) RowHeights = ( 20 20 20 20 20) end end