Class TDigitLed (unit DigitLed)

Inherits from

TPaintBox

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

procedure paint;

with

procedure SetChar(Character: TCharacter);


procedure SetOffColor(color:TColor);


procedure SetOnColor(color:TColor);

for

procedure SetSegments(Seg:TBarSet);


procedure drawbar(bar:TDigitBars; Color:TColor; LineColor:TColor);

case

function posdot(col,row,pos:byte):TPoint;

Protected declarations

nine rows


Properties

property Character : TCharacter


property Color :


property OffColor : TColor


property Segments : TBarSet


property ShowHint :


Events

event OnColor : TColor

Published declarations

Variables

dh : integer;

dot width

dw : integer;

Private declarations

FChar : TCharacter;


FOffColor : TColor;


FOnColor : TColor;

dot height

FSegments : TBarSet;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


procedure paint;

with


procedure SetChar(Character: TCharacter);


procedure SetOffColor(color:TColor);


procedure SetOnColor(color:TColor);

for


procedure SetSegments(Seg:TBarSet);


procedure drawbar(bar:TDigitBars; Color:TColor; LineColor:TColor);

case


function posdot(col,row,pos:byte):TPoint;

Protected declarations

nine rows


Properties


property Character : TCharacter


property Color :


property OffColor : TColor


property Segments : TBarSet


property ShowHint :


Events


event OnColor : TColor

Published declarations


Variables


dh : integer;

dot width


dw : integer;

Private declarations


FChar : TCharacter;


FOffColor : TColor;


FOnColor : TColor;

dot height


FSegments : TBarSet;