818d8099cb
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6855 8e941d3f-bd1b-0410-a28a-d453659cc2b4
75 lines
1.6 KiB
ObjectPascal
75 lines
1.6 KiB
ObjectPascal
unit u_industrial;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, IndLed, Sensors, LedNumber, IndGnouMeter, AdvLed,
|
|
A3nalogGauge, indSliders, Forms, Controls, Graphics, Dialogs, Arrow, ComCtrls,
|
|
StdCtrls;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
A3nalogGauge1: TA3nalogGauge;
|
|
AdvLed1: TAdvLed;
|
|
AnalogSensor1: TAnalogSensor;
|
|
Arrow1: TArrow;
|
|
ComboBox1: TComboBox;
|
|
indGnouMeter1: TindGnouMeter;
|
|
indLed1: TindLed;
|
|
LEDNumber1: TLEDNumber;
|
|
MultiSlider1: TMultiSlider;
|
|
StopLightSensor1: TStopLightSensor;
|
|
procedure ComboBox1Change(Sender: TObject);
|
|
procedure MultiSlider1PositionChange(Sender: TObject; AKind: TThumbKind;
|
|
AValue: Integer);
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.MultiSlider1PositionChange(Sender: TObject; AKind: TThumbKind;
|
|
AValue: Integer);
|
|
begin
|
|
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.
|
|
|