home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D1 / DTOOLS30.ZIP / DEMOCLOK.DFM / DEMOCLOK.txt
Text File  |  1995-11-06  |  2KB  |  100 lines
  1. object Clocks: TClocks
  2.   Left = 200
  3.   Top = 99
  4.   BorderIcons = []
  5.   BorderStyle = bsDialog
  6.   Caption = 'Clocks'
  7.   ClientHeight = 196
  8.   ClientWidth = 283
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   OnCreate = FormCreate
  16.   TextHeight = 16
  17.   object LEDClock1: TLEDClock
  18.     Left = 5
  19.     Top = 153
  20.     Width = 136
  21.     Height = 30
  22.     Hint = 'An LED clock.  Enough said.'
  23.     BackColor = clOlive
  24.     UnlitColor = clOlive
  25.     LitColor = clYellow
  26.   end
  27.   object AnalogClock1: TAnalogClock
  28.     Left = 5
  29.     Top = 8
  30.     Width = 136
  31.     Height = 137
  32.     Hint = 'Hey look kids, it'#39's an analog clock!'
  33.     FaceColor = clYellow
  34.     HandsColor = clBlue
  35.     OutlineColor = clBlue
  36.     SecHandColor = clRed
  37.     TickColor = clBlue
  38.   end
  39.   object ShadowButton1: TShadowButton
  40.     Left = 171
  41.     Top = 148
  42.     Width = 89
  43.     Height = 33
  44.     Hint = 'Click me to make this window go away!'
  45.     Cancel = True
  46.     Caption = 'OK'
  47.     Default = True
  48.     ModalResult = 1
  49.     TabOrder = 3
  50.   end
  51.   object chkShowSecs: TLEDCheckBox
  52.     Left = 151
  53.     Top = 100
  54.     Width = 126
  55.     Height = 17
  56.     Hint = 'Toggle the display of seconds on the clocks.'
  57.     Caption = 'Show Seconds'
  58.     Checked = True
  59.     LitColor = clYellow
  60.     State = cbChecked
  61.     TabOrder = 2
  62.     UnlitColor = clOlive
  63.     OnClick = chkShowSecsClick
  64.   end
  65.   object GroupBox1: TGroupBox
  66.     Left = 151
  67.     Top = 8
  68.     Width = 126
  69.     Height = 77
  70.     Caption = 'Clock Shape'
  71.     TabOrder = 1
  72.     object rbCircle: TBWCCRadioButton
  73.       Left = 11
  74.       Top = 24
  75.       Width = 94
  76.       Height = 17
  77.       Hint = 'Select the shape of the analog clock.'
  78.       Caption = 'Circle'
  79.       Checked = False
  80.       Color = clBtnFace
  81.       ParentColor = False
  82.       TabOrder = 0
  83.       OnClick = rbCircleClick
  84.     end
  85.     object rbSquare: TBWCCRadioButton
  86.       Left = 11
  87.       Top = 48
  88.       Width = 94
  89.       Height = 17
  90.       Hint = 'Select the shape of the analog clock.'
  91.       Caption = 'Square'
  92.       Checked = False
  93.       Color = clBtnFace
  94.       ParentColor = False
  95.       TabOrder = 1
  96.       OnClick = rbSquareClick
  97.     end
  98.   end
  99. end
  100.