| Class TDigitLed (unit DigitLed) |
TPaintBox
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure paint;
procedure SetChar(Character: TCharacter);
procedure SetOffColor(color:TColor);
procedure SetOnColor(color:TColor);
procedure SetSegments(Seg:TBarSet);
procedure drawbar(bar:TDigitBars; Color:TColor; LineColor:TColor);
function posdot(col,row,pos:byte):TPoint;nine rows
| Properties |
property Character : TCharacter
property Color :
property OffColor : TColor
property Segments : TBarSet
property ShowHint : | Events |
event OnColor : TColor| Variables |
dh : integer;
dw : integer;
FChar : TCharacter;
FOffColor : TColor;
FOnColor : TColor;
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 : TColorPublished declarations
| Variables |
dh : integer;dot width
dw : integer;Private declarations
FChar : TCharacter;
FOffColor : TColor;
FOnColor : TColor;dot height
FSegments : TBarSet;