home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap20 / ranger / main.txt < prev    next >
Encoding:
Text File  |  1995-03-21  |  1.4 KB  |  75 lines
  1. object Form1: TForm1
  2.   Left = 147
  3.   Top = 86
  4.   ActiveControl = Edit1
  5.   AutoScroll = False
  6.   Caption = 'Ranger'
  7.   ClientHeight = 273
  8.   ClientWidth = 427
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   TextHeight = 16
  15.   object Label1: TLabel
  16.     Left = 32
  17.     Top = 8
  18.     Width = 76
  19.     Height = 16
  20.     Caption = 'Start Range'
  21.   end
  22.   object Label2: TLabel
  23.     Left = 32
  24.     Top = 48
  25.     Width = 71
  26.     Height = 16
  27.     Caption = 'End Range'
  28.   end
  29.   object DBGrid1: TDBGrid
  30.     Left = 0
  31.     Top = 96
  32.     Width = 427
  33.     Height = 177
  34.     Align = alBottom
  35.     DataSource = DataSource1
  36.     TabOrder = 3
  37.     TitleFont.Color = clWindowText
  38.     TitleFont.Height = -13
  39.     TitleFont.Name = 'System'
  40.     TitleFont.Style = []
  41.   end
  42.   object Edit1: TEdit
  43.     Left = 112
  44.     Top = 8
  45.     Width = 121
  46.     Height = 24
  47.     TabOrder = 0
  48.   end
  49.   object bApplyRange: TButton
  50.     Left = 264
  51.     Top = 8
  52.     Width = 121
  53.     Height = 65
  54.     Caption = 'ApplyRange'
  55.     TabOrder = 2
  56.     OnClick = bApplyRangeClick
  57.   end
  58.   object Edit2: TEdit
  59.     Left = 112
  60.     Top = 48
  61.     Width = 121
  62.     Height = 24
  63.     TabOrder = 1
  64.   end
  65.   object Table1: TTable
  66.     Active = True
  67.     DatabaseName = 'dbdemos'
  68.     TableName = 'CUSTOMER'
  69.   end
  70.   object DataSource1: TDataSource
  71.     DataSet = Table1
  72.     Top = 32
  73.   end
  74. end
  75.