818d8099cb
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6855 8e941d3f-bd1b-0410-a28a-d453659cc2b4
179 lines
4.0 KiB
Plaintext
179 lines
4.0 KiB
Plaintext
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
|
|
Color = clPurple
|
|
ParentColor = False
|
|
ColorFore = clRed
|
|
ColorBack = clInactiveCaption
|
|
SignalUnit = 'mV'
|
|
ValueMin = 0
|
|
ValueMax = 100
|
|
Digits = 0
|
|
Increment = 10
|
|
ShowIncrements = True
|
|
Transparent = True
|
|
GapTop = 10
|
|
GapBottom = 5
|
|
BarThickness = 6
|
|
MarkerColor = clBlue
|
|
ShowMarker = True
|
|
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
|
|
ColorBetween = 16481536
|
|
ColorThumb = 10768896
|
|
MaxPosition = 75
|
|
MinPosition = 25
|
|
SliderMode = smMinValueMax
|
|
ThumbStyle = tsTriangle
|
|
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
|