home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / demobase / main.txt < prev   
Encoding:
Text File  |  1995-03-21  |  2.8 KB  |  130 lines
  1. object Form1: TForm1
  2.   Left = 181
  3.   Top = 113
  4.   Width = 612
  5.   Height = 300
  6.   ActiveControl = DBGrid1
  7.   Caption = 'Delphi Unleashed Programs'
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   Menu = MainMenu1
  13.   PixelsPerInch = 96
  14.   OnCreate = FormCreate
  15.   TextHeight = 16
  16.   object DBGrid1: TDBGrid
  17.     Left = 0
  18.     Top = 144
  19.     Width = 604
  20.     Height = 110
  21.     Align = alBottom
  22.     DataSource = DataSource1
  23.     TabOrder = 0
  24.     TitleFont.Color = clWindowText
  25.     TitleFont.Height = -13
  26.     TitleFont.Name = 'System'
  27.     TitleFont.Style = []
  28.   end
  29.   object DBMemo1: TDBMemo
  30.     Left = 0
  31.     Top = 41
  32.     Width = 604
  33.     Height = 103
  34.     Align = alClient
  35.     DataField = 'DESCRIPTIO'
  36.     DataSource = DataSource1
  37.     Font.Color = clBlack
  38.     Font.Height = -13
  39.     Font.Name = 'Courier New'
  40.     Font.Style = []
  41.     ParentFont = False
  42.     ScrollBars = ssVertical
  43.     TabOrder = 1
  44.   end
  45.   object Panel1: TPanel
  46.     Left = 0
  47.     Top = 0
  48.     Width = 604
  49.     Height = 41
  50.     Align = alTop
  51.     Caption = 'Panel1'
  52.     TabOrder = 2
  53.     object DBNavigator1: TDBNavigator
  54.       Left = 168
  55.       Top = 8
  56.       Width = 225
  57.       Height = 25
  58.       DataSource = DataSource1
  59.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  60.       TabOrder = 0
  61.     end
  62.   end
  63.   object DataSource1: TDataSource
  64.     DataSet = Table1
  65.     Left = 48
  66.     Top = 8
  67.   end
  68.   object Table1: TTable
  69.     DatabaseName = 'DataSpot'
  70.     Exclusive = True
  71.     TableName = 'ALLPROGS.DBF'
  72.     TableType = ttDBase
  73.     Left = 16
  74.     Top = 8
  75.   end
  76.   object FileIterator1: TFileIterator
  77.     OnFoundFile = FileIterator1FoundFile
  78.     UseFileList = False
  79.     UseDirList = False
  80.     Left = 80
  81.     Top = 8
  82.   end
  83.   object Database1: TDatabase
  84.     AliasName = 'ADDRESS'
  85.     Connected = True
  86.     DatabaseName = 'DataSpot'
  87.     Left = 144
  88.     Top = 8
  89.   end
  90.   object MainMenu1: TMainMenu
  91.     Left = 112
  92.     Top = 8
  93.     object Options1: TMenuItem
  94.       Caption = 'Options'
  95.       object Search1: TMenuItem
  96.         Caption = 'Search'
  97.         OnClick = Search1Click
  98.       end
  99.       object Count1: TMenuItem
  100.         Caption = 'Count'
  101.       end
  102.       object N1: TMenuItem
  103.         Caption = '-'
  104.       end
  105.       object ReLoad1: TMenuItem
  106.         Caption = 'ReLoad'
  107.         OnClick = ReLoad1Click
  108.       end
  109.     end
  110.     object Indexes1: TMenuItem
  111.       Caption = 'Indexes'
  112.       object None1: TMenuItem
  113.         Tag = 100
  114.         Caption = 'None'
  115.         OnClick = Indexes1Click
  116.       end
  117.       object Programs1: TMenuItem
  118.         Tag = 101
  119.         Caption = 'Programs'
  120.         OnClick = Indexes1Click
  121.       end
  122.       object Chapters1: TMenuItem
  123.         Tag = 102
  124.         Caption = 'Chapters'
  125.         OnClick = Indexes1Click
  126.       end
  127.     end
  128.   end
  129. end
  130.