home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D1 / DTOOLS30.ZIP / DEMOLED.DFM / DEMOLED.txt
Text File  |  1995-11-06  |  2KB  |  105 lines
  1. object LEDControls: TLEDControls
  2.   Left = 240
  3.   Top = 293
  4.   BorderIcons = []
  5.   BorderStyle = bsDialog
  6.   Caption = 'LED Controls'
  7.   ClientHeight = 139
  8.   ClientWidth = 376
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   ShowHint = True
  16.   OnCreate = FormCreate
  17.   TextHeight = 16
  18.   object LEDLabel1: TLEDLabel
  19.     Left = 9
  20.     Top = 13
  21.     Width = 102
  22.     Height = 60
  23.     Hint = 'Hey look it'#39's a segmented LED!'
  24.     UnlitColor = 16384
  25.     SegmentSize = 3
  26.     Caption = 'LED'
  27.     Columns = 3
  28.   end
  29.   object chkShowUnlit: TLEDCheckBox
  30.     Left = 132
  31.     Top = 64
  32.     Width = 237
  33.     Height = 17
  34.     Hint = 
  35.       'Click here to toggle the display of unlit segments on the LED la' +
  36.       'bel.'
  37.     Caption = 'Show unlit LED segments'
  38.     Checked = True
  39.     LitColor = clLime
  40.     State = cbChecked
  41.     TabOrder = 1
  42.     UnlitColor = 16384
  43.     OnClick = chkShowUnlitClick
  44.   end
  45.   object ShadowButton1: TShadowButton
  46.     Left = 143
  47.     Top = 96
  48.     Width = 89
  49.     Height = 33
  50.     Hint = 'Click me to make this window go away!'
  51.     Cancel = True
  52.     Caption = 'OK'
  53.     Default = True
  54.     ModalResult = 1
  55.     TabOrder = 2
  56.   end
  57.   object GroupBox1: TGroupBox
  58.     Left = 122
  59.     Top = 8
  60.     Width = 247
  61.     Height = 49
  62.     Caption = 'LED Color'
  63.     TabOrder = 0
  64.     object rbGreen: TLEDRadioButton
  65.       Left = 10
  66.       Top = 20
  67.       Width = 67
  68.       Height = 17
  69.       Hint = 'Pick the color for the LED label and check box.'
  70.       Caption = 'Green'
  71.       Checked = True
  72.       LitColor = clLime
  73.       TabOrder = 0
  74.       UnlitColor = 16384
  75.       OnClick = rbClick
  76.     end
  77.     object rbRed: TLEDRadioButton
  78.       Left = 94
  79.       Top = 20
  80.       Width = 59
  81.       Height = 17
  82.       Hint = 'Pick the color for the LED label and check box.'
  83.       Caption = 'Red'
  84.       Checked = False
  85.       LitColor = clLime
  86.       TabOrder = 1
  87.       UnlitColor = 16384
  88.       OnClick = rbClick
  89.     end
  90.     object rbCyan: TLEDRadioButton
  91.       Left = 162
  92.       Top = 20
  93.       Width = 67
  94.       Height = 17
  95.       Hint = 'Pick the color for the LED label and check box.'
  96.       Caption = 'Cyan'
  97.       Checked = False
  98.       LitColor = clLime
  99.       TabOrder = 2
  100.       UnlitColor = 16384
  101.       OnClick = rbClick
  102.     end
  103.   end
  104. end
  105.