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