DP Tool Club 26/CD_ASCQ_26_1295.iso/vrac/leds.zip/MAIN.DFM/MAIN.txt

Text File | 1995-10-13 | 4KB | 182 lines

object MainForm: TMainForm
  Left = 336
  Top = 109
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'LED Digit Demo'
  ClientHeight = 129
  ClientWidth = 183
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 112
    Width = 142
    Height = 16
    Caption = '(c) BisonWare 1995'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Button1: TButton
    Left = 4
    Top = 56
    Width = 57
    Height = 25
    Caption = '&Start'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left = 4
    Top = 4
    Width = 177
    Height = 49
    BevelOuter = bvLowered
    Color = clBlack
    TabOrder = 1
    object LED1: TLEDDigit
      Left = 116
      Top = 8
      Width = 17
      Height = 33
      SegmentColor = clRed
      OnRollForward = LED1RollForward
    end
    object LED2: TLEDDigit
      Left = 100
      Top = 8
      Width = 17
      Height = 33
      MaxValue = 5
      SegmentColor = clRed
      OnRollForward = LED2RollForward
    end
    object LED3: TLEDDigit
      Left = 72
      Top = 8
      Width = 17
      Height = 33
      SegmentColor = clRed
      OnRollForward = LED3RollForward
    end
    object LED4: TLEDDigit
      Left = 56
      Top = 8
      Width = 17
      Height = 33
      MaxValue = 5
      SegmentColor = clRed
      OnRollForward = LED4RollForward
    end
    object LED5: TLEDDigit
      Left = 28
      Top = 8
      Width = 17
      Height = 33
      SegmentColor = clRed
      OnRollForward = LED5RollForward
    end
    object LED6: TLEDDigit
      Left = 12
      Top = 8
      Width = 17
      Height = 33
      SegmentColor = clRed
    end
    object LED7: TLEDDigit
      Left = 144
      Top = 8
      Width = 17
      Height = 33
      SegmentColor = clRed
      OnRollForward = LED7RollForward
    end
    object Colon1: TLEDDigit
      Left = 44
      Top = 8
      Width = 13
      Height = 33
      SegmentColor = clRed
      LEDDisplayType = dtColon
    end
    object Colon2: TLEDDigit
      Left = 88
      Top = 8
      Width = 13
      Height = 33
      SegmentColor = clRed
      LEDDisplayType = dtColon
    end
    object Stop1: TLEDDigit
      Left = 132
      Top = 8
      Width = 13
      Height = 33
      SegmentColor = clRed
      LEDDisplayType = dtStop
    end
  end
  object Button3: TButton
    Left = 64
    Top = 56
    Width = 57
    Height = 25
    Caption = 'Sto&p'
    Enabled = False
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 124
    Top = 56
    Width = 57
    Height = 25
    Caption = '&Reset'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Button4Click
  end
  object Button2: TButton
    Left = 4
    Top = 84
    Width = 177
    Height = 25
    Caption = '&Close'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button2Click
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 57
    OnTimer = Timer1Timer
    Left = 212
    Top = 4
  end
end