home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap20 / ranger2 / main.txt < prev    next >
Encoding:
Text File  |  1995-03-21  |  2.7 KB  |  137 lines
  1. object Form1: TForm1
  2.   Left = 97
  3.   Top = 101
  4.   AutoScroll = False
  5.   Caption = 'Ranger Two'
  6.   ClientHeight = 310
  7.   ClientWidth = 456
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   TextHeight = 16
  14.   object DBGrid1: TDBGrid
  15.     Left = 0
  16.     Top = 160
  17.     Width = 456
  18.     Height = 150
  19.     Align = alBottom
  20.     DataSource = DataSource1
  21.     TabOrder = 0
  22.     TitleFont.Color = clWindowText
  23.     TitleFont.Height = -13
  24.     TitleFont.Name = 'System'
  25.     TitleFont.Style = []
  26.   end
  27.   object Panel1: TPanel
  28.     Left = 72
  29.     Top = 0
  30.     Width = 313
  31.     Height = 153
  32.     TabOrder = 1
  33.     object rb1000: TRadioButton
  34.       Left = 24
  35.       Top = 16
  36.       Width = 113
  37.       Height = 17
  38.       Caption = '1000'
  39.       TabOrder = 0
  40.       OnClick = RadioRange
  41.     end
  42.     object rb2000s: TRadioButton
  43.       Left = 24
  44.       Top = 40
  45.       Width = 113
  46.       Height = 17
  47.       Caption = '2000'
  48.       TabOrder = 1
  49.       OnClick = RadioRange
  50.     end
  51.     object rb3000s: TRadioButton
  52.       Left = 24
  53.       Top = 64
  54.       Width = 113
  55.       Height = 17
  56.       Caption = '3000'
  57.       TabOrder = 2
  58.       OnClick = RadioRange
  59.     end
  60.     object rb4000s: TRadioButton
  61.       Left = 24
  62.       Top = 88
  63.       Width = 113
  64.       Height = 17
  65.       Caption = '4000'
  66.       TabOrder = 3
  67.       OnClick = RadioRange
  68.     end
  69.     object rb5000s: TRadioButton
  70.       Left = 24
  71.       Top = 112
  72.       Width = 113
  73.       Height = 17
  74.       Caption = '5000'
  75.       TabOrder = 4
  76.       OnClick = RadioRange
  77.     end
  78.     object rb6000: TRadioButton
  79.       Left = 176
  80.       Top = 16
  81.       Width = 113
  82.       Height = 17
  83.       Caption = '6000'
  84.       TabOrder = 5
  85.       OnClick = RadioRange
  86.     end
  87.     object rb7000: TRadioButton
  88.       Left = 176
  89.       Top = 40
  90.       Width = 113
  91.       Height = 17
  92.       Caption = '7000'
  93.       TabOrder = 6
  94.       OnClick = RadioRange
  95.     end
  96.     object rb8000: TRadioButton
  97.       Left = 176
  98.       Top = 64
  99.       Width = 113
  100.       Height = 17
  101.       Caption = '8000'
  102.       TabOrder = 7
  103.       OnClick = RadioRange
  104.     end
  105.     object rb9000: TRadioButton
  106.       Left = 176
  107.       Top = 88
  108.       Width = 113
  109.       Height = 17
  110.       Caption = '9000'
  111.       TabOrder = 8
  112.       OnClick = RadioRange
  113.     end
  114.     object rb10000: TRadioButton
  115.       Left = 176
  116.       Top = 112
  117.       Width = 113
  118.       Height = 17
  119.       Caption = '10000'
  120.       TabOrder = 9
  121.       OnClick = RadioRange
  122.     end
  123.   end
  124.   object Table1: TTable
  125.     Active = True
  126.     DatabaseName = 'DBDEMOS'
  127.     TableName = 'CUSTOMER.DB'
  128.     Left = 8
  129.     Top = 8
  130.   end
  131.   object DataSource1: TDataSource
  132.     DataSet = Table1
  133.     Left = 8
  134.     Top = 40
  135.   end
  136. end
  137.