lazarus-ccr/components/industrialstuff/Example/A3nalogGaugeSample/main.lfm

object MainForm: TMainForm
  Left = 430
  Height = 483
  Top = 138
  Width = 779
  Caption = 'AntiAliased Analog Gauge demo'
  ClientHeight = 483
  ClientWidth = 779
  Color = clBtnFace
  Font.Color = clWindowText
  OnCreate = FormCreate
  Position = poDefaultPosOnly
  LCLVersion = '2.1.0.0'
  object Panel1: TPanel
    Left = 0
    Height = 216
    Top = 224
    Width = 779
    Align = alBottom
    BevelOuter = bvNone
    ClientHeight = 216
    ClientWidth = 779
    TabOrder = 0
    object MarginLabel: TLabel
      Left = 8
      Height = 15
      Top = 120
      Width = 38
      Caption = 'Margin'
      FocusControl = MarginEdit
      ParentColor = False
    end
    object CenterLabel: TLabel
      Left = 104
      Height = 15
      Top = 120
      Width = 70
      Caption = 'Center radius'
      FocusControl = CenterRadEdit
      ParentColor = False
    end
    object CircleLabel: TLabel
      Left = 199
      Height = 15
      Top = 120
      Width = 65
      Caption = 'Circle radius'
      FocusControl = CircleRadEdit
      ParentColor = False
    end
    object ScaleMaxLabel: TLabel
      Left = 295
      Height = 15
      Top = 120
      Width = 84
      Caption = 'Scale max value'
      FocusControl = ScaleMaxEdit
      ParentColor = False
    end
    object AngleLabel: TLabel
      Left = 393
      Height = 15
      Top = 120
      Width = 59
      Caption = 'Scale angle'
      FocusControl = AngleEdit
      ParentColor = False
    end
    object MinimLabel: TLabel
      Left = 295
      Height = 15
      Top = 40
      Width = 53
      Caption = 'Minimum'
      FocusControl = MinimEdit
      ParentColor = False
    end
    object MaximLabel: TLabel
      Left = 393
      Height = 15
      Top = 40
      Width = 55
      Caption = 'Maximum'
      FocusControl = MaximEdit
      ParentColor = False
    end
    object WidthLabel: TLabel
      Left = 8
      Height = 15
      Top = 168
      Width = 65
      Caption = 'Arrow width'
      FocusControl = WidthEdit
      ParentColor = False
    end
    object NumMainLabel: TLabel
      Left = 104
      Height = 15
      Top = 168
      Width = 54
      Caption = 'Main ticks'
      FocusControl = NumMainEdit
      ParentColor = False
    end
    object MainLenLabel: TLabel
      Left = 199
      Height = 15
      Top = 168
      Width = 67
      Caption = 'Main length '
      FocusControl = MainLenEdit
      ParentColor = False
    end
    object SubLenLabel: TLabel
      Left = 393
      Height = 15
      Top = 168
      Width = 57
      Caption = 'Sub length'
      FocusControl = SubLenEdit
      ParentColor = False
    end
    object CaptionLabel: TLabel
      AnchorSideTop.Control = CaptionEdit
      AnchorSideTop.Side = asrCenter
      Left = 490
      Height = 15
      Top = 188
      Width = 42
      Caption = 'Caption'
      FocusControl = CaptionEdit
      ParentColor = False
    end
    object FPSLabel: TLabel
      Left = 498
      Height = 15
      Top = 24
      Width = 22
      Caption = 'FPS:'
      ParentColor = False
    end
    object FreqLabel: TLabel
      Left = 393
      Height = 15
      Top = 0
      Width = 88
      Caption = 'Timer delay (ms)'
      FocusControl = FreqEdit
      ParentColor = False
    end
    object AAModeLabel: TLabel
      Left = 295
      Height = 15
      Top = 0
      Width = 62
      Caption = 'Antialiasing'
      FocusControl = AAModeBox
      ParentColor = False
    end
    object FaceColorButton: TButton
      Left = 8
      Height = 25
      Top = 56
      Width = 88
      Caption = 'Face color'
      OnClick = FaceColorButtonClick
      TabOrder = 0
    end
    object CenterColorButton: TButton
      Left = 104
      Height = 25
      Top = 56
      Width = 88
      Caption = 'Center color'
      OnClick = CenterColorButtonClick
      TabOrder = 1
    end
    object CenterRadEdit: TSpinEdit
      Left = 104
      Height = 23
      Top = 136
      Width = 88
      MaxValue = 0
      OnChange = CenterRadEditChange
      TabOrder = 2
    end
    object CircleColorButton: TButton
      Left = 199
      Height = 25
      Top = 56
      Width = 88
      Caption = 'Circle color'
      OnClick = CircleColorButtonClick
      TabOrder = 3
    end
    object CircleRadEdit: TSpinEdit
      Left = 199
      Height = 23
      Top = 136
      Width = 88
      MaxValue = 0
      OnChange = CircleRadEditChange
      TabOrder = 4
    end
    object MarginEdit: TSpinEdit
      Left = 8
      Height = 23
      Top = 136
      Width = 88
      MaxValue = 0
      OnChange = MarginEditChange
      TabOrder = 5
    end
    object ScaleMaxEdit: TSpinEdit
      Left = 295
      Height = 23
      Top = 136
      Width = 88
      MaxValue = 0
      OnChange = ScaleMaxEditChange
      TabOrder = 6
    end
    object AngleEdit: TSpinEdit
      Left = 393
      Height = 23
      Top = 136
      Width = 88
      MaxValue = 0
      OnChange = AngleEditChange
      TabOrder = 7
    end
    object MinimEdit: TSpinEdit
      Left = 295
      Height = 23
      Top = 56
      Width = 88
      MaxValue = 0
      OnChange = MinimEditChange
      TabOrder = 8
    end
    object MaximEdit: TSpinEdit
      Left = 393
      Height = 23
      Top = 56
      Width = 88
      MaxValue = 0
      OnChange = MaximEditChange
      TabOrder = 9
    end
    object WidthEdit: TSpinEdit
      Left = 8
      Height = 23
      Top = 184
      Width = 88
      MaxValue = 0
      OnChange = WidthEditChange
      TabOrder = 10
    end
    object NumMainEdit: TSpinEdit
      Left = 104
      Height = 23
      Top = 184
      Width = 88
      MaxValue = 0
      OnChange = NumMainEditChange
      TabOrder = 11
    end
    object MainLenEdit: TSpinEdit
      Left = 199
      Height = 23
      Top = 184
      Width = 75
      MaxValue = 0
      OnChange = MainLenEditChange
      TabOrder = 12
    end
    object SubLenEdit: TSpinEdit
      Left = 393
      Height = 23
      Top = 184
      Width = 88
      MaxValue = 0
      OnChange = SubLenEditChange
      TabOrder = 13
    end
    object MarginBox: TCheckBox
      Left = 490
      Height = 19
      Top = 84
      Width = 90
      Caption = 'Show margin'
      OnClick = MarginBoxClick
      TabOrder = 14
    end
    object CirclesBox: TCheckBox
      Left = 659
      Height = 19
      Top = 84
      Width = 85
      Caption = 'Show circles'
      OnClick = CirclesBoxClick
      TabOrder = 15
    end
    object MainTicksBox: TCheckBox
      Left = 490
      Height = 19
      Top = 100
      Width = 106
      Caption = 'Show main ticks'
      OnClick = MainTicksBoxClick
      TabOrder = 16
    end
    object SubticksBox: TCheckBox
      Left = 490
      Height = 19
      Top = 116
      Width = 98
      Caption = 'Show sub ticks'
      OnClick = SubticksBoxClick
      TabOrder = 17
    end
    object IndMinBox: TCheckBox
      Left = 490
      Height = 19
      Top = 132
      Width = 155
      Caption = 'Show indicator minimum'
      OnClick = IndMinBoxClick
      TabOrder = 18
    end
    object IndMidBox: TCheckBox
      Left = 490
      Height = 19
      Top = 148
      Width = 123
      Caption = 'Show indicator mid'
      OnClick = IndMidBoxClick
      TabOrder = 19
    end
    object IndMaxBox: TCheckBox
      Left = 490
      Height = 19
      Top = 164
      Width = 157
      Caption = 'Show indicator maximum'
      OnClick = IndMaxBoxClick
      TabOrder = 20
    end
    object ValuesBox: TCheckBox
      Left = 659
      Height = 19
      Top = 100
      Width = 85
      Caption = 'Show values'
      OnClick = ValuesBoxClick
      TabOrder = 21
    end
    object CenterBox: TCheckBox
      Left = 659
      Height = 19
      Top = 116
      Width = 85
      Caption = 'Show center'
      OnClick = CenterBoxClick
      TabOrder = 22
    end
    object FrameBox: TCheckBox
      Left = 659
      Height = 19
      Top = 132
      Width = 83
      Caption = 'Show frame'
      OnClick = FrameBoxClick
      TabOrder = 23
    end
    object Draw3DBox: TCheckBox
      Left = 659
      Height = 19
      Top = 148
      Width = 66
      Caption = 'Show 3D'
      OnClick = Draw3DBoxClick
      TabOrder = 24
    end
    object CaptionBox: TCheckBox
      Left = 659
      Height = 19
      Top = 164
      Width = 92
      Caption = 'Show caption'
      OnClick = CaptionBoxClick
      TabOrder = 25
    end
    object CaptionEdit: TEdit
      Left = 544
      Height = 23
      Top = 184
      Width = 226
      OnChange = CaptionEditChange
      TabOrder = 26
      Text = 'CaptionEdit'
    end
    object FreqEdit: TSpinEdit
      Left = 393
      Height = 23
      Top = 16
      Width = 88
      MaxValue = 0
      OnChange = FreqEditChange
      TabOrder = 27
    end
    object TicksColorButton: TButton
      Left = 8
      Height = 25
      Top = 88
      Width = 88
      Caption = 'Ticks color'
      OnClick = TicksColorButtonClick
      TabOrder = 28
    end
    object ValueColorButton: TButton
      Left = 104
      Height = 25
      Top = 88
      Width = 88
      Caption = 'Values color'
      OnClick = ValueColorButtonClick
      TabOrder = 29
    end
    object CaptionColorButton: TButton
      Left = 199
      Height = 25
      Top = 88
      Width = 88
      Caption = 'Caption color'
      OnClick = CaptionColorButtonClick
      TabOrder = 30
    end
    object ArrowColorButton: TButton
      Left = 295
      Height = 25
      Top = 88
      Width = 88
      Caption = 'Arrow color'
      OnClick = ArrowColorButtonClick
      TabOrder = 31
    end
    object MarginColorButton: TButton
      Left = 393
      Height = 25
      Top = 88
      Width = 88
      Caption = 'Margin color'
      OnClick = MarginColorButtonClick
      TabOrder = 32
    end
    object MinColorButton: TButton
      Left = 490
      Height = 25
      Top = 56
      Width = 88
      Caption = 'Min color'
      OnClick = MinColorButtonClick
      TabOrder = 33
    end
    object MidColorButton: TButton
      Left = 584
      Height = 25
      Top = 56
      Width = 88
      Caption = 'Mid color'
      OnClick = MidColorButtonClick
      TabOrder = 34
    end
    object MaxColorButton: TButton
      Left = 678
      Height = 25
      Top = 56
      Width = 88
      Caption = 'Max color'
      OnClick = MaxColorButtonClick
      TabOrder = 35
    end
    object AAModeBox: TComboBox
      Left = 295
      Height = 23
      Top = 16
      Width = 88
      ItemHeight = 15
      Items.Strings = (
        'None'
        'Biline'
        'Triline'
        'Quadral'
      )
      OnChange = AAModeBoxChange
      Style = csDropDownList
      TabOrder = 36
    end
    object StyleBox: TComboBox
      Left = 199
      Height = 23
      Top = 16
      Width = 88
      ItemHeight = 15
      ItemIndex = 2
      Items.Strings = (
        'Left'
        'Right'
        'Center'
      )
      OnChange = StyleBoxChange
      Style = csDropDownList
      TabOrder = 37
      Text = 'Center'
    end
    object AAModeLabel1: TLabel
      Left = 199
      Height = 15
      Top = 0
      Width = 25
      Caption = 'Style'
      FocusControl = StyleBox
      ParentColor = False
    end
    object ScaleMinLabel: TLabel
      Left = 295
      Height = 15
      Top = 168
      Width = 82
      Caption = 'Scale min value'
      FocusControl = ScaleMinEdit
      ParentColor = False
    end
    object ScaleMinEdit: TSpinEdit
      Left = 295
      Height = 23
      Top = 184
      Width = 88
      MaxValue = 0
      OnChange = ScaleMinEditChange
      TabOrder = 38
    end
  end
  object Panel2: TPanel
    Left = 0
    Height = 43
    Top = 440
    Width = 779
    Align = alBottom
    BevelOuter = bvNone
    ClientHeight = 43
    ClientWidth = 779
    TabOrder = 1
    object CloseButton: TButton
      Left = 8
      Height = 25
      Top = 8
      Width = 88
      Caption = 'Close'
      OnClick = CloseButtonClick
      TabOrder = 0
    end
    object AboutLabel: TLabel
      Left = 199
      Height = 40
      Top = 0
      Width = 579
      Alignment = taCenter
      Anchors = [akLeft, akRight, akBottom]
      AutoSize = False
      Caption = 'Anti Aliased Analog Gauge component demonstration. '#13#10'(c) Irnis Haliullin, http://www.irnis.net/'
      Layout = tlCenter
      ParentColor = False
      OnClick = AboutLabelClick
      OnMouseLeave = AboutLabelMouseLeave
      OnMouseMove = AboutLabelMouseMove
    end
    object StartStopButton: TButton
      Left = 104
      Height = 25
      Top = 8
      Width = 75
      Caption = 'Stop'
      OnClick = StartStopButtonClick
      TabOrder = 1
    end
  end
  object Panel3: TPanel
    Left = 0
    Height = 224
    Top = 0
    Width = 779
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
  end
  object Timer: TTimer
    Interval = 10
    OnTimer = TimerTimer
    left = 88
    top = 112
  end
  object ColorDialog: TColorDialog
    Color = clBlack
    CustomColors.Strings = (
      'ColorA=000000'
      'ColorB=000080'
      'ColorC=008000'
      'ColorD=008080'
      'ColorE=800000'
      'ColorF=800080'
      'ColorG=808000'
      'ColorH=808080'
      'ColorI=C0C0C0'
      'ColorJ=0000FF'
      'ColorK=00FF00'
      'ColorL=00FFFF'
      'ColorM=FF0000'
      'ColorN=FF00FF'
      'ColorO=FFFF00'
      'ColorP=FFFFFF'
      'ColorQ=C0DCC0'
      'ColorR=F0CAA6'
      'ColorS=F0FBFF'
      'ColorT=A4A0A0'
    )
    left = 224
    top = 120
  end
end