lazarus-ccr/components/tvplanit/examples/gadgets/unit1.lfm

object Form1: TForm1
  Left = 262
  Height = 283
  Top = 155
  Width = 461
  Caption = 'Form1'
  ClientHeight = 283
  ClientWidth = 461
  Font.Color = clWindowText
  OnCreate = FormCreate
  LCLVersion = '1.7'
  object VpLEDLabel1: TVpLEDLabel
    Left = 9
    Height = 60
    Top = 6
    Width = 442
    Caption = 'Visual PlanIt'
    Columns = 13
    OffColor = 930866
    OnColor = clLime
    Size = 3
  end
  object VpClock1: TVpClock
    Left = 11
    Height = 200
    Top = 72
    Width = 200
    Active = False
    Color = clForm
    ClockMode = cmClock
    DigitalOptions.MilitaryTime = False
    DigitalOptions.OnColor = clLime
    DigitalOptions.OffColor = 930866
    DigitalOptions.BgColor = clBlack
    DigitalOptions.Size = 2
    DigitalOptions.ShowSeconds = True
    DisplayMode = dmAnalog
    AnalogOptions.DrawMarks = True
    AnalogOptions.HourHandColor = clBlack
    AnalogOptions.HourHandLength = 60
    AnalogOptions.HourHandWidth = 4
    AnalogOptions.MinuteHandColor = clBlack
    AnalogOptions.MinuteHandLength = 80
    AnalogOptions.MinuteHandWidth = 3
    AnalogOptions.SecondHandColor = clRed
    AnalogOptions.SecondHandLength = 90
    AnalogOptions.SecondHandWidth = 1
    AnalogOptions.ShowSecondHand = True
    AnalogOptions.SolidHands = True
    MinuteOffset = 0
    ParentColor = False
    SecondOffset = 0
    HourOffset = 0
    OnCountdownDone = VpClock1CountdownDone
    OnSecondChange = VpClockTimeChange
  end
  object BtnStartStop: TButton
    Left = 351
    Height = 51
    Top = 189
    Width = 99
    Caption = 'Start'
    OnClick = BtnStartStopClick
    TabOrder = 6
  end
  object RgClockMode: TRadioGroup
    Left = 224
    Height = 89
    Top = 151
    Width = 116
    AutoFill = True
    Caption = 'Clock mode'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 69
    ClientWidth = 112
    ItemIndex = 0
    Items.Strings = (
      'Clock'
      'Counter'
      'Count-down'
    )
    OnClick = RgClockModeClick
    TabOrder = 2
  end
  object LblCountDownTime: TLabel
    Left = 351
    Height = 15
    Top = 72
    Width = 98
    Caption = 'Count-down time:'
    FocusControl = EdCountDownTime
    ParentColor = False
    Visible = False
  end
  object CbNewClockFace: TCheckBox
    Left = 351
    Height = 19
    Top = 141
    Width = 100
    Caption = 'New clock face'
    OnChange = CbNewClockFaceChange
    TabOrder = 5
  end
  object LblElapsedTime: TLabel
    Left = 224
    Height = 15
    Top = 256
    Width = 49
    Caption = 'Elapsed...'
    ParentColor = False
  end
  object RgDisplayMode: TRadioGroup
    Left = 224
    Height = 63
    Top = 72
    Width = 115
    AutoFill = True
    Caption = 'Display mode'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 43
    ClientWidth = 111
    ItemIndex = 0
    Items.Strings = (
      'Analog'
      'Digital'
    )
    OnClick = RgDisplayModeClick
    TabOrder = 1
  end
  object CbMilitaryTime: TCheckBox
    Left = 351
    Height = 19
    Top = 128
    Width = 87
    Caption = 'Military time'
    OnChange = CbMilitaryTimeChange
    TabOrder = 4
    Visible = False
  end
  object EdCountDownTime: TEdit
    Left = 351
    Height = 23
    Top = 92
    Width = 99
    OnChange = EdCountDownTimeChange
    TabOrder = 3
    Text = '00:00:30'
    Visible = False
  end
end