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

object Form1: TForm1
  Left = 142
  Height = 292
  Top = 71
  Width = 459
  Caption = 'TvPlanit Gadgets demo'
  ClientHeight = 292
  ClientWidth = 459
  Font.Color = clWindowText
  OnShow = FormShow
  LCLVersion = '2.3.0.0'
  object VpClock: TVpClock
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Panel1
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 200
    Top = 78
    Width = 200
    BorderSpacing.Left = 8
    BorderSpacing.Top = 8
    Active = False
    Color = clForm
    ClockMode = cmClock
    DigitalOptions.MilitaryTime = True
    DigitalOptions.OnColor = clLime
    DigitalOptions.OffColor = 930866
    DigitalOptions.BgColor = clBlack
    DigitalOptions.Size = 2
    DigitalOptions.ShowSeconds = True
    DisplayMode = dmAnalog
    Hold = False
    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 = VpClockCountdownDone
    OnSecondChange = VpClockTimeChange
  end
  object BtnStartStop: TButton
    AnchorSideLeft.Control = RgClockMode
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = RgClockMode
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Side = asrBottom
    Left = 342
    Height = 25
    Top = 168
    Width = 80
    AutoSize = True
    BorderSpacing.Left = 16
    Caption = 'Start'
    Constraints.MinWidth = 80
    OnClick = BtnStartStopClick
    TabOrder = 6
  end
  object RgClockMode: TRadioGroup
    AnchorSideLeft.Control = RgDisplayMode
    AnchorSideTop.Control = RgDisplayMode
    AnchorSideTop.Side = asrBottom
    Left = 224
    Height = 77
    Top = 168
    Width = 102
    AutoFill = True
    AutoSize = True
    BorderSpacing.Top = 24
    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 = 57
    ClientWidth = 98
    ItemIndex = 0
    Items.Strings = (
      'Clock'
      'Counter'
      'Count-down'
    )
    OnClick = RgClockModeClick
    TabOrder = 2
  end
  object LblCountDownTime: TLabel
    AnchorSideLeft.Control = BtnStartStop
    AnchorSideTop.Control = Panel1
    AnchorSideTop.Side = asrBottom
    Left = 342
    Height = 15
    Top = 86
    Width = 98
    BorderSpacing.Top = 16
    BorderSpacing.Right = 16
    Caption = 'Count-down time:'
    Color = clDefault
    FocusControl = EdCountDownTime
    ParentColor = False
    Visible = False
  end
  object CbNewClockFace: TCheckBox
    AnchorSideLeft.Control = BtnStartStop
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = BtnStartStop
    Left = 342
    Height = 19
    Top = 137
    Width = 98
    Anchors = [akLeft, akBottom]
    BorderSpacing.Top = 4
    BorderSpacing.Right = 16
    BorderSpacing.Bottom = 12
    Caption = 'New clock face'
    OnChange = CbNewClockFaceChange
    TabOrder = 5
  end
  object LblElapsedTime: TLabel
    AnchorSideLeft.Control = RgDisplayMode
    AnchorSideTop.Control = RgClockMode
    AnchorSideTop.Side = asrBottom
    Left = 224
    Height = 15
    Top = 261
    Width = 49
    BorderSpacing.Top = 16
    BorderSpacing.Bottom = 16
    Caption = 'Elapsed...'
    Color = clDefault
    ParentColor = False
  end
  object RgDisplayMode: TRadioGroup
    AnchorSideLeft.Control = VpClock
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Panel1
    AnchorSideTop.Side = asrBottom
    Left = 224
    Height = 58
    Top = 86
    Width = 91
    AutoFill = True
    AutoSize = True
    BorderSpacing.Left = 16
    BorderSpacing.Top = 16
    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 = 38
    ClientWidth = 87
    ItemIndex = 0
    Items.Strings = (
      'Analog'
      'Digital'
    )
    OnClick = RgDisplayModeClick
    TabOrder = 1
  end
  object CbMilitaryTime: TCheckBox
    AnchorSideLeft.Control = BtnStartStop
    AnchorSideTop.Control = Owner
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = BtnStartStop
    Left = 342
    Height = 19
    Top = 137
    Width = 85
    Anchors = [akLeft, akBottom]
    BorderSpacing.Top = 12
    BorderSpacing.Right = 16
    BorderSpacing.Bottom = 12
    Caption = 'Military time'
    Checked = True
    OnChange = CbMilitaryTimeChange
    State = cbChecked
    TabOrder = 4
    Visible = False
  end
  object EdCountDownTime: TEdit
    AnchorSideLeft.Control = BtnStartStop
    AnchorSideTop.Control = LblCountDownTime
    AnchorSideTop.Side = asrBottom
    Left = 342
    Height = 23
    Top = 105
    Width = 99
    BorderSpacing.Top = 4
    BorderSpacing.Right = 16
    OnChange = EdCountDownTimeChange
    TabOrder = 3
    Text = '00:00:30'
    Visible = False
  end
  object Panel1: TPanel
    Left = 0
    Height = 70
    Top = 0
    Width = 452
    AutoSize = True
    Caption = 'Panel1'
    ClientHeight = 70
    ClientWidth = 452
    TabOrder = 7
    object VpLEDLabel1: TVpLEDLabel
      Left = 5
      Height = 60
      Top = 5
      Width = 442
      BorderSpacing.Around = 4
      Caption = 'Visual PlanIt'
      Columns = 13
      OffColor = 930866
      OnColor = clLime
      Size = 3
    end
  end
  object BtnPauseResume: TButton
    AnchorSideLeft.Control = BtnStartStop
    AnchorSideTop.Control = BtnStartStop
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Side = asrBottom
    Left = 342
    Height = 25
    Top = 195
    Width = 80
    AutoSize = True
    BorderSpacing.Top = 2
    Caption = 'Pause'
    Constraints.MinWidth = 80
    OnClick = BtnPauseResumeClick
    TabOrder = 8
    Visible = False
  end
end