You've already forked lazarus-ccr
edb43d5153
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8312 8e941d3f-bd1b-0410-a28a-d453659cc2b4
40 lines
990 B
ObjectPascal
40 lines
990 B
ObjectPascal
|
|
{**********************************************************************
|
|
Package industrial Lazarus
|
|
|
|
This unit is part of Lazarus Project
|
|
***********************************************************************}
|
|
|
|
unit AllIndustrialRegister;
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
Classes, LResources, AdvLed, IndLed, LedNumber, Sensors, indGnouMeter,
|
|
A3nalogGauge, MKnob, Switches, indSliders,
|
|
indLCDDisplay, indLCDDisplay_Editor;
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
{$R industrial_icons.res}
|
|
|
|
uses
|
|
PropEdits, ComponentEditors;
|
|
|
|
//==========================================================
|
|
procedure Register;
|
|
begin
|
|
RegisterComponents('Industrial',[
|
|
TAdvLed, TIndLed, TLedNumber, TStopLightSensor,
|
|
TAnalogSensor, TA3nalogGauge, TindGnouMeter,
|
|
TmKnob, TOnOffSwitch, TMultiSlider, TLCDDisplay
|
|
]);
|
|
RegisterPropertyEditor(TypeInfo(TCharDefs), TLCDDisplay, 'CharDefs', TLCDDisplayCharDefsPropertyEditor);
|
|
RegisterComponentEditor(TLCDDisplay, TLCDDisplayComponentEditor);
|
|
end;
|
|
|
|
end.
|