Class TColorLight (unit ColrLite)

Inherits from

TGraphicControl

This code is provided as is with no warranty. I will make additions and corrections as time permits. Feel free to drop me a line if you want something added. New versions will be posted on the web at the Tangent Technologies, Inc WEB page at www.mindspring.com/~nhustak This code is copyright 1996, Tangent Technologies, Inc. It may not be included on a shareware disk without permission. Have Fun! Nick Hustak President, Tangent Technologies, Inc President, Atlanta Delphi Developers Group nhustak@mindspring.com TTI@mindspring.com 770-427-2118

Constructors


constructor Create( AOwner:TComponent );



Functions

procedure Paint;

Protected declarations

procedure SetBulbColor( NewColor: TColor );


Properties

property BulbColor : TColor


property DragCursor :

Published declarations

property DragMode :


property Height :


property Width :


Events

event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FBulbColor : TColor;

Private declarations


Constructors


constructor Create( AOwner:TComponent );


Functions


procedure Paint;

Protected declarations


procedure SetBulbColor( NewColor: TColor );


Properties


property BulbColor : TColor


property DragCursor :

Published declarations


property DragMode :


property Height :


property Width :


Events


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FBulbColor : TColor;

Private declarations