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.