lazarus-ccr/components/industrialstuff/Example/AnalogSensor/analogsensor_unit.lfm

object Form1: TForm1
  Left = 261
  Height = 279
  Top = 130
  Width = 590
  AutoSize = True
  Caption = 'AnalogSensor Demo'
  ClientHeight = 279
  ClientWidth = 590
  OnCreate = FormCreate
  LCLVersion = '2.3.0.0'
  object AnalogSensor1: TAnalogSensor
    AnchorSideLeft.Control = SettingsPanel
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    Left = 324
    Height = 150
    Top = 8
    Width = 250
    BorderSpacing.Around = 8
    BevelInner = bvRaised
    BevelOuter = bvLowered
    ClientHeight = 150
    ClientWidth = 250
    Color = clSilver
    ParentBackground = False
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    VerticalAlignment = taAlignTop
    ShowText = True
    ShowLevel = True
    ColorFore = clGreen
    ColorBack = clLime
    Value = 40
    ValueMax = 100
    ValueRed = 30
    ValueYellow = 60
    AnalogKind = akAnalog
  end
  object SettingsPanel: TPanel
    AnchorSideLeft.Control = Owner
    AnchorSideLeft.Side = asrBottom
    Left = 12
    Height = 255
    Top = 12
    Width = 300
    Align = alLeft
    AutoSize = True
    BorderSpacing.Around = 12
    BevelOuter = bvNone
    ClientHeight = 255
    ClientWidth = 300
    Constraints.MinWidth = 300
    TabOrder = 0
    object cbAnalogKind: TComboBox
      AnchorSideTop.Control = GroupBox1
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = SettingsPanel
      AnchorSideRight.Side = asrBottom
      Left = 104
      Height = 23
      Top = 148
      Width = 196
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 8
      ItemHeight = 15
      ItemIndex = 0
      Items.Strings = (
        'akAnalog'
        'akHorizontal'
        'akVertical'
      )
      OnChange = cbAnalogKindChange
      Style = csDropDownList
      TabOrder = 1
      Text = 'akAnalog'
    end
    object lblAnalogKind: TLabel
      AnchorSideTop.Control = cbAnalogKind
      AnchorSideTop.Side = asrCenter
      Left = 0
      Height = 15
      Top = 152
      Width = 65
      Caption = 'Analog Kind'
    end
    object lblCaption: TLabel
      AnchorSideLeft.Control = SettingsPanel
      AnchorSideTop.Control = edCaption
      AnchorSideTop.Side = asrCenter
      Left = 0
      Height = 15
      Top = 183
      Width = 42
      Caption = 'Caption'
    end
    object edCaption: TEdit
      AnchorSideLeft.Control = cbAnalogKind
      AnchorSideTop.Control = cbAnalogKind
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = cbAnalogKind
      AnchorSideRight.Side = asrBottom
      Left = 104
      Height = 23
      Top = 179
      Width = 196
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 8
      OnChange = edCaptionChange
      TabOrder = 2
    end
    object cbShowText: TCheckBox
      AnchorSideLeft.Control = SettingsPanel
      AnchorSideTop.Control = edCaption
      AnchorSideTop.Side = asrBottom
      Left = 0
      Height = 19
      Top = 210
      Width = 72
      BorderSpacing.Top = 8
      Caption = 'Show Text'
      Checked = True
      OnChange = cbShowTextChange
      State = cbChecked
      TabOrder = 3
    end
    object cbShowLevel: TCheckBox
      AnchorSideLeft.Control = cbShowText
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cbShowText
      Left = 104
      Height = 19
      Top = 210
      Width = 77
      BorderSpacing.Left = 32
      Caption = 'Show Level'
      Checked = True
      OnChange = cbShowLevelChange
      State = cbChecked
      TabOrder = 4
    end
    object GroupBox1: TGroupBox
      Left = 0
      Height = 140
      Top = 0
      Width = 300
      Align = alTop
      AutoSize = True
      Caption = 'Values'
      ClientHeight = 120
      ClientWidth = 296
      TabOrder = 0
      object sbValue: TScrollBar
        AnchorSideLeft.Control = clbValueFore
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = clbValueFore
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = GroupBox1
        AnchorSideRight.Side = asrBottom
        Left = 120
        Height = 17
        Top = 4
        Width = 168
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Top = 4
        BorderSpacing.Right = 8
        PageSize = 0
        Position = 20
        TabOrder = 0
        OnChange = sbValueChange
      end
      object sbValueRed: TScrollBar
        AnchorSideLeft.Control = clbValueRed
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = clbValueRed
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = GroupBox1
        AnchorSideRight.Side = asrBottom
        Left = 120
        Height = 17
        Top = 33
        Width = 168
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Top = 8
        BorderSpacing.Right = 8
        PageSize = 0
        Position = 30
        TabOrder = 1
        OnChange = sbValueRedChange
      end
      object sbValueYellow: TScrollBar
        AnchorSideLeft.Control = clbValueYellow
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = clbValueYellow
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = GroupBox1
        AnchorSideRight.Side = asrBottom
        Left = 120
        Height = 17
        Top = 62
        Width = 168
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Top = 6
        BorderSpacing.Right = 8
        BorderSpacing.Bottom = 8
        PageSize = 0
        Position = 60
        TabOrder = 2
        OnChange = sbValueYellowChange
      end
      object clbValueFore: TColorButton
        AnchorSideLeft.Control = GroupBox1
        AnchorSideTop.Control = GroupBox1
        AnchorSideRight.Control = GroupBox1
        AnchorSideRight.Side = asrBottom
        AnchorSideBottom.Side = asrBottom
        Left = 12
        Height = 25
        Top = 0
        Width = 100
        BorderSpacing.Left = 12
        BorderSpacing.Right = 8
        BorderWidth = 2
        ButtonColorAutoSize = False
        ButtonColorSize = 16
        ButtonColor = clGreen
        Caption = 'Value'
        Margin = 4
        OnColorChanged = clbValueForeColorChanged
      end
      object clbValueRed: TColorButton
        AnchorSideLeft.Control = GroupBox1
        AnchorSideTop.Control = clbValueFore
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Side = asrBottom
        AnchorSideBottom.Side = asrBottom
        Left = 12
        Height = 25
        Top = 29
        Width = 100
        BorderSpacing.Left = 12
        BorderSpacing.Top = 4
        BorderSpacing.Right = 8
        BorderWidth = 2
        ButtonColorAutoSize = False
        ButtonColorSize = 16
        ButtonColor = clRed
        Caption = 'Value Red'
        Margin = 4
        OnColorChanged = clbValueRedColorChanged
      end
      object clbValueYellow: TColorButton
        AnchorSideLeft.Control = GroupBox1
        AnchorSideTop.Control = clbValueRed
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Side = asrBottom
        AnchorSideBottom.Side = asrBottom
        Left = 12
        Height = 25
        Top = 58
        Width = 100
        BorderSpacing.Left = 12
        BorderSpacing.Top = 4
        BorderSpacing.Right = 8
        BorderWidth = 2
        ButtonColorAutoSize = False
        ButtonColorSize = 16
        ButtonColor = clYellow
        Caption = 'Value Yellow'
        OnColorChanged = clbValueYellowColorChanged
      end
      object clbBack: TColorButton
        AnchorSideLeft.Control = GroupBox1
        AnchorSideTop.Control = clbValueYellow
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = GroupBox1
        AnchorSideRight.Side = asrBottom
        Left = 12
        Height = 25
        Top = 87
        Width = 100
        BorderSpacing.Left = 12
        BorderSpacing.Top = 4
        BorderSpacing.Bottom = 8
        BorderWidth = 2
        ButtonColorAutoSize = False
        ButtonColorSize = 16
        ButtonColor = clLime
        Caption = 'ColorBack'
        Margin = 4
        OnClick = clbBackClick
      end
    end
  end
end