object Form1: TForm1 Left = 159 Height = 223 Top = 156 Width = 824 Caption = 'IndustrialStuff Example' ClientHeight = 223 ClientWidth = 824 LCLVersion = '2.1.0.0' object indLed1: TindLed Left = 200 Height = 35 Top = 33 Width = 34 LedValue = False Bevels = < item HighlightColor = clBlack ShadowColor = clBlack end item Width = 3 end item Style = bcLowered end item HighlightColor = clBlack ShadowColor = clBlack end> LedColorOn = clLime LedColorOff = clGreen LedColorDisabled = 22963 ShapeLedColorOn = clGreen ShapeLedColorOff = 16384 ShapeLedColorDisabled = 13416 end object StopLightSensor1: TStopLightSensor Left = 96 Height = 59 Top = 24 Width = 25 Picture.Data = { 1754506F727461626C654E6574776F726B47726170686963EF00000089504E47 0D0A1A0A0000000D49484452000000150000002B08020000001805541C000000 B649444154789CED94010E84200C04FBF47B9A3FE304142AB5AD5B721763DCA0 21C1D9D6BA919639D17A7DA24A296D3CE15AC11FF3ADCF089F5F8FA8AED3072C 9EC39A85CA77389FAB161E5F15E7C5FA173F3B3F69017FBF6611CF8FABFBE7BF DCFB1EE08FF0B985959F8A9523D5C2E22B9C7F6FAC0B8017CDE3F5A505967F1B 76F8C1E2CD3FCEEFD363FBEB3C87350B277F54226C58983CCB7FB3C0F2CF2B47 EA4B0B2CFF36ECF083C5F3F3BF84B4F169427D48317D01F81FF539473C105700 00000049454E44AE426082 } State = slRED end object LEDNumber1: TLEDNumber Left = 40 Height = 28 Top = 128 Width = 177 Caption = 'Lazarus' end object AnalogSensor1: TAnalogSensor Left = 241 Height = 120 Top = 8 Width = 184 BevelOuter = bvNone BorderWidth = 2 BorderStyle = bsSingle Caption = 'level: ' ClientHeight = 116 ClientWidth = 180 Font.Height = -16 Font.Name = 'Arial' ParentColor = False ParentFont = False TabOrder = 0 ShowText = True ShowLevel = True ColorRed = clYellow ColorYellow = clRed Value = 50 ValueMin = 0 ValueMax = 100 ValueRed = 25 ValueYellow = 75 AnalogKind = akVertical end object indGnouMeter1: TindGnouMeter Left = 440 Height = 155 Top = 13 Width = 120 Caption = 'Voltage' Value = 50 ParentColor = False SignalUnit = 'mV' ValueMin = 0 ValueMax = 100 Digits = 0 Increment = 10 GapTop = 10 GapBottom = 5 BarThickness = 6 MarkerColor = clBlue end object Arrow1: TArrow Left = 48 Height = 20 Top = 41 Width = 20 Constraints.MinHeight = 8 Constraints.MinWidth = 8 end object AdvLed1: TAdvLed Left = 152 Height = 24 Top = 40 Width = 24 Kind = lkYellowLight State = lsOn Blink = False end object A3nalogGauge1: TA3nalogGauge Left = 568 Height = 207 Top = 8 Width = 241 ArrowWidth = 2 Caption = 'mV' CaptionFont.Height = -16 CaptionFont.Style = [fsBold] CenterColor = clSilver FaceOptions = [foShowMainTicks, foShowSubTicks, foShowIndicatorMin, foShowIndicatorMid, foShowIndicatorMax, foShowValues, foShowCenter, foShowFrame, foShowCaption] IndMaximum = 75 IndMinimum = 25 MidColor = clGreen MinColor = clYellow Position = 50 end object MultiSlider1: TMultiSlider Left = 25 Height = 35 Top = 180 Width = 504 ColorAbove = clRed ColorBelow = clYellow ColorBetween = clGreen ColorThumb = clBlack MaxPosition = 75 MinPosition = 25 SliderMode = smMinValueMax ThumbStyle = tsTriangleOtherSide OnPositionChange = MultiSlider1PositionChange end object ComboBox1: TComboBox Left = 255 Height = 23 Top = 138 Width = 153 ItemHeight = 15 ItemIndex = 2 Items.Strings = ( 'akAnalog' 'akHorizontal' 'akVertical' ) OnChange = ComboBox1Change Style = csDropDownList TabOrder = 3 Text = 'akVertical' end end