paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

industral: Use TMultiSlider in IndustrialStuff demo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6855 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2019-04-22 14:00:45 +00:00
parent e4985bdc49
commit 818d8099cb
5 changed files with 91 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/industrialstuff/Example/Ex_IndustrialStuff.lpi
View File

@ -1,12 +1,15 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="Ex_IndustrialStuff"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
</General>
@ -18,8 +21,6 @@
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>

1
components/industrialstuff/Example/Ex_IndustrialStuff.lpr
View File

@ -14,6 +14,7 @@ uses
begin
RequireDerivedFormResource := True;
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;

BIN
components/industrialstuff/Example/Ex_IndustrialStuff.res
View File

Binary file not shown.

85
components/industrialstuff/Example/u_industrial.lfm
View File

@ -6,7 +6,7 @@ object Form1: TForm1
Caption = 'IndustrialStuff Example'
ClientHeight = 223
ClientWidth = 824
LCLVersion = '1.9.0.0'
LCLVersion = '2.1.0.0'
object indLed1: TindLed
Left = 200
Height = 35
@ -61,16 +61,16 @@ object Form1: TForm1
Caption = 'Lazarus'
end
object AnalogSensor1: TAnalogSensor
Left = 256
Height = 152
Left = 241
Height = 120
Top = 8
Width = 153
Width = 184
BevelOuter = bvNone
BorderWidth = 2
BorderStyle = bsSingle
Caption = 'level : '
ClientHeight = 148
ClientWidth = 149
Caption = 'level: '
ClientHeight = 116
ClientWidth = 180
Font.Height = -16
Font.Name = 'Arial'
ParentColor = False
@ -80,33 +80,33 @@ object Form1: TForm1
ShowLevel = True
ColorRed = clYellow
ColorYellow = clRed
Value = 70
Value = 50
ValueMin = 0
ValueMax = 100
ValueRed = 30
ValueYellow = 60
ValueRed = 25
ValueYellow = 75
AnalogKind = akVertical
end
object indGnouMeter1: TindGnouMeter
Left = 424
Height = 143
Top = 17
Left = 440
Height = 155
Top = 13
Width = 120
Caption = 'indGnouMeter1'
Value = 70
Caption = 'Voltage'
Value = 50
Color = clPurple
ParentColor = False
ColorFore = clRed
ColorBack = clInactiveCaption
SignalUnit = 'Units'
SignalUnit = 'mV'
ValueMin = 0
ValueMax = 100
Digits = 0
Increment = 10
ShowIncrements = True
Transparent = True
GapTop = 20
GapBottom = 10
GapTop = 10
GapBottom = 5
BarThickness = 6
MarkerColor = clBlue
ShowMarker = True
@ -130,8 +130,8 @@ object Form1: TForm1
end
object A3nalogGauge1: TA3nalogGauge
Left = 568
Height = 192
Top = 16
Height = 207
Top = 8
Width = 241
ArrowWidth = 2
Caption = 'mV'
@ -139,19 +139,40 @@ object Form1: TForm1
CaptionFont.Style = [fsBold]
CenterColor = clSilver
FaceOptions = [foShowMainTicks, foShowSubTicks, foShowIndicatorMin, foShowIndicatorMid, foShowIndicatorMax, foShowValues, foShowCenter, foShowFrame, foShowCaption]
IndMaximum = 60
IndMinimum = 30
Position = 70
IndMaximum = 75
IndMinimum = 25
MidColor = clGreen
MinColor = clYellow
Position = 50
end
object TrackBar1: TTrackBar
Left = 32
Height = 25
Top = 184
object MultiSlider1: TMultiSlider
Left = 25
Height = 35
Top = 180
Width = 504
Frequency = 10
Max = 100
OnChange = TrackBar1Change
Position = 70
TabOrder = 2
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

39
components/industrialstuff/Example/u_industrial.pas
View File

@ -6,7 +6,8 @@ interface
uses
Classes, SysUtils, FileUtil, IndLed, Sensors, LedNumber, IndGnouMeter, AdvLed,
A3nalogGauge, Forms, Controls, Graphics, Dialogs, Arrow, ComCtrls;
A3nalogGauge, indSliders, Forms, Controls, Graphics, Dialogs, Arrow, ComCtrls,
StdCtrls;
type
@ -17,12 +18,15 @@ type
AdvLed1: TAdvLed;
AnalogSensor1: TAnalogSensor;
Arrow1: TArrow;
ComboBox1: TComboBox;
indGnouMeter1: TindGnouMeter;
indLed1: TindLed;
LEDNumber1: TLEDNumber;
MultiSlider1: TMultiSlider;
StopLightSensor1: TStopLightSensor;
TrackBar1: TTrackBar;
procedure TrackBar1Change(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure MultiSlider1PositionChange(Sender: TObject; AKind: TThumbKind;
AValue: Integer);
private
public
@ -38,11 +42,32 @@ implementation
{ TForm1 }
procedure TForm1.TrackBar1Change(Sender: TObject);
procedure TForm1.MultiSlider1PositionChange(Sender: TObject; AKind: TThumbKind;
AValue: Integer);
begin
A3nalogGauge1.Position := Trackbar1.Position;
indGnouMeter1.Value := Trackbar1.Position;
AnalogSensor1.Value := Trackbar1.Position;
case AKind of
tkValue:
begin
A3nalogGauge1.Position := MultiSlider1.Position;
indGnouMeter1.Value := MultiSlider1.Position;
AnalogSensor1.Value := MultiSlider1.Position;
end;
tkMin:
begin
A3nalogGauge1.IndMinimum := MultiSlider1.MinPosition;
AnalogSensor1.ValueRed := MultiSlider1.MinPosition;
end;
tkMax:
begin
A3nalogGauge1.IndMaximum := MultiSlider1.MaxPosition;
AnalogSensor1.ValueYellow := MultiSlider1.MaxPosition;
end;
end;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
AnalogSensor1.AnalogKind := TAnalogKind(ComboBox1.ItemIndex);
end;
end.