Class TDigit (unit Udigit) |
Inherits from
TGraphicControl
constructor Create(AOwner: TComponent);
- Constructor para la componente
TDigit
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
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
event OnOverflow : TOverflow
FBorderStyle : TBorderStyle;
FByte : Byte;
FColorOff : TColor;
FColorOn : TColor;
FOnOverflow : TOverflow;
FSeparation : integer;
FThickness : integer;
added by Paul Leung
FVal : Integer;
constructor Create(AOwner: TComponent);
Constructor para la componente
TDigit
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
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
event OnOverflow : TOverflow
FBorderStyle : TBorderStyle;
FByte : Byte;
FColorOff : TColor;
FColorOn : TColor;
FOnOverflow : TOverflow;
FSeparation : integer;
FThickness : integer;
added by Paul Leung
FVal : Integer;