2016-12-28 18:43:45 +00:00
|
|
|
|
|
|
|
{**********************************************************************
|
|
|
|
Package industrial Lazarus
|
|
|
|
|
|
|
|
This unit is part of Lazarus Project
|
|
|
|
***********************************************************************}
|
|
|
|
|
|
|
|
unit AllIndustrialRegister;
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
|
|
uses
|
2022-06-15 10:19:47 +00:00
|
|
|
Classes, LResources, AdvLed, IndLed, LedNumber, Sensors, indGnouMeter,
|
2022-06-17 15:46:35 +00:00
|
|
|
A3nalogGauge, MKnob, Switches, indSliders,
|
|
|
|
indLCDDisplay, indLCDDisplay_Editor;
|
2016-12-28 18:43:45 +00:00
|
|
|
|
|
|
|
procedure Register;
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
{$R industrial_icons.res}
|
|
|
|
|
2022-06-17 15:46:35 +00:00
|
|
|
uses
|
|
|
|
PropEdits, ComponentEditors;
|
|
|
|
|
2016-12-28 18:43:45 +00:00
|
|
|
//==========================================================
|
|
|
|
procedure Register;
|
|
|
|
begin
|
2022-06-17 15:46:35 +00:00
|
|
|
RegisterComponents('Industrial',[
|
2018-07-11 17:45:20 +00:00
|
|
|
TAdvLed, TIndLed, TLedNumber, TStopLightSensor,
|
2019-04-21 21:18:00 +00:00
|
|
|
TAnalogSensor, TA3nalogGauge, TindGnouMeter,
|
2022-06-15 10:19:47 +00:00
|
|
|
TmKnob, TOnOffSwitch, TMultiSlider, TLCDDisplay
|
2018-07-11 17:45:20 +00:00
|
|
|
]);
|
2022-06-17 15:46:35 +00:00
|
|
|
RegisterPropertyEditor(TypeInfo(TCharDefs), TLCDDisplay, 'CharDefs', TLCDDisplayCharDefsPropertyEditor);
|
|
|
|
RegisterComponentEditor(TLCDDisplay, TLCDDisplayComponentEditor);
|
2016-12-28 18:43:45 +00:00
|
|
|
end;
|
|
|
|
|
|
|
|
end.
|