Unit LedAuto

----------------------------------------------------------------------} { TLedAuto component v1.0 - Modified by Gabriel Asensio 1.997 } { Based in RoundLed v1.1 Component - by Martyn Dowsett CIS 100676,1560 } { Note.: RoundLed can 'blink' - Please read LedAuto.txt file } { e-mail.: gasensio@cec.caan.es } {----------------------------------------------------------------------

Classes

TLedAuto -

Functions

Register - ------------------------------------------------------------------------------

Types

TActualColors
TLedOffColors
TLedOnColors
TLedStatus
TLedType

Constants

ActualOffColors
ActualOnColors

Variables


Functions


procedure Register;

------------------------------------------------------------------------------

Types


TActualColors = array[0..7] of TColor;

TLedOffColors = (lcBlack,lcMaroon,lcGreen,lcOlive,lcNavy,lcPurple,lcTeal,lcGray);

TLedOnColors  = (lcSilver,lcRed,lcLime,lcYellow,lcBlue,lcFuchsia,lcAqua,lcWhite);

TLedStatus    = (lsOff, lsOn);

TLedType      = (ltIn, ltOut);

Constants

ActualOffColors = (clBlack,clMaroon,clGreen,clOlive,clNavy,clPurple,clTeal,clGray)

ActualOnColors = (clSilver,clRed,clLime,clYellow,clBlue,clFuchsia,clAqua,clWhite)


Variables