home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 January / Pcwk0198.iso / Dcomplib / LEDCOMP.LZH / README.TXT
Encoding:
Text File  |  1996-09-17  |  2.1 KB  |  62 lines
  1. {##
  2.   LED - Component with blinking capabilities v1.1
  3.   written 1996 by Markus Plesser (e9300600@stud1.tuwien.ac.at)
  4.  
  5.   Source-code is provided as is. You are not allowed to give this code
  6.   away (even to your best friends ;-).
  7.  
  8.   If you have any suggestions or comments please mail me in english or german
  9.   to the above stated adress.
  10.  
  11.   Revision history:
  12.   =================
  13.   ** 27.06.1996 - Created, Initial Release 1.0
  14.   ** 17.09.1996 - Added onClick-Event -> v1.1
  15.  
  16.   P.S.: I┤m from Austria so please accept my apologies for my bad English ;-)
  17. }
  18.  
  19. unit Led;
  20.  
  21. interface
  22. uses
  23.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  24.   Forms, Dialogs, ExtCtrls;
  25.  
  26.  
  27. type
  28.   TLEDColorType = (Red, Blue, Green, Yellow, Fuchsia, Grey, Aqua, White);
  29.   TLEDState = (LEDOn, LEDOff);
  30.  
  31. type
  32.   TLED = class(TGraphicControl)
  33.   private
  34.     FLEDColor:   TLEDColorType;
  35.     FLEDState:   TLEDState;
  36.     FBlinking:   Boolean;
  37.     LEDTimer:    TTimer;  {## Used for blinking }
  38.     BlinkState:  Boolean; {## Which blinkingstate am I in ? }
  39.     procedure Paint; override; {## Redraw Bitmap }
  40.     procedure writeFLEDColor(aColor: TLEDColorType); {## Set color }
  41.     procedure writeFLEDState(aState: TLEDState);     {## Set to On/Off }
  42.     procedure writeFLEDBlinking(aState: Boolean);    {## Make it blink }
  43.     procedure writeTimerInt(aInt: Integer);          {## Set blinking-interval }
  44.     function  readTimerInt: Integer;                 {## Get blinking-interval }
  45.     procedure LEDTimerEvent(Sender: TObject);        {## Change blinking-state }
  46.   public
  47.     constructor Create (aOwner: TComponent); override;
  48.   published
  49.     property Width  default 17;
  50.     property Height default 17;
  51.     property Color: TLEDColorType       read  FLEDColor
  52.                                         write writeFLEDColor;
  53.     property State: TLEDState  read FLEDState   write writeFLEDState;
  54.     property Blinking: Boolean read FBlinking write writeFLEDBlinking;
  55.     property BlinkInterval: Integer read readTimerInt write writeTimerInt;
  56.     property onClick;
  57.   end;
  58.  
  59. procedure Register;
  60.  
  61. implementation
  62.