Class TDigit (unit Udigit)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

Constructor para la componente

TDigit



Functions

procedure Incrementa;


procedure Overflow;


procedure Paint;

Sobreescritura del metodo por defecto para "pintar", sera llamado cada vez que se produzca un VM_PAINT por parte de Windows

Por defecto sin asignar


procedure SetBorderStyle(Value: TBorderStyle);

added by Paul Leung} { metodos miembro que utilizaremos para actualizar las propiedades

Comprobacion de la condicion de encendido


procedure SetColorOff(Value: TColor);


procedure SetColorOn(Value: TColor);


procedure SetSeparation(Value: integer);


procedure SetThickness(value: integer);


procedure SetValue(Value: Integer);


procedure SetValueBinary(Value: Byte);

Codificacion de los bits para "encender" los segmentos del display 012345678 bits 0 -+--------------- /--------\ 0|1011111*- 125 | | 1|0000101*- 80 3| |4 2|1110110*- 55 | 1 | 3|1110101*- 87 >--------< 4|0101101*- 90 | | 5|1111001*- 79 5| |6 6|1111011*- 111 | 2 | 7|1000101*- 81 \--------/ * 7(punto) 8|1111111*- 127 9|1111101*- 95 * si vale 1 entonces enciende el punto E|1111010*- 47 - Indiferente

Properties

property Align :

Lista de propiedades accesibles para el editor

property BorderStyle : TBorderStyle

Usa por defecto la de la clase base

property Color :

Usa por defecto la de la clase base

property ColorOff : TColor


property ColorOn : TColor


property Enabled :

Usa por defecto la de la clase base

property ParentColor :


property ParentFont :

Usa por defecto la de la clase base

property ParentShowHint :

Usa por defecto la de la clase base

property Separation : integer


property ShowHint :

Usa por defecto la de la clase base

property Tag :

Usa por defecto la de la clase base

property Thickness : integer

Usa por defecto la de la clase base

property Value : Integer

Value y ValueBinary van a modificar el aspecto de nuestro digito

property ValueBinary : Byte


property Visible :

Usa por defecto la de la clase base

Events

event OnOverflow : TOverflow


Variables

FBorderStyle : TBorderStyle;


FByte : Byte;


FColorOff : TColor;


FColorOn : TColor;


FOnOverflow : TOverflow;


FSeparation : integer;


FThickness : integer;

added by Paul Leung

FVal : Integer;



Constructors


constructor Create(AOwner: TComponent);

Constructor para la componente

TDigit


Functions


procedure Incrementa;


procedure Overflow;


procedure Paint;

Sobreescritura del metodo por defecto para "pintar", sera llamado cada vez que se produzca un VM_PAINT por parte de Windows

Por defecto sin asignar


procedure SetBorderStyle(Value: TBorderStyle);

added by Paul Leung} { metodos miembro que utilizaremos para actualizar las propiedades

Comprobacion de la condicion de encendido


procedure SetColorOff(Value: TColor);


procedure SetColorOn(Value: TColor);


procedure SetSeparation(Value: integer);


procedure SetThickness(value: integer);


procedure SetValue(Value: Integer);


procedure SetValueBinary(Value: Byte);

Codificacion de los bits para "encender" los segmentos del display 012345678 bits 0 -+--------------- /--------\ 0|1011111*- 125 | | 1|0000101*- 80 3| |4 2|1110110*- 55 | 1 | 3|1110101*- 87 >--------< 4|0101101*- 90 | | 5|1111001*- 79 5| |6 6|1111011*- 111 | 2 | 7|1000101*- 81 \--------/ * 7(punto) 8|1111111*- 127 9|1111101*- 95 * si vale 1 entonces enciende el punto E|1111010*- 47 - Indiferente


Properties


property Align :

Lista de propiedades accesibles para el editor


property BorderStyle : TBorderStyle

Usa por defecto la de la clase base


property Color :

Usa por defecto la de la clase base


property ColorOff : TColor


property ColorOn : TColor


property Enabled :

Usa por defecto la de la clase base


property ParentColor :


property ParentFont :

Usa por defecto la de la clase base


property ParentShowHint :

Usa por defecto la de la clase base


property Separation : integer


property ShowHint :

Usa por defecto la de la clase base


property Tag :

Usa por defecto la de la clase base


property Thickness : integer

Usa por defecto la de la clase base


property Value : Integer

Value y ValueBinary van a modificar el aspecto de nuestro digito


property ValueBinary : Byte


property Visible :

Usa por defecto la de la clase base


Events


event OnOverflow : TOverflow


Variables


FBorderStyle : TBorderStyle;


FByte : Byte;


FColorOff : TColor;


FColorOn : TColor;


FOnOverflow : TOverflow;


FSeparation : integer;


FThickness : integer;

added by Paul Leung


FVal : Integer;