home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap28 / object4 / status.txt < prev    next >
Encoding:
Text File  |  1995-03-21  |  2.9 KB  |  148 lines
  1. object StatusForm: TStatusForm
  2.   Left = 98
  3.   Top = 95
  4.   AutoScroll = False
  5.   Caption = 'Status'
  6.   ClientHeight = 349
  7.   ClientWidth = 479
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   TextHeight = 16
  16.   object Panel1: TPanel
  17.     Left = 23
  18.     Top = 16
  19.     Width = 433
  20.     Height = 281
  21.     TabOrder = 0
  22.     object gBlue: TGauge
  23.       Left = 16
  24.       Top = 40
  25.       Width = 89
  26.       Height = 193
  27.       Kind = gkVerticalBar
  28.       ForeColor = clBlue
  29.       MaxValue = 10600
  30.       Progress = 0
  31.     end
  32.     object gYellow: TGauge
  33.       Left = 120
  34.       Top = 41
  35.       Width = 89
  36.       Height = 193
  37.       Kind = gkVerticalBar
  38.       ForeColor = clYellow
  39.       MaxValue = 120
  40.       Progress = 0
  41.     end
  42.     object gGreen: TGauge
  43.       Left = 224
  44.       Top = 40
  45.       Width = 89
  46.       Height = 193
  47.       Kind = gkVerticalBar
  48.       ForeColor = clGreen
  49.       MaxValue = 6000
  50.       Progress = 0
  51.     end
  52.     object gViolet: TGauge
  53.       Left = 328
  54.       Top = 40
  55.       Width = 89
  56.       Height = 193
  57.       Kind = gkVerticalBar
  58.       ForeColor = clPurple
  59.       MaxValue = 6000
  60.       Progress = 0
  61.     end
  62.     object Label1: TLabel
  63.       Left = 45
  64.       Top = 240
  65.       Width = 30
  66.       Height = 16
  67.       Caption = 'Blue'
  68.     end
  69.     object Label2: TLabel
  70.       Left = 143
  71.       Top = 241
  72.       Width = 44
  73.       Height = 16
  74.       Caption = 'Yellow'
  75.     end
  76.     object Label3: TLabel
  77.       Left = 249
  78.       Top = 240
  79.       Width = 39
  80.       Height = 16
  81.       Caption = 'Green'
  82.     end
  83.     object Label4: TLabel
  84.       Left = 354
  85.       Top = 240
  86.       Width = 36
  87.       Height = 16
  88.       Caption = 'Violet'
  89.     end
  90.     object LBlue: TLabel
  91.       Left = 16
  92.       Top = 23
  93.       Width = 40
  94.       Height = 16
  95.       Caption = 'LBlue'
  96.       Font.Color = clBlack
  97.       Font.Height = -13
  98.       Font.Name = 'Courier New'
  99.       Font.Style = []
  100.       ParentFont = False
  101.     end
  102.     object LYellow: TLabel
  103.       Left = 120
  104.       Top = 23
  105.       Width = 56
  106.       Height = 16
  107.       Caption = 'LYellow'
  108.       Font.Color = clBlack
  109.       Font.Height = -13
  110.       Font.Name = 'Courier New'
  111.       Font.Style = []
  112.       ParentFont = False
  113.     end
  114.     object LGreen: TLabel
  115.       Left = 224
  116.       Top = 23
  117.       Width = 48
  118.       Height = 16
  119.       Caption = 'LGreen'
  120.       Font.Color = clBlack
  121.       Font.Height = -13
  122.       Font.Name = 'Courier New'
  123.       Font.Style = []
  124.       ParentFont = False
  125.     end
  126.     object LViolet: TLabel
  127.       Left = 328
  128.       Top = 23
  129.       Width = 56
  130.       Height = 16
  131.       Caption = 'LViolet'
  132.       Font.Color = clBlack
  133.       Font.Height = -13
  134.       Font.Name = 'Courier New'
  135.       Font.Style = []
  136.       ParentFont = False
  137.     end
  138.   end
  139.   object BitBtn1: TBitBtn
  140.     Left = 192
  141.     Top = 304
  142.     Width = 89
  143.     Height = 33
  144.     TabOrder = 1
  145.     Kind = bkOK
  146.   end
  147. end
  148.